如何获取*.exe文件的图标

                            
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var       h   :   TIcon;  
  begin  
  imageindex:=0;  
  h:=ticon.Create;  
  h.Handle:=ExtractAssociatedIcon(hInstance,   'c:\a.exe',   imageindex);  
  imagelist1.InsertIcon(1,h);  
  toolbutton2.ImageIndex:=1;  
  toolbutton2.Repaint;  
  end;  
   
  我想用ExtractAssociatedIcon函数获取,但是具体不知道如何操作,哪位大侠帮帮忙,贴出代码,最好能够获取图标,然后用timage显示出来

查看回复