请问NT服务程序怎么做呢？

Question

在服务管理器，选择服务，单击右键，选择属性中的登陆，可修改帐号。
或者在编程中实现：
        schService = CreateService(        //调用建立SERVICE的API
            schSCManager,                //SERVICE管理器数据库的句柄
            TEXT(m_lpServiceName),            //服务名称
            TEXT(m_lpServiceDisplayName),        //显示的名称
            SERVICE_ALL_ACCESS,            //希望得到的运行权限
            SERVICE_WIN32_OWN_PROCESS,    //SERVICE的类型
            SERVICE_AUTO_START,            //启动的方式
            SERVICE_ERROR_NORMAL,        //错误控制类型
            TEXT(m_lpServicePathName),        //可执行文件的路径名
            NULL,        //一组服务装入时的顺序
            NULL,        //检查人标记
            _T("RPCSS\0"),        //从属
            NULL,        //本地USER名     在此输入帐号
            NULL);        //密码          在此输入密码

Answer 1

to Leehunter():
 我没找到你的这段代码，下面是我的type
  TMyService = class(TService)
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    procedure Timer1Timer(Sender: TObject);
  public
    { Public declarations }
  end;var
  FWBService: TFWBService;implementation{$R *.DFM}procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  FWBService.Controller(CtrlCode);
end;