Como extrair o ícone de um executável?

Esta função é capaz de recuperar o ícone de qualquer executável.

É necessário estar declarado Forms, ShellAPI e Graphics na secao uses,
em versões unicode declare Vcl.Forms, Winapi.ShellAPI e Vcl.Graphics.

Abaixo segue o código fonte da função:

1
2
3
4
5
6

function GetIconExe(ExeName : string) : TIcon;
begin
  Result := TIcon.Create;
 
  Result.Handle := ExtractIcon(Application.Handle, PChar(ExeName), 0);
end;

Exemplo de uso:
Criar um novo projeto e coloque um botão e um Image,
no clique do botão deixe cnforme o exemplo abaixo.

1
2
3
4
5

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Recuperando o ícone da calculadora do Windows.
  Image1.Picture.Assign(GetIconExe('c:\windows\system32\calc.exe'));
end;