Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); var Buffer: array [0..31] of Char; begin GetEnvironmentVariable('USERNAME', @Buffer, SizeOf(Buffer)); Caption := Buffer end;
procedure TForm1.Button1Click(Sender: TObject); var Buffer: array [0..31] of Char; begin GetEnvironmentVariable('USERNAME', @Buffer, SizeOf(Buffer)); Caption := Buffer end;