Discussion :

[Ben_Le_Cool]

Bonjour,

Je veux changer l'icone de mon application selon la version. Supposons que mon application tourne chez le Client1, l'application doit avoir l'Icone1, si chez le client2, l'application doit avoir l'icone2.
Je ne sais pas si c'est réalisable ou non.

Merci.

[Hauwke]

Bonsoir,
Les applis du client 1 et du client 2 sont identiques? (mise à part l'icone, bien sûr) Ou bien sont elles différentes?
Cordialement,
Hauwke

[Ben_Le_Cool]

Elles sont pas mal identiques. J'ai juste quelques changements que je prends d'ailleurs déjà en charge.

[mduse]

Salut,

Tu peux essayer à partir de la propriété Icon de TApplication

Je joins l'exemple trouvé dans l'aide DELPHI

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
//Le code suivant permet à l'utilisateur d'utiliser une boîte de dialogue pour redéfinir l'icône de l'application lors de l'exécution. Lorsque l'utilisateur clique sur Button1, OpenDialog1 s'exécute et l'utilisateur spécifie un nom de fichier pour l'icône. L'icône est alors affectée à l'application.
 
procedure TForm1.Button1Click(Sender: TObject);
 
var 
Done: Boolean;
begin
  OpenPictureDialog1.DefaultExt := GraphicExtension(TIcon);
  OpenPictureDialog1.FileName := GraphicFileMask(TIcon);
  OpenPictureDialog1.Filter := GraphicFilter(TIcon);
  OpenPictureDialog1.Options := [ofFileMustExist, ofHideReadOnly, ofNoChangeDir ];
  while not Done do
  begin
  if OpenPictureDialog1.Execute then
    begin
    if not (ofExtensionDifferent in OpenPictureDialog1.Options) then
 
      begin
      Application.Icon.LoadFromFile(OpenPictureDialog1.FileName);
      Done := True;
      end
    else
      OpenPictureDialog1.Options := OpenPictureDialog1.Options - ofExtensionDifferent;
    end
  else { Utilisateur annulé }
    Done := True;
  end;
end;

Si tu veux travailler avec une icone en ressource, tu peux adapter ce code en utilisant la fonction API Windows

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
HICON LoadIcon(
    HINSTANCE hInstance,    // handle of application instance
    LPCTSTR lpIconName     // icon-name string or icon resource identifier
   );

J'espère que ces infos te seront utiles,

@+