Форум: "Система";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
ВнизЛоток CD-ROM. Очень нужно! Помогите! Найти похожие ветки
← →
Fellomena (2001-11-27 13:10) [2]Хм... можно сделать так:
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;
И если после выполнения CloseCD будем иметь result:=false; то логично предположить, что
сидюк уже закрыт 8)
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c