CDLaufwerks-Schublade sperren

[static_cast]

Seit wann leitet Plastik Strom? Oder Luckie hat soebend die Metalldiskette eingeführt

[Dax]

Na ja, bei 10000 Volt leitet auch Plastik - es schmilzt, aber es leitet.

[static_cast]

Was für PC's habt ihr denn in der Schule? Aber lass wir das wird ja sonst noch mehr OT!

[Nothine]

wenn ich ma so fragen dürfte, warum ist deine funktion eigentlich ne funktion wenn du keinen wert zurückgibst? des ganze müsste (wenn ich mich nich irre ) so aussehen:

Delphi-Quellcode:

function LockMedia(ADriveLetter: Char; ALock: Boolean): Boolean;
var LWStatus: HWND;
    LTemp: Cardinal;
    LPMR32: Boolean;
const FSCTL_LOCK_VOLUME = $2D4804;
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
    Result := DeviceIoControl(LwStatus,FSCTL_LOCK_VOLUME,@LPMR32,SizeOf(LPMR32),nil,0,LTemp,nil);
    CloseHandle(LwStatus);
  end else Result := False;
end;

[Ultimator]

Probiers doch mal mit der Bass.dll und der Bass_CD.dll von www.un4seen.com
und dann
BASS_CD_Door(drive,action);

drive:integer; 0=CD-Laufwerk 1, 1= CD-Laufwerk 2 usw...
action: eins der Folgenden: BASS_CD_DOOR_CLOSE; BASS_CD_DOOR_OPEN; BASS_CD_DOOR_LOCK; BASS_CD_DOOR_UNLOCK.

Ist eigentlich selbsterklärend; du musst halt die basscd.dll mit deinem Programm weitergeben...

[SirThornberry]

ups, hab ich wohl vergessen beim umbauen in eine funktion ein result zu setzen.
@Ultimator: Wenn ich einfach nur das Laufwerk sperren will find ichs bissl overkill eine DLL mitliefern zu müssen.

$2D4804 ist eine Konstante die im VB Code wie folgt definiert war

Zitat:

Private Const IOCTL_STORAGE_MEDIA_REMOVAL As Long = &H2D4804

in der Hilfe hab ich diese Konstante (oder eine ähnlich benannte) gefunden. Allerdings wurde diese Konstante bei mir nicht gefunden. Deswegen hab ich einfach den Wert direkt verwendet. Hätte natürlich auch die Konstante declarieren können aber da ich diese nur in der einen Funktion benötige fand ichs hinnfällig

[Luckie]

Nun ja. Ic finde das Benennen von Konstanten immer sinnvoll. Dann sieht man auf den ersten Blick, was da passiert.

[SirThornberry]

Stimmt auch wieder... habs jetzt in meinem Source die vorschläge einfließen lassen. Sieht jetzt also so aus (wurde glaub ich sogar schon von jemandem so gepostet nur mit anderem Konstantennamen)

Delphi-Quellcode:

function LockMedia(ADriveLetter: Char; ALock: Boolean): Boolean;
var LWStatus: Hwnd;
    LTemp: Cardinal;
    LPMR32: Boolean;
Const IOCTL_STORAGE_MEDIA_REMOVAL = $2D4804;
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
    result := DeviceIoControl(LwStatus, IOCTL_STORAGE_MEDIA_REMOVAL, @LPMR32, sizeof(LPMR32), nil, 0, LTemp, nil);
    CloseHandle(LwStatus);
  end else result := False;
end;

[Wishmaster]

Hi

CD-Rom Öffnen und Schließen!

funzt in WinXP

Code:

const
  IOCTL_STORAGE_EJECT_MEDIA = 2967560;
  IOCTL_STORAGE_LOAD_MEDIA = $2D480C;