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 idhttp post json

橙子作品 bds/cds 下的 web deploy 工具

Delphi xe 使用asqlite操作sqlite数据库乱码

Delphi用邻域平均法对图像进行平滑处理

Delphi 辨析 field、fielddef、fields、fielddefs、fieldlist、fielddeflist

delph 自带url编码函数 tnetencoding

Delphi中始终用webbrowser打开网页

Delphi从memo去重数据

Delphi touchkeyboard1 基本用法

Delphi windows 编程[21] - wm_menuselect 消息与 getmenustring 函数

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

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