Состояние дверцы сидирома

← →
HardClubber (2003-02-16 15:18) [0]

Господа!

Не подскажете, как определить, открыта или закрыта дверца сидирома?

Заранее благодарен

← →
Shadow (2003-02-16 17:03) [1]

Глазами посмотреть

← →
HardClubber (2003-02-16 17:08) [2]

Смешно...

Мне в программе бы... у неё глазок нету....

← →
Anatoly Podgoretsky (2003-02-16 17:20) [3]

А в программе никак

← →
ZZ (2003-02-16 17:24) [4]

HardClubber
http://photo.v-home.ru/photo/smol/00000226.jpg

← →
DVM (2003-02-16 18:47) [5]

Обратиться к диску: если он есть, то точно закрыта.
ASPI

← →
Anatoly Podgoretsky (2003-02-16 18:52) [6]

Если его нет то неизвестно закрыт или нет.
Проверить состояние дверцы невозможно, можно проверить есть ли диск и читается ли

← →
Ich Hasse (2003-02-16 22:29) [7]

ищите конференцию по этому же поводу... там все это было

← →
xfrost (2003-02-16 22:33) [8]

Использовать WinAPI

Используем сообщение WM_DEVICECHANGE.

TForm1 = class(TForm)
procedure ReceiveMessage (var Msg: TMessage); message WM_DEVICECHANGE;
private
{ Private declarations }
public
{ Public declarations }
end;

...

procedure TForm1.ReceiveMessage(var Msg: TMessage);
begin
if Msg.WParam=32772 then
ShowMessage("CD-ROM Open");

if Msg.WParam=32768 then
ShowMessage("CD-ROM Close");
end;

и так далеее

← →
Anatoly Podgoretsky (2003-02-16 22:43) [9]

Незабудь перед проверкой работспособности выполнить две вещи

Отключить автопознование диска
и поиграться кнопочкой закрыть открыть без диска.

← →
Zhenka (2003-02-17 06:25) [10]

Во из форума!!

Dankin (03.12.02 17:56)
Как узнать выдвинут-ли лоток CD-ROMa или задвинут?
Ответ:
Пользуйтесь API - функцией TrayDeviceInfo(driveLetter: char; info: word):
word; в качестве параметров передавайте driveLetter - буква диска, info -
TRAY_DEVICE_INFO_GET_TRAY_OPEN_STATUS.
Возвращаемые значения: 0 - закрыт, 1 - открыт, 2 - лоток заело, 3 - лоток
сломан.

Состояние дверцы сидирома Найти похожие ветки