ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Заблочить dvd-cd ROM
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Заблочить dvd-cd ROM
  #1  
Старый 08.04.2010, 14:13
dosleft
Новичок
Регистрация: 07.04.2010
Сообщений: 7
Провел на форуме:
94107

Репутация: 0
По умолчанию Заблочить dvd-cd ROM
Кто зает как это сделать? желательно еще и usb, язык делфи.
 
Ответить с цитированием

  #2  
Старый 08.04.2010, 14:19
JnK
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563

Репутация: 52
По умолчанию
Цитата:
Сообщение от dosleft  
Заблочить dvd-cd ROM
Функция принимает два параметра. ADriveLetter - буква диска, ALock - блокировать (true - блокировать, false - разблокировать)

PHP код:
function LockMedia(ADriveLetter: Char; ALock: Boolean): Boolean; 
var LWStatus: Hwnd; 
    LTemp: Cardinal; 
    LPMR32: Boolean; 
Const IOCTL_STORAGE_MEDIA_REMOVAL = $2D4804; 
begin 
  LwStatus := CreateFile(PChar('\\.\' + ADriveLetter + ':'), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0); 
  LPMR32 := ALock; 
  if LwStatus <> INVALID_HANDLE_VALUE then 
  begin 
    result := DeviceIoControl(LwStatus, IOCTL_STORAGE_MEDIA_REMOVAL, @LPMR32, sizeof(LPMR32), nil, 0, LTemp, nil); 
    CloseHandle(LwStatus); 
  end else result := false; 
end; 
Пример использования:
PHP код:
LockMedia('d', true);  // заблокировать диск D:
ShowMessage('CD-ROM заблокирован. Лоток не выезжает.');
LockMedia('d', false); // разблокировать диск D:
ShowMessage('CD-ROM разблокирован.'); 
Или блокировать в плане, он не видется вообще?
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создан гибридный оптический диск, совмещающий Blu-ray и DVD DTW Мировые новости 7 22.12.2008 22:35
Сравнительный обзор программных Dvd плееров _GaLs_ Болталка 3 18.11.2006 17:05
Nero Burning Rom 7.2.0.3 NEW bxN5 Мировые новости 0 26.04.2006 19:20
Крупный улов: МВД арестовало 2 млн Dvd Nova Мировые новости 4 01.04.2006 21:27



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