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从trichedit获得rtf格式文本

Delphi 2010/xe下隐藏程序在系统任务栏的图标

Delphi 系统长文件名与dos形式短文件名的相互转换

Delphi 调用js解决全角转半角

Delphi xe6 android 查看电池信息

Delphi 只用一条语句就能使tbitmap反色

Delphi extractfileext() 获取文件后缀的函数

Delphi delete 字符串函数

Delphi 从 exe 或 dll 中获取图标的函数

Delphi 通过u盘方式加密

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

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