CD Laufwerköffnen.

**Seppel**

Hab ma ein bisschen rum gesurft und bin bei

http://www.dsdt.inf daraufgestoßen, wie man ein Laufwekr(CD/DVD) öffnen kann.
Das wollte ich auch machen, alles geht soweil nur ich will, dass man in einem editfeld seinen Laufwerkbuchstaben angibt, das geht leider net.
Combobox könnte man auch machen, aber das geht auch net.

Hier die Procedure:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure OpenCDDrive(const ADriveChar: Char; Open: Boolean);

begin

  if mciSendString(PChar('open '+ADriveChar+': type cdaudio alias cdlw'),

                   Nil,

                   0,

                   0) = 0 then

  begin

    if Open then

      mciSendString('set cdlw door open wait', Nil, 0, 0)

    else

      mciSendString('set cdlw door closed wait', Nil, 0, 0);

    mciSendString('close cdlw', Nil, 0, 0);

  end;

end;

Also dort kann man einstellen, welches Laufwerk sich öffnen soll, aber nicht, dass es den Laufwerkbuchstaben aus einem Editfeld bezieghen soll:

markieren

Delphi-Quellcode:

			//Das öffnet das Laufwerk G.

OpenCDDrive('G', true);

OpenCDDrive(edit1.Text, true); //Das geht leider nicht, wie muss ich den Code, bzw. die Procedure ändern damit es geht?

**DeddyH**

OpenCDDrive erwartet als ersten Parameter ein Zeichen, Du willst aber einen String übergeben. Versuch es mal mit etwas in der Art

markieren

Delphi-Quellcode:

			if Length(Edit1.Text) > 0 then

  OpenCDDrive(Edit1.Text[1],true);

**Seppel**

ok es geht kannst du mir mal erklären, was der Code denn genau macht, also ich weiß er übernimmt, die Eingabe im Editfeld und übergibt sie der Procedure.
Aber das Edit1.Text[1] steht das dafür, dass nur ein Buchstabe übergeben wird?
Den if Befehl raffe ich schon ,der geht halt an wenn mind. 1 Zeichen darin steht.

**DeddyH**

Im Kartext heißt das: "Wenn im Edit etwas drinsteht, öffne das CD-Laufwerk mit dem Laufwerksbuchstaben, der dem ersten Zeichen des Edits entspricht".
Wenn Du also ins Edit "Hühnersuppe" reinschreibst, wird Laufwerk H geöffnet (sofern es sich um ein CD/DVD-Laufwerk handelt).

**Seppel**

ok danke.

**Mokuba01**

bei mir steht immer:

Zitat von Delphi 4:

[Fehler] Unit1.pas(26): Undefinierter Bezeichner: 'mciSendString'

**calculon**

Dann

kuck' hier ganz unten nochmal ganz genau hin.

Gruß

Calculon
--

**RavenIV**

Da, wo Du die Funktion OpenCDDrive herhast, steht die Lödung zu "Undefinierter Bezeichner".
Wenn man schon klaut, dann sollte man auch richtig klauen...

/edit:
Huch, der Thread ist ja schon etwas älter.
Naja, egal. Hauptsache meinen Senf dazu gegeben...

**DeddyH**

Ich glaube, das hat sich mittlerweile erledigt

**RavenIV**

Zitat von DeddyH:

Ich glaube, das hat sich mittlerweile erledigt

/offtopic
Naja, das nächste mal werde ich vorher schauen, von welchem Datum der Thread ist...

CD Laufwerköffnen.

CD Laufwerköffnen.

Re: CD Laufwerköffnen.

Re: CD Laufwerköffnen.

Re: CD Laufwerköffnen.

Re: CD Laufwerköffnen.

Re: CD Laufwerköffnen.

Re: CD Laufwerköffnen.

Re: CD Laufwerköffnen.

Re: CD Laufwerköffnen.

Re: CD Laufwerköffnen.

Forumregeln

Seppel Registriert seit: 14. Jun 2005 139 Beiträge	#3 Re: CD Laufwerköffnen. 18. Okt 2007, 11:08 ok es geht kannst du mir mal erklären, was der Code denn genau macht, also ich weiß er übernimmt, die Eingabe im Editfeld und übergibt sie der Procedure. Aber das Edit1.Text[1] steht das dafür, dass nur ein Buchstabe übergeben wird? Den if Befehl raffe ich schon ,der geht halt an wenn mind. 1 Zeichen darin steht. Sebastian www.seppel.de.pn
	Zitat

Seppel Registriert seit: 14. Jun 2005 139 Beiträge	#5 Re: CD Laufwerköffnen. 18. Okt 2007, 11:18 ok danke. Sebastian www.seppel.de.pn
	Zitat

Mokuba01 Registriert seit: 26. Jan 2007 Ort: Neupetershain 76 Beiträge Delphi XE2 Professional	#6 Re: CD Laufwerköffnen. 20. Okt 2007, 15:04 bei mir steht immer: Zitat von Delphi 4: [Fehler] Unit1.pas(26): Undefinierter Bezeichner: 'mciSendString'
	Zitat

calculon Registriert seit: 16. Sep 2006 256 Beiträge Delphi 7 Personal	#7 Re: CD Laufwerköffnen. 20. Okt 2007, 15:08 Dann kuck' hier ganz unten nochmal ganz genau hin. Gruß Calculon --
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#9 Re: CD Laufwerköffnen. 18. Jan 2008, 16:00 Ich glaube, das hat sich mittlerweile erledigt Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

RavenIV Registriert seit: 12. Jan 2005 Ort: Waldshut-Tiengen 2.875 Beiträge Delphi 2007 Enterprise	#10 Re: CD Laufwerköffnen. 18. Jan 2008, 16:01 Zitat von DeddyH: Ich glaube, das hat sich mittlerweile erledigt /offtopic Naja, das nächste mal werde ich vorher schauen, von welchem Datum der Thread ist... Klaus E. Linux - das längste Text-Adventure aller Zeiten... Wer nie Linux mit dem vi konfiguriert hat, der hat am Leben vorbei geklickt.
	Zitat