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

Vorheriger Beitrag

Nächster Beitrag

skunker

(Gast)

n/a Beiträge

#16

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

4. Jun 2006, 18:09

hi, ok also hier komplett als Funktion:

zusammenfalten · markieren

Delphi-Quellcode:

			function opendrive(driveletter: String): Boolean;

var

hr:THandle;

buffer: Cardinal;

ret:Boolean;

begin

  hr := CreateFile(PChar('\\.\'+driveletter+':'),GENERIC_READ,FILE_SHARE_READ or FILE_SHARE_WRITE,NIL,OPEN_EXISTING,0,0);

  if hr <> INVALID_HANDLE_VALUE then begin

    ret := DeviceIOControl(hr,IOCTL_STORAGE_EJECT_MEDIA,NIL,0,NIL,0,buffer,NIL);

    CloseHandle(hr);

  end;

end;