Changeset 500


Ignore:
Timestamp:
Dec 22, 2023, 10:37:08 PM (7 months ago)
Author:
chronos
Message:
  • Fixed: Application memory leak.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/DpiControls/Dpi.Forms.pas

    r497 r500  
    169169    FMainForm: TForm;
    170170    FCreatingForm: TForm;
    171     FOldExitProc: Pointer;
    172171    function GetActive: Boolean;
    173172    function GetExeName: string;
     
    382381begin
    383382  RegisterFindGlobalComponentProc(@DpiFindApplicationComponent);
    384   FOldExitProc := ExitProc;
    385   ExitProc := @DpiBeforeFinalization;
     383  AddExitProc(@DpiBeforeFinalization);
    386384  inherited;
    387385end;
     
    390388begin
    391389  UnregisterFindGlobalComponentProc(@DpiFindApplicationComponent);
    392   ExitProc := FOldExitProc;
    393390  inherited;
    394391end;
Note: See TracChangeset for help on using the changeset viewer.