function RunProcessInSession(FileName: String; SessionId: DWord): Boolean;
var
 hToken, hNewToken: Cardinal;
 si: TStartupInfo;
 pi: TProcessInformation;
 error: integer;
begin

 Result := False;

 if (SessionId = 0) and IsVistaOrLonghorn then
 begin
   Exit;
 end;

 if not OpenProcessToken(GetCurrentProcess, TOKEN_QUERY or TOKEN_DUPLICATE, hToken) then
 begin
   WriteLog8('not OpenProcessToken');
   Exit;
 end;

 if not DuplicateTokenEx(hToken, MAXIMUM_ALLOWED, nil, SecurityIdentification,
   TokenPrimary, hNewToken) then
 begin
   WriteLog8('not DuplicateTokenEx');
   Exit;
 end;

 //in Windows 2000 Professional and Windows NT SessionId value in this function is not supported
 //TTokenInformationClass(12) - value from MSDN
 if not SetTokenInformation(hNewToken,
   TTokenInformationClass(12), @SessionId, SizeOf(Cardinal)) then
   Exit;

 try
   FillChar(si,SizeOf(si),0);
   with Si do begin
     cb := SizeOf(Si);
     dwFlags := startf_UseShowWindow;
     wShowWindow := SW_NORMAL;
     lpDesktop := PChar('winsta0\default');
   end;

   Result := CreateProcessAsUser(hNewToken, PChar(FileName), nil, nil, nil,
     false, CREATE_DEFAULT_ERROR_MODE, nil, nil, si, pi);

 finally
   CloseHandle(hToken);
   CloseHandle(hNewToken);
 end;
end;