> Please see my previous post, I use it but.. obviously you have to
> check the result, because on my system it randomly returns one item
> that is not a valid name/value pair i.e. "=::=::\".
You have not shown your code. The environment string is terminated by a
double-nul byte. Here is
another code I use in a CGI and never saw failing:
procedure DumpEnvironment;
var
P, Q : PChar;
begin
P := GetEnvironmentStrings;
if P = nil then
Exit;
// Environment is stored as a nul terminated string name=value.
// Last couple is followed by two nul values
while P^ <> #0 do begin
Q := P;
while P^ <> #0 do
Inc(P);
WriteLn(q, '<BR>');
Inc(P);
end;
end;
Can you check on your system and see if it gives bad data ?
--
[EMAIL PROTECTED]
Author of ICS (Internet Component Suite, freeware)
Author of MidWare (Multi-tier framework, freeware)
http://www.overbyte.be
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi
