多线程下切换输入法导致程序假死的问题

悠悠 2023-10-16 21:41 28阅读 0赞

今天无意中发现程序在切换输入法的时候假死，郁闷，以前也是这么用，没出问题，今天就不行了，查了很多资料，无解，问了好几个高手，都没遇到过，最后终于找到了一篇好文章解决了我的问题，赶紧发上来。

**多线程程序切换输入法导致死机的问题及解决方案**

书呆子

曾经在一个数据库项目中碰到了一个问题，在线程中创建了ADOConnect读取数据再进行处理，结果当切换输入法时整个程序就死机了。当时非常困惑，在大富翁里也发了帖子，最终都得不到解决，最后经过不断的调试终于知道了问题的原因。近日，见到大富翁里依然还有人被这个问题所困扰，于是写了我的经验心得，希望能够帮助需要的人。

问题产生过程：  
问题产生的过程是这样的，普通的线程由于里面根本就没有窗口，所以创建后，切换输入法是不会对其造成影响，但是，当线程里存在窗口时，切换输入法就会导致死机。这是因为，窗口是和线程相关的，在线程里创建的窗口，窗口的消息循环需要所属线程来处理，在DELPHI中大部分窗口都是创建在主线程里，Application里的ProcessMessage方法处理了主线程的消息队列。但是TThread里并没有内建消息循环，当输入法切换时发送了系统通过SendMessage发送了WM\_IME\_SELECT消息给线程里的”Default Ime”窗口通知它输入法已经切换，由于SendMessage是不同线程调用，所以不会直接去访问窗口的消息函数，而是等待目标线程主动获取消息时再去调用窗口的消息函数返回。问题就出来了，目标线程中根本就没有消息循环，从而导致了死锁。

演示代码如下：

TForm1 = class(TForm)  
Button1: TButton;  
procedure Button1Click(Sender: TObject);  
private  
\{ Private declarations \}  
public  
\{ Public declarations \}  
end;  
  
TTest = class(TThread)  
private  
procedure ProcessMessage;  
protected  
procedure Execute; override;  
end;  
  
var  
Form1: TForm1;  
  
implementation

\{$R \*.dfm\}

procedure TTest.Execute;  
begin  
TTimer.Create(nil); //这个对象创建不为什么，只是为了创建一个隐藏的window，屏蔽这句话线程里就没有窗口了，也不会死机  
while not Terminated do  
begin  
// ProcessMessage; //去掉这一句就会导致死锁  
Sleep(100);  
end;  
end;

///内建的一个简单消息循环

procedure TTest.ProcessMessage;

var

Msg: TMsg;

begin

if PeekMessage(Msg, 0, 0, 0, PM\_REMOVE) then

begin

TranslateMessage(Msg);

DispatchMessage(Msg);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin