Как программно узнать имя сеанса Windows?

← →
ASvencim © (2004-04-19 23:58) [0]

Доброго времени суток! Нужно программно получить имя сеанса Windows (В меню "Пуск" наверху написано, если кто не понял).

← →
Yong © (2004-04-20 00:05) [1]

Там, наверху имя текущего юзера написано. Получить можно так:

function MyGetUserName : string;
var Size : cardinal;
PRes : PChar;
BRes : boolean;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
PRes := StrAlloc(Size);
BRes := GetUserName(PRes, Size);
if BRes then result := StrPas(PRes) else result := "default";
end;

← →
Игорь Шевченко © (2004-04-20 00:06) [2]

WTSQuerySessionInformation не поможет ?

Спасибо, помогли

Как программно узнать имя сеанса Windows? Найти похожие ветки