Delphi EXE图标替换


本文整理自网络,侵删。

 var
hRes:HRSRC;
H,hUpdateRes :THANDLE;
p:Pointer;
begin
H:=LoadLibrary(PChar(edit1.Text));//载入图标源EXE文件
hRes:=FindResource(H,PChar(1), RT_ICON); //查找源文件中的图标文件
p:=LockResource(LoadResource(h,hRes)); //锁定资源
hUpdateRes:=BeginUpdateResource(PChar(edit2.Text), FALSE); //要替换的目标EXE文件
UpdateResource(hUpdateRes,RT_ICON, PChar(1),0,p,SizeofResource(h,hRes)); //更新图标资源
EndUpdateResource(hUpdateRes,FALSE); //结束更新资源
CloseHandle(hRes); //关闭句柄
CloseHandle(hUpdateRes);//关闭句柄
FreeLibrary(H); //释放载入的源文件

相关阅读 >>

Delphi 变体数组

Delphi wmi 获取网络信息

Delphi waitforsingleobject 响应窗体

Delphi删除文件和文件夹

qdac项目

Delphi保存读取utf-8的文本文件

Delphi 系统对话框(如浏览目录)被隐藏到主窗体后面造成程序无法操作的临时处理方式

Delphi xe datasnap服务器获取客户端ip地址

Delphi messagebox 和 messagedlg用法

Delphi获取系统字体列表

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...