【列表5.17】 獲取一個進程的運行環境。
// ProcGetEnvironment - return a string list that contains
// the process's environment strings.
function  ProcGetEnvironment (pid: __pid_t): TStringList;
var
   buffer : array[0..16000] of char;
   length : integer;
   1st : TStringList;
   p : PChar;
begin
   length := sizeof (buffer)-1;
   length := ProcReadFile (pid, 'environ', buffer, length);
   if length = -1 then
   begin
      Result := nil;
      exit;
   end;
   // make sure there's a terminating null character
   buffer[length] := #0;
   // returned environment is a series of 0-terminated strings
   1st := TStringList.Create;
   try
      p := buffer;
      while p^ <> #0 do
begin
         lst.Add (p);
         p := StrEnd (p) + 1;
     end;
  except
     // if an exception occurs, free the list and re-raise
      lst. Free;
      raise;
   end;
   Result := lst;
end;