hi, hatte das selbe problem, hab ma bisschen rumgeguckt, folgende funktion gibt, solang das cd-laufwerk auf ist, in jedem fall False zurück:
Delphi-Quellcode:
function IsDriveReady(ADriveChar: Char): Boolean;
var OEM: Cardinal;
DW1,DW2: DWORD;
begin
Oem := SetErrorMode(SEM_FAILCRITICALERRORS); //keine Meldung a lá "Bitte CD einlegen"
Result := GetVolumeInformation(PCHAR(ADriveChar+':\'),nil,0,nil,DW1,DW2,nil,0);
SetErrorMode(Oem);
end;
bringt dir natürlich nur was wenn du wie ich, nach dem öffnen, schauen willst wann das laufwerk wieder zugemacht worden ist...
//Edit: sch**** ! hab grad gemerkt das die funktion auch false zurückgibt wenn keine CD im laufwerk ist
