Run As

@vlasov-vu · Регистрация: 04.01.2013

Author24 — интернет-сервис помощи студентам

Как запустить приложение из делфи от имени другого пользователя, т.е. входные параметры:

Delphi

Prog_run: string; // путь до проги
Username: string; // имя пользователя
Password: string; //пароль (обязятельно)
Domain: string; //Домен

запуск из cmd при помощи команды runas не предлагать, т.к. редко но пароль сбрасывается и приходиться заново его вводить.
Желательно реализовать это все программно, т.е. чтобы имя пользователя и пароль хранились в программном коде (все перечисленные выше параметры будут константами)

Добавлено через 22 минуты
Нашел вот такой вариант:

Delphi

function CreateProcessWithLogonW(user:pwidechar; domain:pwidechar; 
passw:pwidechar; flags: DWORD; lpApplicationName: PwideChar; lpCommandLine: PwideChar; 
  dwCreationFlags: DWORD; lpEnvironment: Pointer; 
  lpCurrentDirectory: PWideChar; const lpStartupInfo: TStartupInfo; 
  var lpProcessInformation: TProcessInformation): BOOL; stdcall;
 {---- 
 external 'advapi32.dll' name 'CreateProcessWithLogonW'; 
 ---}
 
{$R *.dfm} 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
    si: TSTARTUPINFO; 
    pif: PROCESS_INFORMATION; 
begin 
  si.cb := SizeOf(tstartupinfo); 
   si.dwFlags  := STARTF_USESHOWWINDOW; 
   si.wShowWindow := SW_SHOWDEFAULT; 
   si.lpReserved := nil; 
   si.lpDesktop := nil; 
   si.lpTitle := nil; 
 
  CreateProcessWithLogonW('test', nil, 'password', 0, 
     nil, 'notepad.exe',0, nil, nil, si, pif); 
end;

на вылетает ошибка на строчке выделенной {--- ...... ---}.
ОС windows7, Delphi XE3

Добавлено через 33 минуты

перепробывал кучу вариантов, но все они обнообразные и используют advapi32.dll, в windows/system32 данная dll присутствует, но delphi выдает ошибку

@volvo · 05.11.2013, 12:04

Что-то у тебя с Дельфи пошло не так, проверил твой код буква в букву (только со своими user/pass), запускает Блокнот (Win7 + XE2/XE4). Хотя я бы еще обнулил структуры перед заполнением...

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	05.11.2013, 12:04	2
	Что-то у тебя с Дельфи пошло не так, проверил твой код буква в букву (только со своими user/pass), запускает Блокнот (Win7 + XE2/XE4). Хотя я бы еще обнулил структуры перед заполнением... 0