Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

Можно ли программно заблокировать лоток CD   Найти похожие ветки 

 
yaric   (2003-11-26 18:08) [0]

Можно ли программно заблокировать лоток CD, как это делает например Linux, когда сидюк примонтирован.
Если можно, то подскажите как.


 
Nick Denry ©   (2003-11-26 20:52) [1]

MCILock...
Find in help


 
AbrosimovA ©   (2003-12-02 14:47) [2]

//Блокировать(Locked=true);Разблокировать(Locked=false) CD-ROM
//DriveCD - буква привода CD(Например, F:)

procedure Door_Lock(DriveCD:string; Locked:boolean);
const IOCTL_STORAGE_MEDIA_REMOVAL = $002D4804;
var hDrive : THandle;
Returned : DWORD;
DisableEject : boolean;
Drv: string;
begin
Drv:= "\\.\"+DriveCd;
hDrive := CreateFile(PChar(Drv), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if GetLastError <> 0 then
MessageDlg("Ошибка:"+IntToStr(GetLastError), mtError, [mbOK], 0);
try
DisableEject := Locked;
if not DeviceIoControl(hDrive,
IOCTL_STORAGE_MEDIA_REMOVAL,
@DisableEject,
sizeof(DisableEject),
nil,
0,
Returned,
nil) then
MessageDlg("Ошибка:"+IntToStr(GetLastError), mtError, [mbOK], 0);
finally
CloseHandle(hDrive);
end;
end;


 
Dakis ©   (2003-12-17 21:34) [3]

procedure Lock(Locking : Boolean);
var
Returned: Cardinal;
hDrive : HWND;
begin
hDrive:=CreateFile("\\.\H:",GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
DeviceIoControl(hDrive,PREVENT_MEDIA_REMOVAL, @Boolean(Locking), sizeof(DisableEject), nil, 0, Returned, nil);
FileClose(HDrive);
end;



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

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
6-80068
Сетевик
2003-12-18 12:17
2004.02.25
Никто низнает как сделать авторизацию на подключение к idTcpserve


1-79967
Batoon
2004-02-14 12:10
2004.02.25
Проблема с компонентом


7-80329
xtz
2003-12-04 01:28
2004.02.25
Автозапуск


14-80276
Рулон Обоев
2004-02-03 23:10
2004.02.25
порекомеднуйте магазины с б/у ноутами в Москве


1-79830
antonn
2004-02-11 06:59
2004.02.25
Изменить размер формы.