Введите условия поиска Отправить форму поиска
	Web DelphiSources.ru

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

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