我的代码出错,没有错误提示。
用到的几个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中的资源文件编辑器一样的效果。谢谢,谢谢。