prüfen ob Disk im Laufwerk mit Programmcode

Computer: Software & Programmierung Delphi & Pascal
#1

Wie kann ich mit einem einfachen Programmcode prüfen, ob sich eine Diskette im Laufwerk befindet.

Vielen Dank für einen Tip

Eric

#2

Irgendwann irgendwo aufgesammelt :

procedure TForm1.Button1Click(Sender: TObject);
var
Error: word;
begin
Error := SetErrorMode(SEM_FailCriticalErrors);
if DiskSize(1) = -1 then ShowMessage(‚Keine Disk da‘);
SetErrorMode(Error);
end;

Einfach genug??

Gruss und viel Erfolg

RQ

#3

Vielen Dank, hat mir geholfen!

Gruß Eric