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

Тема в разделе "Delphi", создана пользователем WinHack, 24 ноя 2016.

  1. WinHack
    Чтобы узнать имя активного пользователя, используем функцию 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;