Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.048 c
2-1141986651
1й2ц3у4к5е
2006-03-10 13:30
2006.03.26
Тип Делфи


2-1140887696
Новочеркасский Волк
2006-02-25 20:14
2006.03.26
Нажата ли клавиша вообше???


6-1134651981
(CHALING 32)S K i N E R
2005-12-15 16:06
2006.03.26
Голосовой чат!


15-1141369310
dimonf
2006-03-03 10:01
2006.03.26
Подскажите плиз, какой нить нормальный DVD Ripper.


2-1141888862
Гость111
2006-03-09 10:21
2006.03.26
SQL





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский