[DUG] Why does this hang?

[Ross Levis]

A little more info.  I have MadExcept operating and it detected "The
application seems to be frozen."

 

77fa15ec ntdll.dll                             KiUserCallbackDispatcher

77e1567d user32.dll                            PeekMessageA

 

KiUserCallbackDispatcher is where it is hanging.

 

From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz] On
Behalf Of Ross Levis
Sent: Thursday, 28 July 2011 11:09 p.m.
To: 'NZ Borland Developers Group - Delphi List'
Subject: [DUG] Why does this hang?

 

I'm using the following code inside a wait loop so that most messages are
processed except for some mouse and keyboard messages (I think) which I
don't want to be processed.  It's working perfectly here but for another
user it hangs indefinitely.

 

If PeekMessage(Msg, MainForm.Handle , 0, 0, PM_NOREMOVE) and

((Msg.message < 160) or ((Msg.message > 264) and (Msg.message < 512))

or (Msg.message > 524)) then

   Application.HandleMessage;

 

I use to have an Application.ProcessMessages but this was causing a problem
which I can't remember now, and this code fixed it.

 

Cheers.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20110728/f54cbc77/attachment.html