چگونه وجود فلاپی را در درایو تست نمود ؟

[Mahdi_S_T]

لطفا کد مناسب جهت تست وجود فلاپی در درایو را بنویسید ؟

[مهدی کرامتی]

تابع:

function DiskInDrive(Drive: Char): Boolean;
var
ErrorMode: word;
begin
Drive:= UpCase(Drive);
if not (Drive in ['A'..'Z']) then
raise EConvertError.Create('Not a valid drive ID');
ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
try
if DiskSize(Ord(Drive) - $40) = -1 then
DiskInDrive := False
else
DiskInDrive := True;
finally
SetErrorMode(ErrorMode);
end;
end;
نحوه کاربرد:

procedure TForm1.Button1Click(Sender: TObject);
begin
if not DiskInDrive('f') then ShowMessage('No Disk in drive!')
else ShowMessage('Disk is present in drive');
end;

[Mahdi_S_T]

باز هم آقای کرامتی :flower: