No replies to this topic

[sir.dev.a.lot]

[TRUCO DELPHI] Usuario de tu Ordenador.

delphi

function GetLocalUserName: String;
Var
  aLength  : DWORD;
  aUserName: Array[0..MAX_PATH - 1] Of Char;
begin
  aLength := MAX_PATH;
  GetUserName(aUserName, aLength);
  Result := aUserName;
end;

Saludos!