Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Cd Laufwerk öffnen/schliessen (https://www.delphipraxis.net/106912-cd-laufwerk-oeffnen-schliessen.html)

RuSsAk 18. Jan 2008 15:34


Cd Laufwerk öffnen/schliessen
 
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 :oops: weil ich noch ein tottaler anfänger ihn Delphi 7 bin. :pale: habe zwar schon gegoogelt find aber nichts:wall:


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 18. Jan 2008 15:39

Re: Cd Laufwerk öffnen/schliessen
 
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 18. Jan 2008 15:40

Re: Cd Laufwerk öffnen/schliessen
 
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 18. Jan 2008 15:41

Re: Cd Laufwerk öffnen/schliessen
 
Dann muss er sich eben einen ganz "wilden" Hotkey ausdenken ;)

RuSsAk 18. Jan 2008 15:47

Re: Cd Laufwerk öffnen/schliessen
 
Zitat:

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 :shock: :shock: :shock:

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

DeddyH 18. Jan 2008 17:40

Re: Cd Laufwerk öffnen/schliessen
 
Liste der Anhänge anzeigen (Anzahl: 1)
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 18. Jan 2008 20:04

Re: Cd Laufwerk öffnen/schliessen
 
Liste der Anhänge anzeigen (Anzahl: 1)
Also dein Prog hat meinen PC fasst zum abschmieren gebracht^^
:gruebel: :?: :!: :?:

[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 :P
[/EDIT²]
[EDIT³]
Langsahm gehen mir die "HOCHS" aus :wall:
Also.. hab was vergessen der Button ändert seinen Text nicht beim draufklicken
(Von öffnen zu Schließen etc)
Sollte aber soweit nicht schlimm sein :mrgreen:
[/EDIT³]

imag 3. Mai 2008 15:29

Re: Cd Laufwerk öffnen/schliessen
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:37 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz