Prüfen, ob ein Datenträger eingelegt ist

[Luckie]

Ich halte mal mit meiner dagegen:

Delphi-Quellcode:

function DiskInDriveA(Statusanzeige: Boolean): Boolean;
var
  sRec: TSearchRec;
  i: Integer;
  Drive: Char;
begin
  Drive := 'A';
  Result := False;
{$I-}
  i := FindFirst(Drive + ':\*.*', faAnyFile, sRec);
  FindClose(sRec);
{$I+}

  case i of
    0: Result := True;
    2, 18:
      begin
        if Statusanzeige then
          ShowMessage('Diskette im Laufwerk ' + Drive + ' ist leer !');
        Result := True;
      end;
    21, 3: if Statusanzeige then
        ShowMessage('Keine Diskette im Laufwerk ' + Drive)
      else if Statusanzeige then
        ShowMessage('Diskette nicht formatiert ! ' + IntToStr(i));
  end;
end;

Kommt ohne try-execept aus.