|
|
|
новичок
участник
Last Login: 06.07.2001 0:57
Сообщ.: 3,
Visits: 34
|
|
| Подскажите, какой функцией можно убрать (задвинуть) CD-ROM?
|
|
|
|
|
Junior Member
участник
Last Login: 28.06.2002 10:00
Сообщ.: 19,
Visits: 210
|
|
На Delphi.vitpc.com было.....
Вопрос:
Как закрыть CD програмно?
Ответ:
Вызовите функцию mciSendCommand (из библиотекиMMSystem) передав ей параметр MCI_SET_DOOR_CLOSED.
Пример:
uses MMSystem;
procedure CloseCD(Drive : char);
var
mp : TMediaPlayer;
begin
result := false;
Application.ProcessMessages;
mp := TMediaPlayer.Create(nil);
mp.Visible := false;
mp.Parent := Application.MainForm;
mp.Shareable := true;
mp.DeviceType := dtCDAudio;
mp.FileName := Drive + ':';
mp.Open;
Application.ProcessMessages;
mciSendCommand(mp.DeviceID,
MCI_SET, MCI_SET_DOOR_CLOSED, 0);
Application.ProcessMessages;
mp.Close;
Application.ProcessMessages;
mp.free;
result := true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CloseCD('D');
end;
|
|
|
|