Cacher l'application de la liste des applications



Télécharger le projet exemple (2.21 ko)

Parfois, on veut créer une application qui tourne en arrière-plan, et on voudrait que personne ne puisse l'interrompre en pressant Ctrl-Alt-Suppr, puis en la fermant dans la liste. Pour ne pas afficher l'application dans cette liste, il faut faire un appel à la fonction RegisterServiceProcess, décrite dans le SDK Win32 qui semble ne pas avoir été déclarée dans les unités Delphi. En voici la déclaration:

Déclaration


interface

function RegisterServiceProcess
         (dwProcessId: Cardinal; dwType: Cardinal): Cardinal; stdcall;
...

implementation

function RegisterServiceProcess
         (dwProcessId: Cardinal; dwType: Cardinal): Cardinal; 
         stdcall; external 'Kernel32.dll';



Après, il suffit de l'invoquer à la création de l'application.
Le premier paramètre désigne le processus à affecter; on utilise 0 désigner le processus courant.
Le second paramètre désigne la commande à lancer; on utilise 1 pour masquer l'application.

Mettez le code suivant dans l'évennement OnCreate de votre fiche:

Cacher l'application de la liste des applications

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterServiceProcess(0, 1);
end;




3 requête(s) SQL executée(s) en 0.001 Secs - Temps total de génération de la page : 0.007 Secs