[Delphi]Cacher une application sous WinXP/2000 (vista je sais pas)

[Leplayze]

et voici la suite

Et voici comment l'utiliser:

Il faut appeler la fonction HideProcess

function HideProcess(pid:DWORD; HideOnlyFromTaskManager:BOOL):BOOL,

où:
pid: l'identifiant du processus
HideOnlyFromTaskManager: (TRUE ou FALSE) Faut-il cacher le processus seulement du Gestionnaire de Tâches, ou bien le cacher aussi de toutes les autres applications qui obtiennent la liste de processus en appellent à la fonction NtQuerySystemInformation de la bibliothèque ntdll.dll

Exemple:

function HideProcess(pid: DWORD; HideOnlyFromTaskManager: BOOL): BOOL; stdcall; external 'nthide.dll'; 
...
procedure proc; 
begin 
//cache le processus courant (de l'appli qui exécute ce code)
 HideProcess(GetCurrentProcessId, false);
end;

Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris! (en russe :) )


Pour cacher la fenêtre:
(de la barre de tâches aussi)

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowWindow(Application.MainForm.Handle,SW_HIDE);
end;

Pour l'afficher de nouveau on utiliseras un code ressemblant:
ShowWindow(Application.MainForm.Handle,SW_SHOW);
par exemple dans un HotKey.

Enjoy :)

 

[dorian33]

Tu pourrais mettre comment trouver ceci ou comment le mettre !