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

[keshtkar]

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

[keshtkar]

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

[MNosouhi]

تو این صفحه تابع 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;