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

10 2月

创建一个文件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,选择刚创建的文件即可。

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注