Aktuell eingeloggter User

[Daniel B]

Hallo,

hiermit kann man sich den aktuell eingeloggten User anschauen. Ob und wozu es Sinn macht sei mal dahin gestellt. ;)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  function GetUser: String;
  var
    Buffer: Array[0..MAX_COMPUTERNAME_LENGTH +1] of Char;
    Size: DWord;
  begin
    Size := Pred(SizeOf(Buffer));
    Windows.GetUserName(Buffer, Size);
    Result := StrPas(Buffer);
  end;
begin
  ShowMessage(GetUser);
end;

Grüsse, Daniel :hi: