Блокируем Cd-rom что не так делаю

← →
Asd (2004-03-26 22:48) [0]

Подскажите как сделать блокировкку разблокировку Cd-rom я пробовал так но не работает

function LockCD(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;

← →
Александр1 © (2004-03-27 20:09) [1]

А это тебе зачем?

← →
Yanis © (2004-03-28 00:15) [2]

To [1]
А тебе это зачем?

← →
Yanis © (2004-03-28 00:19) [3]

To Asd
ты может ошибся. Всё работает.
У меня то уж точно работает:
procedure TForm1.Button1Click(Sender: TObject); begin LockCD("F",true); end; procedure TForm1.Button2Click(Sender: TObject); begin LockCD("F",false); end;

← →
Александр1 © (2004-03-28 06:03) [4]

LockCD - Еко надо как-то описать, а то он как неизвестный идентификатор?

← →
Александр1 © (2004-03-28 06:04) [5]

Ой нет ганю! Всё нормально!

← →
Asd (2004-03-28 21:54) [6]

блин может у меня Cd-rom не поддерживает спасибо всем

DeviceIoControl(hDrive,IOCTL_STORAGE_MEDIA_REMOVAL,
@DisableEject,sizeof(DisableEject),nil,0,Returned,nil);

функция работает, только со SCSI для NT, Win2k, WinXP, для работы под Win9x, WinME нужно использовать ASPI функции

← →
Asd (2004-03-29 21:27) [8]

А где можно прочитать про ASPI функции скажите пожалуиста.

Блокируем Cd-rom что не так делаю Найти похожие ветки