如何获取属于某个进程的打开句柄的计数？

Question

您可以使用程序Process Explorer来查看正在运行的应用程序有多少个句柄。有没有办法用Delphi代码来获取这个数字？我有兴趣跟踪应用程序本身的号码；不要像 Process Explorer 那样查找其他应用程序使用的句柄数量。

我的目的是让应用程序跟踪/检测可能的资源泄漏。

Answer 1

使用 GetProcessHandleCount 函数。这个 API 函数在最新版本的 Delphi 中由 Winapi.Windows 单元导入（因此您可以省略所提供的函数）：

function GetProcessHandleCount(hProcess: THandle; var pdwHandleCount: DWORD): BOOL; stdcall;
  external 'kernel32.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
  HandleCount: DWORD;
begin
  if GetProcessHandleCount(GetCurrentProcess, HandleCount) then
    ShowMessage('Handle count: ' + IntToStr(HandleCount));
end;