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

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;