|

楼主 |
发表于 2008-4-7 17:03:34
|
显示全部楼层
3楼的代码看了..是写在那里的??我自己的功能还是?
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;
找不到 EnsureRoot
|
|