CTRL+ALT+DEL

[foxes]

Как включить CTRL+ALT+DEL?,

Вот этим кодам я отключил и мне нужно включить?

procedure TForm1.DisableTaskMgr(Disable: Boolean);
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);
  reg.WriteString('DisableTaskMgr','1')

[Evgeniy26]

Так не лучше?

[Terran]

reg.WriteString('DisableTaskMgr','0');

А лучше

reg.WriteString('DisableTaskMgr',' ');

[Neeter]

Что вы так пишете много? И проверок нет на исключительные ситуации, и не освобождаете память..

 
procedure TForm1.DisableTaskMgr(Disable: Boolean);
begin
 reg := TRegistry.Create;
 try
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System\', False);
  reg.WriteString('DisableTaskMgr', true);
 finally
  reg.Free;
 end;
end;

а чтобы снова включить, надо просто заменить в последней строчке true на false

[Evgeniy26]

Reg.DeleteValue('DisableTaskMgr');//Удаляй

[foxes]

Всем Спасибо ,
Задача решина

Сообщение от Evgeniy26

Reg.DeleteValue('DisableTaskMgr');//Удаляй

[Alter]

А где Reg.CloseKey;?

[foxes]

Сообщение от Alter

А где Reg.CloseKey;?

Спасибо за ошибку

 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);
  reg.WriteString('DisableTaskMgr','1');//блокиреум
   Reg.CloseKey;

если так тогда не блокирует!!!

[Terran]

В данном примере лучше делать

 Reg.Free;

т.к. мы больше не открываем ключей.
Можете скачать тут модуль: http://programmersforum.ru/showthrea...525#post298525
Там есть пример таких блокировок.