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-boun...@delphi.org.nz [mailto:delphi-boun...@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.

_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: 
unsubscribe

Reply via email to