本文整理自网络,侵删。
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 xe增强的rtti妙用--动态创建包中的窗口类
Delphi 如何确定access数据库中存在某一个已知名的表
Delphi xe5 for android 地理定位gps
更多相关阅读请进入《Delphi》频道 >>