procedureGetEnvironmentStrings(ss:TStrings); {Переменные среды} var
ptr: PChar; s: string
; Done: boolean; begin
ss.Clear; s:=''; Done:=FALSE
; ptr:=windows.GetEnvironmentStrings; while
Done=false
do
begin
if
ptr^=#0 then
begin
inc(ptr); if
ptr^=#0 then
Done:=TRUE
else
ss.Add(s); s:=ptr^; end
else
s:=s+ptr^; inc(ptr); end
; end
;