OberonCore

MODULE DiaRegTest;
   
   IMPORT SYSTEM, Log, Files, Env, Views, HostEnv, Converters;

   PROCEDURE Home*(): Files.Locator;
   BEGIN
      RETURN Files.dir.This(Env.Get("USERPROFILE"))
   END Home;

   PROCEDURE Do*;
   VAR loc: Files.Locator; name: Files.Name; conv: Converters.Converter; v: Views.View;
   BEGIN
      loc := Home();
      name := "";
      v := Views.Old(Views.ask, loc, name, conv);
      IF v # NIL THEN
         Views.OpenView(v)
      END;
   END Do;

END DiaRegTest.

MODULE Mod;

   IMPORT Log, WinApi;

   PROCEDURE GetEnv* (IN name: ARRAY OF CHAR; OUT val: ARRAY OF CHAR);
      VAR   res: INTEGER;
   BEGIN
      res := WinApi.GetEnvironmentVariableW(name, val, LEN(val));
      IF res = 0 THEN
         val := ""; Log.String("GetEnv: '" + name + "' не получена"); Log.Ln
      ELSIF res > LEN(val) THEN
         val := ""; Log.String("GetEnv: '" + name + "' не влезла"); Log.Ln
      ELSE
         ASSERT(res < LEN(val), 100)
      END
   END GetEnv;

END Mod.

^Q ipuiK426.Exec (* как бы скрипт *)
   VAR p: ARRAY 256 OF CHAR;
   Mod.GetEnv("USERPROFILE", p);
   Log.String(p); Log.Ln ~