偶做的杀进程的函数怎么狂吃内存呀(100分)

偶做了下面这个杀进程的函数
然后做在一个定时器里面，时间一长以后，系统的资源就差不多了
用windows2k自己的进程察看工具看，偶编译的这个程序本身没占用那么多内存的
把自己的程序关掉，系统被占用内存就一下子下降了
大虾救命！！！


Function KillProcess(ProexeName: String): Integer;
Var
; ok: BOOL;
; ProcessListHandle: THandle; //进程列表的句柄
; processStruct: TProcessEntry32; //进程的结构，进程的信息都在这个结构里
; h: Thandle;
; a: DWORD;
Begin
; result := 0;
; processListHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
; ProcessStruct.dwSize := Sizeof(ProcessStruct);
; ok := Process32First(ProcessListHandle, ProcessStruct);
; While integer(ok) <> 0 Do
; ; Begin
; ; ; If Uppercase(ProcessStruct.szExeFile) = Uppercase(ProexeName) Then
; ; ; ; Begin
; ; ; ; ; h := openprocess(PROCESS_ALL_ACCESS, TRUE, ProcessStruct.th32ProcessID);
; ; ; ; ; GetExitCodeProcess(h, a);
; ; ; ; ; If Integer(TerminateProcess(h, a)) <> 0 Then
; ; ; ; ; ; result := result + 1;
; ; ; ; End;
; ; ; ok := Process32Next(ProcessListHandle, ProcessStruct);
; ; End;
End;

我有一次和你一样，我用了书上的例子，搞定！

释放handle就可以了，我试过了，没有问题的

接受答案了.