Changeset 500 for trunk/Packages

Timestamp:

Dec 22, 2023, 10:37:08 PM (11 months ago)

Author:

chronos

Message:

• Fixed: Application memory leak.

File:

• trunk/Packages/DpiControls/Dpi.Forms.pas (modified) (3 diffs)

trunk/Packages/DpiControls/Dpi.Forms.pas

@@ -169 +169 @@
     FMainForm: TForm;
     FCreatingForm: TForm;
-    FOldExitProc: Pointer;
     function GetActive: Boolean;
     function GetExeName: string;
@@ -382 +381 @@
 begin
   RegisterFindGlobalComponentProc(@DpiFindApplicationComponent);
-  FOldExitProc := ExitProc;
-  ExitProc := @DpiBeforeFinalization;
+  AddExitProc(@DpiBeforeFinalization);
   inherited;
 end;
@@ -390 +388 @@
 begin
   UnregisterFindGlobalComponentProc(@DpiFindApplicationComponent);
-  ExitProc := FOldExitProc;
   inherited;
 end;