Como extrair o ícone de um executável?
Esta função é capaz de recuperar o ícone de qualquer executável.
É necessário estar declarado Forms, ShellAPI e Graphics na secao uses,
em versões unicode declare Vcl.Forms, Winapi.ShellAPI e Vcl.Graphics.
Abaixo segue o código fonte da função:
1
2
3
4
5
6
| function GetIconExe(ExeName : string) : TIcon;
begin
Result := TIcon.Create;
Result.Handle := ExtractIcon(Application.Handle, PChar(ExeName), 0);
end; |
function GetIconExe(ExeName : string) : TIcon;
begin
Result := TIcon.Create;
Result.Handle := ExtractIcon(Application.Handle, PChar(ExeName), 0);
end;
Exemplo de uso:
Criar um novo projeto e coloque um botão e um Image,
no clique do botão deixe cnforme o exemplo abaixo.
1
2
3
4
5
| procedure TForm1.Button1Click(Sender: TObject);
begin
// Recuperando o ícone da calculadora do Windows.
Image1.Picture.Assign(GetIconExe('c:\windows\system32\calc.exe'));
end; |
procedure TForm1.Button1Click(Sender: TObject);
begin
// Recuperando o ícone da calculadora do Windows.
Image1.Picture.Assign(GetIconExe('c:\windows\system32\calc.exe'));
end;
-
InfusTec
-
3.975 views
- 0 comentários
- 3 de abril de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo