如何在VB6的终端服务会话中检测是否？

Question

如何在VB6应用程序中检测当前会话是否为终端服务（远程桌面）会话？

Answer 1

使用SM_REMOTESESSION标志调用GetSystemMetrics函数将告诉您该应用程序是否在终端服务会话中运行。

要从VB 6调用它，您需要在模块中声明它，如下所示：

Const SM_REMOTESESSION As Long = &H1000
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

如果您在终端服务环境中运行，则返回值将为非零。

...但是您实际上应该只修复中心代码，而不要根据是否在终端服务会话中运行而尝试以不同的行为解决它。 这只会为您带来更多工作，并引入更多错误。 不幸的是，我不能告诉你什么地方错了，你正在使用没有看到它的中心代码。

Answer 2

我有同样的问题。 据我了解，您的表单将所需的内容放置在所需的位置（例如，在屏幕中央）。 您的应用程序可以在普通桌面上正常运行，但可以在终端环境中最大化。 如果是这样，我发现了一个小把戏。 在该表单上放置一个计时器，使其interval=1然后写入timer1_timer事件

Me.WindowState = 0
'then put the movement code like this
formname.Top = (Screen.Height / 2) - (formname.Height / 2) -400 '(400 for form title bar)
formname.Left = (Screen.Width / 2) - (formname.Width / 2)
timer1.interval=0
timer1.enabled=false

而已。 capanogli@hotmail.com