用SendNotifyMessage代替PostMessage避免消息丢失

大家都知道PostMessage会丢消息，但是消息队列的大小是多少呢，下面做了一个测试。

代码：

 

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; 

const 
  UM_ADD = WM_USER + 100; 

type 
  TForm1 = class(TForm) 
    Label1: TLabel; 
    procedure FormCreate(Sender: TObject); 
  private 
    FVal: Integer; 
    procedure OnMsgAdd(var Msg: TMsg); message UM_ADD; 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
var 
  i: Integer; 
begin 
  for i:=0 to 1000000 do 
    PostMessage(Handle, UM_ADD, 0, 0); 
end; 

procedure TForm1.OnMsgAdd(var Msg: TMsg); 
begin 
  Inc(FVal); 
  Label1.Caption := IntToStr(FVal); 
end; 

end.

XP下运行结果：
 

可见，消息队列的默认长度是10000（在WIN7下运行结果是9998），队列满后消息将被丢弃。

 

如果把代码中的PostMessage改成SendNotifyMessage，运行后过了一段时间，窗口弹出：

 

所以，功能类似的SendNotifyMessage不会丢掉消息，必要时可以用它代替PostMessage。

上面的结论是错误的，SendNotifyMessage并没有那么神奇，上面的例子没有丢失消息的原因是因为

SendNotifyMessage发消息给同线程创建的窗口时，采用的是直接调用窗口函数的方式，换句话说

就是在执行SendMessage。