如果知道Service Application与普通Application的区别,那就可以先在普通程序中调试好
再转成Service, 看看我的一个程序的DPR文件代码:
begin
if RunInServiceMode then //如果使用Service方式
begin
SvcMgr.Application.Initialize;
SvcMgr.Application.CreateForm(TServiceShutDown, ServiceShutDown);
SvcMgr.Application.Run;
end
else //普通应用程序方式
begin
Forms.Application.Initialize;
Forms.Application.CreateForm(TFormMain, FormMain);
Forms.Application.Run;
end;
end.