Hallo,
ich versuche mittels DeviceIOControl ein CD Laufwerk zu öfnnen und habe daher folgendes recherchiert und zusammengebastelt:
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.