如何得到圖標?-CSDN论坛

CSDN论坛 > Delphi > VCL组件开发及应用

如何得到圖標? [问题点数：30分，结帖人dick_chan]

一键查看最优答案

确认一键查看最优答案？

本功能为VIP专享，开通VIP获取答案速率将提升10倍哦！

取消

开通vip会员

⋅找子窗口的句柄 ⋅使用trackbar的小問題 ⋅如何用鍵盤控制trackbar的滑動? 更多帖子 关注私信空间博客 dick_chan 本版专家分：577 结帖率 99.17%: var
info:shffileinfo;
begin
shgetfileinfo('c:\abc.exe',0,info,sizeof(info),shgfi_icon);
end;
我得到這程序的圖標後,請問如何把這個圖標另存為*.bmp或*.ico檔呢?

0 2002-10-23 10:49:21

回复数 3 只看楼主引用举报楼主

⋅关于通过消息关闭显示器的问题，有此方面经验的高手请进 ⋅通过Jet SQL查询在Access数据库中动态创建表时，怎样将字符串型字段(char / string 之类)设置成“允许空字符串”？ ⋅通过SQL查询在Access中动态创建表时，怎样将字符串型字段(char / string 之类)设置成“允许空字符串”？ 更多帖子 关注私信空间博客 poold 本版专家分：2694 蓝花 2000年8月 Delphi大版内专家分月排行榜第三: 返回值是一个TICON的Handle。

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

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

0 2002-10-23 10:54:47

只看TA 引用举报 #1 得分 10

dick_chan 本版专家分：577: 能否給個源碼呢?
謝謝.

0 2002-10-23 10:57:38

只看TA 引用举报 #2 得分 0

⋅ear包发布的问题！！ ⋅谁能解决这个问题，高分相送 ⋅<p><font color="#FF0000"><marquee>祝大家圣诞节快乐！</marquee></font></p> 更多帖子 关注私信空间博客 huyalin 本版专家分：950: 用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;

0 2002-10-23 11:07:03

只看TA 引用举报 #3    得分 20

收藏帖子