CD/DVD Laufwerk öffnen

[gr4p3fruit]

raus und rein :mrgreen: raus und rein... im 5sek Abstand,... wäre bestimmt auch einfacher gegangen mit einer Laufwerks-Erkenn-, Info-abspeicher- und erst dann Laufwerks-Auswerf-Funktion

[XiaN]

Da muss ich ja schelmisch gestehen, dass ich Laufwerkhopping gleich mal mit meinen 3 Laufwerken ausprobiert hab :corky: :mrgreen:

Ich habs mal mit nem 2x Laufwerk von vor 15 Jahren, einem 40x CD Laufwerk und nem aktuellen DVD Brenner versucht. Da die alle unterschiedlich lange brauchten um aufzugehen und dabei auch unterschiedliche Sounds gemacht haben, hab ich mir gedacht : "Laufwerkhopping hat bestimmt schon einer gemacht. Gibt ja nix, was es nich im Netz gibt.". Nach ner GoogleSuche war mir dann mal wieder klar, wieso kein Ausserirdischer bei uns landen will :mrgreen:

Leider sind sie zu langsam um mit der StarWars Theme aufm Floppy Drive oder auf ner HDD mitzuhalten. Oder halt Mario Brothers auf Teslaspulen.

:cheer: Freaks for the world :cheer:

[DeddyH]

[OT] Da gab es doch auch mal einen Scanner, der "Für Elise" spielt. [/OT]

[Mithrandir]

Und derselbe Scanner spielt auch "Ode an die Freude" ;) :mrgreen:

[gr4p3fruit]

:wall: nein, das wollte ich nicht mit den Laufwerken bezwecken :-D aber die Teslaspulen sind ja mal der Hammer,... Wie geht sowas!? Wechselspannung ok, aber welche Frequenz wird dann gehört? Und wie "schießt" man den Ton ab?

[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

[hathor]

Zitat:

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