我在delphi中创建了一个
Windows服务.我的代码在ServiceExecute中运行
procedure TMyService.ServiceExecute(Sender: TService);
while not Terminated do
begin
CallSomeProcedure;
Sleep(1000);
ServiceThread.ProcessRequests(false);
end;
end;
不幸的是,我无法运行此代码.即使在我调试时,我似乎也没有调用该过程.
Myservice.exe中的代码如下所示.
begin
if not Application.DelayInitialize or Application.Installing then
Application.Initialize;
Application.CreateForm(TMyService,MyService);
Application.Run;
end.
如果我添加,我可以运行serviceExecute
MyService.ServiceExecute(nil);
进入MyService.exe然而,如果我将其作为服务安装,它似乎不会作为Application.Run什么也不做
不知道我做错了什么,但任何帮助都会非常感激.
谢谢