Работа с дисководом. Нужна помощь

[Bandukb63]

Необходимо остановить работу CD-ROMa и снова возобновить по первому требованию пользователя. За помощь буду очень признателен.

[KWN, lnc]

Bandukb63 попробуй так.

procedure tform1.timer1timer(sender: tobject);
begin
timer1.interval:=1;
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;

Заблокировать

procedure tform1.button1click(sender: tobject);
begin
timer1.enabled:=true;
end;

Разблокировать

procedure tform1.button2click(sender: tobject);
begin
timer1.enabled:=false;
end;