Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

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

 
lmatveev   (2004-02-26 20:04) [0]

Как заблокировать лоток CD-ROM как это делают всякие cd-писАлки?
На каких CD-ROM это можно сделать?


 
Eagle-XK ©   (2004-02-27 16:41) [1]

А ВинАпи почитеть уже в лом?


 
DVM ©   (2004-02-27 16:45) [2]


> А ВинАпи почитеть уже в лом?

Вряд-ли WinApi тут поможет. Лучше про ASPI почитать ИМХО.


 
lmatveev   (2004-02-27 17:39) [3]

Вот вопрос как раз в том, что именно почитать. И в каком направлении.
Я надеялся, что у кого-нибудь уже есть опыт в подобных вещах и он поделится если уж не кодом, то уж хотя бы нужным направлением.


 
Иван Ширко   (2004-02-27 17:47) [4]

ASPI позволяет сделать это, а заодно проверить поддержку этой команды для данного CD-ROM"a.
Скорее всего можно воспользоваться и модулем mmsystem.


 
BiN ©   (2004-02-27 17:51) [5]

function LockCDDoor(DriveCD:char; Locked:boolean):Boolean;
const IOCTL_STORAGE_MEDIA_REMOVAL = $002D4804;
var hDrive : THandle;
Returned : DWORD;
DisableEject : boolean;
Drv: string;
begin
 result:=False;
 Drv:= "\\.\"+DriveCd+":";
 hDrive := CreateFile(PChar(Drv), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
 if GetLastError <> 0 then Exit;
 try
 DisableEject := Locked;
 Result:=DeviceIoControl(hDrive,
       IOCTL_STORAGE_MEDIA_REMOVAL,
       @DisableEject,
       sizeof(DisableEject),
       nil,
       0,
       Returned,
       nil);

 finally
   CloseHandle(hDrive);
 end;
end;


 
SammIk ©   (2004-02-27 23:43) [6]

Да, хочется добавить к высказыванию
> BiN ©  

Сколько раз залочил сидюк, столько раз надо разлочить



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

Форум: "Система";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.037 c
3-1080301555
gedd
2004-03-26 14:45
2004.04.25
Зашита базы Access


14-1080792659
Juster~~
2004-04-01 08:10
2004.04.25
Насколько вы пунктуальны


6-1077771103
Vovanx
2004-02-26 07:51
2004.04.25
Поиск сервера в сети


14-1080393610
Knight
2004-03-27 16:20
2004.04.25
Прикиньте...


3-1080786388
Артем К.
2004-04-01 06:26
2004.04.25
Казус в создании MDI-приложения с использование баз данных!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский