get environment variables

In „Global Map“ einfügen:
————————-

MODULE('Windows.DLL')
  GetEnvironmentVariableA (*CSTRING, *CSTRING, ULONG),ULONG,PASCAL,RAW
END
GetEnv (STRING),STRING

In „Programm Precedures“ einfügen:
———————————-

GetEnv PROCEDURE(str)
cres CSTRING(201)
cstr CSTRING(201)
len LONG
  CODE
  cstr = clip(str)
  len = GetEnvironmentVariableA (cstr, cres, size(cres)-1)
  return clip(cres)

Dann kann man bequem so einiges auslesen. Z.Bp. GetEnv(„OS“) oder „COMPUTERNAME“, „USERNAME“, „TEMP“.
Ich benutze dies vor allen Dingen im den „Global Properties“ in INI-File in use = „Other“ und dann !GetEnv(‚USERPROFILE‘) & ‚\Anwendungsdaten\xxx.ini‘
(xxx für den Programm-Namen) Damit hat jeder User am Rechner seine eigene Settings für das Programm.

Viel Erfolg
Michael Ziegler

Schreibe einen Kommentar