我的代码出错,没有错误提示。
用到的几个API:
BeginUpdateResource
EndUpdateResource
UpdateResource 代码:var
h:HWnd;
icon:TIcon;
r:longbool;
p:Picon;
begin h:=BeginUpdateResource(Pchar('D:\aa.exe'),false); if GetLastError<>0 then
showmessage('error!');
icon:=image1.Picture.Icon; r:=UpdateResource(h,RT_ICON,pchar('106'),LANG_ENGLISH,icon,sizeof(icon)); if r=false then
showmessage('error!'); if EndUpdateResource(h,false) = false then
showMessage('error!');我要的,就是VB中的资源文件编辑器一样的效果。谢谢,谢谢。
用到的几个API:
BeginUpdateResource
EndUpdateResource
UpdateResource 代码:var
h:HWnd;
icon:TIcon;
r:longbool;
p:Picon;
begin h:=BeginUpdateResource(Pchar('D:\aa.exe'),false); if GetLastError<>0 then
showmessage('error!');
icon:=image1.Picture.Icon; r:=UpdateResource(h,RT_ICON,pchar('106'),LANG_ENGLISH,icon,sizeof(icon)); if r=false then
showmessage('error!'); if EndUpdateResource(h,false) = false then
showMessage('error!');我要的,就是VB中的资源文件编辑器一样的效果。谢谢,谢谢。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货