如何在 InnoSetup 脚本中检测我是否在终端服务器上安装？

Question

当程序安装在终端服务器上时，我的设置的行为应该略有不同。 我了解 GetSystemMetrics(SM_REMOTESESSION) 但据我所知，它只会告诉我是否在 RDP 会话中运行。 它不会捕获服务器管理员在本地登录以安装软件的情况，或者会吗？

检查终端服务器服务似乎也不可行，因为启用远程桌面后该服务也在工作站上运行。 我需要将其与允许多个并发登录会话的真正 TS 区分开来。

我没有检查任何其他服务或注册表项吗？

Answer 1

这正是您所需要的：

检测是否安装了终端服务

请注意，除此之外，您还可以使用 GetVersion() 的值来确定您是否正在运行 NT。 如果不是 NT 则退出。

// Are we running Windows NT?
DWORD dwVersion = GetVersion();
if (!(dwVersion & 0x80000000)) {
    // Is it Windows 2000 or greater?
    if (LOBYTE(LOWORD(dwVersion)) > 4) {
        // Check with VerSetConditionMask() and VerifyVersionInfo()
        return ..;
    }
    else  {
        // Windows NT 4.0 or earlier. Check ProductSuite value in
        // HKLM\\System\\CurrentControlSet\\Control\\ProductOptions
        return ..;
    }
}

return false;

链接显示的是如果版本是Win2k以上则需要查询的代码

Answer 2

感谢 Magnus Skog 提供的链接，我发现 InnoSetup 已经支持 GetWindowsVersionEx API 函数。 因此，我所要做的就是：

function IsRunningOnTS: Boolean;
var
  lWinVer: TWindowsVersion;
begin
  GetWindowsVersionEx(lWinVer);
  Result := (lWinVer.SuiteMask and VER_SUITE_TERMINAL) <> 0;
end;

我已经成功地针对以下场景进行了测试：

• 本地登录到启用了 RDP 的 XP 工作站（返回False）
• 通过 RDP 远程登录到终端服务器（返回 True）
• 通过 RDP 远程登录到工作站（返回 False）

我还没有机会在 TS 本地登录时进行测试。 当我有时会更新这篇文章。

Answer 3

我猜这个问题可能有很多答案，但所有这些答案似乎都有点令人不满意。

例如，可能的情况有哪些：

• 工作站，启用了 RDP（即启用了远程帮助的 XP）
• 服务器，启用了 RDP（通过检查操作系统类型可以轻松区分工作站）

但是，具有 RDP 的服务器又如何呢？选项已启用，但未使用？ 启用 RDP 选项的服务器怎么样，但管理员在控制台上安装您的软件，而一天中没有人通过 RDP 登录？ 您将无法确定服务器是否实际在使用（RDP 方式）。

给你一个具体答案的最好方法是问为什么你需要确定这个？ 如果您能够可靠地检测到这一点，您将启用或禁用哪种功能？