Discussion :

[SergioMaster]

voici ma solution (D2010)

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
29
30
31
32
33
34
 
{$IFDEF UNICODE}
function PrivateExtractIcons(lpszFile: PChar; nIconIndex, cxIcon, cyIcon: integer; phicon: PHANDLE; piconid: PDWORD; nicon, flags: DWORD): DWORD; stdcall ; external 'user32.dll' name 'PrivateExtractIconsW';
{$ELSE}
function PrivateExtractIcons(lpszFile: PChar; nIconIndex, cxIcon, cyIcon: integer; phicon: PHANDLE; piconid: PDWORD; nicon, flags: DWORD): DWORD; stdcall ; external 'user32.dll' name 'PrivateExtractIconsA';
{$ENDIF}
 
procedure TMainForm.Button1Click(Sender: TObject);
begin
ExtraireIcone(Pchar(Application.ExeName),0,Image1);
end;
 
procedure TMainForm.ExtraireIcone(Fichier : String;Index : Integer; ToImage : TImage);
var
  hIcon   : THandle;
  nIconId : DWORD;
  Icon    : TIcon;
begin
    // icone 48*48
    if PrivateExtractIcons (PChar(Fichier), index, 48, 48, @hIcon, @nIconId, 1, LR_LOADFROMFILE) <>0 then
    try
       Icon:=TIcon.Create;
      try
        Icon.Handle:=hIcon;
        Icon.SaveToFile(ExtractFilePath(ParamStr(0))+'Aicon.ico');
        toImage.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'Aicon.ico');
      finally
        Icon.Free;
      end;
//      toImage.Picture.Icon.Handle:=hIcon;  // ceci ne fonctionne pas , POURQUOI ?
    finally
      DestroyIcon (hIcon);
    end;
end;

Celle-ci fonctionne , mais j'aurais voulu faire plus simple et Bypasser l'écriture sur disque et directement faire

Code :

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

toImage.Picture.Icon.Handle:=hIcon;

mais cela ne fonctionne pas , pourquoi ?

[Andnotor]

Je n'ai pas testé avec PrivateExtractIcons, mais cet exemple fonctionne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
uses ShellAPI;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  BigIcon   :hIcon;
  SmallIcon :hIcon;
 
begin
  if ExtractIconEx(PChar(Application.ExeName), 0, BigIcon, SmallIcon, 1) > 0 then
    Image1.Picture.Icon.Handle := BigIcon;
end;

EDIT: Supprime DestroyIcon

[SergioMaster]

Je n'ai pas testé avec PrivateExtractIcons, mais cet exemple fonctionne:
2-Supprime DestroyIcon

1- oui , avec extracticonex ça fonctionne aussi chez moi , mais on obtient que une seule taille d'icone contrairement à PrivateExtractIcons
2- Supprimé ou non , même combat

[Andnotor]

Chez moi ça fonctionne !

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm17.ExtraireIcone(Fichier :string; Index :Integer; ToImage :TImage);
var
  hIcon   :THandle;
  nIconId :DWORD;
 
begin
  // icone 48*48
  if PrivateExtractIcons(PChar(Fichier), index, 48, 48, @hIcon, @nIconId, 1, LR_LOADFROMFILE) <> 0 then
    ToImage.Picture.Icon.Handle := hIcon;
end;

[ShaiLeTroll]

As-tu tenté ceci ?

Code :

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

1
2
3
4
5
6
7
8
 
      Icon:=TIcon.Create;
      try
        Icon.Handle := hIcon;
        toImage.Picture.Assign(Icon);
      finally
        Icon.Free;
      end;

Comment se comporte le TIcon lorsque l'on affecte un Handle, est-ce qu'il libère le Handle lors de sa libération ou il le considère comme une ressource extérieure dont il se décharge de la responsabilité ???
Vu ton erreur, on a l'impression qu'il appelle DestroyIcon !

Avant de faire Picture.Icon, as-tu mis dans toImage un TBitmap ou l'objet est vide ?

Est-il nécessaire d'appeler DestroyIcon de Picture.Icon.Handle lors du OnDestroy de la Form contenant le TImage ou ce dernier libère son TIcon interne et donc le Handle ???

Comment gères tu la présence de plusieurs icones ? hIcon est un tableau d'icône !

[SergioMaster]

Effectivement @AndNotOr , en enlevant le DestroyIcon ça fonctionne j'avais du mal faire mon truc !