Inno Setup自定义卸载的文件名

最新推荐文章于 2025-06-24 18:40:53 发布

原创

最新推荐文章于 2025-06-24 18:40:53 发布 · 1.2k 阅读

2 ·

CC 4.0 BY-SA版权

这篇博客探讨了如何在Inno Setup中自定义卸载程序的文件名，通过研究并修改安装包的源代码来实现这一目标。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

[CODE]  
procedure CurStepChanged(CurStep: TSetupStep);  
var  
uninspath, uninsname, NewUninsName, MyAppName: string;  
begin  
if CurStep=ssDone then  
begin  
// 指定新的卸载文件名（不包含扩展名），请相应修改！  
NewUninsName := '卸载程序';  
// 应用程序名称，与 [SEUTP] 段的 AppName 必须一致，请相应修改！  
MyAppName := '卸载程序';  
// 以下重命名卸载文件  
uninspath:= ExtractFilePath(ExpandConstant('{uninstallexe}'));  
uninsname:= Copy(ExtractFileName(ExpandConstant('{uninstallexe}')),1,8);  
RenameFile(uninspath + uninsname + '.exe', uninspath + NewUninsName + '.exe');  
RenameFile(uninspath + uninsname + '.dat', uninspath + NewUninsName + '.dat');  
// 以下修改相应的注册表内容  
if RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall/' + MyAppName + '_is1') then  
begin  
RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall/' + MyAppName + '_is1', 'UninstallString', '"' + uninspath + NewUninsName + '.exe"');  
RegWriteStringValue(HKEY_LOCAL_MACHI