program invisible dans la barre de tacheRésolu

Question

salut tout le monde voila je voudrais savoir comment faire pour rendre un programme invisible dans la barre de tache , j'ai trouvé un exemple sur le site mais il ne marche pas alors si vous pouriez m'aider .

merci

Cirec · Accepted Answer

Si c'est juste pour cacher une ton application dès le lancement 
il existe une autre solution qui est plus direct :

Les modifications sont à faire directement dans le *.dpr 
Il faut ajouter ce qui est en rouge 

program Project1;

uses
  Windows,
  Forms,
  Unit1 in'Unit1.pas'{Form1};

{$R *.res}

begin
  Application.Initialize;
  SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); // Cacher 
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Sinon pour controler l'affichage dans la barre des tâches et/ou pour une utilisation ponctuelle
on utilise ShowWindow mais il faut la mettre dans une procédure 
Par exemple:
Dans l'évenement OnShow :
procedure TForm1.FormShow(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);    //Cacher
end;

Dans l'évenement OnClick d'un bouton :
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);    //Cacher
End;

 
@+
Cirec

Cirec · Answer

Salut,

  ShowWindow(Application.Handle, SW_HIDE);    //Cacher

  ShowWindow(Application.Handle, SW_RESTORE);    //Restaurer

 
@+
Cirec

Ali_usto · Answer

merci Cirec mais ou vais je insrer cette ligne j'ai creer une nouvelle procedure mais ça ne veut pas marcher  pourrasi tu me montrer un exemple  merci  beaucoup..   Ali

Ali_usto · Answer

mercic beaucoup cirec ça marche tres bien   @+

Mowglinaute · Answer

ShowWindow(Application.Handle, SW_RESTORE);  <<< Restore très bien et le choix suivant également:
ShowWindow(Application.Handle, SW_SHOW);  

Bonne programation...
Mowglinaute

Program invisible dans la barre de tache

5 réponses

Votre réponse

Discussions similaires