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

[HLdelphi]

相含有'斗地主'三个字的程序都强行关闭，最好有代码和附件。

[无栈程序猿]

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;

[HLdelphi]

帮我!可以加分.(应该没有很大的可能)

[HLdelphi]

能不能做好一个关斗地主出来,包括原件.传上来就给分.或者你把这段改成关斗地主

[aniugee]

3楼写的已经很清楚了

[gjw310]

lz你把3楼的过程放到你程序里
把pos函数里面的内容换成斗地主就行了
真要给你“喂饭”才行吗？

[HLdelphi]

if xx then 怎么改?

[aniugee]

var
xx:boolean;

xx:=postmessage(hwnd,WM_close,0,0);

[oushengfen]

呵呵,自己也学着写啊.

[appley]

mark