Épingler une application Delphi dans la barre des tâches de Windows

Version imprimable

29/01/2017, 15h00
Naga2

Épingler une application Delphi dans la barre des tâches de Windows

Salut à tous,

Je souhaiterais pouvoir épingler mes applications dans la barre des tâches de Windows 7.

J'ai trouvé ce tutoriel très intéressant : http://fsoriano.developpez.com/artic...hi-2010/#LII-A

J'ai traité le 1er chapitre II-A. Initialisation préalable sans trop de problème.

En revanche, je n'ai pas trouvé d'informations concernant la possibilité d'épingler le programme dans la barre de tâches.

En effet, le chapitre II-B-2. Epinglé, Fréquent, Récent évoque la possibilité d'épingler des documents associés à cette application dans la barre des tâches mais pas l'application elle-même.
J'ai peut être mal vu.

Comment puis-je m'y prendre ?

Naga

Édit : Je suis sur Delphi XE2

Bonjour,

voici un exemple simple d'application réduite dans la barre de tâche :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
unit Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellApi ;
 
  Const
   WM_ICONTRAY = WM_USER + 1  ;
 
type
  TMainForm = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
 
  private
    { Déclarations privées }
    TrayIconData: TNotifyIconData;
  public
    { Déclarations publiques }
    procedure TrayMessage(var Msg: TMessage); message WM_ICONTRAY;  end;
 
var
  MainForm: TMainForm;
 
implementation
 
{$R *.dfm}
 
{ ============================================================== }
procedure TMainForm.FormCreate(Sender: TObject);
begin
with TrayIconData do
  begin
    cbSize := SizeOf(TrayIconData);
    Wnd := Handle;
    uID := 0;
    uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
    uCallbackMessage := WM_ICONTRAY;
    hIcon := Application.Icon.Handle;
    StrPCopy(szTip, Application.Title);
  end;
 
  Shell_NotifyIcon(NIM_ADD, @TrayIconData);
end;
{ ============================================================== }
procedure TMainForm.FormDestroy(Sender: TObject);
begin
  Shell_NotifyIcon(NIM_DELETE, @TrayIconData);
end;
{ ============================================================== }
procedure TMainForm.TrayMessage(var Msg: TMessage);
begin
  case Msg.lParam of
    WM_LBUTTONDOWN:
    begin
      ShowMessage('Afficher la fenêtre principale');
      MainForm.Show;
    end;
    WM_RBUTTONDOWN:
    begin
      ShowMessage('Cacher la fençetre principale');
      MainForm.Hide;
    end;
  end;
end;
{ ============================================================== }
 
end.

pour réduire l'application au démarrage, dans le projet, il faut mettre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Systray;
 
uses
  Forms,
  Main in 'Main.pas' {MainForm};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.ShowMainForm := False;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

Ensuite reste à créer un menu pour gérer différentes action depuis le clic gauche ou droit

A+ Charly

29/01/2017, 20h57
Invité

Citation:

Envoyé par Naga2

En effet, le chapitre II-B-2. Epinglé, Fréquent, Récent évoque la possibilité d'épingler des documents associés à cette application dans la barre des tâches mais pas l'application elle-même.
J'ai peut être mal vu.

Je crois avoir lu un article ou tu donnais certaines extensions et effectivement c'était Windows qui gérait les "documents récents" quand tu fais un clic droit sur l'icône.

Après comme indiqué par Charly910 tu peux utiliser le Tray menu pour la réduire, lors du clic droit tu peux ouvrir ce que tu veux.
30/01/2017, 09h14
guillemouze

Les raccourcis épinglés dans la barre des taches (ceux dont l'icone reste présente quand ton programme n'est pas démarré) se trouvent ici :
%appdata%\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBarJe pense que tu peux simplement y ajouter le raccourci de ton appli pour l'y faire apparaître.

Salut,

Citation:

Envoyé par guillemouze

Les raccourcis épinglés dans la barre des taches (ceux dont l'icone reste présente quand ton programme n'est pas démarré) se trouvent ici :
%appdata%\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBarJe pense que tu peux simplement y ajouter le raccourci de ton appli pour l'y faire apparaître.

