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 restfull api调用方法

Delphi判断电脑连接到 internet 了吗？

Delphi 实现窗口记住关闭时的坐标位置

Delphi ioutils单元查找文件夹下所有文件

Delphi 用idhttp得到本机外网ip

Delphi listview的用法

Delphi xe6 实现ping的功能

Delphi webbrowser1 保存文档为 .html

什么是Delphi firemonkey

Delphi获取pid的父进程文件名

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

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