Метка: username

Решим задачу кросплатформенно:

procedure TForm1.GetUserLogin(Sender: TObject);
{$IFDEF MSWINDOWS}
const
  envVar = 'USERNAME';
{$ENDIF}
{$IFDEF UNIX}
  envVar = 'USER';
{$ENDIF}
begin
   user_login:=SysUtils.GetEnvironmentVariable(envVar);
   MessageDlg(user_login, mtInformation,[mbOk],0);
end;