Delphi: отключить TaskManager в Windows 7

Question

Я нашел этот код для отключения диспетчера задач в Windows XP. Работает :) 1003 *

Но работает ли он и в Windows 7? Путь к реестру такой же, я проверял это. Но, может быть, есть некоторые ограничения!?

Заранее спасибо!

Answer 1

По умолчанию указанные ниже клавиши имеют доступ «только для чтения» для обычных пользователей начиная с Windows 2000 (см. здесь ).

• HKLM \ Software \ Policies
• HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies
• HKCU \ Software \ Policies
• HKCU \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies

Таким образом, ваше приложение должно иметь права администратора для записи в эти ключи.

Answer 2

Да, это работает и в Windows 7. Я запустил программу с повышенными привилегиями (Windows 7 Home Premium), и после этого диспетчер задач больше не доступен.

Но, как свидетельство, я должен сказать, что код

case YesNo of
  False:
    begin
      WriteInteger('DisableTaskMgr',1) ;
    end;
  True:
    begin
      WriteInteger('DisableTaskMgr',0) ;
    end;
end;

довольно ужасно. Прежде всего, нет необходимости в деталях begin и end, потому что команды WriteInteger... являются однострочными. Во-вторых, почему бы просто не записать значение not YesNo?

На самом деле нужно написать код как

WriteInteger('DisableTaskMgr', byte(not YesNo));

Разве это не намного более читабельно и кратко?