Mega Code Archive

 

Categories / Delphi / Examples

 

Is there a Floppy present

Title: is there a Floppy present? Question: If you want to know if there's a floppy in the drive and you want to avoid the massege "Drive a:\ is not ready" simply use the following code Answer: procedure TForm1.Button1click(Sender : TObject); begin if not directoryexists('a:\') then MessageDlg('There is no floppy present',mtError,[mbOk],0) else { use the drive to write files to it } end;