提取应用程序图标

uses

  Shellapi;

procedure TForm1.Button2Click(Sender: TObject);
var
 shInfo:SHFILEINFO; //文件信息结构
 ico:Hicon; //图标句柄
 icoimg:Ticon;
begin

  shellapi.SHGetFileInfo(pchar(edit1.Text),FILE_ATTRIBUTE_NORMAL,shInfo,sizeof(shinfo),SHGFI_USEFILEATTRIBUTES or SHGFI_DISPLAYNAME or  SHGFI_TYPENAME or SHGFI_SHELLICONSIZE or SHGFI_ICON or  SHGFI_LARGEICON );

  if shinfo.hIcon<>0 then begin

      ico:=shinfo.hIcon

      icoimg:=Ticon.Create ;
      icoimg.Handle:=ico;
      self.Image1.Picture.Icon:=icoimg;

  end;

end;