test this:

## Код:
```
MODULE DiaRegTest;
   
   IMPORT SYSTEM, Log, WinApi;

   PROCEDURE Home* ;
      VAR 
         len, type, res: INTEGER; 
         data: ARRAY 512 OF CHAR; 
         hkey: WinApi.HANDLE;
   BEGIN
      res := WinApi.RegOpenKeyW(WinApi.HKEY_CURRENT_USER, "Volatile Environment", hkey);
      IF res = 0 THEN 
         len := LEN(data) * 2;
         res := WinApi.RegQueryValueExW(hkey, "USERNAME", NIL, type, SYSTEM.VAL(SHORTCHAR, data[0]), len);
         Log.String("res: "); Log.Int(res); Log.Tab;
         Log.String(" type: "); Log.Int(type); Log.Tab; Log.String(" len: "); Log.Int(len DIV 2);Log.Ln;
         Log.String('data:'); Log.String(data); Log.Ln; 
         res := WinApi.RegCloseKey(hkey);
      ELSE
         Log.String('open key error!'); Log.Tab; Log.Int(res); Log.Ln;
      END;
   END Home;

END DiaRegTest.
```
