Как открыть CD-ROM програмно?

[bagdat]

Как открыть CD-ROM програмно?Дайти код,пожалуйсто

[Квэнди]

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;
...

[Alar]

http://pblog.ru/?p=19

[bagdat]

Sposibo vam Kvendi,Alar.