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 通过递归来实现搜索文件

Delphi中获取客户区坐标

Delphi的串口通讯，数据接收实时性太差

Delphi debug和release区别

Delphi ini文件操作 tinifile、tmeminifile

Delphi读取网页源文件和获取字符串

Delphi2010中字符串汇编需要注意的一点，以及支持2010的aes加密库

Delphi实现md5算法

Delphi 获取文件的最新修改时间

Delphi 简单的封装messagebox对话框

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

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