Hi,
try this,
procedure TService1.ProcessMessages;
var
Msg: TMsg;
begin
if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
Ben
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED]
Behalf Of Jangita
Sent: 23 June 2006 11:32
To: [email protected]
Subject: [delphi-en] Application.Processmessages in a service
Hi all
Is there an alternative to application.processmessages in a service? i
need some message queues processed as im waiting for a result so in a
normal app id do
while (condition) do
application.processmessages;
but the application variable in a service is of type tserviceapplication
which doesn't have the processmessages procedure.
any ideas?
j
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
------------------------ Yahoo! Groups Sponsor --------------------~-->
Something is new at Yahoo! Groups. Check out the enhanced email design.
http://us.click.yahoo.com/SISQkA/gOaOAA/yQLSAA/i7folB/TM
--------------------------------------------------------------------~->
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
