怎样得到进程的Tocken??

1. 怎样得到进程的Tocken?
2. Tocken 的结构是如何定义的？
3. 怎么判断是远程主机调用？
急用，清高手指点，一定给分

请高手大哥们给出Token的结构，最好能解释一下，小弟感激不尽，我急用，就等各位大哥救命啊！！！！！

很简单，照着下面做，下面是获得当前进程Token并修改的一个过程。

procedure GetSeShoutdown(Sender: TObject);
var
  hToken       : THandle;
  tkp          : TTokenPrivileges;
  tkpo         : TTokenPrivileges;
  zero         : DWORD;

begin

OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
LookupPrivilegeValue( nil, {\'SeShutdownPrivilege\' }SE_DEBUG_NAME, tkp.Privileges[ 0 ].Luid );

tkp.PrivilegeCount := 1;
tkp.Privileges[ 0 ].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges( hToken, False, tkp, SizeOf( TTokenPrivileges ), tkpo, zero );

end;

大大，能说明白一点吗？thanks

reference osr.

取得SID再取得相应信息。