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