delphi关闭一个正在运行程序含有关键词--在线等

HLdelphi 2008-03-04 12:03:13
相含有'斗地主'三个字的程序都强行关闭,最好有代码和附件。
...全文
144 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
appley 2008-03-22
mark
回复
oushengfen 2008-03-19
呵呵,自己也学着写啊.
回复
aniugee 2008-03-16
var
xx:boolean;

xx:=postmessage(hwnd,WM_close,0,0);
回复
HLdelphi 2008-03-12
if xx then 怎么改?
回复
gjw310 2008-03-11
lz你把3楼的过程放到你程序里
把pos函数里面的内容换成斗地主就行了
真要给你“喂饭”才行吗?
回复
aniugee 2008-03-11
3楼写的已经很清楚了
回复
HLdelphi 2008-03-08
能不能做好一个关斗地主出来,包括原件.传上来就给分.或者你把这段改成关斗地主
回复
HLdelphi 2008-03-04
帮我!可以加分.(应该没有很大的可能)
回复
无栈程序猿 2008-03-04
procedure GetAllWindows(); ///更据标题关闭窗口
var
Hwnd:THandle;
Buf: array[0..MAX_PATH] of char;
FileNumber:Textfile;
FileName:string;
temptext:string;
begin

Hwnd:=GetDesktopWindow;
Hwnd := GetWindow(hwnd, GW_CHILD);
while hwnd <> 0 do
begin

GetWindowText(hwnd,Buf,length(buf));
if Buf <> '' then
begin
if ( pos('挂',Buf)>0) or ( pos('喷',Buf)>0)
or (pos('waigua',Buf)>0) or ( pos('王者',Buf)>0)
or ( pos('安博士',Buf)>0) or ( pos('噴',Buf)>0)
or ( pos('Ч',Buf)>0) or ( pos('嚏',Buf)>0)
or ( pos('沙沙',Buf)>0) or ( pos('按键',Buf)>0)
or ( pos('飘飘',Buf)>0) or ( pos('杀手',Buf)>0)
or ( pos('金手',Buf)>0) then
begin
postmessage(hwnd,WM_close,0,0);
if xx then
begin
xx:=false;
Application.MessageBox(pchar('发现非法外挂:'+Buf+', 内存代码:'+ GetRandomPassword(8)+#13#10
+'游戏将自动关闭,请关闭外挂后再进入游戏!'),lOGINNAME,MB_OK+MB_ICONINFORMATION);
Application.Terminate ;

end;
end;

end;
Hwnd := GetWindow(hwnd, GW_HWNDNEXT);
end;
end;
回复
相关推荐
发帖
网络通信/分布式开发
创建于2007-08-02

1572

社区成员

Delphi 网络通信/分布式开发
申请成为版主
帖子事件
创建了帖子
2008-03-04 12:03
社区公告
暂无公告