uses
MMSystem;
//Для открытия
procedure TForm1.OpenBtnClick(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;
//Для закрытия
procedure TForm1.CloseBtnClick(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;
Cd-rom
Как программно открыть/закрыть лоток CD-привода?
Цитата:
Originally posted by a.k.a Throne
Как программно открыть/закрыть лоток CD-привода?
Как программно открыть/закрыть лоток CD-привода?
Да очень просто.Если б ты искал то не задавал бы этого вопроса.Во всех FAQ есть.
Код: