CD/DVD Laufwerk öffnen

[hathor]

Zitat von p80286:

Oh mann die spinnen.......

aber mal im Ernst, könnte man die Version aus #17 nicht in die CodeLib übernehmen?

Für die, die's kurz und knackig mögen ist das doch richtig chic!


Gruß
K-H

Aber erst nach Fehlerkorrektur:

Delphi-Quellcode:

function LoadMedia(const Drive: String; Eject: Boolean = False): Boolean;
const Command: array[Boolean] of Cardinal = (IOCTL_STORAGE_LOAD_MEDIA, IOCTL_STORAGE_EJECT_MEDIA);
var H: THandle;
  R: Cardinal;
begin
  H := CreateFile(PChar('\\.\' + Drive), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, NIL, OPEN_EXISTING, 0, 0);
  Result := (H <> INVALID_HANDLE_VALUE) and
    DeviceIOControl(H, Command[Eject], NIL, 0, NIL, 0, R, NIL); // W durch R erstzen...<-------------------
  CloseHandle(H);
end;


// z.B.:
LoadMedia('D:', True);  // Tür auf
LoadMedia('D:');        // Tür zu