如何得到圖標?

[dick_chan]

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

[PoolD]

返回值是一个TICON的Handle。

建立一个TICON，然后用SavetoFile就可以了。

但是只能保存成16色的图标。

[dick_chan]

能否給個源碼呢?
謝謝.

[huyalin]

用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;