В коде компонента после строчки si.cb:=sizeof(si); добавить строки
Подобного результата можно добиться с помощью WinExec.doShellExec при WinExec.Action=RunAsUser. Только будет выдавать системный диалог для входа пользователя.

Вероятно, для полноты картины принцип этого кода можно добавить в WinExec. Например, создать метод doRunAsUser и добавить точки-свойства для логина-пароля.

Редактировалось 2 раз(а), последний 2022-01-20 23:03:54

Netspirit, спасибо, добрый человек, работает!

Всеми руками за! Если не сильно затруднит, прошу добавить фичу в компонент и выложить в репозиторий.

Netspirit не имеет доступа к SVN, к сожалению. Пусть выкладывает правки, я добавлю.

WinExec с добавленным методом doRunAsUser и свойствами/точками UserName/Password.
Не знаю стоит ли делать аналог и doConsoleExec. Можно сделать, когда понадобится.

Есть пример. Проверьте выдаёт ли код ошибки при неправильных входящих данных. На Windows XP в этом месте странное поведение - GetLastError() в процедуре THIWinExec._work_doRunAsUser при ошибке выдаёт код 0, тогда как _debug(GetLastError) внутри THIWinExec.RunProcessAsUser сразу после CreateProcessWithLogonW() покажет нормальный код.

Таак, мне проверить вряд ли удастся. У меня UAC начисто выключен. Так что, тестируйте, после добавлю.

На Windows 10 не удалось запустить блокнот ни при каком раскладе. Всегда код ошибки 0.
Пробовал от имени локального и доменного пользователей:
locuser
localhost\locuser
domuser
domen\domuser
На Семёрке работает лишь в случае указания полного пути к исполняемому файлу (или, если путь имеется в переменной PATH) и только с именем пользователя, без указания домена.
Например от имени User блокнот запускается, а от имени localhost\User - ошибка 0.
Far без проблем запустился с указанием такого пути: c:\Program Files\Far Manager\Far.exe
без кавычек, не смотря на пробелы в пути.

Редактировалось 1 раз(а), последний 2022-01-25 08:02:45

Домен указывать не нужно. У пользователя должен быть задан пароль.
Это всегда так. Файл ищется либо в текущем каталоге (указать WorkingDir, либо смотреть какой подставляется новому процессу по умолчанию), либо в PATH (причем того пользователя, от имени которого запускается).

Не должно влиять.

Редактировалось 1 раз(а), последний 2022-01-25 15:25:13

Вот именно, у меня нет пароля. Я вхожу в систему без экрана входа. Как я смогу проверить компонент не имея пароля? И как-нибудь тут без меня потестируйте, я сейчас над другим пока работаю, не хочу отвлекаться.

Пароль должен быть у пользователя, от которого запускаем. То есть, создать в системе пользователя с паролем, желательно зайти под ним и выйти, а затем под собой запустить от его имени (схема примера приложена). Если тебе неудобно - пусть другие протестируют.

Поправлена выдача кода ошибки.

Last error сбрасывался при выходе из процедуры, когда автоматически освобождались созданные WideString с помощью API-функции.

Редактировалось 2 раз(а), последний 2022-01-26 10:01:42

Спасибо, работает, и на десятке тоже.
Правда только от имени локальных учёток.

Так и предполагалось. А какие ещё бывают и как это протестировать? Нужно наличие свойства Domain или возможность указывать домен в имени пользователя?

Да, есть еще доменные учётки (не локальные) типа я зарегистрирован в ActivDirectory как sansey73 и комп принадлежит домену mycorp.
Тогда в комп можно зайти под именем mycorp\sansey73

Именно так.

sansey73, попробуй этот вариант. Имя пользователя домена указывать в формате пользователь@домен . Для локальных пользователей - просто логин.

Доменный пользователь тоже работает!