Карта сайтаСсылкиКонтакты

Как узнать имя активного пользователя

PDF Печать
Статьи

Чтобы узнать имя активного пользователя, используем функцию CurrentUserName:


function CurrentUserName:String;  
var  
  u: array[0..127] of Char;  
  sz:DWord;  
begin  
  sz:=SizeOf(u);  
  GetUserName(u,sz);  
  Result:=u;  
end;  

procedure TForm1.Button1Click(Sender: TObject);  
begin  
  ShowMessage(CurrentUsername);  
end;

 

Комментарии   

 
0 #1 Альберт 15.11.2011 14:04
И куда этот код нужно вставлять ???
Цитировать
 
 
0 #2 ice09 16.11.2011 11:37
Он уже вставлен! Это пример! :P
Цитировать
 

Добавить комментарий


Защитный код
Обновить