我需要运行cmd按一下按钮点击管理员。有用。但我需要作为管理员来运行它。这怎么做?
ShellExecute(Handle,'open','c:\Windows\system32\cmd.exe',nil,SW_SHOWNORMAL)
解决方法
用runas替换打开的动词,如下所示。无论如何,尽量避免路径硬编码:
uses ShellAPI; procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle,'runas','cmd.exe',SW_SHOWNORMAL); end;
您也可以通过将ElevationRequired
属性设置为True来添加到您的按钮屏蔽图标。