Inno Setup 新文件替换原文件

admin

1. #define MyAppName "我的程序"
   
2. 
   
3. [Setup]
   
4. AppName={#MyAppName}
   
5. AppVersion=1.0
   
6. UsePreviousAppDir=yes
   
7. DefaultDirName={reg:HKLM\Software\Cleanse,InstPath|{pf}\{#MyAppName}}
   
8. Uninstallable=false
   
9. OutputDir=d:\My Documents\新建文件夹
   
10. Compression=lzma
    
11. SolidCompression=yes
    
12. DirExistsWarning=no
    
13. 
    
14. 
    
15. [Languages]
    
16. Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"
    
17. 
    
18. [Files]
    
19. Source: "D:\视频缓存提取工具\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
    
20. 
    
21. [code]
    
22. var
    
23.   OldPrgInstalled: boolean;
    
24.   OldPrgPath: string;
    
25. function InitializeSetup(): Boolean;
    
26. begin
    
27.   Result := true;
    
28.   OldPrgInstalled := false;
    
29.   if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Cleanse', 'InstPath', OldPrgPath) then
    
30.     if FileExists(OldPrgPath+'\MyProg.exe') then
    
31.       OldPrgInstalled := true;
    
32. end;
    
33. 
    
34. function ShouldSkipPage(PageID: Integer): Boolean;
    
35. begin
    
36.   result := false;
    
37.   if PageID = wpSelectDir then
    
38.     result := OldPrgInstalled;
    
39. end;
    
40. 
    
41. function NextButtonClick(CurPageID: Integer): Boolean;
    
42. begin
    
43.   Result:= true;
    
44.   if (CurPageID = wpSelectDir) and (not FileExists(ExpandConstant('{app}\MyProg.exe'))) then
    
45.     begin
    
46.       Result := false;
    
47.       MsgBox('你选择的目录没有需要补丁的程序，请选择正确的目录！', mbInformation, MB_OK);
    
48.     end;
    
49. end;

复制代码