troubleshooting Question

Run As Service HELP

Avatar of Grant Fullen
Grant Fullen asked on
Delphi
19 Comments2 Solutions254 ViewsLast Modified:
Hi all i have an app I am running as a service. It compiles and i can install and unininstall, and start and stop. I have some on exacute code on the service below.
 Timer1.Enabled := True;
 whilenot Terminated do
    ServiceThread.ProcessRequests(True);// wait for termination
  Timer1.Enabled := False;
Timer code below
procedure TService1.Timer1Timer(Sender: TObject);
begin
 ShowMessage('Testing');
end;
As i said all will install, and start the service but can not get the show message to work.
Question .How can i get the show message to work with my service application.
Thanks for looking and or helping.
Grant
ASKER CERTIFIED SOLUTION
Russell Libby
Software Engineer, Advisory
Join our community to see this answer!
Unlock 2 Answers and 19 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 2 Answers and 19 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros