Mach es lieber so, sonst gibt's ein
Handle-Leak (glaube ich):
Delphi-Quellcode:
var
hProc: Cardinal
// ...
begin
// ...
If KillProcess then
begin
hProc := OpenProcess(Process_Terminate, False, pe32.th32ProcessID);
if hProc <> 0 then
begin
Result := TerminateProcess(hProc, 0)
CloseHandle(hProc); // <<---
end;
end
// ...
end;