如何得到圖標?

Question

var
info:shffileinfo;
begin
shgetfileinfo('c:\abc.exe',0,info,sizeof(info),shgfi_icon);
end;
我得到這程序的圖標後,請問如何把這個圖標另存為*.bmp或*.ico檔呢?

Answer 1

返回值是一个TICON的Handle。建立一个TICON，然后用SavetoFile就可以了。但是只能保存成16色的图标。

Answer 2

用CreateIcon创建一个Icon对象
用LoadIcon将exe文件中的图标加进来
var
hwn : integer;
Icon :TIcon;
begin
  Icon := TIcon.Create;
  hwn := ExtractIcon(0, PChar(ExeFileName), 0);
  If (hwn > 1) Then Icon.Handle := hwn;
  Icon.SaveToFile(IconFileName);
  Icon.Free;
end;