заблокировать TaskMgr в Windows Vista\7 (рееестр)

[Vol666]

uses RegisTry;
procedure TForm1.FormCreate(Sender: TObject);
var reg: tregistry;
begin
reg := tregistry.create;
reg.rootkey := HKEY_CURRENT_USER;
reg.lazywrite := false;
reg.openkey('Software\Microsoft\Win dows\CurrentVersion\Policies\system ',true);
Reg.WriteInteger('DisableTaskMgr',1 );
Reg.WriteInteger('DisableRegistryTo ols',1);
Reg.CloseKey;
Reg.Free;
end;
Вот такой волшебный код работы с реестром отключает Диспечер задач в ХР, но не работает в Vista\7. Если кто сталкивался с этим отпишитесь что и как.
P.S. Реестр 7-ки перерыл но так ничего и не нашёл что может его отключить((((((((((. Никаких плохих соображений у меня нет, пишу прогу по безопастности...

[Kukkk]

Вау, в вин хп я банально закрывал окошко по названию таймером и отлично работало, да и каспер не палил. =) Попробуй.

[uberchel]

Если уж блокировать то не через реестр, так др любой прогой можно будет разблокировать если конечно ты не заблокируешь эту ветку в реестре. а легче конечно так:

function GetSystem32: string;
var
 Num: Cardinal;
 System: array[0..MAX_PATH] of Char;
begin
Result:= 'Unknown';
GetSystemDirectory(System, Num);
Result:= System;
end;
..... 

procedure TForm1.Button1Click(Sender :TObject);
begin
 FileOpen(GetSystem32 + '\taskmgr.exe',OF_SHARE_EXCLUSIVE);
end;

так будет работать и в XP, Viste,7, но только с диспетчером задач!

[Stilet]

Я когда-то просто taskmgr.exe переименовал в cmodimodir.puhpuh. Этого хватило.
Правда винда предупредила один раз что я "нехороший человек", но после привыкла.

[FaTaL]

Вот такой код нормально блокирует. ТОлько что пробывал на Висте и на Семёрке:

 begin
    Reg := TRegistry.Create;
   try
     Reg.RootKey := HKEY_CURRENT_USER;
     Key := 'Software\Microsoft\Windows\CurrentVersion\Policies\System';
     if Reg.OpenKey(Key, True) then
     begin
       Reg.WriteInteger('DisableTaskMgr', 1);
       Reg.CloseKey;
     end;
   finally
     Reg.Free
   end;

[Vol666]

[QUOTE=FaTaL;329336]Вот такой код нормально блокирует. ТОлько что пробывал на Висте и на Семёрке:
Reg.RootKey := HKEY_CURRENT_USER;
Key := 'Software\Microsoft\Windows\Current Version\Policies\System';

Как ни странно но такого ключа у Vista\7 в реестре нет.

[Vol666]

Увы, но код Uberchel`а тоже не работает. Осталось только попробовать его переименовать либо через Hwnd таймером закрывать(((((((((((