les raccourcis sont effectivement placés dans ce répertoire mais c'est un petit peu plus "compliqué" que ça ... si tu y places ton raccourci il n'apparaitra pas dans la barre des tâches :( mais dans le menu démarrer :weird:
en fait les raccourcis de programmes épinglés sont différent des "simples" raccourcis ils contiennent des informations supplémentaires ... j'ai pas approfondi la chose. J'ai juste comparé un simple raccourci à un raccourci épinglé (les deux créés par windows) ils sont totalement différents!

je propose donc un code qui fonctionne chez moi (D7 et win7)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 uses ComObj; ... {fonction servant à épingler ou retirer un programme à la barre des tâches} function PinToTaskbar(const aFileName: TFileName; const UnPin: Boolean = False): Boolean; const Verbs: array[Boolean] of string = ('taskbarpin', 'taskbarunpin'); var FDir, FName: string; FShellApp : Variant; begin Result := False; if FileExists(aFileName) then try FDir := ExtractFileDir(aFileName); FName := ExtractFileName(aFileName); FShellApp := CreateOleObject('Shell.Application'); try FShellApp.NameSpace(Variant(FDir)).Parsename(Variant(FName)).invokeverb(Variant(Verbs[UnPin])); Result := True; except on E: Exception do begin MessageDlg(Format('Une erreur %s avec le message : %s'#13#10'est survenue', [E.ClassName, E.Message]), mtINFORMATION, [mbOk], 0); end; end; finally FShellApp := Unassigned; end; end;
utilisation pour épingler la calculatrice:

Code:

PinToTaskbar('c:\windows\system32\calc.exe')

et pour la retirer:

Code:

PinToTaskbar('c:\windows\system32\calc.exe', True)

en espérant que ça aidera ;)

Cordialement,
Cirec

04/02/2017, 10h45
Naga2

Salut à tous,

Déjà désolé de ne pas être venu vous répondre plutôt, j'ai eu une semaine un peu chargée.

Je vais répondre à chacun de vos messages :

@Charly910 :
Je ne suis pas très sur d'avoir compris ton exemple.
En fait il s'agirait d'une fonctionnalité intégrée dans le programme qui permettrait de le réduire dans les icônes systray (à coté de l'horloge) ?
Ce n'est pas mon objectif (mais cela m’intéresse malgré tout).
Je voudrais simplement, pour faire simple (lol), créer un raccourcis dans la barre des tâches de Windows en utilisant la fonction "Épingler à la barre des tâches" quant on fait un clic droit sur le petit bouton qui apparaît dans cette fameuse barre lorsque l'application est ouverte.

@retwas :
Mon programme ne gère pas de documents en tant que tel.
En fait, il gère une micro base de données. Donc le fait de pouvoir épingler des documents favoris dans le programme ne m’intéresse pas (c'est justement le principal sujet du tutoriel que je vous ai donné).

@guillemouze et @Cirec :
J'ai effectivement pensé à cette solution, mais, comme indiqué dans la réponse de Cirec, ce n'est pas très simple.
Microsoft, dans sa fichue habitude de faire des choses compliquées (pour ne pas dire usine à gaz), a codé ce type de raccourcis de façon un peu particulière.
Je pourrais toujours décortiquer l'un de ces raccourcis pour voir comment il est écrit (en espérant qu'il ne soit pas parsé ou encodé).
C'est une piste que je garde en mémoire.

Merci pour vos retours, j'ai de quoi m'occuper.

Naga
04/02/2017, 15h18
Charly910

Bonjour,
oui, j'avais mal compris. Je croyais que c'était dans le Systray :oops:.

Sinon, j'ai essayé la solution de Cirec, mais sans succès sous W10 ?

A+
Charly
05/02/2017, 10h10
Naga2

Je m'en doutais :P

Je n'ai pas retouché au programme depuis une bonne semaine par manque de temps.

La solution de Cirec, qui paraît simple au 1er abords, risque de me poser des problèmes de compatibilité entre les différentes versions de Windows.
Pour prendre les extrêmes, je sais que Windows XP (qui n'est, en principe, plus trop utilisé mais ça je ne peux pas le savoir) et Windows 10 ne gèrent pas les raccourcies dans la barre des tâches de la même manière.

Cette astuce serait plus pour Windows XP je pense.

Ah Microsoft et ses usines à gaz (Windows, Office, ...).

Naga
05/02/2017, 13h16
Cirec

Citation:

Envoyé par Charly910

Sinon, j'ai essayé la solution de Cirec, mais sans succès sous W10 ?

oui sous Win10 ça semble poser des problèmes (voir Google) des solutions existes mais comme je n'ai pas de machine avec W10 je ne peux pas tester

Mais la question de départ disait:

Citation:

Envoyé par Naga2

Je souhaiterais pouvoir épingler mes applications dans la barre des tâches de Windows 7.

je vous ai mis sur la piste avec un exemple qui répond à la question initiale
pour le reste, comme dit plus haut, je n'ai pas accès à un Win10 donc ...

Citation:

Envoyé par Naga2

Cette astuce serait plus pour Windows XP je pense.

Non, la possibilité d'épingler une application ne fonctionne qu'à partir de Win7
05/02/2017, 17h09
Naga2

Salut Cirec,

Oui ma demande initiale était incomplète car, en fait, je code sous Windows 7 avec, dans ma petite tête, la possibilité de conserver la compatibilité avec les différentes versions de Windows.
Autant pour moi.

Concernant Win XP, j'étais convaincu que l'on pouvait déjà épingler les applis sur sa barre des tâches, bon comme quoi je n'utilise plus Win XP depuis un sacrés bout de temps.

Naga