浏览代码

Fix old SetFileTime bug.

Martijn Laan 3 月之前
父节点
当前提交
1252af988c
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      Projects/Src/Setup.Install.pas

+ 2 - 1
Projects/Src/Setup.Install.pas

@@ -1565,7 +1565,8 @@ var
             raise;
           end;
           { Set time/date stamp }
-          SetFileTime(DestF.Handle, nil, nil, @CurFileDate);
+          if CurFileDateValid then
+            SetFileTime(DestF.Handle, nil, nil, @CurFileDate);
           { If it's the uninstall program, bind the messages }
           if CurFile^.FileType = ftUninstExe then begin
             AllowFileToBeDuplicated := False;