| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как узнать имя (логин) текущего пользователя windows? [D5, D6, Win95/98, WinME, NT4, Win2k, WinXP]

commm ©   (2002-04-05 17:40:00) 

напомните, где в реестере лежит login (имя) пользователя, который сейчас зашел в windows... заранее благодарю ;)

---

commm   (2002-04-06 15:09:00) [1]

thanx!
выручили прямо ;)

---

Anatoly Podgoretsky   (2002-04-06 13:59:00) [2]

commm (06.04.02 13:53)
Если ты про Synochka (06.04.02 13:03), то не помешает добавить
S := PChar(S);

---

commm   (2002-04-06 13:53:00) [3]

ну смотрите:

...
SHOWMESSAGE(S);
...

и что он выдает - сообщение, которое не вмещается на экран!!! ;)

НАРОД, кто помнит, где в реестере-то это имя лежит...
я нашел в своем XP, но не уверен: ПОСМОТРИТЕ у себя, plz, КТО НА 98-ом РАБОТАЕТ:

HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Logon User Name

---

Synochka   (2002-04-06 13:03:00) [4]


Var
S : String ;
Len : Cardinal ;

BEGIN
SetLength ( S , 255 ) ;
Len := Length ( S ) ;
GetUserName ( @S [ 1 ] , Len ) ;
END ;


---

Anatoly Podgoretsky   (2002-04-06 10:55:00) [5]

Вася Пупкин © (06.04.02 10:46)
Ты прав, я ошибся :-(

---

Вася Пупкин   (2002-04-06 10:46:00) [6]

Anatoly Podgoretsky © (06.04.02 10:37) Неправда, дяденька :)

---

Anatoly Podgoretsky   (2002-04-06 10:37:00) [7]

n := GetUserName(ch,0) вернет размер

---

Pat   (2002-04-06 10:25:00) [8]

Ничего обрезать не надо...наверно...

var ch:array [0..255] of char;
d:dword;
begin
d:=sizeof(ch);
GetUserName(ch,d);
end;


---

commm   (2002-04-06 10:12:00) [9]

я читал в архиве форума - но там получается в переменно 255 символов... тогда как обрезать лишние пробелы???

---

Виктор Щербаков   (2002-04-05 17:46:00) [10]

GetUserName

---

Наверх