如何从调用的EXE中提取图标，然后在按钮上进行显示

Question

procedure   TForm1.Button1Click(Sender:   TObject); 
begin 
WinExec( 'D:\Tencent\QQ\qq.exe ',1); 
 Application.Terminate;
end; 如何从调用的EXE中提取图标，然后在按钮上进行显示接着上面的代码，具体该如何去写请结合上面代码给予真确答案，谢谢！

Answer 1

USE SHELLAPI;procedure TForm1.Button1Click(Sender: TObject);   
begin
FileName:='D:\Tencent\QQ\qq.exe';
Form1.Icon.Handle:=ExtractIcon( Application.Handle, PChar(FileName), 0 );   
end;  以上是提取exe或dll文件的方法，另外普通的button似乎不能放ICON到上面吧

Answer 2

ExtractIcon、ExtractIconEX
这两个函数可以取得文件中的图标。

Answer 3

呵呵，得分来了。。
看我的。
uses shellapi;
procedure TForm1.Button1Click(Sender: TObject);
var
  Hc: HICON;
  filename: string;
begin
  filename := ParamStr(0);//文件路径，这个是本程序路径。delphi图标。
  Hc := ExtractIcon(HInstance, PChar(filename), 0);
  if Hc <> 0 then
  begin
    SetWindowLong(Button1.Handle, GWL_STYLE, GetWindowLong(Button1.Handle, GWL_STYLE) or BS_ICON);
    SendMessage(Button1.Handle, BM_SETIMAGE, IMAGE_ICON, Hc);
  end;
end;

Answer 4

Hc   :=   ExtractIcon(HInstance,   PChar(filename),   0); 
编译不通过，提示extractIconvo后面应该是.,请指教

Answer 5

我用的delphi7，uses中使用了shellapi