Delphi UAC生成默认以管理员身份运行的可执行程序

步骤

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" uiAccess="false">
</requestedExecutionLevel>
</requestedPrivileges>
</security>
</trustInfo>
<dependency>
<dependentAssembly>
<assemblyIdentity type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="x86"
publicKeyToken="6595b64144ccf1df"
language="*">
</assemblyIdentity>
</dependentAssembly>
</dependency>
</assembly>

2.建立UAC.rc文件

1 24 UAC.manifest

3.用brcc32编译这个.rc文件为.res文件

进到相应目录执行下面命令

brcc32 uac.rc -fouac.res

4.在工程中使用方法

Delphi 7中使用

4.1 把生成的资源文件uac.res复制到项目文件夹中

4.2 在工程文件.dpr中{$R *.res}后面加入{$R uac.res}

4.3 编译工程生成的可执行文件就会带安全标，运行时会自动以管理员身份运行

Delphi XE中使用

打开工程属性，Application->Manifest File，改成Custom，在下方选择UAC.manifest文件，重新编译工程即可