|
begin AFromActn.Checked := True; ShowWindow(hWndPlugin,SW_SHOWDEFAULT); //显示 end else begin AFromActn.checked := False; ShowWindow(hWndPlugin,SW_HIDE) ; end; Exit; //离开创建插件过程 end; //初始化插件类实例 if not InitializeMyPlugins(APlugin,sAlias) then begin showmessage(''''初始化插件类错误。''''); exit; end; //获得当前权限值 APlugin.UserID := sUserID; //载入DLL窗口 if not LoadShowPluginForm(APlugin) then begin showmessage(''''载入中心插件出错。''''); exit; end; end; //----------------------------------------- //Name: InitializeMyPlugins //Func: 初始化MYPLUGIN实例 (Caption | DllFileName | IsLoaded) //Para: APlugin-TMyPlugins //Rtrn: N/A //Auth: CST //Date: 2005-6-2 //----------------------------------------- function TFormHall.InitializeMyPlugins(APlugin:TMyPlugins; sAlias:String):Boolean; var strSQL:string; myDA:TMyDataAdapter; begin Result:=False; myDA:=TMyDataAdapter.Create; strSQL:=''''SELECT * FROM SystemModuleList WHERE modAlias=''''+QuotedStr(sAlias); try myDA.RetrieveData(strSQL); except on E:Exception do begin result:=false; myDA.Free ; exit; end; end; try begin with myDA.MyDataSet do begin if Not IsEmpty then begin &nbs 上一页 [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学以致用网] 
