Delphi CD Laufwerk öffen - Wo ist das Problem?

Thema durchsuchen

Ansicht

Themen-Optionen

CD Laufwerk öffen - Wo ist das Problem?

Ein Thema von skunker · begonnen am 4. Jun 2006 · letzter Beitrag vom 4. Jun 2006

Antwort

skunker

(Gast)

n/a Beiträge

Re: CD Laufwerk öffen - Wo ist das Problem?

4. Jun 2006, 17:57

Hi:

hier nochmal de Code, der mit sicherheit funzt:

zusammenfalten · markieren

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;