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 图像旋转90° 反旋转90°

Delphi xe5 给edit增加自定义按钮

apk权限大全 android必懂知识

Delphi 安卓app自动升级

Delphi 10.3.1新的变量的声明方法

Delphi datasnap双缓存下载文件

Delphi 时间控制窗口标题栏文字或任务栏标题文字滚动

Delphi inttostransi

Delphi 如何通过代码控制打开键盘数字锁定numlock

Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词

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

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