Сообщество Чайников

Вопрос

Как запустить процесс с правами другого пользователя?

Ответ

procedure TForm1.Button1Click(Sender: TObject);
var
   si: STARTUPINFOW;
   pif: PROCESS_INFORMATION;
   res: Bool;
   s: string;
begin
   //инициализация StartUpInfoW
   si.cb := SizeOf(startupinfow);
   si.dwFlags := STARTF_USESHOWWINDOW;
   si.wShowWindow := SW_SHOWDEFAULT;
   si.lpReserved := nil;
   si.lpDesktop := nil;
   si.lpTitle := 'Консоль';

// запуск CreateProcessWithLogonW…
:= CreateProcessWithLogonW('Security', 'ArViCor', 'test', LOGON_WITH_PROFILE,
  'c:\win2kas\system32\regedt32.exe', nil
 , CREATE_DEFAULT_ERROR_MODE, nil, nil, si, pif);
   if booltostr(res) = '0' then
   begin
//если возникла ошибка, то покажем ее код
//этот код можно 'перевести' с помощью 'net helpmsg <код ошибки>'
//в командной строке
  str(GetLastError, s);
ShowMessage('CreateProcessWithLogonResult: ' + booltostr(res) + #10 +
   'GetLastError: ' + s);
   end;
end;

Кирилл Краснов