如果是自己写的代码,参考biz:\COLLABORATION\DESKTOPFUNC.FUNC\MAINFORM.FORM下面的代码:
rocedure TMAINFORM.SearchDoc(const AText: string);
var
lParam: string;
lDocType: string;
begin
//临时方案,解决点GO后报错找不到"文档\知识中心"的授权环境
if TDocAccessUtils.FindOperatorPosition('Doc:\DOC', Context, TDocAccessKind.akNone) = nil then
begin
jsDialogs.ShowMsg('知识中心没有访问权限','');
exit;
end;
lDocType := 'dtDoc';
lParam := SysUtils.Format('-f"%s" -t"%s" -s"*.*" -c"%s" -a',
[TRTLConsts.DocRoot, lDocType, AText]);
TSystemCore.FuncManager.RunFunc(Context, '',
'Biz:\COLLABORATION\DocSearchFunc.Func', lParam, nil, False);
end; |