delphi win10系统已管理员的权限运行应用程序

本文整理自网络，侵删。

 
uses ShellApi, ...;

function RunAsAdmin(const Handle: Hwnd; const Path, Params: string): Boolean;
var
  sei: TShellExecuteInfoA;
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 := PAnsiChar(Path);
  sei.lpParameters := PAnsiChar(Params);
  sei.nShow := SW_SHOWNORMAL;
  Result := ShellExecuteExA(@sei);
end;
// Example

RunAsAdmin(Handle, 'c:\Windows\system32\cmd.exe', '');
 

相关阅读 >>

Delphi篇之写托盘图标

Delphi tcxgrid的tcxgriddbtableview.viewdata.rows跟records有什么区别

Delphi ado 动态建立.mdb数据库，表

Delphi得到系统目录的几个方法

Delphi 不用控件用函数实现发email

Delphi实现全局鼠标钩子

Delphi 删除指定字符串的所有实例

Delphi xe5 使用 android 内置函数几个小测试

Delphi 网址链接提取域名

Delphi调用createprocess创建进程

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

转载请注明出处：木庄网络博客 » delphi win10系统已管理员的权限运行应用程序