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源码获取网络图片缓存的地址

Delphi 录音制作 wav 文件

Delphi xe5实现通过tmemorystream将一个unicodestring写入到一个unicode文本文件

Delphi 2009 泛型容器单元(generics.collections)[5]: tobject...<t> 系列

Delphi 高亮选中memo某一行

Delphi 使用windows api(wincrypt)计算文件md5哈希，支持大文件

Delphi保存网页中的图片

Delphi 采用 tidhttp 访问 https 的网站，采用 tidtcpclient 访问 https 的网站

Delphi 中的md5实现方法及Delphi2009和Delphi2010中用法

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

转载请注明出处：木庄网络博客 » Delphi EXE图标替换