delphi - 使用 shellexecute 以管理员身份运行 cmd

Question

我需要以管理员身份单击按钮来运行 cmd。有用。但我需要以管理员身份运行它。这是如何完成的？

 ShellExecute(Handle, 'open', 'c:\Windows\system32\cmd.exe', nil, nil, SW_SHOWNORMAL)

Answer 1

将 open 动词替换为 runas，如下所示。无论如何，尽量避免路径硬编码:

uses
  ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'runas', 'cmd.exe', nil, nil, SW_SHOWNORMAL);
end;

您还可以通过设置 ElevationRequired 将盾牌图标添加到按钮中属性为 True。