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: MP3, iPod, Celulares, Notebooks, Câmeras 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
- Como corrigir o erro “Operation Not Aplicable” ao executar o software Automatiza Financeiro 2 pela primeira vez
- Assine agora nossa newsletter gratuita!
Achou este post interessante? Vote nele:
Comentários
Um Comentário para “Capturando o ícone do executável para um TImage”
Deixe um Comentário sobre o Post
< blockquote >< a href=”http://cheaptabletsonline.com/”>CheapTabletsOnline.com. Canadian Health&Care.Special Internet Prices.No prescription online pharmacy.Best quality drugs. High quality drugs. Order pills online< /a >…
Buy:Nymphomax.Cozaar.Lipitor.Wellbutrin SR.Female Pink Viagra.Zetia.Benicar.Prozac.Zocor.Aricept.Lipothin.Lasix.Ventolin.Buspar.Acomplia.Amoxicillin.Female Cialis.Seroquel.SleepWell.Advair….