Delphi杀死进程代码

网上搜索到的，记录一下备用。

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;

posted on 2008-03-08 00:46 而且阅读(177) 评论(0) 编辑收藏所属分类: DELPHI

标题

姓名

主页

(博主才能看到)


验证码	* 看不清,换一张 [登录][注册]

内容(请不要发表任何与政治相关的内容)

Remember Me?

[使用Ctrl+Enter键可以直接提交]

相关链接:

所属分类的其他文章:
DELPHI的DLL传递字符串参数总结
[转]在QuantumGrid4.5中手动添加数据
Delphi学习笔记-1
delphi的dll封装mdichildform注意事项
转一篇Delphi下写DLL的文章

最新IT新闻:
AMD剥离芯片制造业务获60亿美元投资
Google向Wine贡献更多代码
苹果创始人Steve Wozniak称iPod将被淘汰
福布斯：硅谷日子将更难过谁下一个倒下
微软老矣尚能赚否？

导航