Prüfen, ob Diskette in A

[NeoDeluxe]

moin, wie wärs mit

Delphi-Quellcode:

function DiskInDrive(lw:Char; Statusanzeige:boolean): boolean;
var
  sRec:TSearchRec;
  i:Integer;
begin
  result:=False;
{$I-}
  i:=FindFirst(lw + ':\*.*', faAnyfile, SRec);
  FindClose(SRec);
{$I+}
case i of 
      0 : result :=True;                //Diskette mit Dateien
  2, 18 : begin
            if Statusanzeige then
              showmessage('Diskette im Laufwerk ' + lw + ' ist leer!');  //(hier kannst du deine Funktion schreiben!)
            Result := True;
          end;
  21,3  : if Statusanzeige then
            Showmessage('Keine Diskette im Laufwerk ' + lw);
          else
            if Statusanzeige then
              Showmessage('Diskette nicht formiatiert!' + IntToStr(i)); //falls du sowas brauchst!
end;

[edit=Daniel B]Delphi-Tags gesetzt. Neo, Bitte selbst benutzen, nicht code oder quote für Quelltext. Vielen Dank. MfG Daniel B.[/edit]