DELPHI函数:delphi杀进程的函数KillTask计算机二级考试

文章作者 100test 发表时间 2009:04:30 03:54:13
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　一个delphi 杀进程的函数。
　　function KillTask(ExeFileName: string): integer.
　　const
　　PROCESS_TERMINATE=$0001.
　　var
　　ContinueLoop: BOOL.
　　FSnapshotHandle: THandle.
　　FProcessEntry32: TProcessEntry32.
　　begin
　　result := 0.
　　FSnapshotHandle := CreateToolhelp32Snapshot
　　(TH32CS_SNAPPROCESS, 0).
　　FProcessEntry32.dwSize := Sizeof(FProcessEntry32).
　　ContinueLoop := Process32First(FSnapshotHandle,
　　FProcessEntry32).
　　while integer(ContinueLoop) <.>. 0 do
　　begin
　　if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
　　UpperCase(ExeFileName))
　　or (UpperCase(FProcessEntry32.szExeFile) =
　　UpperCase(ExeFileName))) then
　　Result := Integer(TerminateProcess(OpenProcess(
　　PROCESS_TERMINATE, BOOL(0),
　　FProcessEntry32.th32ProcessID), 0)).
　　ContinueLoop := Process32Next(FSnapshotHandle,
　　FProcessEntry32).
　　end.
　　CloseHandle(FSnapshotHandle).
　　end.

　　2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

　　2009年全国计算机等级考试报名信息汇总

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　2009年上半年全国计算机二级考试试题及答案

　　2009年上半年全国计算机等级考试试题答案汇总