Extragere iconita din executabil [Delphi]

[DarkByte]

Extragerea unei (primei) iconite a unui executabil (.exe, .dll, etc)

Cod:

var Icon: TIcon;
begin
  Icon := TIcon.Create;
  Icon.Handle := ExtractIcon(hInstance, 'C:\WINDOWS\system32\moricons.dll', 0); {extragerea iconitei}

  Image1.Picture.Icon := Icon; {asignarea iconitei unui TImage, pentru afisare}

  Icon.Free; {eliberarea memoriei alocate}
end;

C:\WINDOWS\system32\moricons.dll - numele executabilului din care se va extrage iconita.

Unitul ShellAPI trebuie adaugat in sectiunea uses.

Enjoy

[SkullAds]