宝塔服务器面板,一键全能部署及管理,送你10850元礼包,点我领取

Inno Setup 支持在同一个目录中安装多个应用程序,所以根据安装的先后次序自动将卸载程序文件命名为 unins000.exe,unins001.exe,unins002.exe 等等。这是 INNO SETUP 自身的功能。请参阅 http://www.jrsoftware.org/iskb.php?uninstallername 。一旦安装过程结束后,你当然可以将卸载文件的名称改成任意其它的文件名,注意的是你除了要更改安装目录里面的 unins00X.exe 和 unins00X.dat,还要更改注册表中的相关卸载信息。由于卸载程序文件的实际位置和名称可以用常量 {uninstallexe} 表示,所以你可以让你的安装程序自动进行这些修改,见示例脚本。以下为引用的内容:; Inno Setup 脚本; 该示例脚本显示如何自定义卸载文件的名称(默认为 unins000.exe,unins001.exe 等等)。[Setup]AppName=自定义卸载文件名示例程序AppVerName=自定义卸载文件名示例程序 1.0DefaultDirName={pf}\自定义卸载文件名示例程序DefaultGroupName=自定义卸载文件名示例程序[Files]Source: “MyProg.exe”; DestDir: “{app}”Source: “MyProg.hlp”; DestDir: “{app}”Source: “Readme.txt”; DestDir: “{app}”[CODE]procedure CurStepChangedCurStep: TSetupStep);varuninspath, uninsname, NewUninsName, MyAppName: string;beginif CurStep=ssDone thenbegin// 指定新的卸载文件名(不包含扩展名),请相应修改!NewUninsName := ‘卸载’;// 应用程序名称,与 [SEUTP] 段的 AppName 必须一致,请相应修改!MyAppName := ‘自定义卸载文件名示例程序’;// 以下重命名卸载文件uninspath:= ExtractFilePathExpandConstant'{uninstallexe}’));uninsname:= CopyExtractFileNameExpandConstant'{uninstallexe}’)),1,8);RenameFileuninspath + uninsname + ‘.exe’, uninspath + NewUninsName + ‘.exe’);RenameFileuninspath + uninsname + ‘.dat’, uninspath + NewUninsName + ‘.dat’);// 以下修改相应的注册表内容if RegKeyExistsHKEY_LOCAL_MACHINE, ‘SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\’ + MyAppName + ‘_is1’) thenbeginRegWriteStringValueHKEY_LOCAL_MACHINE, ‘SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\’ + MyAppName + ‘_is1’, ‘UninstallString’, ‘”‘ + uninspath + NewUninsName + ‘.exe”‘);RegWriteStringValueHKEY_LOCAL_MACHINE, ‘SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\’ + MyAppName + ‘_is1’, ‘QuietUninstallString’, ‘”‘ + uninspath + NewUninsName + ‘.exe” /SILENT’);end;end;end;