fix update

riderkick · Feb 27, 2018 · 9e1f5f8 · 9e1f5f8
1 parent 3dc2be2
commit 9e1f5f8
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/baseunits/SelfUpdater.pas b/baseunits/SelfUpdater.pas
@@ -211,6 +211,7 @@ procedure TSelfUpdaterThread.SyncFinishRestart;
 
 procedure TSelfUpdaterThread.ProceedUpdate;
 begin
+  writeln('proced update?');
   if not DownloadSuccess then Exit;
   if FileExists(OLD_CURRENT_UPDATER_EXE) then
     DeleteFile(OLD_CURRENT_UPDATER_EXE);
@@ -257,6 +258,7 @@ procedure TSelfUpdaterThread.Execute;
     Synchronize(@SyncStartDownload);
     if FHTTP.GET(UpdateURL) and (FHTTP.ResultCode < 300) then
     begin
+      DownloadSuccess := True;
       Filename := FMD_DIRECTORY + UPDATE_PACKAGE_NAME;
       if FileExists(Filename) then
         DeleteFile(Filename);