delphi GetSessionUserName通过会话ID得到会话名称

本文整理自网络，侵删。

 
//通过会话ID得到会话名称
procedure GetSessionUserName(dwSessionId: dword; var UserName: string);
var
  bRes: boolean;
  dwBufferLen: dword;
  Ptr: LPTSTR;
begin
  bRes := WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE, dwSessionId, WTSUserName, Ptr, dwBufferLen);
  if bRes = false then
  begin
       UserName := '';
        exit;
  end;
  UserName := PWideChar(Ptr);
end;



GetSessionUserName(SessionId,UserName);

 showmessage(UserName);
 

相关阅读 >>

Delphi 调用exitwindows 关闭系统

Delphi 删除任意文件的任意位置的任意数量的字符

Delphi unigui中如何监听session的开始与结束

Delphi 将base64字符串转化为jpeg图片

Delphi xe中 exit 的新用法

Delphi clipboard 截图后将图片数据复制到剪贴板

Delphi 简单判断图片类型

Delphi xe android platform uses-permission[2] androidmanifest.xml 配置

Delphi 2009 之 tcategorypanelgroup[3]: color

Delphi中关于字符串的操作

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi GetSessionUserName通过会话ID得到会话名称