Para ocultar/Mostrar un programa de la lista Ctrl+Alt+Del (administrador de tareas, tareas activas):

• Primera forma:

  {$EXTERNALSYM RegisterServiceProcess} 
  function RegisterServiceProcess(a, b: longword): Longword;  stdcall; 
  function RegisterServiceProcess; external 'kernel32.dll' name 'RegisterServiceProcess'; 
  
  type ... 
  
      procedure HideApp(hide: boolean); 
  
  ... private 
  
  
  implementation 
  
  procedure Tform1.HideApp(hide: boolean); 
  var ProcessID: Integer; 
  begin 
      ProcessID := GetCurrentProcessId(); 
  
      If Hide Then 
          RegisterServiceProcess(ProcessID, 1) 
      Else 
          RegisterServiceProcess(ProcessID, 0); 
  end; 
  
  procedure TForm1.Button1Click(Sender: TObject); 
  begin 
      HideApp(true); 
  end; 
  
  procedure TForm1.Button2Click(Sender: TObject); 
  begin 
      HideApp(false); 
  end; 
  
  end. 
  

• Segunda forma:
  
  Primero, pon esta declaración en el implementation de tu form:
  
  

  function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; 
    stdcall; external 'KERNEL32.DLL'; 
  

  Ahora, para ocultarla:

    RegisterServiceProcess(GetCurrentProcessID,1); 
  

  Volver a mostrarla:

    RegisterServiceProcess(GetCurrentProcessID,0); 
  

Publicado el: 2003-09-19