delphi Disable_UAC_Vista

本文整理自网络，侵删。

  
procedure RunAsAdmin(hWnd : HWND; aFile : String; aParameters : String);
Var
 Sei : TShellExecuteInfoA;
begin
 Fillchar(sei,SizeOf(sei),0);
 sei.cbSize := SizeOf(sei);
 sei.Wnd    := hWnd;
 sei.fMask  := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
 sei.lpfile := PChar(aFile);
 sei.lpVerb := 'runas';
 sei.lpParameters := PChar(aParameters);
 sei.nShow := SW_SHOWNORMAL;
 if not ShellExecuteEx(@sei) then
  RaiseLastOSError;
end;

if OpenDialog1.Execute then
 RunAsAdmin(self.Handle,OpenDialog1.FileName,'');
 

相关阅读 >>

Delphi注入下载者源代码

Delphi xe7 ios 取得系统字型名称

Delphi tfont类型和json互相转换的函数

Delphi编写系统服务

delhi 获取进程图片

Delphi firedac 下的 sqlite [7] - 备份、优化、事务(transaction)

Delphi tstreamwriter快速写入文件

Delphi xe 获取wifi 信息

Delphi 纯window系统api实现的ssl客户端

Delphi10及以上版本安装activex控件

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

转载请注明出处：木庄网络博客 » delphi Disable_UAC_Vista