SleuthQA CodeWatch 跟踪程序资源泄漏

某日，一个我编写的Delphi 应用(dll 插件)被发现运行一段时间后，系统的PF 占用其高且下不来。

后在任务管理器中发现此应用所在的exe 在运行期间的句柄计数会稳定累积增加， user对象、GDI对象计数未发现明显异常。

使用SleuthQA CodeWatch( 以下简称 CW) 调试此dll， 过程如下：

Step1. 准备工作

1.1 CW-File-NewProject，选择要分析的模块，即本应用的dll



1.2 选择模块对应的Host EXE



Step 2 运行应用，采集信息

1.3 CW 主界面，点击执行程序，正常进行操作，CW自动采集EXE执行期间的event。



Step 3 结束exe， 查看采集的信息

3.1 正常退出exe，CW弹出初步结果， 这里可以看到在刚才的运行期间中该DLL发生了3次未预计的操作系统资源泄漏 、1次捕获的内存泄漏



3.2 这里可以看到3次的资源泄漏其实是－1个window未关闭、1个process handle、1个ThreadHandle未关闭。窗口泄漏的根源发现是在某个单元中创建TTimer未释放，VCL的TTimer其实就是开个窗口接收WM_TIMER，暂且不表。



3.3 泄漏时的线程栈表明发生在 uExtractor1.pas 181行处，代码片断如下。 此处创建了一个额外的工作exe，如果该工作exe在规定时间内正常退出则会关闭该工作exe的进程、线程句柄；但是如果超时了，会调用另一个公共函数 KillProc 杀掉该exe及其子孙进程，这里范了错误，在杀掉后没有关闭该exe的句柄。

bCreateProcess := CreateProcess(nil, PChar(sCommand), nil, nil, True,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil,
lpStartupInfo, lpProcessInformation);
if bCreateProcess then
begin
case WaitForSingleObject(lpProcessInformation.hProcess, WaitForSec * 1000) of
WAIT_TIMEOUT:
begin
Result:= 4;
KillProc(lpProcessInformation.dwProcessId, True, Result);
end;
WAIT_OBJECT_0:
begin
GetExitCodeProcess(lpProcessInformation.hProcess, ResultCode);
CloseHandle(lpProcessInformation.hProcess);
CloseHandle(lpProcessInformation.hThread);
Result := ResultCode;
end;
end;
end
else
Result := 9;

3.4 修改代码即使KillProc 也要关闭 hProcess hThread。 OK! 泄漏问题解决

总结：

1. Dll 的代码一定要谨慎编写，因为申请的系统资源都是隶属于主调exe的，主调exe不退出，中间泄漏的资源操作系统都没办法帮你自动回收；

2. CreateProcess后打开的进程句柄一定要释放，即使该程序被另外的地方杀掉了，因为只要一处打开的句柄不关闭，操作系统为该进程维护的内核对象的句柄计数都不会减到0，导致泄漏