Delphi调用C++ dll的问题

                            
用DevC++写了一个dll,用Delphi调用.第一次点击Button1时,运行正常,第二次再点击时,就出现了自己定义的错误信息,MessageDlg('Can   not   load   ReadPath.dll!',mtError,[mbOK],0);   
  释放完后句柄就变成空了,第二次装载dll时就不行了。  
  哪位能告诉我是什么原因。。  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  type  
      RunDLLForm=function():PChar;stdcall;  
  var  
      handle:THandle;  
      proc:TFarProc;  
      RunDll:RunDLLForm;  
  begin  
      handle:=LoadLibrary('ReadPath.dll');  
      if   handle<32   then  
          begin  
          MessageDlg('Can   not   load   ReadPath.dll!',mtError,[mbOK],0);  
          end  
      else  
          begin  
          proc:=GetProcAddress(handle,'read');  
          if   proc<>nil   then  
          RunDll:=RunDllForm(proc);  
          if   RunDll()   =''   then  
              MessageDlg('未安装软件',mtError,[mbOK],0)  
          else  
              Edit1.Text:=RunDll();  
          end;  
      FreeLibrary(handle);  
  end;

查看回复

最新教程