如何使用 Windows 10 的清单设置管理员权限？

Question

我在 Delphi XE for Windows 10 上开发软件，我必须在 10 上以管理员权限运行我的软件。如果我右键单击 exe 文件并以管理员身份运行它，它不会引发任何错误，但如果我以任何其他方式运行它，程序会引发错误消息Access Denied。因此，它需要具有管理员身份。最初我认为您可以使用任务调度程序来完成此任务，但它也存在问题。现在，我正在学习我需要有自定义清单才能在 Windows 10 上执行此操作。因此，在在线浏览了一些 stackoveflow 问题、博客和网站之后，我为我的程序创建了一个清单，如下所示，但是当我运行我的程序时它仍然会引发Access Denied 错误信息。

这就是我所做的：

使用 NOTEPAD 创建了清单文件 (GeoMonitor.manifest)：

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestversion="1.0">
<assemblyIdentity version="1.1.1.1">
processorArchitecture="*"
name="GeoMonitor"
type="win32" />
<description>elevate execution level</description>
<dependency>
<dependentAssembly>
<assemblyIdentity>
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
publicKeyToken="6595b64144ccf1df"
language="*"
processorArchitecture="*"/>
</dependentAssembly>
</dependency>
<trustinfo xmlns="urn:schemas-microsoft-com:asm.v2"><security>
<requestedPrivileges>
<requestedExecutionlevel level="requireAdministrator" uiAccess="false" />
</requestedPrivileges>
</security>
</trustinfo>
</assembly>

使用 NOTEPAD 创建 RC 文件 GeoMonitor.rc

1 24 GeoMonitor.manifest

在我取消选中项目选项中的选项Enable Run Time Theme 后，将这两个文件链接到我的项目文件。

最后我编译我的项目文件没有问题，然后在 Windows 10 上测试编译的 exe 文件。它仍然以用户而不是管理员身份运行。我做错了什么？

更新： 我需要在我的项目选项 - 资源编译器部分中设置什么吗？

Answer 1

我认为你有两个问题：

1. 您未能将 .rc 资源脚本文件编译为具有 .res 扩展名的已编译资源，并链接该资源。您不应链接 .rc 文件或 .xml 文件。您需要链接已编译的 .res 文件。使用 brcc32 或 rc 编译资源脚本。
2. 我可以看出您没有链接 .res 文件，因为您的清单无效。如果你已经编译并链接了它，加载器会因为清单无效而拒绝你的可执行文件。

这是您需要的最低清单：

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
    <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
        <security>
            <requestedPrivileges>
                <requestedExecutionLevel level="requireAdministrator" uiAccess="false"/>
            </requestedPrivileges>
        </security>
    </trustInfo>
</assembly>

显然，您需要添加更多内容，但从这里开始，使用一个已知良好的清单文件。证明它可以按您的预期工作。然后添加更多功能。

最后要说明的一点是，我怀疑您有禁用 UAC 的习惯。这是一个非常糟糕的主意，对于开发人员来说更是如此。如果您在过去 10 年中启用了 UAC，那么您很久以前就会遇到所有 UAC/标准用户问题。

Answer 2

function CreateRunAsAdmin(const AppNamePath: string): boolean; //AppNamePath=CreateRunAsAdmin(Application.ExeName);
var
   RegisterTemp: TRegistry;
   openResult: Boolean;
begin
   RegisterTemp := TRegistry.Create;
   with RegisterTemp do
   begin
      RootKey := HKEY_CURRENT_USER;
      //openResult:=OpenKey('\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers', True);
      OpenKey('\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers', True);
      WriteString(AppNamePath, 'RUNASADMIN');
      Result := True;
      Free;
   end;
end;