Получение переменных среды
Получение переменных среды
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;