关于dll的一个小问题!(在线等)

Question

//以下是我的源码!unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    e3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
procedure mun(var x,y,mxn:integer);Stdcall;
external 'min.dll';{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  x,y,z:integer;
begin
  x:=strtoint(edit1.Text);
   y:=strtoint(edit2.Text);
   mun(x,y,z);
   e3.Text:=inttostr(z);
end;
//dll 源码
library min;
uses
  SysUtils,
  Classes;{$R *.res}
  procedure mun(x,y,mxn:integer);stdcall;
    begin
       if x<y then mxn:=y
       else mxn:=x;
    end;
  exports
     mun;
begin
end.

Answer 1

procedure mun(//VAR x,y,mxn:integer);stdcall;
    begin
       if x<y then mxn:=y
       else mxn:=x;
    end;
  exports
     mun;
begin

Answer 2

天外流星:
   不对,dll是能连接,但是结果不对!e3.text的值为一个八位数值!

Answer 3

fuction mun( x,y :integer): integer;stdcall;
    begin
       if x<y then return y
       else  return x;
    end;