1,183
社区成员




repeat
AHandle := OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, vProcessID);
if AHandle<>0 then
begin
GetExitCodeProcess(AHandle,exitcode);
terminateprocess(AHandle,exitcode);
end;
until AHandle=0;
AHandle := OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, vProcessID);
if AHandle <> 0 then
begin
repeat
Terminateprocess(AHandle,exitcode);
until GetExitCodeProcess(AHandle,exitcode) and (exitcode <> STILL_ACTIVE);
CloseHandle(AHandle)
end;