刚学DLL简单的问题路过的帮看看

                            
大家帮看看!   
  //dll  
  library   Lianxi;  
  uses  
      SysUtils,  
      Classes;  
  function   max(x:   Integer):   Integer;   export;  
  begin  
      Result   :=   X;    
  end;  
   
  function   min(x,   y:   Integer):   Integer;   export;  
  begin  
      if   X   <   Y   then   Min   :=   X   else   Min   :=   Y;  
  end;  
  exports  
      Min   index   1,  
      Max   index   2;  
  {$R   *.res}  
   
  begin  
  end.  
  //exe  
  unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   StdCtrls;  
   
  type  
      TForm1   =   class(TForm)  
          Edit1:   TEdit;  
          Edit2:   TEdit;  
          Button1:   TButton;  
          Edit3:   TEdit;  
          procedure   Button1Click(Sender:   TObject);  
          procedure   FormCreate(Sender:   TObject);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
      Max   =   function(var   X:   Integer):   Integer;stdcall;  
  var  
      Form1:   TForm1;  
      aptr:   TFarproc;  
      lhnd:   THandle;  
  implementation  
  {$R   *.dfm}  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      lhnd   :=   LoadLibrary('Lianxi.dll');  
      aptr   :=   GetprocAddress(lhnd,   'Max');  
      edit3.Text   :=   inttostr(Max(50));///到这就出错.为什么.?  
      FreeLibrary(lhnd);  
  end;  
   
  end.  
 

查看回复