delphi 杀进程的函数KillTask

 

 

一个delphi 杀进程的函数 参数为文件名 如 QQ.exe

德州行业网

1. function KillTask(ExeFileName: string): integer;
2. const 
3. PROCESS_TERMINATE=$0001; 
4. var 
5. ContinueLoop: BOOL; 
6. FSnapshotHandle: THandle; 
7. FProcessEntry32: TProcessEntry32;
8. begin 
9. result := 0; 
11. FSnapshotHandle := CreateToolhelp32Snapshot 
12. (TH32CS_SNAPPROCESS, 0); 
13. FProcessEntry32.dwSize := Sizeof(FProcessEntry32); 
14. ContinueLoop := Process32First(FSnapshotHandle, 
15. FProcessEntry32); 
17. while integer(ContinueLoop) <> 0 do 
18. begin 
19. if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = 
20. UpperCase(ExeFileName)) 
21. or (UpperCase(FProcessEntry32.szExeFile) = 
22. UpperCase(ExeFileName))) then 
23. Result := Integer(TerminateProcess(OpenProcess( 
24. PROCESS_TERMINATE, BOOL(0), 
25. FProcessEntry32.th32ProcessID), 0)); 
26. ContinueLoop := Process32Next(FSnapshotHandle, 
27. FProcessEntry32); 
28. end; 
30. CloseHandle(FSnapshotHandle); 
31. end;