Question

我正在尝试编写一个小实用程序来检索计算机上正在运行的进程列表以及每个进程使用的内存。

到目前为止，我有以下Delphi代码：

{ ******************************************************************
  Return list of running processes
 ******************************************************************* }
procedure   TGkrTools.GetProcList(var thelist : tstrings);

var
 ExeName : string;
 PSize   : cardinal;
 PID     : cardinal;
 TheLoop : boolean;
 proc    : PROCESSENTRY32;
 hSnap   : HWND;
 pmc     : PPROCESS_MEMORY_COUNTERS;
 cb      : integer;

begin
 thelist.Clear; // Clear the list on entry
 proc.dwSize := SizeOf(PROCESSENTRY32);//Give proc.dwSize the Size of bytes of PROCESSENTRY32
 hSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 TheLoop := Process32First(hSnap,proc);
 while Integer(TheLoop) <> 0 do
 begin
  ExeName := ExtractFileName(proc.szExeFile); // Name of process executable
  cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
  GetMem(pmc, cb);
  pmc^.cb := cb;
  PID:=proc.th32ProcessID;
  if GetProcessMemoryInfo(PID, pmc, cb) then
  begin
   Psize:=pmc^.WorkingSetSize;
  end
  else
  begin
   Psize:=0;
  end;
  Thelist.Add(ExeName + ' ' + IntToStr(Psize)+ ' ' + IntToStr(PID));
  TheLoop := Process32Next(hSnap,proc);//Looper is oposite Zero until there is a program to process by this function
 end;
end;

我成功检索了＆＃34; ExeName＆＃34;和＆＃34; PID＆＃34;但是当我执行GetProcessMemoryInfo函数时，调用返回＆＃34; false＆＃34;。

关于我的代码中有什么问题的任何想法？我在32位Windows 7机器上运行它。

提前致谢，

Gudfinnur Kristjansson

Answer 1

您应该仔细阅读documentation。第一个参数是进程句柄而不是进程ID。您需要调用OpenProcess以从进程ID获取进程句柄。文档还说：

句柄必须具有PROCESS_QUERY_INFORMATION或PROCESS_QUERY_LIMITED_INFORMATION访问权限以及PROCESS_VM_READ访问权限。

确保在致电OpenProcess时请求这些访问权限。

完成手柄后，请使用CloseHandle关闭它。再次，仔细阅读文档。

请注意，您当前的代码会泄漏您分配的动态内存。实际上不需要动态分配内存。而不是声明指向结构的PPROCESS_MEMORY_COUNTERS指针，而是声明类型为PPROCESS_MEMORY_COUNTERS的变量。然后可以在堆栈上自动分配内存。

要做的最后一点是，如果函数失败，文档还会告诉您调用GetLastError。请确保执行此操作以尝试诊断任何故障。

无法检索进程内存使用情况Delphi

1 个答案: