Extrair um ícone de um determinado aplicativo

Extrair um ícone de um determinado aplicativo

  julho 17, 2017    Ana Paula Novello

---

Para extrair ícones de um executável, deve-se usar a função da API Extraction. Ela usa 3 parâmetros:

Instance - Instância da aplicação

FileName - Nome do executável. Deve ser um PChar

NumIcon - Número do ícone a ser recuperado. Se for Word(-1), a função retorna a quantidade de ícones do executável.

Coloque ShellAPI em uses no começo da unit.

procedure TSistema.BtnCapturarClick(Sender: TObject);
var
  IconIndex: word;
  h: hIcon;
begin
  IconIndex := 0;
  h := ExtractAssociatedIcon(hInstance, 'C:\Windows\Notepad.EXE', IconIndex);
  DrawIcon(Canvas.Handle, 10, 10, h);