绝地WSCL中的RangeCheckError

我在用 JEDI WSCL 在安装过程中更改文件夹的权限。 在不进行优化和范围检查的情况下进行编译时,在设置新的访问控制列表时会得到一个范围检查。

procedure SetFilePermissions(const folder: string);
var
  FileObject: TJwSecureFileObject;
  DACL: TJwDAccessControlList;
begin
  FileObject := TJwSecureFileObject.Create(folder);
  try
     DACL := FileObject.DACL;
     JwInitWellknownSIDs;
     DACL.Add(TJwDiscretionaryAccessControlEntryAllow.Create(nil, [afObjectInheritAce],   GENERIC_ALL, JwWorldSID, false));
     FileObject.SetDACL(DACL);
  finally
    FileObject.Free;
  end;
end;

它看起来像是来自jwsecurityid.createCopyOfSid()函数,但我不知道为什么。

有人知道什么线索吗?

我使用的是Delphi2007,btw,而wscl代码是最新的sourceforge代码。

当做,
-维加尔