Получение параметров ОС

{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Получение переменнх окружения для текущего процесса

Получение переменнх окружения для текущего процесса

Зависимости: нет
Автор:       Прахожий
Copyright:   Прахожий
Дата:        27 июля 2009 г.
***************************************************************** }

procedure Get_Environment_Strings(VAR SL:TStringList);
var SS:String; i:integer; PS:PChar;
begin
  PS:=PChar(GetEnvironmentStrings);
  i:=0;
  SS:='';
   repeat
     if PS[i]=#0 then
       begin
         SL.Add(SS);
         i:=i+1;
         SS:='';
       end;
     SS:=SS+PS[i];
     i:=i+1;
   until ( (PS[i]=#0) AND (PS[i+1]=#0) ) ;
  SL.Add(SS);
end;

procedure TForm1.FormCreate(Sender: TObject);
var SSL:TStringList;
begin
  SSL:=TStringList.Create;
  Get_Environment_Strings(SSL);
  ListBox1.Items.Assign(SSL);
  SSL.Free;
end;