MML -> GetProcessMem

uses {MML}StringUtil;

(*
  Returns (resident) memory usage of a process in kB.
*)
function GetProcessMem(proc:UInt32): UInt64;
var
  list: TStringList;
begin
  Result := 0;
  list := TStringList.Create;
  try
    list.NameValueSeparator:=':';
    list.LoadFromFile( Format('/proc/%d/status', [proc]) );
    Result := StrToInt64( ExtractFromStr(list.Values['VmRSS'], NUMBERS) );
  finally
    list.Free();
  end;
end;