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

Delphi , ОС и Железо , Компьютер

Автор: Голубь Павел
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;

Программный код на языке Delphi, который позволяет отключать или включать менеджер задач в Windows NT/2000/XP путем изменения настроек реестра. Функция DisableTaskMgr принимает булевый параметр Disable, определяющий, нужно ли отключить (установить в True) или включить (установить в False) менеджер задач.

Вот шаг за шагом, что код делает:

1. Создается объект TRegistry, представляющий реестровую ключ.
2. Корневой ключ устанавливается в HKEY_CURRENT_USER, указывающий на реестровую хиву текущего пользователя.
3. Код открывает несколько подключей в реестре:
   • Software
   • Microsoft
   • Windows
   • CurrentVersion
   • Policies
   • System
4. Если Disable установлен в True, код записывает строковое значение с именем DisableTaskMgr со значением '1', что отключает менеджер задач.
5. Если Disable установлен в False, код записывает то же самое значение, но со значением '0', что включает менеджер задач.
6. Наконец, реестровая ключ закрыта с помощью метода CloseKey.

Когда вы запустите этот код и передадите аргумент True, он отобразит сообщение "Менеджер задач был отключен администратором" при попытке доступа к менеджеру задач (Ctrl+Alt+Del). Если вы передадите аргумент False, он включит менеджер задач снова.

Вот некоторые предложения по улучшению:

• Рассмотрите добавление обработки ошибок для обработки ошибок реестра или проблем с правами доступа.
• Вы можете добавить проверку, чтобы увидеть, существует ли уже реестровая ключ, перед созданием его, чтобы избежать потенциальных проблем с дубликатами ключей.
• Могло быть более эффективно использовать метод WriteBool вместо WriteString, поскольку вы записываете булевое значение (0 или 1).
• Рассмотрите добавление документации или комментариев, чтобы объяснить, что код делает и как он работает.

В целом, это простой и эффективный способ отключать или включать менеджер задач в Windows с помощью Delphi.

Пакет программы на Delphi, который позволяет блокировать или разблокировать доступ к Диспетчеру Задач в операционной системе Windows NT/2000/XP.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Компьютер ::