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

Блокировка лотка CD-ROM   Найти похожие ветки 

← →
coolcat   (2003-03-08 23:08) [0]

Нужно научить программу блокировать лоток CD-привода (лоток привода не открывается ни программно, ни аппаратно).
Подскажите кто может.


← →
Song ©   (2003-03-08 23:10) [1]

MCISendString()


← →
Романов Р.В. ©   (2003-03-08 23:13) [2]

ExitWindowsEx


← →
AlexandrRya   (2003-03-08 23:51) [3]

Не знаю, какое отношение имеет ExitWindowsEx к сабжу, но я когда-то яспользовал DeviceIOControl, правда ее использование очень сильно отличается в 9x, Me от 2k,NT,XP, и, если щелкнуть по диску правой копкой, выбрать Извлечь, то винда покажет окно, что диск заблокирован, и предложить разблокировать его (нажать Ок или Да - не помню), после чего все же извлечет диск, ну а в остальном - все нормально.


← →
Романов Р.В. ©   (2003-03-09 08:49) [4]

AlexandrRya (08.03.03 23:51)
Самое прямое. Выключаем компьютер и окрыть лоток можно будет только с помощью отвертки


← →
Esc ©   (2003-03-09 12:11) [5]

Есть такой юнит VWin32.pas, там много полезностей...
Есть там такая ф-я LockRemovableMedia - вот она умеет блокировать кнопку CD-ROM"a(в Win98, в других не проверял), но остаётся возможность програмного извлечения лотка(Диск->Извлечь).


← →
maniyak   (2003-03-09 12:54) [6]

По FIDO разжевывали, есть юнит для НТей, пишите


← →
easy ©   (2003-03-09 15:12) [7]

procedure tform1.LockUnlock(lu:boolean);
var
Buffer:array[0..1023] of char;
begin
if lu then controlcode:= FSCTL_LOCK_VOLUME else controlcode:= FSCTL_UNLOCK_VOLUME;
hDrive := CreateFile("\\.\F:",
GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE,
nil, OPEN_EXISTING, 0, 0);
{ if hDrive= INVALID_HANDLE_VALUE then
showmessage("dont CreateFile"); }
DeviceIoControl(hDrive,IOCTL_STORAGE_MEDIA_REMOVAL,@lu,sizeof(lu),nil,0,DummyReturnedBytes,nil);
FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM, nil, GetLastError, LANG_NEUTRAL, @Buffer, 1024, nil);
ShowMessage(StrPas(Buffer));
CloseHandle(hDrive);
end;



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

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



Память: 0.46 MB
Время: 0.014 c
14-91532
p@s
2003-04-10 12:31
2003.04.28
Нужен компонент TVCLScriptControl


3-91197
skirdov
2003-04-10 10:21
2003.04.28
Ввод даты в dxDBGrid


1-91368
Lex01
2003-04-16 11:29
2003.04.28
Потоки в Delphi


1-91253
filin
2003-04-16 00:05
2003.04.28
oemtochar + WinNT


3-91217
Evgen
2003-04-10 15:54
2003.04.28
Работа с датами




   Наверх