Блокировка лотка 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 разжевывали, есть юнит для НТей, пишите

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;

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