Discussion :

[medicis]

Bonjour,

Comment faire pour récupérer l'icône d'un fichier ?

Par exemple, mon application permet d'ouvrir tout type de fichier et pour se faire, sur ma form, a côté du chemin du fichier, je veux afficher un petit bouton dont l'icône est celle de l'exécutable qui permet d'ouvrir le fichier...

Quelqu'un peu-il m'aider ?

Merci d'avance,
Grégory

[Lung]

Trouvé ca, je ne sais plus où (pas testé ):

Je recupère l'icone associé au fichier texte par cette méthode:

Code:
function GetAssociatedIcon(const Ext: PChar): HICON;
var
Info: TSHFileInfo;
begin
SHGetFileInfo(Ext, FILE_ATTRIBUTE_NORMAL, Info, SizeOf(Info), SHGFI_ICON or SHGFI_SMALLICON or SHGFI_USEFILEATTRIBUTES);
Result := Info.hIcon;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
Ic: TIcon;
begin
Ic := TIcon.Create;
Ic.Handle := GetAssociatedIcon('.txt');
ImageList1.AddIcon(Ic);
ImageList1.Draw(Image1.Canvas, 0, 0, 0, True);
Ic.Free;
end;

Si ca peut t'aider ...

[medicis]

Bon, c'est pas évident, parce que après avoir récupéré le '.ico', il faut le transformer en '.bmp' pour pouvoir l'afficher dans un speedbutton...
Je rame sur cette transformation.

Merci pour l'info,
Grégory

[Lung]

Pour le tranformer, passe par un TPicture.

[Samchi]

Bon, c'est pas évident, parce que après avoir récupéré le '.ico', il faut le transformer en '.bmp' pour pouvoir l'afficher dans un speedbutton...
Je rame sur cette transformation.

Merci pour l'info,
Grégory

Voici une procédure qui permet de convertir un TIcon en TBitmap :

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
 
procedure TIconToTBitmap(FIcon: TIcon;var FBitmap: TBitmap;FBackgroundColor: TColor);
begin
with FBitmap, Canvas do
     if Assigned(FIcon)
        then
          begin
          Width:=FIcon.Width;
          Height:=FIcon.Height;
          Brush.Color:=FBackgroundColor;
          FillRect(rect(0,0,Width,Height));
          Draw(0,0,FIcon);
          end
        else
          begin
          Width:=GetSystemMetrics(SM_CXICON);
          Height:=GetSystemMetrics(SM_CYICON);
          Brush.Color:=FBackgroundColor;
          FillRect(rect(0,0,Width,Height));
          end;
end;

[medicis]

Ok, après avoir un peu galéré avec la taille du .ico 4*plus grande que celle du bmp, j'ai réussi à faire ce que je voulais
A savoir : Récupérer le nom d'un fichier et placer l'icône qui servira à l'ouvrir dans un speedbutton.

Voici le code :

var
Ic: TIcon;
Bmp : TBitmap;

function GetAssociatedIcon(const Ext: PChar): HICON;
var
Info: TSHFileInfo;
begin
SHGetFileInfo(Ext, FILE_ATTRIBUTE_NORMAL, Info, SizeOf(Info), SHGFI_ICON or SHGFI_SMALLICON or SHGFI_USEFILEATTRIBUTES);
Result := Info.hIcon;
end;

Procedure TIconToTBitmap(FIcon: TIcon ; FBitmap : TBitmap);
begin
with FBitmap, Canvas do
if Assigned(FIcon) then
begin
Width:=FIcon.Width div 2;
Height:=FIcon.Height div 2;
Brush.Color:=clWhite ;
FillRect(rect(0,0,Width,Height));
Draw(0,0,FIcon);
end
else
begin
Width:=GetSystemMetrics(SM_CXICON) div 2;
Height:=GetSystemMetrics(SM_CYICON) div 2;
Brush.Color:=clWhite ;
FillRect(rect(0,0,Width,Height));
end;
end;


begin
// Affichage de la bonne icône dans le bouton
Ic := TIcon.Create;
bmp := TBitmap.Create;
If Donnee_document<>nil then
Ic.Handle := GetAssociatedIcon(Pchar(ExtractFileExt(extractfilename(Donnee_document.Nom))));
TIconToTBitmap(Ic,bmp);
speedbutton_open.Glyph := bmp;
Ic.Free;
bmp.Free;


Merci à vous !!

Grégory