CD Laufwerk öffen - Wo ist das Problem?

Hallo,
ich versuche mittels DeviceIOControl ein CD Laufwerk zu öfnnen und habe daher folgendes recherchiert und zusammengebastelt:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button2Click(Sender: TObject);

var

handle: THandle;

test: PSecurityAttributes;

back: Boolean;

return: Cardinal;

tt: POverlapped;

begin

handle := CreateFile('\\\\.\\PhysicalDrive0',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,tt);

end;

So ausführen ist ja kein Problem nur bekomm ich eine Zugriffsverletzung in der kernel32.dll und nichts passiert, also das LW öffnet sich nicht.

Der Fehler liegt bei DeviceIOControl, den nach dem debugging weiß ich das CreateFile keinen Fehler aufruft.

Doch wo liegt der Fehler ?

Danke schonmal im Voraus.

CD Laufwerk öffen - Wo ist das Problem?

CD Laufwerk öffen - Wo ist das Problem?

Forumregeln