ب آ/زاق ا+
أی/fr.
live@razakffcom.
gmail@razaklaam
ا/com.
7yoo.
55razak.
www
-اص ا رئ ا اج ا أو ضا:
د آ:
function GetFirstCdRomDrive: string;
var
r: LongWord;
Drives: array[0.
.
128] of char;
pDrive: pchar;
begin
Result :=...
More
ب آ/زاق ا+
أی/fr.
live@razakffcom.
gmail@razaklaam
ا/com.
7yoo.
55razak.
www
-اص ا رئ ا اج ا أو ضا:
د آ:
function GetFirstCdRomDrive: string;
var
r: LongWord;
Drives: array[0.
.
128] of char;
pDrive: pchar;
begin
Result := ;
r := GetLogicalDriveStrings(sizeof(Drives), Drives);
if r = 0 then exit;
if r > sizeof(Drives) then
raise
Exception.
Create(SysErrorMessage(ERROR_OUTOFMEMORY));
pDrive := Drives;
while pDrive^ <> #0 do begin
if GetDriveType(pDrive) = DRIVE_CDROM then begin
Result := pDrive;
exit;
end;
inc(pDrive, 4);
end;
end;
procedure TForm1.
Button1Click(Sender: TObject);
begin
edit1.
text:=(GetFirstCdRomDrive);
end;
2-إDateTimePickerإDBGrid ____
3-زرار اBtn1: TBitBtn - Btn2: TBitBtn
Less