Блокирование сд-рома

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

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

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

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

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

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

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