怎么修改程序自身的图标

如何修改程序自身的图标？
大家都知道程序图标可以在项目的选项里修改，但是如何通过代码修改自身的图标呢？哪怕修改完之后需要退出程序也可以。

[解决办法]
貌似 要修改资源文件，难
[解决办法]
运行时改自已图标，应该不是你的初衷，再把需求描述详细些。
[解决办法]
http://hi.baidu.com/hltk520/blog/item/5cc247cd90f567570fb345d8.html
[解决办法]
再写个程序，调用它来修改自己啊，一回事
[解决办法]
A0复制一份为A1.exe,修改它的图标，然后程序退出，删除自身并重命名A1为A0。
[解决办法]
以修改计算器为例
var
form_hw:HWND;
rcw:Word;
cn:Pchar;
ic:TICON;
begin
rcw:=WinExec('calc.exe',SW_SHOWNORMAL);//启动计算器
ifrcw<=32then//无法启动计算器
begin
Application.Terminate;
end;

whiletruedo//确保计算器启动
begin
form_hw:=FindWindow(nil,'计算器');//计算器启动后标题为计算器,你一定要注意。
ifboolean(form_hw)thenbreak;
end;

cn:='大家的计算器';//修改后的标题
ic:=TICON.create;
ic.LoadFromFile('WINUPD.ICO');//修改后的图标
SendMessage(form_hw,WM_SETTEXT,0,Integer(cn));//修改标题
Sendmessage(form_hw,WM_SETICON,ICON_SMALL,ic.handle);//修改图标
freeandnil(ic);//释放ic
end;
[解决办法]
与其客户喜欢自己喜欢的图标，不如你给用户设置个选项可以生成不同图标的快捷方式。
[解决办法]

探讨

大家都知道程序图标可以在项目的选项里修改，但是如何通过代码修改自身的图标呢？哪怕修改完之后需要退出程序也可以。

[解决办法]

探讨

以修改计算器为例
var
form_hw:HWND;
rcw:Word;
cn:Pchar;
ic:TICON;
begin
rcw:=WinExec('calc.exe',SW_SHOWNORMAL);//启动计算器
ifrcw<=32then//无法启动计算器
begin
Application.Terminate;
end;

whiletruedo//确保计算器……

[解决办法]
送他們幾個帶膠的圖片，喜歡什麼樣子就貼顯示器上。
[解决办法]
关注，对于图标以后用皮肤的时候有需求。
[解决办法]
孙鑫视频里面有，很简单，好像只有一个函数就行
[解决办法]
修改资源调用
[解决办法]
以前用BAT小文件能修改本身的图标
[解决办法]
再写个程序，调用它来修改自己啊，一回事
[解决办法]
修改运行时的程序必须 有相应的权限ring0 ...
要实现类似 病毒功能
这样实现程序的代价比较高。。

实现个类似自动更新的功能就行了。
创建副本等等都可以的。
[解决办法]
修改自己的图标绝对没有问题，每打开一次，exe图标变跟着变一次都没有问题，有问题的是无偿给你写这种代码暂无动力。
[解决办法]
厉害大大的
[解决办法]
这样的客户真麻烦啊
[解决办法]
好难啊

查看更多 下一篇