Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





Как получить переменные окружения типа PATH и PROMPT 2


procedure TMainFrm.AddVarsToMemo(Sender: TObject);
var
  p: pChar;
begin
  Memo1.Lines.Clear;
  Memo1.WordWrap := false;
  p := GetEnvironmentStrings;
  while p^ <> #0 do
  begin
    Memo1.Lines.Add(StrPas(p));
    inc(p, lStrLen(p) + 1);
  end;
  FreeEnvironmentStrings(p);
end;

           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011