杀死一个正在运行的程序

文章作者 100test 发表时间 2011:03:22 18:43:40
来源 100Test.Com百考试题网

　　procedure KillProgram(Classname : string. WindowTitle : string).
　　const
　　PROCESS_TERMINATE = $0001.
　　var
　　ProcessHandle : THandle.
　　ProcessID: Integer.
　　TheWindow : HWND.
　　begin
　　TheWindow := FindWindow(Classname, WindowTitle).
　　GetWindowThreadProcessID(TheWindow, @ProcessID).
　　ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId).
　　TerminateProcess(ProcessHandle,4).
　　end.

　　编辑特别推荐:

　　#0000ff>全国计算机等级考试资料下载

　　#0000ff>全国计算机等级考试论坛

　　#0000ff>如何应付二级考试中的公共基础知识