Начальная страница
Поиск по базе
Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
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;
|
Вернуться к списку функций
|