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;

[Luckie]

Was bedeutet: $2D4804?

[Dax]

Ist wahrscheinlich ein nicht definiertes Flag.

[Luckie]

Ich geh stark davon aus, dass es eine Konstante ist und die hat bestimmt auch einen Namen. Und den wüßte ich gerne.

[Dax]

Vielleicht sagt er's uns ja. :stupid:

[static_cast]

Zitat:

Zitat von Luckie

Was bedeutet: $2D4804?

Das ist der wert zu: FSCTL_LOCK_VOLUME

Gruß
Daniel

[Dax]

Was hat der eigentlich mit der CD-SChublade zu tun?

[static_cast]

Die fährt dann nimma mehr raus!

[Luckie]

Bei einer Festplatte wird der Zugriff gesperrt, bei einem CD-ROM Laufwerk das Öffnen der Schublade verhindert und bei einer Diskette bekommst du einen Stromschlag, wenn du sie rausziehst. :mrgreen:

[Dax]

Schade, habe kein Diskettenlaufwerk mehr, ansonsten hätte ich das in der Schule mal eingesetzt. :-D