Obtener el nombre del usuario del sistema

[dec]

Con esta sencilla función obtenemos el nombre del usuario que hubiera iniciado sesión en Windows:


function GetUserName : string;
var
tamanoBuffer: Cardinal;
bufferUsuario: array[0..MAX_PATH] of Char;
begin
tamanoBuffer := SizeOf(bufferUsuario);
Windows.GetUserName(bufferUsuario, tamanoBuffer);
Result := bufferUsuario;
end;