第一步,建立manifest文件,如xx.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"/>
-
</requestedPrivileges>
-
</security>
-
</trustInfo>
-
</assembly>
请注意:uiAccess=''false' 是必须要的,如果没有会运行报错:
第二步, 用文本编辑器,新建一个文本文件,填写如下内容,并保存成xx.rc(xx.rc文件和上面的xx.manifest文件放在同一个文件夹下)
第三步,在装有delphi的电脑上打开dos 命令行,cd到上面两个文件所在的目录,运行如下命令
第四步,
然后在把编译虚的uac.res放入你的工程目录中,并中引用.
-
program RegService;
-
uses
-
Forms,
-
UMain in 'UMain.pas' {frmMain};
-
{$R *.res}
-
{$R xx.res}
-
begin
-
Application.Initialize;
-
Application.CreateForm(TfrmMain, frmMain);
-
Application.Run;
-
end.
(如果想调试阶段也能申请到管理员权限,用管理员权限运行delphi32.exe)
阅读(1137) | 评论(0) | 转发(0) |