关闭消息，为什么不行

[hihuang]

关闭消息，为什么不行了.

var
H:Thandle;
begin
H:=Findwindow(nil,'金山词霸');
SendMessage(H,WM_Close,0,0);
end;

[Kevin_Lmx]

句柄不正确吧……

[Dlwxn]

var
H:Thandle;
begin
H:=Findwindow(nil,'金山词霸2005');
SendMessage(H,WM_Close,0,0);
end;

[hihuang]

不行啊,楼上的兄弟,帮一帮,谢谢

[yjs_lh]

先看H是不是>0吧。

[eWong2016]

流云兄的方法是正确的，但有个疏忽：
var
H:Thandle;
begin
H:=Findwindow(nil,'金山词霸 2005');//金山词霸后面还有个空格+2005才能搜索到
SendMessage(H,WM_Close,0,0);
end;

[eWong2016]

嘿嘿，偶也是用SPY＋＋才发现有个空格的：）

[smiler007]

begin
H:=Findwindow(nil,'金山词霸2005');
if H>0 then SendMessage(H,WM_Close,0,0);
end;

[chijingde]

小晕一下

[Rural_Boy]

哈哈！建议：

begin
H:=Findwindow(nil,'金山词霸2005');
if H<>0 then closeKingSoft(h);
H:=Findwindow(nil,'金山词霸2004')
if H<>0 then closeKingSoft(h);
H:=Findwindow(nil,'金山词霸2003')
if H<>0 then closeKingSoft(h);
end;

procedure CloseKingSoft(Handle:hwnd);
begin
sendMessage(handle,wm_close,0,0);
end;
end;

[terry6394]

倒...
我每次FindWindow 我都会用Spy++ 探一探的...这要不容易出错