“访问被拒绝”关于在 Windows 服务程序中的 Mailslot 上写入

Question

我使用 Mailslots（在 Delphi 7 中）作为程序间对话框，一切正常。

但是，当我使用我的一个程序（在 Windows XP 中）作为 Windows 服务时，当另一个（经典管理员用户的）程序尝试写入邮槽时，我收到一条消息“邮槽访问被拒绝”。 我知道这肯定是一个权限问题，因为服务拥有系统权限，但是......解决方案是什么？

Answer 1

调用 CreateMailslot() 时，指定一个允许对邮槽进行所有访问的 SECURITY_DESCRIPTOR，例如：

var
  ...
  sd: SECURITY_DESCRIPTOR;
  sa: SECURITY_ATTRIBUTES; 
begin
  ...
  InitializeSecurityDescriptor(@sd, SECURITY_DESCRIPTOR_REVISION);
  SetSecurityDescriptorDacl(@sd, True, nil, False);

  sa.lpSecurityDescriptor := @sd; 
  sa.bInheritHandle := Frue; 

  ... := CreateMailslot(..., @sa);
  ...
end;

Answer 2

我使用C++ Embarcardero 2010，并且我必须对 Remy Lebeau 的解决方案进行一些修改，因为 CreateMailSlot 函数接收SECURITY_ATTRIBUTES * 类型的指针，而不是 SECURITY_DESCRIPTOR * 类型的指针。

我的 C++ 解决方案是：

SECURITY_DESCRIPTOR sd;
InitializeSecurityDescriptor(&sd, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(&sd, true, NULL, false);

SECURITY_ATTRIBUTES sa;
sa.lpSecurityDescriptor=&sd;
sa.bInheritHandle=true;
this->pHandleMailSlot = CreateMailslot("your mail slot path", 0, -1, &sa);

---

注意：在我的例子中，我有三个应用程序：

1. 具有 MailSlot 的服务 (Embarcadero C++ 2010)
2. 具有客户端邮槽的服务 (.NET v4)
3. 具有客户端邮槽的 WPF (.NET v4)