Entwickler-Ecke
Sonstiges (Delphi) - CD-Laufwerk öffnen
Kutsche - Mi 25.09.02 13:48
Titel: CD-Laufwerk öffnen
Hallo,
ich wollte über den folgenden Code mein CD-Laufwerk öffnen:
Quelltext
1:
2:
3:
4:
5:
6:
7:
| uses
mmsystem
...
procedure TForm1.Button3Click(Sender: TObject);
begin
mciSendString('Laufwerk geöffnet', nil, 0, handle);
end; |
aber es funktioniert nicht :!: Was läuft hier schief ?
Könnte es vielleicht an den Combo-Laufwerk (CDR-DVD) liegen oder an WinXP :?:
Danke und Tschüß
Kutsche
LCS - Mi 25.09.02 14:16
Hi
vielleicht versteht dein Laufwerk ja kein Deutsch :lol:
Versuch mal (ohne Garantie)
Quelltext
1:
| mciSendString('Set cdaudio door open wait', nil, 0, handle) |
Gruss Lothar
Kutsche - Mi 25.09.02 14:51
Hallo LCS,
leider funktioniert Dein Code auch nicht. :(
Trotzdem anke für Deine schnelle Antwort.
Kutsche - Mi 25.09.02 15:46
O'rallY,
die Uses mmsystem war eingebunden.
Ich habe mir mal den von Dir vorgeschlagenen Code angeschaut. :shock: Nett.
Anfängerfrage: wie rufe ich diese Funktion auf ?
LCS - Mi 25.09.02 15:56
Hi
könnte auch sein, dass dein Laufwerk eben nicht als cdaudio erkannt wird. Wenns ein DVD ist, könnte es ja auch als videodisc eingetragen sein.
Gruss Lothar
Delete - Mi 25.09.02 17:37
Quelltext
1:
| mciSendString('Laufwerk geöffnet', nil, 0, handle); |
DER war geil, Junge. :mrgreen:
Ex0rzist - Mi 25.09.02 18:31
[Joke-Mode=on]
Quelltext
1:
| mciSendString('Mach auf du Sau!', nil, 0, handle); |
[Joke-Mode=off]
:beer:
___________
Ex0rzist
O'rallY - Do 26.09.02 15:49
| Kutsche hat folgendes geschrieben: |
| die Uses mmsystem war eingebunden. |
Oh, stimmt, hab ich übersehen :oops:
| Kutsche hat folgendes geschrieben: |
Ich habe mir mal den von Dir vorgeschlagenen Code angeschaut. :shock: Nett.
Anfängerfrage: wie rufe ich diese Funktion auf ? |
Ganz einfach:
Quelltext
1:
2:
3:
| OpenCD('d'); // d:\ ist das CD-Laufwerk
//dass gleiche mit CloseCD |
Kutsche - Fr 27.09.02 06:11
Danke O'rallY , es funktioniert. :D
Dank auch an alle, die geantwortet haben.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!