Jméno přihlášeného uživatele

Následující jednoduchá funkce nám zjistí jméno právě přihlášeného uživatele. To můžete využít pro řadu účelů jako třeba ukládání různých konfigurací pro jednotlivé uživatele a podobně.
function UserName: String;
var
User : PChar;
i : DWord;
begin
i := 1024;
user := StrAlloc(Succ(i));
if GetUserName(User, i) then Result := StrPas(User)
else Result := 'Žádný';
end;

procedure TForm1.Button34Click(Sender: TObject);
begin
ShowMessage(UserName);
end;