Вниз
Скачать: CL | DM;

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

 
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 - лоток
сломан.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c
3-30319
Cranium
2003-03-23 17:51
2003.04.10
Как передать параметр для DeleteSQL в IBDataSet


1-30383
Sirus
2003-03-29 17:15
2003.04.10
Можно ли в рантайме создать переменную типа Array


1-30391
AlexTMP
2003-03-30 12:44
2003.04.10
GetLastError() после Memo1.Lines.Add( test ) равно 5


9-30201
APTEMKA
2002-11-05 00:45
2003.04.10
Коллизия в 3D


3-30297
vcpp
2003-03-21 14:44
2003.04.10
Проблемма с IBXUpdateBD45




   Наверх