多年以来，我一直在使用在XP 32bit上运行良好的代码，现在PC已升级到Windows10 Home 32bit，并且代码不再起作用。
ProcessId := GetCurrentProcessId;
ProcessIdToSessionId(ProcessId,SessionId);
WinStationConnectW(SERVERNAME_CURRENT, SessionId,WTSGetActiveConsoleSessionId, '', False);
代码正在运行，以响应带有JwaWindows的Delphi7中的WTS_REMOTE_DISCONNECT消息。 此代码的目的是在关闭RDP会话后将用户会话切换回控制台，而无需此Windows显示登录屏幕，并且我的信息亭应用程序在本地屏幕上不可见。 WinStationConnectW返回的错误为Error_Access_Denied。
有人可以帮忙吗？