Скачать: CL | DM;

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

← →
Александр1   (2004-08-31 07:09) [0]

Народ помогите пожалуйста. Я недавно при помощи следующего алгоритма заблокировал диспетчер задач. А разблокировать не могу.
procedure DisableTaskMgr(Disable:Boolean);
var
 reg:TRegistry;
begin
 reg := TRegistry.Create;
 reg.RootKey := HKEY_CURRENT_USER;
 reg.OpenKey("Software",True);
 reg.OpenKey("Microsoft",True);
 reg.OpenKey("Windows",True);
 reg.OpenKey("CurrentVersion",True);
 reg.OpenKey("Policies",True);
 reg.OpenKey("System",True);
 if Disable then
   reg.WriteString("DisableTaskMgr","1") //блокиреум
 else
   reg.WriteString("DisableTaskMgr","0"); //разблокируем
 reg.CloseKey;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
DisableTaskMgr(True);
end;

Если я правильно понимаю. Один раз нажимаешь на кнопку реестр блокируется reg.WriteString("DisableTaskMgr","1") //блокиреум
Другой раз нажимаем на кнопку блокировка снимается    reg.WriteString("DisableTaskMgr","0"); //разблокируем.
Но чё-то блокировка не снимается. Я полез в реестр посмотреть может отредактировать ключ в ручную, но там нет такого ключа DisableTaskMgr.
Может надо вызвать процедуру удаления ключа DisableTaskMgr. А как это сделать?

---

← →
Александр1   (2004-08-31 12:47) [1]

Чё-то сегодня на форуме пусто?

---

← →
pasha_golub ©   (2004-08-31 12:50) [2]

reg.WriteInteger("DisableTaskMgr","1")

И если не уверен, лучше с таким не шутить.

---

← →
pasha_golub ©   (2004-08-31 12:50) [3]

Пардон.
reg.WriteInteger("DisableTaskMgr",1)

---

← →
5 копеек   (2004-08-31 12:55) [4]

> Если я правильно понимаю. Один раз нажимаешь на кнопку реестр
> блокируется reg.WriteString("DisableTaskMgr","1") //блокиреум
> Другой раз нажимаем на кнопку блокировка снимается    reg.WriteString("DisableTaskMgr","0");
> //разблокируем.


Не правильно понимаешь! Ты здесь DisableTaskMgr(True) всегда True передаёшь, значит всегда в реестр записываться значение 1.

---

← →
Александр1   (2004-09-01 10:09) [5]

> pasha_golub ©   (31.08.04 12:50) [3]
> Пардон.
> reg.WriteInteger("DisableTaskMgr",1)

Спасибо большое. А то я хотел уже windows переписывать. Все получилось. Вовщем не String надо было, а Integer.

---

← →
pasha_golub ©   (2004-09-01 11:27) [6]

Александр1   (01.09.04 10:09) [5]
Шо у вас за манька, чуть-что сразу Винду нафиг? :0)

---

← →
Digitman ©   (2004-09-01 11:33) [7]

> хотел уже windows переписывать


Гейтс отдыхает

---

← →
Sanek_metaller ©   (2004-09-01 12:06) [8]

> хотел уже windows переписывать
LOL

---

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

Скачать: CL | DM;



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