Dicas - Extraindo ícones

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Esta dica mostra como extrair um ícone de um aplicativo e mostrá-lo no formulário.

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.

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?