unit1.dfm

使用Delphi5制作Tservice的例子

object TestService: TTestService
  OldCreateOrder = False
  DisplayName = 'Test Service'
  Interactive = True
  StartType = stManual
  BeforeInstall = ServiceBeforeInstall
  AfterInstall = ServiceAfterInstall
  BeforeUninstall = ServiceBeforeUninstall
  AfterUninstall = ServiceAfterUninstall
  OnContinue = ServiceContinue
  OnExecute = ServiceExecute
  OnPause = ServicePause
  OnShutdown = ServiceShutdown
  OnStart = ServiceStart
  OnStop = ServiceStop
  Left = 283
  Top = 210
  Height = 437
  Width = 734
end