问一个简单的问题--如何获取应用程序的图标

Question

我想做一段程序，在程序中需要获得其它应用程序的路径和图标，路径可以通过opendialog实现，但如何获得应用程序的图标呢？？？

Answer 1

uses shellapi;procedure TForm1.Button1Click(Sender: TObject);
var
  Icon : hIcon;
  IconIndex : word;
begin
  if OpenDialog1.Execute then begin
    Icon := ExtractAssociatedIcon(
              HInstance, PChar(OpenDialog1.FileName), IconIndex);
    DrawIcon(Canvas.Handle, 0, 0, Icon);
  end;
end;