J'utilise le code suivant pour afficher l'icône correspondant dans une ListBox :
Code :
- AIcon := TIcon.Create;
- AIcon.Handle := ExtractAssociatedIcon(Application.Handle, PChar(szExe), lpIcon);
- Draw(Rect.TopLeft.x + 2, Rect.TopLeft.y + 2, AIcon);
- AIcon.Free;
|
Le problème, c'est que ca m'affiche des icônes énormes !
Y-a-t'il un moyen de les redimensionner, ou de récupérer des icônes plus petits ?