如何备份文件和恢复备份的文件

admin

1. [Setup]
   
2. AppName=My Program
   
3. AppVersion=1.5
   
4. DefaultDirName={pf}\My Program
   
5. DirExistsWarning=no
   
6. 
   
7. [Files]
   
8. ;安装新的文件，备份旧的文件
   
9. Source: "myfile\*"; DestDir: "{app}"; Flags: recursesubdirs; BeforeInstall: MakeBackUp
   
10. 
    
11. [Code]
    
12. procedure MakeBackUp;
    
13. var
    
14.   dn, fn, rp, cp: string;
    
15.   ResultCode: Integer;
    
16. begin
    
17.   dn:= ExpandConstant(ExtractFileDir(CurrentFileName));
    
18.   fn:= ExtractFileName(CurrentFileName);
    
19.   cp:= ExpandConstant('{app}');
    
20.   rp:= dn;
    
21.   if FileExists(dn + '\' + fn) then
    
22.     begin
    
23.       if not DirExists(cp + '\backup') then
    
24.         CreateDir(cp + '\backup');
    
25.       if pos(cp, dn) = 1 then
    
26.         delete(rp, 1, length(cp));
    
27.       if not DirExists(cp + '\backup' + rp) then
    
28.         Exec(ExpandConstant('{cmd}'), '/c mkdir "' + cp + '\backup' + rp + '"', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
    
29.       FileCopy(dn + '\' + fn, cp + '\backup' + rp + '\' + fn, false);
    
30.     end;
    
31. end;
    
32. 
    
33. procedure CurUninstallStepChanged (CurUninstallStep: TUninstallStep);    //卸载成功后看情况恢复备份的文件
    
34. var
    
35.   ResultCode: Integer;
    
36. begin
    
37. if CurUninstallStep = usDone then
    
38.   begin
    
39.     if Exec('xcopy.exe', ExpandConstant('"{app}\backup\*.*" "{app}" /S /Y /H'), '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
    
40.       DelTree(ExpandConstant('{app}\backup'), True, True, True);
    
41.   end;
    
42. end;

复制代码