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

[keshtkar]

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

[keshtkar]

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

[MNosouhi]

تو این صفحه (http://barnamenevis.org/forum/showthread.php?t=8785&page=2&highlight=%DD%E1%C7%81%26%231740%3B) تابع 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;