[DELPHI] EXTRAIR O ÍCONE DE UM EXECUTÁVEL

Declare Forms, ShellAPI e Graphics na seção uses

function GetIconExe(ExeName : string) : TIcon;

begin

  Result := TIcon.Create;

  Result.Handle := ExtractIcon(Application.Handle, PChar(ExeName), 0);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  Image1.Picture.Assign(GetIconExe('C:\Windows\system32\notepad.exe'));

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】