XP下切换输入法造成程序卡死的原因及解决方案

http://blog.csdn.net/ysai/article/details/7468961

XP下切换输入法造成程序卡死的原因及解决方案

(by ysai)

现象:

在XP下,如果线程中创建了窗口而线程中没有消息循环,那么可能切换输入法时会造成程序卡死(某些XP下必现,跟安装盘有关)

原因:

线程创建一个窗口后,系统会自动创建一个Default IME窗口以便通知输入法消息(可能只有可以接收输入的窗口才会创建,未证实)

XP下切换输入法,会向所有DefaultIME窗口SendMessage告诉应用程序,当前输入法改变了

而线程窗口如果没有消息循环,则不会处理消息队列,然后卡死

演示代码:

[delphi] view plain copy

1. TTestThread = class(TThread)
2. private
3. procedure ProcessMessages;
4. protected
5. procedure Execute; override;
6. end;
7. procedure TTestThread.Execute;
8. begin
9. TTimer.Create(nil);  //TTimer会创建隐藏的窗口
10. while not Terminated do
11. begin
12. DoSomething;//线程干活
13. //ProcessMessages;  //去掉这一句就可能卡死
14. Sleep(1);
15. end;
16. end;
17. ///内建的一个简单消息循环
18. procedure TTestThread.ProcessMessages;
19. var
20. Msg: TMsg;
21. begin
22. while PeekMessage(Msg, 0, 0, 0,PM_REMOVE) then
23. begin
24. TranslateMessage(Msg);
25. DispatchMessage(Msg);
26. end;
27. end;

程序中使用上面的线程,则在XP下切换输入法可能卡死

即使线程中加入了消息循环,如果在线程工作时DoSomething占用过多时间,也会假死

终极解决方案:

如果不能避免在线程中创建窗口(比如调用了某个COM组件,但COM内部创建了窗口,如ADO会创建一个ADODB.AsyncEventMessenger窗口)

则在线程创建窗口后,执行以下代码

[delphi] view plain copy

1. procedure FreeIMEWindow;
2. const
3. IME_WINDOW_CLASS =‘IME‘;
4. IME_WINDOW_TEXT = ‘Default IME‘;
5. var
6. h : HWND;
7. pid : DWORD;
8. dh : HWND;
9. begin
10. if GetCurrentThreadId= 主线程IDthen exit;    //如果是主线程,那么它应该有消息循环,可以不处理
11. h := FindWindow(IME_WINDOW_CLASS, IME_WINDOW_TEXT);
12. while IsWindow(h) do
13. begin
14. ifGetWindowThreadProcessId(h, pid) = GetCurrentThreadId then
15. dh  :=  h
16. else
17. dh  :=  0;
18. h:=  FindWindowEx(0, h, IME_WINDOW_CLASS, IME_WINDOW_TEXT);
19. if dh<> 0 then
20. DestroyWindow(dh);
21. end;
22. end;
23. procedure TTestThread.Execute;
24. begin
25. TTimer.Create(nil);  //TTimer会创建隐藏的窗口
26. FreeIMEWindow;  //释放IME窗口
27. while not Terminated do
28. begin
29. DoSomething;//线程干活
30. Sleep(1);
31. end;
32. end;