ljigas Administrator


Anmeldungsdatum: 28.09.2004 Beiträge: 7 Wohnort: Graz
|
Verfasst am: 01.10.2004, 19:01 Titel: [Tutorial]cd laufwerk öffnen/schließen |
|
|
Ein prog mit dem sich cd laufwerke öffnen und schließen lassen
_____________________________________________________________
uses mmsystem;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if mciSendString('open D: type cdaudio alias cdlw',
nil,
0,
0) = 0 then
begin
mciSendString('set cdlw door open wait', nil, 0, 0);
{oder closed wait zum schliessen}
mciSendString('close cdlw', nil, 0, 0)
end;
end;
_____________________________________________________________
[funkt bei mir bei dvdRom nicht!] _________________ Idiot inside III
schleifpapier@gmx.at
 |
|