Código Delphi [-] Var usuario:array[0..30] of char; n:integer; Begin n:=30; GetUserName(usuario,n); End;
Var usuario:array[0..30] of char; n:integer; Begin n:=30; GetUserName(usuario,n); End;