| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Лоток CD-ROM. Очень нужно! Помогите! [D5, Win95/98, WinME]
Woolen © (2001-11-27 11:07:00)Никто вчера, к сожалению, на мой вопрос не ответил. Все же, может быть, хроть кто нибудь знает как в программе определить: лоток CD-ROM выдвинут или нет? Заранее спасибо!
fester (2001-12-22 00:50:00) [1]ну нету такой функции....сам искал :-( можно только определить есть диск в СД или нет.
Victor (2001-12-21 06:27:00) [2]Можно закрыть и открыть лоток CD если надо исходники пиши на мыло
Fellomena (2001-11-27 13:10:00) [3]Хм... можно сделать так:
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)
Alx2 (2001-11-27 12:20:00) [4]А зачем это нужно узнавать?
Может быть, проще сразу подать команду на закрытие(открытие) лотка?
| |
