Имя пользователя - Win Api

Albenous · 20.12.2006, 21:31

Люди, как можно программно выявить имя активного пользователя (Win XP)?

Баламут · 21.12.2006, 01:33

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

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;

rpy3uH · 21.12.2006, 20:08

или вот так

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  str:array[0..255] of char;
  n:DWORD;
begin
  n:=256;
  GetUserName(@str,n);
  ShowMessage(str);
end

;

Albenous · 20.01.2007, 22:39

О! пасиба. работает. И что самое удивительное: работает как надо!

20.12.2006, 21:31	#1
Albenous Helper Форумчанин Регистрация: 10.12.2006 Сообщений: 109	Имя пользователя Люди, как можно программно выявить имя активного пользователя (Win XP)? Глупых вопросов не бывает - бывают глупые ответы.

21.12.2006, 20:08	#3
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` ; [Программирование на ассемблере на платформе x86-64]

20.01.2007, 22:39	#4
Albenous Helper Форумчанин Регистрация: 10.12.2006 Сообщений: 109	О! пасиба. работает. И что самое удивительное: работает как надо! Глупых вопросов не бывает - бывают глупые ответы.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Удаление пользователя	треч	О форуме и сайтах клуба	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

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;