Código Delphi [-] var Str: String; begin Str:= GetEnvironmentVariable('Programfiles'); end;
var Str: String; begin Str:= GetEnvironmentVariable('Programfiles'); end;