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 xe5在zip文件中添加某个txt文件并写入文字

Delphi topendialog设置多个过滤条件

Delphi dcc32.exe 参数说明

Delphi 使用管道进程间通讯

Delphi rest 服务器返回utf16编码转换成正常string

Delphi 快速删除非空文件夹

Delphi tgpimage 把图像转存为其他格式

Delphi getcomputername() getusername() 获取本机当前用户名

Delphi tstringstream 简单用法

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

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