Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

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

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

Доброго времени суток! Нужно программно получить имя сеанса 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;

---

← →
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 не поможет ?

---

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

WTSQuerySessionInformation не поможет ?

---

← →
ASvencim ©   (2004-04-20 00:20) [3]

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

---

← →
ASvencim ©   (2004-04-20 00:20) [3]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.039 c