Wie kann mein Programm den Taskmanager ignorieren

[Luckie]

So ist es besser:

Delphi-Quellcode:

uses Registry;

procedure EnableCTRLALTDEL(flag: DWORD);
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', flag);
        CloseKey;
      end;

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

{ aktivieren }
procedure TForm1.Button2Click(Sender: TObject);
begin
  EnableCTRLALTDEL(0);
end;

{ deaktiviren}
procedure TForm1.Button1Click(Sender: TObject);
begin
  EnableCTRLALTDEL(1);
end;