Лоток CD-ROM. Очень нужно! Помогите!

← →
Woolen © (2001-11-27 11:07) [0]

Никто вчера, к сожалению, на мой вопрос не ответил. Все же, может быть, хроть кто нибудь знает как в программе определить: лоток CD-ROM выдвинут или нет? Заранее спасибо!

← →
Alx2 © (2001-11-27 12:20) [1]

А зачем это нужно узнавать?
Может быть, проще сразу подать команду на закрытие(открытие) лотка?

← →
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)

← →
Victor (2001-12-21 06:27) [3]

Можно закрыть и открыть лоток CD если надо исходники пиши на мыло

← →
fester (2001-12-22 00:50) [4]

ну нету такой функции....сам искал :-( можно только определить есть диск в СД или нет.

Лоток CD-ROM. Очень нужно! Помогите! Найти похожие ветки