Delphi在Vasta/win 7下通过UAC控制

　　在Windows编程时，为了兼容Win7与XP，许多需要底层权限的程序需要通过UAC验证，这是微软出的一个很恶心的东西……还不如Ubuntu那种Root机制呢……但是有困难我们就要克服～
现在有一种方式可以变相的绕过UAC控制。其实UAC控制有一点很弱智的是，当你的程序名字中包含Installation、Setup等词时，UAC认为你是安装程序，会默认进行UAC提示，提示用户给此程序提高权限。这对于安装包可以简单解决，但是如果我们的主程序也需要高权限的话，我们需要一个manifest文件来告诉UAC：我需要一个较高的权限，UAC也会提示用户提权。具体操作如下，但是此方法有个不能解决的问题是UAC会提示次软件未经微软认证，执行可能会影响安全。解决方法只有一个，那就是购买微软的软件认证……坑爹啊！

　　1.建立 res 文件

建立一个文本文件，名字可以自己起，我这里叫：UAC.manifest，内容：

01 02 03 04 05 06 07 08 09 10 11

<? 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 > <!--这是主要的一句，申请Admin权限，等同于右键管理员打开。--> < requestedExecutionLevel level = "requireAdministrator" /> </ requestedPrivileges > </ security > </ trustInfo > </ assembly >

建立文本文件，名为 UAC.rc，内容：

1 24 UAC.manifest

编译成 uac.res 文件，运行：brcc32 uac.rc -fouac.res

　　2.在代码中引入

打开项目文件，加入

{$R uac.res}

　　3.编译程序

这时程序就支持 VISTA 和WIN7的UAC了，在运行的时候，会弹出 WINDOWS 的提示框，询问用户是否允许以管理员身份运行。

转载于:https://www.cnblogs.com/qingsong/p/3507135.html