Переменные окружения XP

← →
Fantasy (2008-01-04 05:03) [0]

Подскажите может кто знает есть ли функции по работе с переменными окружения;
Добавить Глобальную переменую, удалить, изменить(SetEnvironmentVariable, GetEnvironmentVariable эти функции я знаю мне нужно другое).
Вот переменная PATH там пути разделены ";" есть ли готовая билиотека с функциями которая добавит или удалит путь или всетаки придется свой алгоритм писать выдиления строк по ";" поиска и замены ?

← →
Cj © (2008-01-04 09:15) [1]

Get/Set EnviromentVariable
вроде так,непомню

← →
Fantasy (2008-01-04 09:47) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
p : pChar;
begin
Memo1.Lines.Clear;
Memo1.WordWrap := false;
{$IFDEF WIN32}
p := GetEnvironmentStrings;
{$ELSE}
p := GetDOSEnvironment;
{$ENDIF}
while p^ <> #0 do begin
Memo1.Lines.Add(StrPas(p));
inc(p, lStrLen(p) + 1);
end;
{$IFDEF WIN32}
FreeEnvironmentStrings(p);
{$ENDIF}
end;
понятно но КАК ВНЕСТИ ИЗМИНЕНИЯ В PACH там пути разделены точкой заяпятой. Нужно писать свой алгоритм или есть стандартная функция, пример, библиотека. Я в инете ненашол :(

← →
{RASkov} © (2008-01-04 15:01) [3]

var S: String; begin S:=GetEnvironmentVariable("PATH"); Memo1.Lines.Delimiter:=";"; Memo1.Lines.DelimitedText:=S; showmessage(Memo1.Lines.DelimitedText); end;

← →
Fantasy (2008-01-04 15:33) [4]

> {RASkov} © (04.01.08 15:01) [3]

C:\Program
Files\Borland\Delphi7\Bin
C:\Program
Files\Borland\Delphi7\Projects\Bpl\
C:\WINDOWS\system32
C:\WINDOWS
C:\WINDOWS\System32\Wbem
C:\Program
Files\Common
Files\Adobe\AGL

Пробелы тоже штает за новую переменую :(

← →
{RASkov} © (2008-01-04 15:48) [5]

> [4] Fantasy (04.01.08 15:33)

uses RxStrUtils; procedure GetEnvirList(const SEnvir: String; Lst: TStrings); var N, WCnt: Integer; begin if not Assigned(Lst) then Exit; Lst.Clear; WCnt:=WordCount(SEnvir, [";"]); if WCnt=0 then Exit; for N:=1 to WCnt do Lst.Add(ExtractWord(N, SEnvir, [";"])); end; procedure TForm1.Button1Click(Sender: TObject); begin GetEnvirList(GetEnvironmentVariable("PATH"), Memo1.Lines); end;

Только, как видно, нужна RxLib т.е. ее модуль RxStrUtils;
Можно и без нее, но кода будет немного больше)

StringReplace или переход на 2006, там есть новое свойство

← →
Fantasy (2008-01-05 07:41) [7]

Спасибо всем кто помог
С новым годом 2008 ТОВАРИЩИ!

Переменные окружения XP Найти похожие ветки