Prüfen, ob Diskette in A

[CalganX]

So, nun will ich das ganze nach nonVCL kopieren und da gibts schon die ersten Problem. Als Hinweis: du Unit SysUtils ist nicht mehr dabei. Nun ist folgender Source:

Delphi-Quellcode:

function DiskInDrive(Drive: Char): Boolean;
var
  OldErrorMode: Cardinal;
  Find: THandle;
  Data: TWin32FindData;
begin
  OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
     Result := False;
     {$I-}
     Find := FindFirstFile(PChar(Drive + ':\*.*'), Data);
     Windows.FindClose(Find);
     {$I+}

     case Find of
          0    : Result := True;
          2, 18: begin
             Result := True;
          end;
          21, 3: Result := false;
     end;
    // hier deine Abfrage
  finally
    SetErrorMode(OldErrorMode);
  end;
end;

Allerdings sind da die Nummern falsch. Hat jemand eine Idee?

Chris