内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用
我需要作为管理员来运行它。怎么做?
ShellExecute(Handle, 'open', 'c:\Windows\system32\cmd.exe', nil, nil, SW_SHOWNORMAL)
。看看下面的文章,其中详细阐述了高程,并提供替代的实现,如CreateProcessElevated()
和ShellExecuteElevated()
,更灵活:
如下所示
uses ShellAPI; procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle, 'runas', 'cmd.exe', nil, nil, SW_SHOWNORMAL); end;
还可以通过设置ElevationRequired
。