DELPHI程序在Win7 win8 win10下自动请求以管理员身份运行

本文整理自网络，侵删。

 方法一：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.将rc文件编译为res文件：
brcc32 UAC.rc   //brcc32 在delphiX\Bin目录下
4、函数过程及编译参数：

{$R uac.res}
function RunAsAdmin(hWnd: hWnd; filename: string; Parameters: string): Boolean;
{
    See Step 3: Redesign for UAC Compatibility (UAC)
    http://msdn.microsoft.com/en-us/library/bb756922.aspx
}
var
  sei: TShellExecuteInfo;
begin
  ZeroMemory(@sei, SizeOf(sei));
  sei.cbSize := SizeOf(TShellExecuteInfo);
  sei.Wnd := hWnd;
  sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
  sei.lpVerb := PChar('runas');
  sei.lpFile := PChar(filename); // PAnsiChar;
  if Parameters <> '' then
    sei.lpParameters := PChar(Parameters); // PAnsiChar;
  sei.nShow := SW_SHOWNORMAL; //Integer;

  Result := ShellExecuteEx(@sei);
end;
 
方法2： 最新版的DELPHIxe 自带选项如图设置：
 

相关阅读 >>

Delphi读取文本(一行一行读入)

Delphi 判断文件是否被占用

Delphi stringgrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置：上下左右；

Delphi遍历进程并获取进程路径

Delphi idftp连不上ftp服务器的解决方法

Delphi 如何从url提取文件名？

Delphi firemonkey 学习笔记 �c tpopup 控件的使用

干掉360保险箱vb/vc/Delphi 源码

Delphi 快速删除非空文件夹

Delphi yearof 根据指定的日期返回年

更多相关阅读请进入《Delphi》频道 >>