> -- Kubanych писал(а):
> Какие могут быть "мысли об Обероне" по поводу обхода этой проблемы?
Усё работает:
## Код:
```
MODULE PrivEnv;

IMPORT
   Log, WinConsole, WinApi;
   
PROCEDURE Do*;
VAR
   s : ARRAY 256 OF CHAR;
   res, size : INTEGER;
BEGIN
   res := WinApi.GetEnvironmentVariableW("PATH", s, 255);
   IF res = 0 THEN
      Log.String("GetEnvironmentVariableW fail")
   ELSIF res > 255 THEN
      Log.String("Buffer too small. "); Log.Int(res); Log.String(" characters required")
   ELSE
      Log.String("PATH='"); Log.String(s$); Log.String("'")
   END;
   Log.Ln
END Do;

BEGIN
   Do
END PrivEnv.

(!)DevLinker.LinkExe dos EnvTest.exe := Kernel+ Files Math Strings Dialog Log WinConsole PrivEnv
```

## Код:
```
C:\BlackBox\Community\1.6.New>EnvTest.exe
PATH='C:\Program Files\Far;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\Program Files\Java\jre6\bin;C:\Program Files\Java\jdk1.6.0_07\bin'
```

ББ 1.6. Может размер строки указать забыли при вызове?