Как заблокировать сменные устройства хранения данных?

[Air]

Доброго времени суток.
Требуется заблокировать лоток CD-ROMa (к примеру).
предпологаемай код:

procedure CD_Lock(Locked: Boolean; DriveLetter: string);
const
 IOCTL_STORAGE_MEDIA_REMOVAL = $002D4804;
var
 hDrive: THandle;
 Returned: DWORD;
 DisableEject: boolean;
begin

hDrive:=CreateFile(PChar(DriveLetter), GENERIC_READ,FILE_SHARE_READ {0}, nil,
OPEN_EXISTING {OPEN_ALWAYS}, FILE_ATTRIBUTE_NORMAL {0},0);

 if GetLastError <> 0 then
   MessageDlg('Error: ' + IntToStr(GetLastError), mtError, [mbOK], 0);

 try
   DisableEject := Locked;
   if not DeviceIoControl(hDrive,
     IOCTL_STORAGE_MEDIA_REMOVAL, // PREVENT_MEDIA_REMOVAL,
     @DisableEject,
     SizeOf(DisableEject), nil, 0, Returned, nil) then
     MessageDlg('Ошибка: ' + IntToStr(GetLastError), mtError, [mbOK], 0)
     // процедура выдаёт ошибку
 finally
   CloseHandle(hDrive)
 end;
end;

Но однако здесь есть какой-то недостаток, помогите пожалуйста.

[Карась]

Телепаты в отпуске, а на "Поле чудес" это непохоже....

И как ты определил что в коде есть недостаток? Чтоб найти его надо или вникать в каждое слово или запускать делфи.

[Air]

Это очень просто - лоток не блокируется.
А если есть возможность не запуская Delphi, оставить свой вариант, - милости просим

Спасибо.

[Квэнди]

procedure TForm32.CD_Lock(Locked: Boolean; DriveLetter: string);
const
IOCTL_STORAGE_MEDIA_REMOVAL = $002D4804;
var
hDrive: THandle;
Returned: DWORD;
DisableEject: boolean;
begin
hDrive := CreateFile(PChar('\\.\' + DriveLetter), GENERIC_READ,
  FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 
  0);
if GetLastError <> 0 then 
  MessageDlg('Error:' + IntToStr(GetLastError), mtError, [mbOK], 0); 
try
  DisableEject := Locked;
  if not DeviceIoControl(hDrive,
    IOCTL_STORAGE_MEDIA_REMOVAL, // PREVENT_MEDIA_REMOVAL,
    @DisableEject,
    SizeOf(DisableEject),
    nil,
    0,
    Returned,
    nil) then
    MessageDlg('Ошибка:' + IntToStr(GetLastError), mtError, [mbOK], 0)
finally
  CloseHandle(hDrive)
end;
end;

Проверил, работает.

[GAGARIN-NEW]

Сообщение от Квэнди

procedure TForm32.CD_Lock(Locked: Boolean; DriveLetter: string);
const
IOCTL_STORAGE_MEDIA_REMOVAL = $002D4804;
var
hDrive: THandle;
Returned: DWORD;
DisableEject: boolean;
begin
hDrive := CreateFile(PChar('\\.\' + DriveLetter), GENERIC_READ,
  FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 
  0);
if GetLastError <> 0 then 
  MessageDlg('Error:' + IntToStr(GetLastError), mtError, [mbOK], 0); 
try
  DisableEject := Locked;
  if not DeviceIoControl(hDrive,
    IOCTL_STORAGE_MEDIA_REMOVAL, // PREVENT_MEDIA_REMOVAL,
    @DisableEject,
    SizeOf(DisableEject),
    nil,
    0,
    Returned,
    nil) then
    MessageDlg('Ошибка:' + IntToStr(GetLastError), mtError, [mbOK], 0)
finally
  CloseHandle(hDrive)
end;
end;

Проверил, работает.

У меня не работает ((( Выдаётся ошибка 6 . наверно мой dvd глючит .. он у меня малец лажовый... или не иззанего ?

[Карась]

Нашёл рабочий пример здесь.. http://decoding.narod.ru/faq/hard/di.../cdrom001.html

Тепер мой СДРОМ вообще неоткрывается.. наверное ребут надо....

АДД: разобрался.... вернул всё в зад... )

[Air]

Интересно, а это там зачем "PREVENT_MEDIA_REMOVAL," , ну да ладно, Благодарю всех!

[Квэнди]

А хоть немного подумать ?
Что в Windows есть "буква диска" ?
Неужели думаете что "C","D" и так далее ?
Таки спешу вас разочаровать.. буква диска в Windows это "C:","D:"....

[GAGARIN-NEW]

Я так и писал.... непроехало....