Главная страница
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.053 c
3-1123934333
Marser
2005-08-13 15:58
2005.09.25
ADO. Отслеживание изменения БД.


6-1114492563
Макс Т.
2005-04-26 09:16
2005.09.25
TWebBrowser и курсор ввода


2-1123983869
Chipik
2005-08-14 05:44
2005.09.25
удаление повторяющихся строк


6-1117775562
Mishenka
2005-06-03 09:12
2005.09.25
Не коннектится FTP сервер.


14-1124117877
_dimka
2005-08-15 18:57
2005.09.25
День траура рок музыки