Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Ocultar/Mostrar una aplicación en el Administrador de tareas - al pulsar Ctrl+Alt+Sup - Delphi
Lenguaje de programación Borland Delphi



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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+