| Autor |
Beitrag |
Kutsche
Hält's aus hier
Beiträge: 11
|
Verfasst: Mi 25.09.02 13:48
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
 
Beiträge: 1305
Erhaltene Danke: 1
WIN 7, WIN 8
Delphi XE5, Delphi XE, Delphi 2007
|
Verfasst: Mi 25.09.02 14:16
Hi
vielleicht versteht dein Laufwerk ja kein Deutsch 
Versuch mal (ohne Garantie)
Quelltext
1:
| mciSendString('Set cdaudio door open wait', nil, 0, handle) |
Gruss Lothar _________________ Der BH ist für die Brust, der Plan ist für'n Ar...
|
|
Kutsche 
Hält's aus hier
Beiträge: 11
|
Verfasst: Mi 25.09.02 14:51
Hallo LCS,
leider funktioniert Dein Code auch nicht. 
Trotzdem anke für Deine schnelle Antwort.
|
|
O'rallY
Beiträge: 563
|
Verfasst: Mi 25.09.02 15:03
du musst noch
Quelltext
einbinden
Falls das auch nicht funktioniert, guck dir mal einen etwas längeren Code bei SwissDelphiCenter an. Hoffe geholfen zu haben *g*. _________________ .oO'rallY
Linux is like a tipi: No gates, no windows and a gnu-eating apache inside...
|
|
Kutsche
Hält's aus hier
Beiträge: 11
|
Verfasst: Mi 25.09.02 15:46
O'rallY,
die Uses mmsystem war eingebunden.
Ich habe mir mal den von Dir vorgeschlagenen Code angeschaut.  Nett.
Anfängerfrage: wie rufe ich diese Funktion auf ?
|
|
LCS
Beiträge: 1305
Erhaltene Danke: 1
WIN 7, WIN 8
Delphi XE5, Delphi XE, Delphi 2007
|
Verfasst: 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
_________________ Der BH ist für die Brust, der Plan ist für'n Ar...
|
|
Ex0rzist
Beiträge: 550
Win XP Prof.
Mandrake 10.0
D6
|
Verfasst: Mi 25.09.02 17:20
Hi,
Schau mal hier nach.
_______________
Ex0rzist
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Mi 25.09.02 17:37
|
|
Ex0rzist
Beiträge: 550
Win XP Prof.
Mandrake 10.0
D6
|
Verfasst: Mi 25.09.02 18:31
[Joke-Mode=on]
Quelltext
1:
| mciSendString('Mach auf du Sau!', nil, 0, handle); |
[Joke-Mode=off]
___________
Ex0rzist
|
|
O'rallY
Beiträge: 563
|
Verfasst: Do 26.09.02 15:49
_________________ .oO'rallY
Linux is like a tipi: No gates, no windows and a gnu-eating apache inside...
|
|
Kutsche
Hält's aus hier
Beiträge: 11
|
Verfasst: Fr 27.09.02 06:11
Danke O'rallY , es funktioniert. 
Dank auch an alle, die geantwortet haben.
|
|
