Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Запуск процесса в контексте другого пользователя

01.01.2007
uses
 
JwaWinBase; ( http://members.chello.nl/m.vanbrakel2/ )
 
//...
 
procedure TForm1
.Button1Click(Sender: TObject);
var
  si
: STARTUPINFOW;
  pif
: PROCESS_INFORMATION;
  res
: Bool;
  s
: string;
begin
 
//set StartUpInfoW first
  si
.cb := SizeOf(startupinfow);
  si
.dwFlags  := STARTF_USESHOWWINDOW;
  si
.wShowWindow := SW_SHOWDEFAULT;
  si
.lpReserved := nil;
  si
.lpDesktop := nil;
  si
.lpTitle := 'Konsole';
 
// run CreateProcessWithLogonW...
  res
:= 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
 
   
//if an error occures, show the error-code
   
//this code can be 'translated' with 'net helpmsg ' on command-prompt
    str
(GetLastError, s);
   
ShowMessage('CreateProcessWithLogonResult: ' + booltostr(res) + #10 +
     
'GetLastError: ' + s);
 
end;
end;

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php