调用DLL出错，请高手指教！

  LoginHandle   :=   LoadPackage('IMLogin.Dll');  
    try  
          if   LoginHandle   =   0   then  
                  raise   Exception.Create('²»ÄÜ×°Ôض¯Ì¬Á¬½Ó¿â£¡');  
          IntegrateLogin   :=   GetProcAddress(LoginHandle,'IntegrateLogin');  
          if   not   (@IntegrateLogin   =   nil)   then  
          begin  
                  IntegrateLogin(Application.Handle,PChar(szLoginInfo));  
                  IsLogin   :=   True;  
          end   else  
                  raiseLastwin32Error;  
  finally  
          FreeLibrary(LoginHandle);  
  end;  
   
  在语句LoginHandle   :=   LoadPackage('IMLogin.Dll');处出错，错误信息如下：  
   
  raise   exception   Class   except   with   message:  
  Invalid   Package   file   'D:\..\IMLogin.Dll'   Process   Stop   ...  
   
  请高手指教！  
    问题点数：50、回复次数：4Top

1 楼ChipHead（满脑袋芯片和程序的人）回复于 2001-11-06 17:13:01 得分 20

好像应该用LoadLibrary()吧？Top

2 楼zfmich（）回复于 2001-11-06 18:02:35 得分 15

用LoadLibrary（）Top

3 楼agui（阿贵: 高级图形用户界面）回复于 2001-11-06 19:01:27 得分 15

IMLogin.Dll   不是包文件。Top

4 楼Liusp（夜深千帐灯）回复于 2001-11-07 08:39:54 得分 0

各位说得极是，我怎么就没察觉到呢？都加分吧！Top

相关问题

• dll
• loginhandle
• integratelogin
• imlogin
• 出错
• loadpackage
• 请高手指教
• raise except
• then

• 帖主：Liusp
• ChipHead
• zfmich
• agui

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载