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