refactor: Stop before Dispatch if App Terminated

gcarreno · Sep 25, 2023 · ca77ed9 · ca77ed9
1 parent 85274af
commit ca77ed9
Showing 1 changed file with 12 additions and 9 deletions.
diff --git a/examples/CLI/polykermacli.lpr b/examples/CLI/polykermacli.lpr
@@ -192,16 +192,19 @@ procedure TPolyKermaCLI.DoRun;
 begin
   LoadParams;
 
-  PolyKermaSetup;
-  {$IFDEF UNIX}
-  if FpSignal(SigInt, @HandleSigInt) = signalhandler(SIG_ERR) then begin
-    Error({$I %FILE%}, {$I %LINE%}, Format('Failed to install signal error: %d', [ fpGetErrno ]));
-    Halt(1);
+  if not Terminated then
+  begin
+    PolyKermaSetup;
+    {$IFDEF UNIX}
+    if FpSignal(SigInt, @HandleSigInt) = signalhandler(SIG_ERR) then begin
+      Error({$I %FILE%}, {$I %LINE%}, Format('Failed to install signal error: %d', [ fpGetErrno ]));
+      Halt(1);
+    end;
+    {$ENDIF UNIX}
+
+    FDispatcher.Run(True);
+    PolyKermaTearDown;
   end;
-  {$ENDIF UNIX}
-
-  FDispatcher.Run(True);
-  PolyKermaTearDown;
 
   // stop program loop
   Terminate;