delphi 程序中自动获取管理员权限的方法

1.新建一个文本文件，命名为UAC.manifest，用记事本打开，把下面的内容粘贴进去，保存。

<?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"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>

2.再建立一个文本文件，命名为 UAC.rc ，写入下面的内容，保存。
  1 24 UAC.manifest
 
3、把UAC.rc 和 UAC.manifest 文件，一起拷贝到DELPHI安装目录下的BIN目录里，

4、执行 brcc32 UAC.rc –fo UAC.res

　　方法1：打开cmd，进入bin路径，输入：brcc32 UAC.rc –fo UAC.res，回车即可

　　方法2：打开delphi开发工具 选择 Project -> add to project(Shift+F11)->选择RC文件（文件类型选择*.RC）->Build-OK，
 
         就生成 UAC.res 资源文件了。生成的res文件应该放置在delphi工具安装目录下bin里面。

5、这个 UAC.res 就是我们要的了。把这个文件，拷贝到你的DELPHI项目目录下，打开你的project文件，例如：project1.dpr看到 {$R *.res}  这行代码， 在它的下面，添加 {$R UAC.res} ，保存，重新编译你的项目，就OK了