Delphi-Help

Главная Статьи Windows Как получить переменные среды?

Как получить переменные среды?

Оцените материал
(0 голосов)


Как получить переменные среды?

procedure GetEnvironmentStrings( st: TStrings );
var
  ptr: PChar;
  s: string;
  done: boolean;
begin
   st.Clear;
   s := '';
   done := false;
   ptr := windows.GetEnvironmentStrings;
   while done = false do
   begin
      if ptr^ = #0 then
      begin
         Inc( ptr );
         if ptr^ = #0 then
            done := true
         else
            st.Add( s );
         s := ptr^;
      end
      else
         s := s + ptr^;
      Inc( ptr );
   end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   GetEnvironmentStrings( Memo1.Lines );
end;
Прочитано 4474 раз

Авторизация



Счетчики