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 动态修改exe文件的图标

Delphi中读取硬盘的物理序列号

Delphi 实现 图灵机器人api（idhttp post ）

Delphi xe5 json

Delphi 强迫将半型英数字转换成全型英数字

Delphi从网上获取北京时间

Delphi 控制组件位置上下左右

postmessage和sendmessage的区别

Delphi中sendmessage给一个edit控件发送wm_settext消息

Delphi wm_copydata 用法

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

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