madExcept 4.0.20 report leak too early

delphi package - automated exception handling
Post Reply
KobyNudler
Posts: 10
Joined: Sat Oct 08, 2016 1:55 pm

madExcept 4.0.20 report leak too early

Post by KobyNudler »

since version madExcept 4.0.20 there is a lot of false report resource leak


look for code

the problem is under the vcl and got this

unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

function MessageBoxTimeOutW(hWnd: HWND; lpText: PWideChar; lpCaption: PWideChar;uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
var
Form1: TForm1;
implementation
{$R *.dfm}
function MessageBoxTimeOutW; external user32 name 'MessageBoxTimeoutW';


procedure TForm1.Button1Click(Sender: TObject);
begin
MessageBoxTimeoutW(Application.handle,'Auto Load','Please wait', MB_OK, 0, 2500) ; //20
end;

end.


if no add visual appearnce work fine


while i do add , the crash exist

i said again , in the early version it was not exist .
Attachments
mad2.jpg
mad2.jpg (130.65 KiB) Viewed 3200 times
mad1.jpg
mad1.jpg (202.72 KiB) Viewed 3200 times
madshi
Site Admin
Posts: 10753
Joined: Sun Mar 21, 2004 5:25 pm

Re: madExcept 4.0.20 report leak too early

Post by madshi »

I've just tried this with Delphi XE8, and no leak found here. How can I reproduce this problem?
Post Reply