Quellcode durchsuchen

Fix old SetFileTime bug.

Martijn Laan vor 3 Monaten
Ursprung
Commit
1252af988c
1 geänderte Dateien mit 2 neuen und 1 gelöschten Zeilen
  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;