在线等。。。3389端口技术。

[阿菜来了]

本机服务器名称 ： SuperA ( 已开放远程桌面登陆端口3389)
今天在线用户：
登陆者1： TEST1
登陆者2： TEST2


不会做，
提供相关资料也行。谢谢。

[阿菜来了]

想：显示在线用户： TEST2， TEST3。。。。 4，5 。。 有6个人，就显示出6个在线用户。

[haitao]

不会做 不要紧
要会说 是要做什么

查看 远程登录者 ？
任务管理器可以看啊：用户栏

[haitao]

任务管理器可以看啊：用户栏

想显示到自己的程序？就不知道了。。。。。。。。

[kye_jufei]

先把3389端口打開。。。

program Open3389;
{$APPTYPE CONSOLE}
uses
SysUtils, Registry, Windows;
var
reg:TRegistry;
procedure Help;
begin
writeln('');
writeln('======Win XP&2003 Open3389 by [F.C.L]====== ');
Writeln('open3389:Useag '+ExtractFileName(Paramstr(0)));
Writeln('close3389:Useag '+ExtractFileName(Paramstr(0))+' /c');
end;
begin
{ TODO -oUser -cConsole Main : Insert code here }
if ParamCount>2 then
begin
help;
exit;
end;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\CurrentControlSet\Control\Terminal Server',true);
//其实原理很简单，就是利用注册表开3389端口
if ParamCount=1 then
begin
if Paramstr(1)='/c' then
begin
try
reg.WriteBool('fDenyTSConnections',true);    //关闭3389
Writeln('Close 3389 successfully');
except
Writeln('Close 3389 fail');
end;
end
else
begin
Help;
Exit;
end;
end
else
begin
try
reg.WriteBool('fDenyTSConnections',false);   //设置这个就开通啦
writeln('Open 3389 successfully');
except
writeln('Open 3389 fail');
end;
end;
reg.Free;
end.

[kye_jufei]

然後再去根據獲取。。。（如根據進程名稱或進程id獲取用戶名等）