Mega Code Archive
Get all environment variables
<![CDATA[
Title: Get all environment variables
To get a full list of environment variables, use GetEnvironmentStrings function. But it is necessary to process result.
procedure TForm1.Button1Click(Sender: TObject);
var
Variable: Boolean;
Str: PChar;
Res: string;
begin
Str:=GetEnvironmentStrings;
Res:='';
Variable:=False;
while True do begin
if Str^=#0 then
begin
if Variable then Memo1.Lines.Add(Res);
Variable:=True;
Inc(Str);
Res:='';
if Str^=#0 then
Break
else
Res:=Res+str^;
end
else
if Variable then Res:=Res+Str^;
Inc(str);
end;
end;
]]>