Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как узнать переменные окружения (environment variable) DOS, например path?

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

Windows API - функция
GetDOSEnvironment() для Win16 и
GetEnvironmentStrings() для Win32.


Пример:

    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;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru