发个帖：createservice创建的服务无法启动，有经验的大神指教下

该用户很帅 2013-04-27 05:38:24

需求：一个普通的EXE 添加服务功能 createservice后
别说程序启动，就是在本地服务里手工启动服务也失败，如下
问题错误：无法启动服务 1053服务没有及时响应启动或控制请求
先上代码：



procedure TForm1.Button1Click(Sender: TObject);

begin

 CreateServices('stest',Application.exename);

end;





function  CreateServices(Const SvrName,FilePath:String):Boolean;

var

  Svc,Service:SC_HANDLE;

begin

  Result:=False;

  if  FilePath  =''  then  Exit;

  Svc := OpenSCManager(nil,nil,SC_MANAGER_CREATE_SERVICE);   {连接服务数据库，参数：1，机器名，打开本机SCM用nil；2，

  打开SCM数据库；3，访问权限}

  if Svc<= 0 then

  begin

    showmessage(syserrormessage(getlasterror));

    CloseServiceHandle(Svc);

    Exit;

  end;



  try

     Service := CreateService(Svc,PChar(SvrName),  //服务控制句柄，指向服务器内部名称

     PChar(SvrName), //显示服务名称

     SERVICE_ALL_ACCESS, //  服务的访问类型

     SERVICE_INTERACTIVE_PROCESS   or   SERVICE_WIN32_OWN_PROCESS, // 服务类型

     SERVICE_AUTO_START,SERVICE_ERROR_NORMAL, //启动类型 错误控制类型

     PChar(FilePath),nil,nil,nil,nil,nil);  //   服务程序路径，组服务名称，组标识，依赖的服务，启动服务帐号，启动服务口令

     if Service <= 0 then

     begin

        ShowMessage(SysErrorMessage(GetlastError));

        Exit;

     end;

     CloseServiceHandle(Service);

     CloseServiceHandle(Svc);

     Result:=True;

  except

    CloseServiceHandle(Service);

    CloseServiceHandle(Svc);

    Exit;

  end;

end;

不知道错在哪里，望大神们指点

...全文

684 20 打赏收藏转发到动态举报

写回复

用AI写文章

20 条回复

切换为时间正序

请发表友善的回复…

发表回复

ysai 2013-05-09

打赏
举报

SvcMgr单元里的application对象已经实现了注册/启动/暂停/停止/卸载相关的功能,你新建一个service application就能实现了我给的示例是可以让一个exe即支持service形式,也支持普通app形式启动的

该用户很帅 2013-05-02

打赏
举报

引用 18 楼 truexf 的回复:

服务程序的代码没贴出来这个只是创建服务，你都创建成功了。都可以看到这个服务了。而服务不能起来是你服务程序本身决定的，检查你RegisterServiceCtrlHandler注册的函数有没有正确处理外部命令？

大神，还要注册啊，这。。真心不懂啊，delphi有没有这方面的例子，请多指教

sololie 2013-04-28

打赏
举报

用service模板创建的服务注册启动都很正常，你还是直接 file-new-other-service application来创建一个服务吧，在属性面板中设置服务各项内容，yourSvr.exe -install 来安装服务

该用户很帅 2013-04-28

打赏
举报

引用 14 楼 ysai 的回复:

服务和普通app是有区别的,服务需要注册,服务的Application和普通窗口应用的Application不是同一个对象下面的例子,如果带有-ui参数,则以非服务启动,否则就是服务程序 program DemoServer; uses SysUtils, SvcMgr, Forms, SvcUIFrm in 'SvcUIFrm.pas', DBSvcFrm in 'DBSvcFrm.pas'; begin if FindCmdLineSwitch('ui') then begin Forms.Application.Initialize; Forms.Application.MainFormOnTaskbar := True; Forms.Application.CreateForm(TSvcUIForm, SvcUIForm); Forms.Application.Run; end else begin if not SvcMgr.Application.DelayInitialize or SvcMgr.Application.Installing then SvcMgr.Application.Initialize; SvcMgr.Application.CreateForm(TDBSvc, DBSvc); SvcMgr.Application.Run; end; end.

那请问大神你的“ui”参数是什么时候写进去的，如何写进去？用winexec?

ysai 2013-04-28

打赏
举报

服务和普通app是有区别的,服务需要注册,服务的Application和普通窗口应用的Application不是同一个对象下面的例子,如果带有-ui参数,则以非服务启动,否则就是服务程序 program DemoServer; uses SysUtils, SvcMgr, Forms, SvcUIFrm in 'SvcUIFrm.pas', DBSvcFrm in 'DBSvcFrm.pas'; begin if FindCmdLineSwitch('ui') then begin Forms.Application.Initialize; Forms.Application.MainFormOnTaskbar := True; Forms.Application.CreateForm(TSvcUIForm, SvcUIForm); Forms.Application.Run; end else begin if not SvcMgr.Application.DelayInitialize or SvcMgr.Application.Installing then SvcMgr.Application.Initialize; SvcMgr.Application.CreateForm(TDBSvc, DBSvc); SvcMgr.Application.Run; end; end.

该用户很帅 2013-04-28