Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Реестр [D5, WinXP]

Александр1 © (2004-08-31 07:09:00)
Народ помогите пожалуйста. Я недавно при помощи следующего алгоритма заблокировал диспетчер задач. А разблокировать не могу.
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. А как это сделать?

Sanek_metaller (2004-09-01 12:06:00) [1]
> хотел уже windows переписывать
LOL

Digitman (2004-09-01 11:33:00) [2]

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

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

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

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

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

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

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

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

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

pasha_golub (2004-08-31 12:50:00) [6]
reg. WriteInteger('DisableTaskMgr','1')

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

pasha_golub (2004-08-31 12:50:00) [7]
Пардон.
reg.WriteInteger('DisableTaskMgr',1)

Александр1 (2004-08-31 12:47:00) [8]
Чё-то сегодня на форуме пусто?

Наверх

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