在标准用户帐户（Delphi）中以管理员身份运行外部程序
我有一个代码，可以帮助我作为管理员运行外部程序。如果运行我的程序的用户是管理员，那么它工作得很顺利在标准用户帐户（Delphi）中以管理员身份运行外部程序,delphi,createprocess,Delphi,Createprocess,我有一个代码，可以帮助我作为管理员运行外部程序。如果运行我的程序的用户是管理员，那么它工作得很顺利 程序RunApp； 常数 记事本路径='C:\windows\system32\notepad.exe'； 变量 SI:TStartupInfo； PI:t过程信息； 开始 零内存（@SI，SizeOf（SI））； SI.cb:=SizeOf（SI）； CreateProcess（PChar（NotepadPath）、nil、nil、nil、false、CREATE\u NEW\u PROCESS
程序RunApp；
常数
记事本路径='C:\windows\system32\notepad.exe'；
变量
SI:TStartupInfo；
PI:t过程信息；
开始
零内存（@SI，SizeOf（SI））；
SI.cb:=SizeOf（SI）；
CreateProcess（PChar（NotepadPath）、nil、nil、nil、false、CREATE\u NEW\u PROCESS\u GROUP或NORMAL\u PRIORITY\u CLASS、nil、nil、SI、PI）；
结束；
开始
主机：=ParamStr（0）；
FillChar（SEI，SizeOf（SEI），0）；
SEI.cbSize:=SizeOf（SEI）；
SEI.fMask:=见屏蔽过程；
{$IFDEF UNICODE}
SEI.fMask:=SEI.fMask或SEE\u MASK\u UNICODE；
{$ENDIF}
SEI.Wnd:=0；
SEI.lpVerb:='runas'；
SEI.lpFile:=PChar（主机）；
SEI.nShow:=SW_正常；
如果是IsUserAnAdmin，则开始
RunApp；
出口
结束；
如果不是ShellExecuteEx（@SEI），则开始
SetEnvironmentVariable（“兼容层”、“RUNASINVOKER”）；
RunApp；
结束；
结束。
这种行为正确吗？如果没有，可能是什么原因造成的？@EllynLyn您已经知道是什么原因造成的。您试图解决的实际问题是什么？你只是在陈述事实，而不是问题。您不能在UAC提升下运行外部进程，并期望它仍然处于相同的用户上下文中。这违背了提升的全部目的。@EllynLyn“如果UAC提示，那么程序将不会在当前标准用户上运行？”-这是正确的。“如果从每个帐户注销，并且只登录到标准用户，则它工作正常？”-否。它将作为登录到UAC提示符的管理员用户运行。这是故意的。所以我再次问，你想要解决的实际问题是什么？可能是您正在寻找的。@EllynLyn外部应用程序将在标准用户的桌面上运行，是的。但它不会作为标准用户运行，而是作为管理员用户运行。这是正常的行为。无论用户帐户如何，
CreateProcess（）STARTUPINFO:：lpDesktopCreateProcess（）STARTUPINFO:：lpDesktop