Capturando o ícone do executável para um TImage
Categorias » Delphi, Dicas Delphi
Captura o ícone do executável e atribui a um TImage. Inclua a biblioteca ShellAPI no uses do seu form.
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Icon.Handle := ExtractIcon(Handle, PChar(’C:\Windows\Calc.exe’),0);
end;
No exemplo acima, é capturado o ícone da calculadora do Windows e atribuído a um objeto TImage.
Compare Preços de: Games, PS2, PS3, Nintendo, Wii, iPod no Buscapé.
Artigos Relacionados
- Novo executável atualizado do software Automatiza Financeiro 2 Liberado
- Novo executável atualizado do software Automatiza Meudinheiro 2 Liberado
- Chamando o gerenciador padrão de e-mail
- Adquira um software com fontes por R$ 67,00 e ganhe outros 4 Softwares Bônus!
- Como corrigir o erro “Operation Not Aplicable” ao executar o software Automatiza Financeiro 2 pela primeira vez
Achou este post interessante? Vote nele:
Comentários
Deixe um Comentário sobre o Post
