madExcept 4.0.20 report leak too early
Posted: Tue Sep 11, 2018 9:55 am
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 .
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 .