Текущий архив: 2002.04.18;
Скачать: CL | DM;

Вниз

как узнать имя (логин) текущего пользователя windows?   Найти похожие ветки 

← →
commm   (2002-04-05 17:40) [0]

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

---

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

GetUserName

---

← →
commm   (2002-04-06 10:12) [2]

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

---

← →
Pat   (2002-04-06 10:25) [3]

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

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


---

← →
Anatoly Podgoretsky   (2002-04-06 10:37) [4]

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

---

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

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

---

← →
Anatoly Podgoretsky   (2002-04-06 10:55) [6]

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

---

← →
Synochka   (2002-04-06 13:03) [7]


Var
S : String ;
Len : Cardinal ;

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


---

← →
commm   (2002-04-06 13:53) [8]

ну смотрите:

...
SHOWMESSAGE(S);
...

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

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

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

---

← →
Anatoly Podgoretsky   (2002-04-06 13:59) [9]

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

---

← →
commm   (2002-04-06 15:09) [10]

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

---

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

Текущий архив: 2002.04.18;
Скачать: CL | DM;

Наверх

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