杀死一个正在运行的程序计算机二级考试
文章作者 100test 发表时间 2011:02:28 21:50:20
来源 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>如何应付二级考试中的公共基础知识