Wie kann mein Programm den Taskmanager ignorieren

[Luckie]

Delphi-Quellcode:

procedure EnableCTRLALTDEL(YesNo : boolean);  
const  
  sRegPolicies = '\Software\Microsoft\Windows\CurrentVersion\Policies';  
begin  
  with TRegistry.Create do  
  try  
    RootKey := HKEY_CURRENT_USER;  

    if OpenKey (sRegPolicies+'\System\', True) then  
      begin 
        WriteInteger ('DisableTaskMgr', not YesNo); 
        CloseKey;  
      end; 

    if OpenKey (sRegPolicies+'\Explorer\', True) then  
      begin  
        WriteInteger('NoChangeStartMenu', not YesNo);  
        WriteInteger('NoClose', not YesNo);  
        WriteInteger('NoLogOff', not YesNo);  
        CloseKey;  
      end; 
  finally  
    Free;  
  end;  
end;