Trucs et astuces pour C++ Builder

Appel de la boîte de dialogue de changement d'icône

CGI

- Titre : Trucs et astuces pour C++ Builder

- Auteur : CGI

- Parution : 23 octobre 2002

- Licence : Copyright 2002-2016 CGi - Tous droits réservés CGi. Toutes reproduction, utilisation ou diffusion de ce document par quelque moyen que ce soit autre que pour un usage personnel doit faire l'objet d'une autorisation écrite de la part de l'auteur, propriétaire des droits intellectuels. Les codes sources de ce document sont fournis en l'état. L'utilisateur les utilise à ses risques et périls, sans garantie d'aucune sorte de la part de l'auteur. L'auteur n'est responsable d'aucun dommage subi par l'utilisateur pouvant résulter de l'utilisation ou de la distribution des codes sources de ce document. De la même façon, l'auteur n'est en aucun cas responsable d'une quelconque perte de revenus ou de profits, ou de données, ou de tous dommages directs ou indirects, susceptibles de survenir du fait de l'utilisation des codes sources de ce document, quand bien même l'auteur aurait été averti de la possibilité de tels dommages. L'utilisation des codes sources de ce document vaut acceptation par l'utilisateur des termes de la licence ci-dessus.

Sommaire

- I. Appel de la boîte de dialogue de changement d'icônes

I - Appel de la boîte de dialogue de changement d'icônes

Dans cet exemple nous allons appeler la boîte de dialogue de changement d'icônes. (Celle qui sert à changer les icônes des raccourcis.)

Puis nous afficherons l'icône sélectionnée sur la fiche.

Sur une Form (Form1) poser un bouton (Button1) et 2 Labels (Label1 et Label2).

Sur Unit.h déclaration du Handle d'icône :

private:    // Déclarations de l'utilisateur
HICON MonIcone;

Sur Unit.cpp événement OnClick de Button1 et OnPaint de Form1 :

#include <shellapi.h>

//................

void __fastcall TForm1::Button1Click(TObject *Sender)
{
typedef LONG (CALLBACK *SHCHANGEICONDIALOG)(HWND hWnd, LPCSTR szFilename,
LONG Size, int *IconIndex);
SHCHANGEICONDIALOG  SHChangeIconDialog = NULL;
char szFilename[MAX_PATH];
int IconIndex;
HANDLE hInst;

hInst=LoadLibrary("SHELL32.DLL");
if(hInst)
{
SHChangeIconDialog=(SHCHANGEICONDIALOG)GetProcAddress(hInst,(LPCSTR)62);
szFilename[0]='\0';
SHChangeIconDialog(Handle,szFilename,sizeof(szFilename),&IconIndex);
Label1->Caption = IconIndex;
Label2->Caption = szFilename;

MonIcone = ExtractIcon(HInstance, szFilename, IconIndex);
Refresh();
}
if(hInst) FreeLibrary(hInst);
}
void __fastcall TForm1::FormPaint(TObject *Sender)
{
DrawIcon(Canvas->Handle, 200, 10, MonIcone);
}

Retour à l'index.