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;
我怎么没找到这个功能啊,TDOCACCESSSETTINGFUNC, 具体在什么地方啊! 谢谢! |