Wie stelle ich fest, ob eine Diskette im Laufwerk liegt?

Die Funktion "DiskSize" gibt als Größe -1 zurück, wenn kein Datenträger vorhanden ist. Um keine System-Fehlermeldung zu erhalten, benutzt man die API-Funktion "SetErrorMode":

function CheckDisk : boolean
var ErrorMode: word;
begin
  {Meldung eines kritischen Systemfehlers vehindern}
  ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
  try
    result := (DiskSize(1) > -1);
  finally
    {ErrorMode auf den alten Wert setzen}
    SetErrorMode(ErrorMode);
  end;
end;

siehe auch:

Wie kann ich eine Diskette formatieren?

Delphi FAQ