|
发表于 2007-6-22 11:05:50
|
显示全部楼层
楼主,按照2楼配置关联,需要初始化文档中心的目录。初始化代码:
procedure TDOCACCESSSETTINGFUNC.EnsureRoot;
const
cGUID = '4B666B997C49446688B339B6D944AA5B';
begin
if not FileSys.FileSystem.FileExists(TRTLConsts.DocRoot) then //TRTLConsts在协同常量库
try
FileSys.FileSystem.CreateFile(TRTLConsts.DocRoot, cGUID, [], TFileKind.fkSpace, TRTLConsts.DocDisplayName);
except
on E: TObject do
raise Exception.CreateFmt('知识中心基础数据错误,初始化失败。'#13#10 + '错误原因:%s', [jsCommon.ExceptText(E)]);
else
raise;
end;
end; |
|