|
p; APlugin.Caption:= FieldByName(''''modName'''').Value; APlugin.DllFileName := FieldByName(''''modFile'''').Value; APlugin.WndClass := FieldByName(''''modWndClass'''').Value ; result:=True; end; Close; end; //end of with...do... end; //end of try except on E:Exception do begin Result:=False; myDA.Free ; Exit; end; //end of exception end; //end of try...except myDA.Free ; end; //----------------------------------------- //Name: LoadShowPluginForm //Func: 载入DLL插件并显示窗口 //Para: APlugin-TMyPlugins //Rtrn: true-创建成功 //Auth: CST //Date: 2005-6-2 //----------------------------------------- function TFormHall.LoadShowPluginForm (const APlugin:TMyPlugins):boolean; var ShowDLLForm: TShowDLLForm; //DLL接口函数实例 FreeDLLForm: TFreeDLLForm; sPath:string; //DLL文件的完整路径 begin try begin sPath:=ExtractFilepath(Application.ExeName)+ ''''plugins\'''' + APlugin.DllFileName ; APlugin.ProcAddr := LoadLibrary(PChar(sPath)); APlugin.FuncFreeAddr := GetProcAddress(APlugin.ProcAddr,''''FreeDLLForm''''); APlugin.FuncAddr := GetProcAddress(APlugin.ProcAddr ,''''ShowDLLForm''''); @ShowDLLForm:=APlugin.FuncAddr ; @FreeDLLForm:=APlugin.FuncFreeAddr; if ShowDllForm(Self.Handle, APlugin.Caption , APlugin.UserID) then Result:=True else Result:=False; end; except on E:Exception do begin Result:=False; ShowMessage(''''载入插件模块错误，请检查PLUGINS目录里的文件是否完整。''''); end; end; end; …… 上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
[聊天工具]让IE 7也用上鼠标手势 [常用软件]IE 7出炉,Firefox 2当道.谁才是“王者”？
[常用软件]绕过WGA安装IE 7 Beta3 5450 [VB.NET程序]VB.NET实现DirectSound9 (7) 录音
[VB.NET程序]DirectX 7 编程初步 [VB.NET程序]VB程序员眼中的C# 7
[Delphi程序]DELPHI7 如何在编写可视组件中传递一个事件到组件… [Delphi程序]Delphi7 的 WebService 与 数据库
[Delphi程序]Delphi7 从子线程中发送消息到主线程触发事件执行 [Delphi程序]Delphi 7 中使用RAVE报表（一）
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
