Inno Setup 对说明文档增补补丁记录

Share

   在你的补丁安装程序中增加下面的内容

1. 
   
2. procedure CurStepChanged(CurStep: TSetupStep);
   
3. begin
   
4.   if CurStep=ssDone then
   
5.     begin
   
6.       if FileExists(ExpandConstant('{app}\更新说明.txt')) then
   
7.         SaveStringToFile(ExpandConstant('{app}\更新说明.txt'), #13#10 + 'V1.0.1  补丁内容' + #13#10, True)
   
8.       else
   
9.         SaveStringToFile(ExpandConstant('{app}\更新说明.txt'), 'V1.0.1  补丁内容' + #13#10, False);
   
10.       SaveStringToFile(ExpandConstant('{app}\更新说明.txt'), '1：增加XXX' + #13#10, True);
    
11.       SaveStringToFile(ExpandConstant('{app}\更新说明.txt'), '2：修改了XXXbug' + #13#10, True);
    
12.      SaveStringToFile(ExpandConstant('{app}\更新说明.txt'), '更新时间 ' + GetDateTimeString('ddddd', #0, #0) + #13#10, True);
    
13.     end;
    
14. end;

复制代码