PostMessage偶尔会丢失一条消息

我编写了一个多线程windows应用程序,其中线程:

B偶尔会生成数据并将其传递给两个A。

线程安全队列用于将数据从线程B传递到线程A。使用windows critical section对象保护入队和出队函数。

这在相当长的一段时间内都很有效,直到一台特定的计算机开始丢失偶尔的信息。lose的意思是,PostMessage在B中成功返回,但A从未收到消息。这会导致软件显示为冻结状态。

我已经想出了一些可以接受的解决办法。我很想知道为什么windows会丢失这些消息,为什么这只发生在一台计算机上。

下面是代码的相关部分。

// Only called by B
procedure TSharedQueue.Enqueue(AItem: TSQItem);
var
 B: boolean;
begin
  EnterCriticalSection(FQueueLock);
  if FCount > 0 then
    begin
      FLast.FNext := AItem;
      FLast := AItem;
    end
  else
    begin
      FFirst := AItem;
      FLast := AItem;
    end;

  if (FCount = 0) or (FCount mod 10 = 0) then // just in case a message is lost
    repeat
      B := PostMessage(FConsumer, SQ_HAS_DATA, 0, 0);
      if not B then 
  Sleep(1000); // this line of code has never been reached
    until B;

  Inc(FCount);
  LeaveCriticalSection(FQueueLock);
end;

// Only called by A 
function TSharedQueue.Dequeue: TSQItem;
begin
  EnterCriticalSection(FQueueLock);
  if FCount > 0 then
    begin
      Result := FFirst;
      FFirst := FFirst.FNext;
      Result.FNext := nil;
      Dec(FCount);
    end
  else
    Result := nil;
  LeaveCriticalSection(FQueueLock);
end;

// procedure called when SQ_HAS_DATA is received
procedure TfrmMonitor.SQHasData(var AMessage: TMessage);
var
  Item: TSQItem;
begin
  while FMessageQueue.Count > 0 do
    begin
      Item := FMessageQueue.Dequeue;
      // use the Item somehow
    end;
end;