Zugriff auf CD-Rom ohne CD - Timeout?

[samso]

Probiere mal vor dem Abrufen der Verzeichnisliste die folgende Funktion zu verwenden:

Delphi-Quellcode:

function DiskInDrive(const Path: String): Boolean;
// mit z.B. Path = 'd:\'
var
  ErrorMode: word;
  FreeAvailable: Int64;
  TotalSpace: Int64;
begin
  ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
  try
    Result := GetDiskFreeSpaceEx(PChar(Slash(Path)), FreeAvailable, TotalSpace, nil);
  finally
    SetErrorMode(ErrorMode);
  end;
end;