获取任务管理器中的用户信息

[refirezxbi]

急求:用Delphi怎么去获取那个任务管理器中的用户信息?

因为我一台主机有好多用户TS(远程桌面连接)进来,我要取得这些连进来的用户名,也就是上面那个任务管理器中的用户,当然不光是用户名，还有后面的什么状态、客户端名、会话都要.

[iqyely]

来学习下

[奔雷手]

哇靠，这么 高端，学习，期待

[gyk120]

获得当前用户名
全部的我就不是很清楚了，可能会涉及到WMI

[kye_jufei]

用CreateToolhelp32Snapshot;

unit Unit1;
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, TLHelp32,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

type
TProcessInfo = Record
ExeFile : String;
ProcessID : DWORD;
end;
pProcessInfo = ^TProcessInfo;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var p : pProcessInfo;
ContinueLoop:BOOL;
var
FSnapshotHandle:THandle;
FProcessEntry32:TProcessEntry32;
begin

FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);
ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);
while integer(ContinueLoop)......

[kye_jufei]

不過建議還是最好使用MS未公開的函數NtQuerySystemInformation（自己動手寫任務管理器)...

NtQuerySystemInformation 是 Windows 系统的内部函数，由它可以得到许多种类的系统
信息。这个函数在 Windows 的未来版本中可能会有改变或被替代。
微软在自己的网站上贴出的函数原型如下：
NTSTATUS NtQuerySystemInformation(
  SYSTEM_INFORMATION_CLASS SystemInformationClass,
                          PVOID SystemInformation,
                    ULONG SystemInformationLength,
                              PULONG ReturnLength);
翻译成 Delphi 语法大概是这样吧：
function NtQuerySystemInformation(
           SystemInformationClass:DWord;  // 这个参数最终根据需要取得的信息而变
              SystemInformation:Pointer;  // 这个参数指向接收取来的信息的缓存结构
          SystemInformationLength:DWord;  // 这个参数指出上面这个缓存结构的大小
      ReturnLength:DWord):DWord;stdcall;  // 这个参数指出实际返回的数据的大小
于是可以在 Delphi 程序中使用下面的语法调用这个函数：
function NtQuerySystemInformation; external 'NTdll.dll' name 'NtQuerySystemInformation';
这个函数的参数变化实在太多，对每个参数都一一作类型声明的话，会很累的，还不如在想用它的时候，
直接用合适的值代进去拉倒。
在这个 DLL 中，获取相关的信息的函数还有很多，可以使用 PE View 工具看它的 Export 段，比如：
NtQueryInformationProcess
NtQueryInformationThread
等等。这些函数可以在 Windows NT中使用...... 

[天火]

友情帮顶。

[refirezxbi]

有没有比较完整的例子？

[JPEXE]

去 MSDN 查 WTSEnumerateProcesses 函数，用它来枚举进程，可得到进程的 UserSid，再用 LookupAccountSid 可查到进程的用户名。