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

Материал из DRKB


function GetCurrentUser: string;
var
  pwrec: PPasswordRecord;
begin
  pwrec := getpwuid(getuid);
  Result := pwrec.pw_name;
end;


Source: http://www.swissdelphicenter.ch/en/tipsindex.php
ID: 04592