delphi7 编译的程序在win7下请求获得管理员权限的方法

网上找到的，记下来方便查找，亲测此方法可用。附带把编译好的uac.res上传。

首先，用记事本新建一文本文档，内容如下：

1 24 UAC.manifest

然后另存为uac.rc

另外新建一文本档，内容如下，另存为UAC.manifes

<?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>

两文件放在同一文件夹下面，如：放在d:\testuac目录，开始->运行-> 输入cmd

输入命令brcc32 d:\testuac\uac.rc

 

如果路径中间如果有空格请加上双引号""

然后在把编译虚的uac.res放入你的工程目录中，并中引用.

1.  
   program RegService;
2.  
   uses
3.  
   Forms,
4.  
   UMain in 'UMain.pas' {frmMain};
5.  
   {$R *.res}
6.  
   {$R uac.res}
7.  
   begin
8.  
   Application.Initialize;
9.  
   Application.CreateForm(TfrmMain, frmMain);
10.  
    Application.Run;
11.  
    end.

12.