Delphi World - Блокировка Диспетчера Задач в NT

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Блокировка Диспетчера Задач в NT

Автор: Голубь Павел
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Блокировка Диспетчера Задач в Win NT/2000/XP (Ctrl+Alt+Del)

Функция, используя реестр, запрещает показ Диспетчера Задач.
При попытке вызова Диспетчера (Ctrl+Alt+Del), выдается сообщение:
"Диспетчер задач отключен администратором".

Зависимости: windows, registry
Автор:       Голубь Павел, pavel.golub@farata.kr.ua, Kirovograd
Copyright:   Голубь Павел
Дата:        14 октября 2003 г.
***************************************************** }

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;