4

FastMM4でdelphi XE2を使用しています。「Delayed」というキーワードを使用して 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