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

Вниз

Блокируем 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;

---

← →
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]

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

---

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

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

---

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

To [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;


---

← →
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:03) [4]

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

---

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

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

---

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

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

---

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

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

---

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

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

---

← →
alas ©   (2004-03-29 10:15) [7]

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

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

---

← →
alas ©   (2004-03-29 10:15) [7]

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 функции скажите пожалуиста.

---

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

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.038 c