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]

[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. ;)