Inno Setup入门（十四）——替换安装程序和卸载程序的图标

SetupIconFile=jiong.ico

[code]

//插件函数用法

//参数:句柄(插件错误对话框的父句柄),exe文件完整路径名称,(exe文件中要替换的)图标资源名称,图标文件的完整路径名称,(exe中要替换的图标资源所在)语系

//返回值:成功?= Tr,?失败?= False

function UpdateIcon(const hWnd: Integer; const exeFileName,exeIcon,IcoFileName: String; wlangID: DWORD): Boolean;

external 'UpdateIcon@files:UpdateIcon.dll stdcall';

//替换卸载程序的图标

function UpdateUninstIcon(const IcoFileName: String): Boolean;

begin

//要替换图标的exe文件路径名称留空，则插件会自动替换掉Inno卸载程序的图标,其它参数类似！

Result:= UpdateIcon(MainForm.Handle,'',IcoFileName,0);

//替换卸载图标

end;

procedure CurStepChanged(CurStep: TSetupStep);

var

sIcon: String;

begin

//注意:替换卸载程序的图标，必须是在卸载程序生成之前！

//安装图标与卸载图标的格式与大小一致，否则可能会导致卸载程序出错！

if CurStep=ssInstall then

begin

sIcon:= ExpandConstant('{tmp}uninstall.ico'); //定义卸载图标

ExtractTemporaryFile(ExtractFileName(sIcon)); //释放卸载图标

//要替换图标的exe文件路径名称留空，则插件会自动替换掉Inno卸载程序的图标！

UpdateUninstIcon(sIcon);//替换卸载图标

end;

end;