Блокирование 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.

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;

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