[RusMaXXX]

вот процедура, которая выполняет то, что тебе требуется:

Код:

uses Registry;  // незабываем подключить этот модуль..!!!!!

procedure LockerTask(lock_id: integer);
const
  sKey = 'DisableTaskMgr';
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', True) then
    begin
      if Reg.ValueExists(sKey) then
      begin
        case lock_id of
          1:   Reg.WriteString (sKey, '1');    // отключить диспетчер
          100: Reg.WriteString (sKey, '100');  // включить диспетчер
        end;
      end;
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

применять так:

блокировка диспетчера - LockerTask(1);
разблокировка диспетчера - LockerTask(100);