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