Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как проверит, открыт ли лоток CD-ROM? [D7, WinXP]

Страницы: < 1 2
Nik_vr © (2005-05-18 23:08:00)
Собственно сабж...

Marser (2005-05-20 16:39:00) [21]

> Чапаев © (20.05.05 12:33) [8] [Новое
>сообщение][Ответить]
> > mciSendString('Set cdaudio door closed wait', nil,
>0, handle);
> Логично, что есть и аналогичные команды get.
> Справочник по MCI тебе в руки.

Нет таких. Есть status

Чапаев (2005-05-20 12:33:00) [22]
> mciSendString('Set cdaudio door closed wait', nil, 0, handle);
Логично, что есть и аналогичные команды get. Справочник по MCI тебе в руки.

Alexander Panov (2005-05-20 12:25:00) [23]
Интересно, а как тогда некоторые программы (типа aTools)
открывают/закрывают лоток по нажатию одной и той же кнопки???

А для этого обязательно знать состояние лотка?

Nik_vr (2005-05-20 12:14:00) [24]
2kat
Спасибо, но это я знал...

2OSokin
Интересно, а как тогда некоторые программы (типа aTools)
открывают/закрывают лоток по нажатию одной и той же кнопки???
(точно знаю, что aTools написаны на Delphi).

Nik_vr (2005-05-20 12:14:00) [25]
2kat
Спасибо, но это я знал...

2OSokin
Интересно, а как тогда некоторые программы (типа aTools)
открывают/закрывают лоток по нажатию одной и той же кнопки???
(точно знаю, что aTools написаны на Delphi).

OSokin (2005-05-19 21:30:00) [26]
Это уже вечный вопрос - проверить, открыт или закрыт привод... На него нет ответа - можно проверить только, есть диск или нет. Для этого нужно использовать функцию "GetDiskFreeSpace(pchar(disk+':\'),a,a,a,a);", где "disk" - это название диска, а "a" - переменная типа cardinal. Если функция возвращает false, то диска в приводе нет.

kat (2005-05-19 20:37:00) [27]
из Кулибы:

Для открытия CD-ROM:

mciSendString('Set cdaudio door open wait', nil, 0, handle);

Для закрытия CD-ROM:

mciSendString('Set cdaudio door closed wait', nil, 0, handle);

Nomadic добавляет свой способ открытия CD-ROM:

mciSendCommand(mp.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);

Не забудьте включить MMSystem в список используемых модулей (uses).

Nik_vr (2005-05-19 20:12:00) [28]
Во-первых, этот код в любом случае выдает цифру "6".
Во-вторых, мне нужно это сделать на WinAPI, а то с медиа-плэером больно размер вырастет...

Ученик (2005-05-18 23:25:00) [29]
>Nik_vr © (18.05.05 23:08)
MediaPlayer1.DeviceType := dtCDAudio; MediaPlayer1.FileName := '?:'; MediaPlayer1.Open; ShowMessage(IntToStr(Ord(MediaPlayer1.Mode)))

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »