Delphi Tokyo Service 仅在启动时创建进程

Question

我在 Delphi Tokyo 有一个 Windows 服务脚本。该服务在系统启动时启动并正确创建进程 x。启动一个计时器，它会循环检查进程是否启动，如果没有，它会尝试启动它，但会失败并返回错误代码 1008。

function TMyservice.CreaProcessoComeUtenteX(const FileName, Params: string;
  WindowState: Word): Boolean;
var
  SessionID: DWORD;
  UserToken: THandle;
  CmdLine: PChar;
  si: _STARTUPINFOW;
  pi: _PROCESS_INFORMATION;
  ExitCode: Cardinal;
begin
  SessionId:= WtsGetActiveConsoleSessionID;
  if SessionID = $FFFFFFFF then
  begin
    ADDLOG('Exit from CreaProcessoComeUtenteX '+IntToStr(SessionID));
    Result := false;
    Exit;
  end;
  if WTSQueryUserToken(SessionID, UserToken) then
  begin    
    CmdLine:= PWideChar(FileName+Params);
    ZeroMemory(@si, SizeOf(si));
    si.cb := SizeOf(si);
    SI.lpDesktop := PChar('winsta0\Default');
    SI.dwFlags := STARTF_USESHOWWINDOW;
    if WindowState = 1 then
      SI.wShowWindow := SW_SHOWNORMAL;
    if WindowState = 0 then
      SI.wShowWindow := SW_MINIMIZE;
    ZeroMemory(@pi, SizeOf(pi));
    try

      CreateProcessAsUser(UserToken, nil, CmdLine, nil, nil, False,
      0, nil, nil, si, pi);

      ADDLOG(' Create process Ok');
      result := true;
    except on E: Exception do
      begin
        // Log exception ...
        result := false;
        ADDLOG('Err proc: '+ E.Message);
      end;
    end;
    CloseHandle(UserToken);
  end else
  begin
    // Log GetLastError ...
    Result := false;
    ADDLOG('QToken: '+IntToStr(GetLastError));
  end;
end;

此代码模拟当前用户

function TInfBabeleDS.ConnectAs(const lpszUsername,
  lpszPassword: string): Boolean;
var
  hToken       : THandle;
begin
  Result := LogonUser(PChar(lpszUsername), nil, PChar(lpszPassword), LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, hToken);
  if Result then
    Result := ImpersonateLoggedOnUser(hToken)
  else
  RaiseLastOSError;
end;

Answer 1

错误代码 1008 是 ERROR_NO_TOKEN，这意味着在没有用户登录的会话 ID 上调用了 WTSQueryUserToken()。

WTSGetActiveConsoleSessionID() 并不总是最好使用的会话，尤其是在系统启动时，如果您的服务尝试在任何用户登录之前启动进程。附加到本地物理显示器/键盘/鼠标的会话 ID 不能保证在任何给定时间都有用户登录。

在这种情况下，请改用WTSEnumerateSessions() 来查找实际有用户登录的会话。

另外，您没有对CreateProcessAsUser() 进行任何错误处理。它不会像您的代码所期望的那样引发错误异常。你的try..except 没用。