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

Вниз

Блокирование сд-рома   Найти похожие ветки 

← →
Locke ©   (2006-03-01 21:19) [0]

Скажите как можно заблокировть открывание сд-рома через дельфи.
нужно сделать так чтобы он открывался только через компьютер заранее спасибо.

---

← →
Locke ©   (2006-03-01 23:01) [1]

ап,помогите плиз!

---

← →
Nick Denry ©   (2006-03-01 23:02) [2]

Что-то типа этого:

uses mmsystem;

function Door_Lock(Locked: boolean) : boolean;

const IOCTL_STORAGE_MEDIA_REMOVAL = $002D4804;

var hDrive : THandle;

Returned : DWORD;

DisableEject : boolean;

begin

hDrive := CreateFile(PChar("\\.\"+FirstCDName+":"), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

if GetLastError <> 0 then

MessageBeep(0);

try

DisableEject := Locked;

if not DeviceIoControl(hDrive,

IOCTL_STORAGE_MEDIA_REMOVAL, // PREVENT_MEDIA_REMOVAL,

@DisableEject,

sizeof(DisableEject),

nil,

0,

Returned,

nil) then MessageBeep(0);

//MessageDlg("Error:"+IntToStr(GetLastError), mtError, [mbOK], 0);

finally

CloseHandle(hDrive);

end;

Result := Locked;

end;

---

← →
Locke ©   (2006-03-03 14:40) [3]

можно обьяснить поподробнее , а то не выходит че-то

---

← →
Nick Denry ©   (2006-03-03 14:49) [4]

А че не выходит то? :)

---

← →
Desdechado ©   (2006-03-03 16:45) [5]

> заблокировть открывание сд-рома через дельфи
заблокировть через дельфи или открывание через дельфи?

---

← →
EvS   (2006-03-03 17:11) [6]

> [5] Desdechado ©   (03.03.06 16:45)

>заблокировть через дельфи или открывание через дельфи?

Ясно же написано "нужно сделать так чтобы он открывался только через компьютер"
Только я не понял что это означает.

---

← →
Locke ©   (2006-03-07 14:16) [7]

программа,которая будет блокировать открытие сд-рома. и открывать его только с помощью этой проги

---

← →
Desdechado ©   (2006-03-07 17:51) [8]

в корзину такие программы

---

← →
eeee   (2006-03-08 19:27) [9]

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;

procedure TForm1.Button1Click(Sender: TObject);
begin
LockCD("F",true);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
LockCD("F",false);
end;

---

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

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

Наверх

Память: 0.46 MB
Время: 0.041 c