[aeff]

tambien puedes hacerlo de la siguiente forma colega:

Código Delphi [-]
var
  vUserName: array[0..132] of Char;
begin
  GetEnvironmentVariable('USERNAME', vUserName, sizeof(vUserName));
  ShowMessage(vUserName);
end;

jejeje!!