| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Реестр [D6, Win95/98]

nokk9 ©   (2003-01-05 19:08:00) 

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

---

Эдуард   (2003-01-08 16:08:00) [1]

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

---

Morfein   (2003-01-05 21:21:00) [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;


---

Gljuk   (2003-01-05 21:08:00) [3]

Учись

---

Наверх