急,Peekmessage和Getmessage联合起来用。

Question

谢谢你支持！
　因为Getmessage是阻塞的，后调用Getmessage整个程序将处于休眠状态。
　不知能不能这样子，在调用Getmessage之前先用一个循环调用PeekMessage来检查是否已经有消息，如果有的话再调用Getmessage取出消息。
代码如下：
  While Not PeekMessage(Msg,FHandle,MyMsg1,THREAD_EXCEPTION,PM_NOREMOVE)Do
        Application.ProcessMessages;
  if GetMessage(Msg, FHandle, MyMsg1, THREAD_EXCEPTION) then
  begin
  End;
　这样好像不行，用PeekMessage函数返回的消息和GetMessage返回的消息不一样，不知怎么办，哪位高手知道？

Answer 1

你什么意思啊？PeekMessage不就把消息取出来了吗？再GetMessage干吗？阻塞有什么关系啊，只要有消息就唤醒了啊。，为什么还有Application.ProcessMessages？感觉快死循环了。