这两天搞了个服务,双击EXE,在计算机管理的服务列表里就可以看到我写的服务名称,再net start xxx 才能在进程和托盘中显示,能不能不用net start xxx 就可以启动起来,请哪位高手指点一下
下面附上我的代码 CreateMutex(nil, True, 'XXX');
if GetLastError <> 0 then
halt;
Application.Initialize;
Application.Title := 'XXX服务';
Application.CreateForm(TSerBsdIP, SerBsdIP);
InstallService(SerBsdIP.Name,'XXX服务','XXX服务','BSDIP');
Application.CreateForm(TFrm_SerMain, Frm_SerMain);
Application.Run;
下面附上我的代码 CreateMutex(nil, True, 'XXX');
if GetLastError <> 0 then
halt;
Application.Initialize;
Application.Title := 'XXX服务';
Application.CreateForm(TSerBsdIP, SerBsdIP);
InstallService(SerBsdIP.Name,'XXX服务','XXX服务','BSDIP');
Application.CreateForm(TFrm_SerMain, Frm_SerMain);
Application.Run;
解决方案 »
- 请教:关于Delphi2010设置问题
- VC++代码改成delphi出现的错误 请大家帮忙看看
- 注册表怎么实现让一个键值指向另2个键值合并
- 如何使用扫描枪扫描条码
- 求一段时间内一组数据的标准偏差?高手帮忙
- 在delphi中怎么实现对数据端口的操作?
- 哪儿有SQL Builder and Parser这样的东东下载呀???急、急、急呀
- 如何去掉W2000server登录时的窗口?在线等!立即给分!
- 请问如何在ListView中显示当前系统的驱动器盘符,是要分行显示的.
- ==关于Oracle和BatchUpdate???==
- delphi中dbgrid默认双击能修改里面的内容,怎么关闭这个功能
- 怎么拖动这个窗体?
或者把net start XX命令放到批处理里
比如,建一个start.bat文件
里面写上net start XXXX
执行这个bat就可以开始服务了
[email protected]
不胜感谢!
多谢谢你的DEMO