windows-10 - 在 Windows10 上的 WinStationConnectW 中访问被拒绝

Question

多年来我一直在使用在 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。

任何人都可以帮忙吗？