Как получить переменные окружения типа PATH и PROMPT 2
procedure TMainFrm.AddVarsToMemo(Sender: TObject);
var
p: pChar;
begin
Memo1.Lines.Clear;
Memo1.WordWrap := false;
p := GetEnvironmentStrings;
while p^ <> #0 dobegin
Memo1.Lines.Add(StrPas(p));
inc(p, lStrLen(p) + 1);
end;
FreeEnvironmentStrings(p);
end;
Статья Как получить переменные окружения типа PATH и PROMPT 2 раздела ОС и Железо Переменные окружения может быть полезна для разработчиков на Delphi и FreePascal.
