Доступ запрещен в WinStationConnectW в Windows10
Я использую код, который хорошо работал на XP 32bit в течение многих лет, теперь ПК обновлен до Windows10 Home 32bit, и код больше не работает.
ProcessId := GetCurrentProcessId;
ProcessIdToSessionId(ProcessId,SessionId);
WinStationConnectW(SERVERNAME_CURRENT, SessionId,WTSGetActiveConsoleSessionId, '', False);
Код выполняется в ответ на сообщение WTS_REMOTE_DISCONNECT в Delphi7 с JwaWindows. Целью этого кода является переключение пользовательского сеанса обратно на консоль после закрытия сеанса RDP, без этого Windows отображает экран входа в систему, и мое приложение киоска не отображается на локальном экране. WinStationConnectW возвращает ошибку Error_Access_Denied.
Кто-нибудь может помочь?