CD Laufwerk öffen - Wo ist das Problem?

[skunker]

Hi:

hier nochmal de Code, der mit sicherheit funzt:

Delphi-Quellcode:

var
handle: THandle;
test: PSecurityAttributes;
back: Boolean;
return: Cardinal;
tt: POverlapped;
begin
handle := CreateFile('\\.\D:',GENERIC_READ,FILE_SHARE_READ or FILE_SHARE_WRITE,NIL,OPEN_EXISTING,0,0);

back := DeviceIOControl(handle,IOCTL_STORAGE_EJECT_MEDIA,NIL,0,NIL,0,return,0);

end;