ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как получить имя юзера
9 сообщений из 9, страница 1 из 1
Как получить имя юзера
    #32132429
Andrei_A
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrei_A
Участник
Как получить имя юзера, залогиненого в виндах (ХР)????
...
Рейтинг: 0 / 0
03.04.2003, 10:54
| Ответить | Цитировать | Написать  
Как получить имя юзера
    #32132434
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
F1 находится вверху слева (правее Esc).
...
Рейтинг: 0 / 0
03.04.2003, 10:59
| Ответить | Цитировать | Написать  
Как получить имя юзера
    #32132440
Andrei_A
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrei_A
Участник
To ENose
Я так понимаю не зря более 50% твоих сообщений в форуме просто треп!
...
Рейтинг: 0 / 0
03.04.2003, 11:02
| Ответить | Цитировать | Написать  
Как получить имя юзера
    #32132447
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
Это надо понимать так:
Прежде чем задать вопрос другим, неплохо попытаться поискать ответ самому.
...
Рейтинг: 0 / 0
03.04.2003, 11:07
| Ответить | Цитировать | Написать  
Как получить имя юзера
    #32132459
pkarklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pkarklin
Участник
Поддерживаю eNose про добычу знаний.

Код из Delphi4:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
function CurrentUserName: string;
var
  lpBuffer: PChar;
  nSize: longword;
begin
  lpBuffer := StrAlloc(MAX_USERNAME_LENGTH +  1 );
  nSize := MAX_USERNAME_LENGTH +  1 ;
  try
    GetUserName(lpBuffer, nSize);
    Result := AnsiUpperCase(String(lpBuffer));
  finally
    StrDispose(lpBuffer);
  end;
end;


Может и по другому можно.
...
Рейтинг: 0 / 0
03.04.2003, 11:12
| Ответить | Цитировать | Написать  
Как получить имя юзера
    #32132461
Andrei_A
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrei_A
Участник
Я и ответил то, что следует понимать так:
Я поискал, не нашел. Можешь помоги, нет - не флуди трафик.
...
Рейтинг: 0 / 0
03.04.2003, 11:12
| Ответить | Цитировать | Написать  
Как получить имя юзера
    #32132467
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
Не нашел GetUserName в Win32 Developer`s reference (стандартный хелр делфей по винде)?

P.S. Надо что-то менять в консерватории...
...
Рейтинг: 0 / 0
03.04.2003, 11:17
| Ответить | Цитировать | Написать  
Как получить имя юзера
    #32132468
Andrei_A
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrei_A
Участник
-> pkarklin - большое спасибо.

Все равно определенный процент вопросов для вас будет казаться абсолютно тупыми, но все же когда-то начинают, дык наверно не стоит сильно огрызаться
...
Рейтинг: 0 / 0
03.04.2003, 11:18
| Ответить | Цитировать | Написать  
Как получить имя юзера
    #32132495
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
Знаешь сколько раз особо одаренные уже задали этот вопрос на этом форуме?
один раз можно ответить, даже если в хелпе есть.. но на моей памяти тут уж раз 5 спросили, а я тут не так давно!!! Не пробовал никогда пользоваться кнопочкой найти на этом форуме? я думаю ответ и причем расширенный и в нескольких вариантах сразу же получил бы!

сорри за возможную резкость.

PS а по поводу eNose, не говорил бы я на твоем месте так... ответы, когда он дает, весьма интересны.
...
Рейтинг: 0 / 0
03.04.2003, 11:40
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как получить имя юзера
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]