Home » Tipps & Tricks » System » Hardware » Feststellen, ob ein Medium eingelegt ist

Feststellen, ob ein Medium eingelegt ist

Folgende Funktion prüft, ob ein Medium in das Laufwerk eingelegt ist. Dazu wird die Funktion DiskSize verwendet, die, falls das Laufwerk nicht bereit ist, -1 zurückgibt.

function IsDiskInDrive(const ADrive: Char): Boolean;
var
  ErrorMode: word;
begin
  ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
  try
    Result := (DiskSize(Ord(UpperCase(ADrive)[1]) - 64) > -1);
  finally
    SetErrorMode(ErrorMode);
  end;
end;

Die Funktion gibt ebenfalls False zurück, wenn der Laufwerksbuchstabe nicht vorhanden ist.