Delphi - база знаний


Получение переменных среды


Получение переменных среды




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;



Взято с





Начало  Назад  Вперед



Книжный магазин