::Computer Board::

[ljigas]

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

[Anzeige]