تشخیص وجود فلاپی در درایو فلاپی

با سلام
آیا کسی میدونه چطوری میشه تشخیص داد که فلاپی در درایو فلاپی وجود دارد یا ندارد
با تشکر
موفق و سلامت باشید

کسی نیست که بتونه کمکم کنه
موق و سلامت باشید

تو این صفحه تابع IsDiskInDrive رو تست کن.

اصولا خدا جستجو رو برای همین مواقع آفریده.

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  if DiskSize(ord('A')-$40)<>-1 Then

    Application.MessageBox('warining', 'Floppy check ',Mb_ok)

    else

      Application.MessageBox( 'warining','No Floppy',Mb_ok);

end;