Código Delphi [-] var Buffer: array[Byte] of Char; Size: Cardinal; begin Size := 256; Windows.GetUserName(Buffer, Size); Edit1.Text := Buffer; end;
var Buffer: array[Byte] of Char; Size: Cardinal; begin Size := 256; Windows.GetUserName(Buffer, Size); Edit1.Text := Buffer; end;