重金请教一个简单的DLL动态调用问题,UP有分

                            
要调用ES.DLL的DLL输出函数如下:   
  function   ShowFrm(FrmID:   LongInt):LongInt;stdcall;      
   
   
  下面是DLL动态调用  
   
  type  
      TShowFrm   =   function(FrmID:   LongInt):LongInt;stdcall;  
  var  
        aptr:TFarproc;  
        lhnd:THandle;  
        a:longint;  
  var  
      Form1:   TForm1;  
  implementation  
  {$R   *.dfm}  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      lhnd:=Loadlibrary('c:\ES.DLL');  
      aptr   :=GetprocAddress(lhnd,'ShowFrm');  
      a:=   TShowFrm(aptr)(1);  
      FreeLibrary(lhnd);  
  end;  
   
  请问这个怎么总是说地址错误,可能是什么地方的问题??  
  还有,如果用相对路径,应该怎么办???  
   
 

查看回复