Главная страница
    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.031 c
4-1077474261
Opilki_Inside
2004-02-22 21:24
2004.04.25
Как это реализовано??


1-1081274081
GanibalLector
2004-04-06 21:54
2004.04.25
StringGrid


4-1076576180
Alexis
2004-02-12 11:56
2004.04.25
Обнаружение ВСЕХ процессов в системе...


14-1081161793
Nick-From
2004-04-05 14:43
2004.04.25
Вырубание win 2000 через бат


3-1080653121
Miwa
2004-03-30 17:25
2004.04.25
Где найти хелп по IBX?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский