|

楼主 |
发表于 2007-8-16 10:04:05
|
显示全部楼层
procedure TMAINFORM.SearchDoc(const AText: string);
var
lParam: string;
lDocType: string;
begin
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;
请问上面的过程中能满足一楼的实现吗?
如果不能如何实现呢? |
|