CDLaufwerks-Schublade sperren

[SirThornberry]

Ich hab heute verzweifelt danach gesucht wie man verhindern kann das jemand das CD-Romlaufwerk öffnet (per Knopfdruck an der Hardware). Unter Dos hatte ich dazu ein Programm bei dem CD-Romlaufwerk dabei... Bei meiner Suche hab ich leider nix brauchbares gefunden. Zu guter letzt hab ich dann einen VB-Source gefunden und hab den versucht in delphi zu bringen. Für Leute die das gleiche Problem haben hier der Source (geht nicht unter Win9x)

Delphi-Quellcode:

function LockMedia(ADriveLetter: Char; ALock: Boolean): Boolean;
var LWStatus: Hwnd;
    LTemp: Cardinal;
    LPMR32: Boolean;//TPreventMediaRemoval;
begin
  LwStatus := CreateFile(PChar('\\.\' + ADriveLetter + ':'),GENERIC_READ Or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);
  LPMR32 := ALock;
  If LwStatus <> INVALID_HANDLE_VALUE Then
  begin
    DeviceIoControl(LwStatus, $2D4804, @LPMR32, sizeof(LPMR32), nil, 0, LTemp, nil);
    CloseHandle(LwStatus);
  end;
end;