Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

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



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

 Прислал: Прахожий ( 27 июля 2009 г. )
©  Прахожий
 Описание:
Получение переменнх окружения для текущего процесса

 Зависимости:
нет

 Ограничения:
D3,D7, Win2000

 Исходный текст:
{ **** 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;


Вернуться к списку функций

Наверх ▲