/************************************************************************

Функция StartCalculator.
Открывает стандартный калькулятор (calc.exe) на рабочем столе
определенного пользователя. Предназначена только для запуска из службы (LocalSystem).
Возвращает TRUE в случае успеха и FALSE в случае ошибки.

*************************************************************************/

BOOL
_stdcall
StartCalculator()
{
    // Определяется Id активной пользовательской сессии.
    // Значение 0xFFFFFFFF означает что консольной сессии не существует.
    // Идентификатор сессии лучше всего получать в обработчике
    // событий службы, см. RegisterServiceCtrlHandler(Ex).
    // Там же можно определить консольная сессия или терминальная.
    // См. SERVICE_CONTROL_SESSIONCHANGE, WM_WTSSESSION_CHANGE,
    // WTSSESSION_NOTIFICATION, а также WTSQuerySessionInformation.

    DWORD IdSession = WTSGetActiveConsoleSessionId();

    if (IdSession == 0xFFFFFFFF)
    {
        return FALSE;
    }

    // Для того, чтобы действовать от имени пользователя, нужно
    // получить так называемый маркер безопасности, представляющий
    // этого пользователя в системе. Для этого существует функция
    // WTSQueryUserToken, она требует высоких привилегий, которые
    // обычно есть только у сервисов LocalSystem.

    HANDLE hUserToken;

    if (WTSQueryUserToken(IdSession, &hUserToken) == FALSE)
    {
        return FALSE;
    }

    // Перед созданием процесса в контексте пользователя необходимо
    // выполнить некоторые дополнительные действия.
    // Во-первых, нужно загрузить профиль пользователя - без этого
    // новому процессу будут недоступны данные, лежащие в папках
    // профиля и ключе реестра HKEY_CURRENT_USER.

    // Для загрузки профиля нужно знать имя пользователя.
    // Узнать его можно с помощью функции WTSQuerySessionInformation с
    // ключом WTSUserName, но дело в том, что при эта функция зависит
    // от службы терминалов, и если та еще не успела загрузиться (а такое
    // бывает нередко при включении компьютера и быстром входе в систему),
    // вызов WTSQuerySessionInformation вернет ошибку.
    // Это имеет значение, когда запуск интерактивного процесса должен
    // выполняться сразу же после входа пользователя.

    // Мы поступим по-другому - временно переключимся в контекст
    // безопасности пользователя и оттуда вызовем GetUserName.
    // Замечу, что без подмены маркера безопасности вызов GetUserName
    // будет возвращать имя SYSTEM (это распостраненная ошибка при попытке
    // получить имя пользователя из службы).

    // В MSDN сказано, что максимальная длина имени пользователя - 20 символов.
    // Добавим еще один для нулевого завершающего символа.
    
    wchar_t pUserName[21];
    DWORD cchUserNameBuffer = 21;    

    // Теперь данный поток временно будет действовать от имени пользователя.
    // Нужно учитывать, что при этом заимствуется также его контекст безопасности.
    // То есть, доступ к критическим системным объектам будет ограничен.
    
    if (ImpersonateLoggedOnUser(hUserToken) == FALSE)
    {
        CloseHandle(hUserToken);
        return FALSE;
    }

    if (GetUserNameW(pUserName, &cchUserNameBuffer) == FALSE)
    {
        RevertToSelf();
        CloseHandle(hUserToken);
        return FALSE;
    }

    // Возвращаем системный контекст "на место".
    
    RevertToSelf();

    // Заполняем нужные структуры и загружаем профиль пользователя.
    
    PROFILEINFOW prof;
    ZeroMemory(&prof, sizeof (prof));
    prof.dwSize     = sizeof (prof);
    prof.lpUserName = pUserName;
    prof.dwFlags    = PI_NOUI;

    if (LoadUserProfileW(hUserToken, &prof) == FALSE)
    {
        CloseHandle(hUserToken);
        return FALSE;
    }

    // Последнее приготовление - нужно подготовить переменные окружения.
    // Подробнее можно почитать в MSDN-справке к функции CreateProcessAsUser.

    void *pEnvBlock;

    if (CreateEnvironmentBlock(&pEnvBlock, hUserToken, FALSE) == FALSE)
    {
        UnloadUserProfile(hUserToken, prof.hProfile);
        CloseHandle(hUserToken);
        return FALSE;
    }

    // Создание процесса почти ничем не отличается от стандартного способа с
    // CreateProcess, только нужно указать маркер безопасности, от имени
    // которого этот процесс будет создан.

    STARTUPINFOW si;
    GetStartupInfoW(&si);
    si.dwFlags = STARTF_USESHOWWINDOW;
    si.wShowWindow = SW_SHOWNORMAL;
    si.lpDesktop = L"WinSta0\\Default";
    wchar_t pCmdLine[] = {L"calc.exe"};
    PROCESS_INFORMATION pi;

    if (CreateProcessAsUserW(hUserToken,
        NULL,
        pCmdLine,
        NULL,
        NULL,
        FALSE,
        NORMAL_PRIORITY_CLASS | CREATE_UNICODE_ENVIRONMENT,
        pEnvBlock,
        NULL,
        &si,
        &pi) == FALSE)
    {
        DestroyEnvironmentBlock(pEnvBlock);
        UnloadUserProfile(hUserToken, prof.hProfile);
        CloseHandle(hUserToken);
        return FALSE;
    }

    CloseHandle(pi.hProcess);
    CloseHandle(pi.hThread);    
    DestroyEnvironmentBlock(pEnvBlock);

    // Эта функция должна вызываться при завершении созданного процесса.
    // UnloadUserProfile(hUserToken, prof.hProfile);

    CloseHandle(hUserToken);

    // Собственно, все !
    return TRUE;
}