1

我有一个使用 Delphi 7 创建的 Windows 服务，StartType = stSystem。

现在我需要启动一个应用程序来为我做一些事情。此应用程序具有 MainForm 和其他 GDI 资源。传递给应用程序的参数为某些控件（如编辑和备忘录）分配值，然后单击按钮......

我正在尝试这个：

var
  token: cardinal;
  si: TStartupInfo;
  pi: TProcessInformation;
begin
  if not LogonUser('admintest', '', 'secret123', LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, token) then
    RaiseLastOSError;

  try
    if not ImpersonateLoggedOnUser(token) then
      RaiseLastOSError;

    fillchar(si, sizeof(si), 0);
    si.cb := sizeof(si);
    si.lpDesktop := PChar('winsta0\default');
    if not CreateProcessAsUser(token, nil, '"c:\...\myapp.exe" -doCrazyThings', nil, nil, false, NORMAL_PRIORITY_CLASS or CREATE_NEW_CONSOLE, nil, nil, si, pi) then
      RaiseLastOSError;

    CloseHandle(pi.hThread);
    waitForSingleObject(pi.hProcess, INFINITE);
    CloseHandle(pi.hProcess);
  finally
    CLoseHandle(token);
  end;
end;

当我将我的服务可执行文件作为普通应用程序 (-noservice) 运行时，它作为 Forms.Application 启动并创建一个带有“开始”按钮的 MainForm。 *该按钮运行的代码与服务运行的代码相同，但它不起作用，并且在 createprocessasuser 处引发错误代码 1314。*

为什么？SYSTEM服务与管理员启动的普通应用程序有什么区别？

我的环境是 Windows 7 Pro x64

我究竟做错了什么？我该如何解决这个问题？有人可以发布一个例子吗？

4

4 回答 4

3

错误 1314 是ERROR_PRIVILEGE_NOT_HELD，这意味着您的调用线程缺少运行所需的权限CreateProcessAsUser()。您不需要也不应该冒充用户令牌来在用户桌面上启动新进程。在调用CreateProcessAsUser(). 它将确保新进程在您的用户帐户和桌面内运行，因此摆脱对的调用ImpersonateLoggedOnUser()并查看是否CreateProcessAsUser()开始工作。

更新：阅读文档：

通常，调用 CreateProcessAsUser 函数的进程必须具有 SE_INCREASE_QUOTA_NAME 权限，并且如果令牌不可分配，则可能需要 SE_ASSIGNPRIMARYTOKEN_NAME 权限。如果此函数因 ERROR_PRIVILEGE_NOT_HELD (1314) 而失败，请改用 CreateProcessWithLogonW 函数。CreateProcessWithLogonW 不需要特殊权限，但必须允许指定的用户帐户以交互方式登录。通常，最好使用 CreateProcessWithLogonW 创建具有备用凭据的进程。

于 2012-10-30T18:56:38.163 回答
1

在 Vista 和更高版本上，Windows 服务在会话 0 中运行。交互式用户存在于会话 1 和更高版本中。这意味着 Windows 服务无法显示用户界面，并且确实无法在交互式会话中轻松启动进程。

现在，有一些方法可以从服务启动交互式进程。如果您对从您的服务启动交互式流程一无所知，那么该文章会告诉您所有您需要知道的信息。但是这样的技术非常棘手，绝对不推荐。建议您找到一种不同的方式在您的服务和交互式桌面之间进行通信。

正常的方法是运行一个标准的桌面应用程序，可能是使用HKLM\Software\Microsoft\Windows\CurrentVersion\Run. 并使用某种形式的 IPC 在桌面应用程序和服务之间进行通信。

于 2012-10-30T18:46:23.983 回答
1

您应该创建服务来完成后台工作，并且 GUI 应用程序应该只调用该服务。IE 你总是有一个服务在运行。

考虑在后端使用 DataSnap 的东西。MVC 方法在 Delphi 中并不像在其他一些语言中那样纯粹。控制器去任何方便的地方。数据集主要是一种折衷方案，唯一真正快速的数据处理方法是使用 DBexpress 和客户端上的一些组件来保持一切顺利。但它有效，值得学习。

服务不能有 gui 控件。不允许 TForm 后代。仅限 TService。Delphi Projects / Service Application 下的新项目。您将获得一个具有与数据模块几乎相同的单元/表单的项目。即，不允许视觉控制。原因很明显。您需要学习记录、对象设计等才能使用服务。Datasnap 是您最好的选择。它为您完成了大部分艰苦的工作。

Bob 博士有一本关于 XE2/3 的很好的书。如果您是面向对象设计的新手，您需要先彻底了解这一点。

于 2012-10-30T20:00:38.827 回答
0

这是我用来做这种事情的代码

procedure CreateNewProcess;
var
  CmdLine: AnsiString;
  ErrorCode: Cardinal;
  ConnSessID: Cardinal;
  Token: Cardinal;
  App: AnsiString;
  FProcessInfo: _PROCESS_INFORMATION;
  FStartupInfo: _STARTUPINFOA;
begin
  ZeroMemory(@FStartupInfo, SizeOf(FStartupInfo));
  FStartupInfo.cb := SizeOf(FStartupInfo);
  FStartupInfo.lpDesktop := nil;

  ConnSessID := WTSGetActiveConsoleSessionId;

  if WTSQueryUserToken(ConnSessID, Token) then
  begin
    if CreateProcessAsUser(Token, PAnsiChar(App), PAnsiChar(CmdLine),
      nil, nil, false, 0, nil, nil, FStartupInfo, FProcessInfo) = False
    then
    begin
      ErrorCode := GetLastError;
      try
        RaiseLastOSError(ErrorCode);
      except on E: Exception do
        EventLog.LogError(e.ClassName +': '+ e.Message);
      end;
    end;
  end;
end;

希望这可以帮助

如果您希望服务在继续添加之前等待新进程终止

    if CreateProcessAsUser(Token, PAnsiChar(App), PAnsiChar(CmdLine),
      nil, nil, false, 0, nil, nil, FStartupInfo, FProcessInfo) = False
    then
    begin
      ErrorCode := GetLastError;
      try
        RaiseLastOSError(ErrorCode);
      except on E: Exception do
        EventLog.LogError(e.ClassName +': '+ e.Message);
      end;
    end
    else
      WaitForSingleObject(FProcessInfo.hProcess, INFINITE);

尽管无限等待可能是不可取的。

于 2012-10-31T14:13:47.450 回答