Delphi SetFileSecurity 设置安全描述符

news2025/6/8 8:36:38

在Delphi中，使用Windows API函数SetFileSecurity来设置文件或目录的安全描述符时，你需要正确地构建一个安全描述符（SECURITY_DESCRIPTOR结构）。这个过程涉及到几个步骤，包括创建或修改安全描述符、设置访问控制列表（ACL）等。下面是如何在Delphi中实现这一功能的详细步骤：

步骤 1: 包含必要的头文件

首先，确保你的Delphi项目中包含了Windows API的头文件。这通常是通过包含Windows.pas来实现的，它包含了所有必需的Windows API定义。

uses
  Windows;

步骤 2: 创建或修改安全描述符

你需要先创建一个安全描述符。如果你只是想修改现有的安全描述符，你可以通过调用GetFileSecurity来获取当前的安全描述符，然后修改它。

创建一个新的安全描述符

var
  SD: PSECURITY_DESCRIPTOR;
  PSID: PSID;
  DACL: PACL;
  SA: SECURITY_ATTRIBUTES;
  SE_PRIVS: TPrivilegeSet;
  TokenHandle: THandle;
  TokenPrivs: TOKEN_PRIVILEGES;
  PrevState: DWORD;
begin
  // 获取特权令牌以修改安全描述符
  if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TokenHandle) then
  begin
    SE_PRIVS.PrivilegeCount := 1;
    SE_PRIVS.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    SE_PRIVS.Privileges[0].Luid := SE_SECURITY_NAME; // 或者使用 LookupPrivilegeValue 来查找 LUID
    LookupPrivilegeValue(nil, SE_SECURITY_NAME, SE_PRIVS.Privileges[0].Luid);
    AdjustTokenPrivileges(TokenHandle, False, SE_PRIVS, 0, nil, nil);
  end;
 
  // 创建安全描述符和DACL
  if AllocateAndInitializeSid(SECURITY_WORLD_SID_AUTHORITY, 1, SECURITY_WORLD_RID, 0, 0, 0, 0, 0, 0, 0, PSID) then
  begin
    DACL := nil; // 先初始化为nil，稍后分配和初始化
    SD := nil; // 同上
    try
      // 创建DACL
      if BuildSecurityDescriptor(SD, SECURITY_DESCRIPTOR_REVISION, DACL_SECURITY_INFORMATION, PSID, nil, nil) then
      begin
        // 设置DACL到安全描述符上（如果已经分配了DACL）
        if Assigned(DACL) then
          InitializeSecurityDescriptor(SD, SECURITY_DESCRIPTOR_REVISION);
        SetEntriesInAcl(1, @NewAccessEntry, nil, DACL); // NewAccessEntry 是 TExplicitAccessEntry 数组，定义了访问权限等
        SetSecurityDescriptorDacl(SD, True, DACL, False); // 将DACL设置到安全描述符上
      end;
    finally
      if Assigned(DACL) then FreeMem(DACL);
      if Assigned(PSID) then FreeMem(PSID);
      if Assigned(SD) then FreeMem(SD);
      if TokenHandle <> 0 then CloseHandle(TokenHandle);
    end;
  end;
end;

步骤 3: 使用 `SetFileSecurity` 设置文件安全描述符

一旦你有了正确的安全描述符，就可以使用SetFileSecurity来设置文件或目录的安全属性了。

var
  FileName: string;
begin
  FileName := 'C:\path\to\your\file.txt'; // 文件路径
  if SetFileSecurity(PChar(FileName), DACL_SECURITY_INFORMATION, SD) then
    WriteLn('Security descriptor set successfully.')
  else
    WriteLn('Failed to set security descriptor. Error: ' + IntToStr(GetLastError));
end;