Реестр

← →
Александр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.

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

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

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

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

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