Cd Laufwerk öffnen/schliessen

[RuSsAk]

hi,
ich habe mal ne frage an euch und zwar gibt es eine möglich keit das cd laufwerk mit z.b strg+o zu öffnen und mit strg+s wieder zu schiessen hat vllt. einer ein fertigen code dafür währe nett von euch wen einer von euch ihn hier Posten könnte.Ich brauche ihn weil mein knopf ist kapput um es zu öffnen und zu schliessen ich würde es ja selbst programmieren kann ich aber nicht weil ich noch ein tottaler anfänger ihn Delphi 7 bin. habe zwar schon gegoogelt find aber nichts


Achso tut mir jetzt leid wen ich es grad am falschen ort gepostet habe bin hier neu und komm noch nich ganz zurecht.

thx schonmal im vorraus

mfg,RuSsAk

[STS301]

hier eine Hilfe zum öffnen

und für die Tastenkombination bei Form1.Onkeydown (oder so)

Delphi-Quellcode:

if key = VK_taste then
... //der Code zum öffnen

[Nuclear-Ping]

Du kannst das doch auch über den Arbeitsplatz machen. Rechte Maustaste auf das Laufwerk -> Auswerfen

Wenn du nen Systemweiten Hook haben willst, so dass du von überall aus das Laufwerk öffnen / schließen kannst: Was machst du, wenn du 'n Dokument bearbeitest und das per Strg+S speichern willst, was ja der gängiste Hotkey dafür ist. Oder Strg+O zum Datei öffnen?

[DeddyH]

Dann muss er sich eben einen ganz "wilden" Hotkey ausdenken

[RuSsAk]

Zitat von STS301:

hier eine Hilfe zum öffnen

und für die Tastenkombination bei Form1.Onkeydown (oder so)

Delphi-Quellcode:

if key = VK_taste then
... //der Code zum öffnen

ok Danke ich Probier es gleich mal aus.

und vielen Dank für die schnellen Antworten hätte niemals gedacht das es so schnell geht

Edit:ich kriege es irgendwie nicht hin sry für meine dummheit

[DeddyH]

Was kriegst Du nicht hin? Zeig doch mal, was Du bisher hast.

[edit] Ich hab mal schnell was "hingeschmiert", das lässt sich noch enorm verbessern/erweitern, aber probiers mal aus. Du musst nur in der Main.pas den Laufwerksbuchstaben an Deinen anpassen. Die Hotkeys sind:
STRG-ALT-O -->Laufwerk öffnen
STRG-ALT-C -->Laufwerk schließen
STRG-ALT-E -->Programm beenden (Hauptformular ist nicht sichtbar) [/edit]

[White-Tiger]

Also dein Prog hat meinen PC fasst zum abschmieren gebracht^^


[EDIT]
Ok ich bin zwar auch nen Delphi noob aber hab auch mal ein Programm gemacht xD

Ansonsten alles was man braucht, findet man unter: http://www.delphi-treff.de/tipps/

Daher im Anhang ist der Code und die EXE zum sofort Testen
Erklärungen zum Code sollten soweit im Code sein.
Hoffe das Hilft xD
[/EDIT]
[EDIT²]
Ach ja der Hotkey ist "STRG + ^"
Hatte ihn zufor nicht genannt da er auch im Programm steht.
Aber befor bemerkungen kommen von wegen ist da ein Hotkey drin
[/EDIT²]
[EDIT³]
Langsahm gehen mir die "HOCHS" aus
Also.. hab was vergessen der Button ändert seinen Text nicht beim draufklicken
(Von öffnen zu Schließen etc)
Sollte aber soweit nicht schlimm sein
[/EDIT³]

[imag]

muss auch mein senf dazugeben...
schau mal unter kruschd.pytalhost.com bei projekte->keycd, da kannste die shortcuts auch einstellen...
Autostartfunktion klopf ich grad rein, in v1.2 wirds drinne sein, die kommt schaetzungsweide morgen online