Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.12.2006, 21:31   #1
Albenous
Helper
Форумчанин
 
Аватар для Albenous
 
Регистрация: 10.12.2006
Сообщений: 109
По умолчанию Имя пользователя

Люди, как можно программно выявить имя активного пользователя (Win XP)?
Глупых вопросов не бывает - бывают глупые ответы.
Albenous вне форума Ответить с цитированием
Старый 21.12.2006, 01:33   #2
Баламут
Баламучу слегка...
Участник клуба
 
Аватар для Баламут
 
Регистрация: 01.11.2006
Сообщений: 1,585
По умолчанию

Так, напрмер:

procedure TForm1.Button1Click(Sender: TObject);
var
buf: string;
BufSize: dword;
begin
BufSize := 255;
SetLength(buf, BufSize);
GetUserName(PChar(Buf), BufSize);
Edit1.Text := Copy(Buf,1, BufSize - 1);
end;
Баламут вне форума Ответить с цитированием
Старый 21.12.2006, 20:08   #3
rpy3uH
добрый няша
Старожил
 
Аватар для rpy3uH
 
Регистрация: 29.10.2006
Сообщений: 4,804
По умолчанию

или вот так
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  str:array[0..255] of char;
  n:DWORD;
begin
  n:=256;
  GetUserName(@str,n);
  ShowMessage(str);
end
;
rpy3uH вне форума Ответить с цитированием
Старый 20.01.2007, 22:39   #4
Albenous
Helper
Форумчанин
 
Аватар для Albenous
 
Регистрация: 10.12.2006
Сообщений: 109
По умолчанию

О! пасиба. работает. И что самое удивительное: работает как надо!
Глупых вопросов не бывает - бывают глупые ответы.
Albenous вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удаление пользователя треч О форуме и сайтах клуба 4 26.05.2008 21:38
Спросить у пользователя его имя snake-as Общие вопросы Delphi 7 21.05.2008 20:02
Определение неактивности пользователя Квэнди Общие вопросы Delphi 3 26.09.2007 19:24
Назначение прав пользователя Seqular Безопасность, Шифрование 1 04.08.2007 16:48