Extraindo ícones

 

Esta dica mostra como extrair um ícone de um aplicativo e mostrá-lo no formulário. Para que o código funcione, adicione a unit ShellAPI na seção Uses. Coloque um objeto button em seu formulário e no seu evento onclick escreva o seguinte código:

 

procedure TForm1.Button1Click(Sender: TObject);

var

  indice: word;

  hicone: hicon;

begin

  indice := 0;

  hicone := extracticon(hinstance,'calc.exe', indice);

  drawicon(form1.canvas.handle, 10, 10, hicone);

end;

 

O exemplo extrai o ícone da calculadora do Windows. Veja na figura abaixo, o programa sendo executado após o click no botão extrair.