码头服务

Question

嗨，

我正在使用Delphi，我想制作一个可以执行以下操作的应用程序

从终端服务（远程桌面）中启动时，如果另一个用户登录到另一个终端服务会话，他们应该能够看到桌面托盘中正在运行的应用程序。 但是，如果坐在服务器上的用户登录，那么他们应该看不到桌面托盘中正在运行的应用程序。 如果每个人都可以看到它在进程列表中运行，而不仅仅是桌面托盘，则很好。

我怎样才能做到这一点？

Answer 1

使应用程序在每个用户启动时启动，然后使用此功能确定是否退出：

#include <windows.h>
#include <winternl.h>

BOOL IsRunningOnTerminalServerClient( void )
{
    PWINSTATIONQUERYINFORMATIONW WinStationQueryInformationW;
    WINSTATIONINFORMATIONW wsInfo;
    HINSTANCE hInstWinSta;
    ULONG ReturnLen;

    hInstWinSta = LoadLibraryA( "winsta.dll" );
    if( hInstWinSta )
    {
        WinStationQueryInformationW = (PWINSTATIONQUERYINFORMATIONW)
            GetProcAddress( hInstWinSta, "WinStationQueryInformationW" );
        if( WinStationQueryInformationW &&
                WinStationQueryInformationW( SERVERNAME_CURRENT, 
                    LOGONID_CURRENT, 
                    WinStationInformation,
                    &wsInfo, 
                    sizeof(wsInfo), 
                    &ReturnLen ) &&
                ( wsInfo.LogonId != 0 ) )
        {
            FreeLibrary( hInstWinSta );
            return( TRUE );
        }
        FreeLibrary( hInstWinSta );
    }
    return FALSE;
}

从http://msdn.microsoft.com/en-us/library/aa383827(v=VS.85).aspx中拉出

Answer 2

假设：您正在登录Windows Server-两个人不能同时在桌面操作系统上进行RDP。 我的经验是，您不应看到应用程序以可视方式运行-即在桌面上或在任务栏或任务栏图标区域上。

如果进入任务管理器并查看正在运行的进程-您可能会看到正在运行的进程。 另外，如果您是管理员，则可以“杀死”该过程，否则您将无法执行任何操作。

这有帮助吗？

请澄清您的要求。