修改程序默认卸载文件名称

Share

1. 
   
2. [Setup]
   
3. AppName=自定义卸载文件名示例程序
   
4. AppVerName=自定义卸载文件名示例程序 1.0
   
5. DefaultDirName={pf}\自定义卸载文件名示例程序
   
6. DefaultGroupName=自定义卸载文件名示例程序
   
7. 
   
8. [Files]
   
9. Source: "MyProg.exe"; DestDir: "{app}"
   
10. Source: "MyProg.hlp"; DestDir: "{app}"
    
11. Source: "Readme.txt"; DestDir: "{app}"
    
12. 
    
13. [CODE]
    
14. procedure CurStepChanged(CurStep: TSetupStep);
    
15. var
    
16. uninspath, uninsname, NewUninsName, MyAppName: string;
    
17. begin
    
18. if CurStep=ssDone then
    
19. begin
    
20. // 指定新的卸载文件名（不包含扩展名），请相应修改！
    
21. NewUninsName := '卸载';
    
22. // 应用程序名称，与 [SEUTP] 段的 AppName 必须一致，请相应修改！
    
23. MyAppName := '自定义卸载文件名示例程序';
    
24. // 以下重命名卸载文件
    
25. uninspath:= ExtractFilePath(ExpandConstant('{uninstallexe}'));
    
26. uninsname:= Copy(ExtractFileName(ExpandConstant('{uninstallexe}')),1,8);
    
27. RenameFile(uninspath + uninsname + '.exe', uninspath + NewUninsName + '.exe');
    
28. RenameFile(uninspath + uninsname + '.dat', uninspath + NewUninsName + '.dat');
    
29. // 以下修改相应的注册表内容
    
30. if RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + MyAppName + '_is1') then
    
31.   begin
    
32.   RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + MyAppName + '_is1', 'UninstallString', '"' + uninspath + NewUninsName + '.exe"');
    
33.   RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + MyAppName + '_is1', 'QuietUninstallString', '"' + uninspath + NewUninsName + '.exe" /SILENT');
    
34.   end;
    
35. end;
    
36. end;
    

复制代码