正式会员享受无限制浏览网站功能和高速网盘下载,赶快加入本站吧!
您需要 登录 才可以下载或查看,没有账号?立即注册
x
在你的补丁安装程序中增加下面的内容
- procedure CurStepChanged(CurStep: TSetupStep);
- begin
- if CurStep=ssDone then
- begin
- if FileExists(ExpandConstant('{app}\更新说明.txt')) then
- SaveStringToFile(ExpandConstant('{app}\更新说明.txt'), #13#10 + 'V1.0.1 补丁内容' + #13#10, True)
- else
- SaveStringToFile(ExpandConstant('{app}\更新说明.txt'), 'V1.0.1 补丁内容' + #13#10, False);
- SaveStringToFile(ExpandConstant('{app}\更新说明.txt'), '1:增加XXX' + #13#10, True);
- SaveStringToFile(ExpandConstant('{app}\更新说明.txt'), '2:修改了XXXbug' + #13#10, True);
- SaveStringToFile(ExpandConstant('{app}\更新说明.txt'), '更新时间 ' + GetDateTimeString('ddddd', #0, #0) + #13#10, True);
- end;
- end;
复制代码
|