Как узнать переменные окружения (environment variable) DOS, например path в Delphi?

Windows API — функция GetEnvironmentStrings():

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; 
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (10 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий