Prüfen, ob ein Datenträger eingelegt ist

[Spezi1980]

Eine einfache, aber häufig benötigte Funktion:

Delphi-Quellcode:

//Prüft, ob ein Datenträger eingelegt ist.
function GetDiskIn(Drive: Char): Boolean;
var
  ErrorMode: word;
  DriveNumber: Integer;
begin
  {Meldung eines kritischen Systemfehlers vehindern}
  ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
  try
    DriveNumber := Ord(Drive) - 64;
    if DiskSize(DriveNumber) = -1 then
      Result := False
    else
      Result := True;
  finally
    {ErrorMode auf den alten Wert setzen}
    SetErrorMode(ErrorMode);
  end;
end;

[edit=Matze]Code formatiert. Mfg, Matze[/edit]