xxxxx#0xxxxxx#0xxxxxxx#0
代碼: 選擇全部
var
Env1, Env2: PChar;
begin
Env1 := GetEnvironmentStrings;
Env2 := Env1;
if Env2 <> nil then
repeat
Memo1.Lines.Add(StrPas(Env2));
inc(Env2, StrLen(Env2) + 1);
until Env2^ = #0;
FreeEnvironmentStrings(Env1);
Env2 := nil;
end;