Two ways of Delphi kill process

The first kind: relatively simple, according to the title, find the window, then find the process, kill the process

[Delphi]View PlainCopy

2. Procedure Killprogram (windowtitle: string);
4. Const
6. Process_terminate = $0001;
8. Var
10. Processhandle:thandle;
12. Processid:integer;
14. Thewindow:hwnd;
16. Begin
18. Thewindow: = FindWindow (nil, PChar (WindowTitle));
20. GetWindowThreadProcessId (Thewindow, @ProcessID);
22. ProcessHandle: = OpenProcess (Process_terminate, FALSE, ProcessId);
24. TerminateProcess (ProcessHandle,4);
26. End

The second: A little more complicated, but can get more information, other functions of the time can refer to

[Delphi]View PlainCopy

2. function Killtask (exefilename: string): integer;
4. Const
6. process_terminate=$0001;
8. Var
10. Continueloop:bool;
12. Fsnapshothandle:thandle;
14. fprocessentry32:tprocessentry32;
16. Begin
18. Result: = 0;
22. Fsnapshothandle: = CreateToolhelp32Snapshot
24. (Th32cs_snapprocess, 0);
26. FProcessEntry32. dwsize: = Sizeof (FPROCESSENTRY32);
28. Continueloop: = Process32First (Fsnapshothandle,
30. FPROCESSENTRY32);
34. while integer (continueloop) <> 0 do
36. begin
38. if (Uppercase (Extractfilename (FProcessEntry32. szexefile)) =
40. Uppercase (Exefilename))
42. or (Uppercase (FProcessEntry32. Szexefile) =
44. Uppercase (Exefilename)) then
46. Result: = Integer (TerminateProcess (OpenProcess (
48. Process_terminate, BOOL (0),
50. FProcessEntry32. Th32processid), 0));
52. Continueloop: = Process32Next (Fsnapshothandle,
54. FPROCESSENTRY32);
56. end;
60. CloseHandle (Fsnapshothandle);
62. End

Also, Word can end the process according to the title, the rule of Word title is application title + "-" + window title

http://blog.csdn.net/youthon/article/details/7247874

Two ways of Delphi kill process