一发现qq2000b.exe运行,就把它关掉
解决方案 »
- delphi 怎样把服务和窗体建在一块,可以跟踪运行调试
- Delphi 应用程序 打包生成 安装软件 的问题————————在线等待!!!!急急急急!!!!!
- 关于VB不懂的代码,求解
- 怎样在点击Form的关闭时加入自己的代码,即触发一个过程
- 如何点击父窗体不使nomal窗体自动关闭
- 怎样修改由多个表join来的Access表
- AviWriter这个控件 里面的视频压缩怎么使用啊?谢谢
- 那里有jbuilder6下载!!!
- 工具栏怎么达到这样的效果?新人上路,请指点!
- 如何建dll?
- 有没有人用delphi做过把oracle中的表转换成dbf?如解决加分500!
- 如何得到系统动态分配的一个tcp端口?
关闭某个程序: lppe:tprocessentry32;
sshandle:thandle;
hh:hwnd;
found:boolean;begin
//关闭***.exe
sshandle:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);
found:=process32first(sshandle,lppe);
// str:=extractfilepath(paramstr(0))+'client.exe';
while found do
begin
//进行你的处理其中lppe.szExefile就是程序名。
str:=uppercase(extractfilename(lppe.szExeFile));
if str='***.EXE' then
begin
hh:=OpenProcess(PROCESS_ALL_ACCESS,true,lppe.th32ProcessID);
TerminateProcess(hh,0);
end;
found:=process32next(sshandle,lppe);
end;
只要用spy++ 或winsight找到qq的类名就可以了
谢谢大家。