Delphi XE5 程序在Win7下获取管理员权限

时间：2021-05-24 17:12:40 收藏：0 阅读：0

创建一个文件UAC.manifest，内容如下：

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

如果是不同版本的Delphi，请参考Delphi安装目录\bin\default_app.manifest文件，将上文高亮行改成requireAdministrator即可。

然后，点击Delphi的Project菜单，Options，打开设置对话框，点击左侧的Application,在Runtime Themes中选择Use custom manifest，选择刚创建的文件即可。