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

WinHack

Администратор
23 Фев 2015
2,907
1,916
bsfo.ru
Чтобы узнать имя активного пользователя, используем функцию 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;