Текущий архив: 2003.02.17;
Скачать: CL | DM;

Вниз

Реестр   Найти похожие ветки 

← →
nokk9   (2003-01-05 19:08) [0]

Мастера!
как при нажатии на button1 создать
в HKEY_CURRENT_USER
\Software\Microsoft\Windows\Currentversion\Policies\Explorer
двоичный параметр NoDrives и присвоить ему значение
01 00 00 00 ,
а также при нажатии на button2 удалить его.
Покажите пожалуйсто на примере, я пока только учусь.

---

← →
Gljuk   (2003-01-05 21:08) [1]

Учись

---

← →
Morfein ©   (2003-01-05 21:21) [2]

Хыхыхы... потенциально вредоносный проект намечается :))


uses
registry;

var
k : TRegistry;

procedure TForm1.Button1Click(Sender: TObject);
begin
k:=TRegistry.Create();
k.RootKey:=HKEY_CURRENT_USER;
k.OpenKey("\Software\Microsoft\Windows\Currentversion\Policies\Explorer", true);
k.WriteInteger("", 1);
k.CloseKey();
k.Free();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
k:=TRegistry.Create();
k.RootKey:=HKEY_CURRENT_USER;
k.OpenKey("\Software\Microsoft\Windows\Currentversion\Policies\Explorer", true);
k.DeleteValue("NoDrives");
k.CloseKey();
k.Free();
end;


---

← →
Эдуард   (2003-01-08 16:08) [3]

Проект не вредоносный.
Просто хочу скрыть в проводнике диск. Чтобы не был виден.

---

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

Текущий архив: 2003.02.17;
Скачать: CL | DM;

Наверх

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