delphi RunAsAdmin 运行程序并申请管理员权限

本文整理自网络，侵删。

 
procedure RunAsAdmin(const aFile: string; const aParameters: string = ''; Handle: HWND = 0);
var
  sei: TShellExecuteInfo;
begin
  FillChar(sei, SizeOf(sei), 0);

  sei.cbSize := SizeOf(sei);
  sei.Wnd := Handle;
  sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
  sei.lpVerb := 'runas';
  sei.lpFile := PChar(aFile);
  sei.lpParameters := PChar(aParameters);
  sei.nShow := SW_SHOWNORMAL;

  if not ShellExecuteEx(@sei) then
    RaiseLastOSError;
end;




procedure TForm1.Button1Click(Sender: TObject);
begin
RunAsAdmin('D:\IDM6.30.2\IDM\IDMan.exe','',handle);
end;
 

相关阅读 >>

Delphi 获取internet缓存文件

Delphi 如何快速读取文本文件

Delphi 图像识别技术（逐行扫描识别)

Delphi获取桌面图标

Delphi遍历文件目录

Delphi内联汇编的一点心得

Delphi edit只允许输入数字

Delphi 获取超gb大文件大小

Delphi判断程序是否无响应

vclzip 3.10.1的简单使用示例

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

转载请注明出处：木庄网络博客 » delphi RunAsAdmin 运行程序并申请管理员权限