4

我将 delphi XE2 与 FastMM4 一起使用。当我想使用关键字“延迟”创建 DLL 时,我在离开应用程序时违反了规定。如果我在没有“延迟”的情况下进行测试,则可以在没有违规的情况下离开应用程序

主要代码:

type
    function Add(X, Y : Integer) : Integer; overload; stdcall external 'MaDll.dll' delayed;
var
   Form3 : TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender : TObject);
begin
   try
      showmessage(IntToStr(Add(10, 5)));
   except
      on e : Exception do
         showmessage(e.Message);
   end;
end;

end.

DLL代码:

library MaDll;

uses
  FastMM4,
  System.SysUtils,
  System.Classes;

{$R *.res}

function Add(X, Y : Integer) : Integer; stdcall;
begin
   Result := X + Y
end;

exports
   Add;

begin

end.

FastMM 中是否存在参数?

4

0 回答 0