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 xe10 针对全面屏手机端无法全面显示，下方显示黑条的处理

Delphi中获取guid的函数

Delphi二值图像腐蚀算法

Delphi 获取百度ai 获取token

Delphi winapi: shellexecute - 打开外部程序或文件

Delphi 拦截tab按键消息

Delphi 日期相关总结20190702完结篇

Delphi 为当前窗口客户区捉图: getformimage

Delphi 切换开关 toggleswitch1

Delphi实现电脑桌面壁纸更换

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

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