在X3中，如何改造我在2144中用到的RUNFUNC代码？**

ht88th · 发表于 2007-6-2 13:20:27

我在2144中，在自己的TProgram类中建立了一个RUNFUN过程，用来运行指定的功能；但在X3中已不支持，请问要如何改造？代码如下：

//运行指定功能：如果功能已打开则转到该功能
static procedure TProgram.RunFunc(AFuncUrl: string): string;
begin
if TSystemCore.FuncManager.RunFunc(AFuncUrl,'') <> nil then
; //返回<>nil表示成功调用指定功能AFuncUrl
end;

其中的TSystemCore.FuncManager.RunFunc(AFuncUrl,'') 在X3中要如何改造？

alang · 发表于 2007-6-2 14:56:04

2800只支持以下几种调用方法，更多内容请参考系统空间\系统运行库\系统核心库

{ 运行功能 }
function RunFunc(AContext: TContext; const AUniqueID, AFuncURL, AParams: string; BeforeRunFunc: TFuncNotifyEvent; Modal: Boolean): TFunc; overload;
procedure RunFunc(AContext: TContext; const AUniqueID, AFuncURL, AParams: string; UseUI: Boolean; BeforeRunFunc: TFuncNotifyEvent; Modal: Boolean); overload;
//function RunFunc(const AFuncURL, ADeptID, APositionID, APersonID, AParams: string): TFunc; overload;

{ 根据指定的UniqueID，将指定的功能实例运行起来 }
procedure RunFunc(AFunc: TFunc; const AParams, AUniqueID: string); overload;
procedure RunFunc(AFunc: TFunc; const AParams: string; AUniqueIDs: TStrings); overload;

wangyinchang · 发表于 2007-6-2 15:41:59

系统空间\系统运行库\系统核心库

里面什么也没有看见!

jiahaiminghr · 发表于 2007-6-3 12:51:36

系统核心库是个资源集，按F12可以看代码。

ht88th · 发表于 2007-6-4 15:03:32

我目前只知道AFUNCURL:STRING; 难道在X3中就调不起来了吗？
如果只知道某个功能的URL的情况下能否调运起来，你就说行还是不行吧，行就给个代码，不行就说不行，OK？

另外，核心库中的RunFunc的参数有说明文档吗？

alang · 发表于 2007-6-4 16:02:50

只知道AFUNCURL:STRING;
必须给一个环境才可以

atiger · 发表于 2007-6-7 11:45:24

atiger · 发表于 2007-6-12 09:36:12

这个帖子我先结贴了，有问题，请重新开贴

ht88th · 发表于 2007-6-26 13:31:05

function RunFunc(AContext: TContext; const AUniqueID, AFuncURL, AParams: string; BeforeRunFunc: TFuncNotifyEvent; Modal: Boolean): TFunc; overload; 中，各个参数的具体含义是什么？

alang · 发表于 2007-6-26 16:48:29

http://bbs.justep.com/forum.php? ... highlight=AUniqueID

		自动登录	找回密码
密码			立即注册