Получение переменных среды

Советы » Переменные окружения » Получение переменных среды

procedure

GetEnvironmentStrings(ss:TStrings); {Переменные среды} var

ptr: PChar; s: string

; Done: boolean; begin

ss.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

ss.Add(s); s:=ptr^; end

else

s:=s+ptr^; inc(ptr); end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com