Lenguaje de programación Borland Delphi
Para obtener las variables de entorno de MS-DOS (en cualquier Sistema Operativo) añadiremos un formuario, un botón y un TMemo llamado "txtve". En el USES del formulario añadiremos "Windows". En el evento click del botón pondremos el siguiente código:
procedure TFormUtilidades.Button1Click(Sender: TObject);
var
Env : PChar;
begin
Env := GetEnvironmentStrings;
txtve.Items.Clear;
With txtve do begin
While Env^ <> #0 do begin
Items.Add(StrPas(Env));
Inc(Env, StrLen(Env) + 1);
end;
end;
end;
Publicado el: 2003-10-15