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

Вниз

CD_ROM   Найти похожие ветки 

 
Borland ©   (2005-07-31 17:06) [0]

Как программно заблокировать все CD-ROM"ы?


 
КодеКорешь   (2005-08-01 14:09) [1]

function BlocCD(DisableEject: boolean; ADriveLetter : PChar): Boolean;
var
hCDDevice : THandle;
lpBytesReturned: DWORD;
const
 IOCTL_STORAGE_MEDIA_REMOVAL = $002D4804;
begin
If GetDriveType(ADriveLetter) = DRIVE_CDROM then
  begin
    hCDDevice := CreateFile(PChar("\\.\"+ADriveLetter),
                                                  GENERIC_READ,
                                                   FILE_SHARE_READ or FILE_SHARE_WRITE,
                                                   nil,
                                                   OPEN_EXISTING,
                                                   FILE_ATTRIBUTE_NORMAL,
                                                  0);
    if hCDDevice <> INVALID_HANDLE_VALUE then
       begin
          DeviceIoControl(hCDDevice, IOCTL_STORAGE_MEDIA_REMOVAL, @DisableEject, sizeof(DisableEject),  nil, 0, lpBytesReturned, nil);
          CloseHandle(hCDDevice);
          Result:=True;
       end
    else
       begin
          CloseHandle(hCDDevice);
          Result:=False;
       end;
 end

else  Result:=False;
end;

DisableEject если True то блокируем иначе разблокируем
ADriveLetter тут буква диска
Как перебрать все CD-ROM в цикле думаю знаешь....


 
Borland ©   (2005-08-03 15:18) [2]

Если честно, то нет. Т.к. занялся программирорванием не так уж давно. Если не трудно - покажите.



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

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

Наверх




Память: 0.47 MB
Время: 0.027 c
5-1100013922
Vcoder
2004-11-09 18:25
2005.09.25
Как отличить DesignTime и RunTime?


14-1124983655
Juice
2005-08-25 19:27
2005.09.25
Покупка FIBPLUS 6


1-1125577892
CatiL
2005-09-01 16:31
2005.09.25
Как сделать один из ItemIndex ComboBoха неактивным


14-1125152841
Копир
2005-08-27 18:27
2005.09.25
Вирус VBS.Redlof. Вот, ведь сволочь какая!


1-1125783213
kami
2005-09-04 01:33
2005.09.25
Потеря цвета в TImage