创建一个既可作为普通exe(双击能运行),又可作为服务运行的程序。
2009-09-13 11:56
351 查看
由于后台服务和普通程序的运行方式有很多差异,如服务必须从服务控制管理器的上下文中运行而不能直接在explorer中双击鼠标运行。服务程序默认不与桌面交互。
那可否写一个exe既能直接双击鼠标运行,又能作为服务运行呢。
先来看看dpr文件的内容。d7生成的服务工程文件,是不是很眼熟?
Application.Initialize;
Application.CreateForm(Tufidaserver, ufidaserver);
Application.Run;
要注意的是,服务的application来自SvcMgr,和来自forms的application是不同的。
那么,对dpr文件稍做改动,就能实现普通程序和服务程序一体了。
如果想根据付进程来判断运行方式,可在dpr文件内判断父进程是否explorer。
这里是判断是否有参数传入,无参数时作为服务运行。
需要在注册表的服务映像地址改为带参数的,如 I:/代码/订单流程备份服务/jstbackupserver.exe -pp
program jstserver;
uses
SvcMgr,Forms,windows,
Unit1 in 'Unit1.pas' {ufidaserver: TService},
Unit2 in 'Unit2.pas' {Form2};
//{$R *.RES}
begin
if ParamCount>0 then
begin
SvcMgr.Application.Initialize;
SvcMgr.Application.CreateForm(Tufidaserver, ufidaserver);
SvcMgr.Application.Run;
end else begin
Forms.Application.Initialize;
Forms.Application.Title := 'server';
Forms.Application.CreateForm(TForm2, Form2);
Forms.Application.Run;
end;
end.
那可否写一个exe既能直接双击鼠标运行,又能作为服务运行呢。
先来看看dpr文件的内容。d7生成的服务工程文件,是不是很眼熟?
Application.Initialize;
Application.CreateForm(Tufidaserver, ufidaserver);
Application.Run;
要注意的是,服务的application来自SvcMgr,和来自forms的application是不同的。
那么,对dpr文件稍做改动,就能实现普通程序和服务程序一体了。
如果想根据付进程来判断运行方式,可在dpr文件内判断父进程是否explorer。
这里是判断是否有参数传入,无参数时作为服务运行。
需要在注册表的服务映像地址改为带参数的,如 I:/代码/订单流程备份服务/jstbackupserver.exe -pp
program jstserver;
uses
SvcMgr,Forms,windows,
Unit1 in 'Unit1.pas' {ufidaserver: TService},
Unit2 in 'Unit2.pas' {Form2};
//{$R *.RES}
begin
if ParamCount>0 then
begin
SvcMgr.Application.Initialize;
SvcMgr.Application.CreateForm(Tufidaserver, ufidaserver);
SvcMgr.Application.Run;
end else begin
Forms.Application.Initialize;
Forms.Application.Title := 'server';
Forms.Application.CreateForm(TForm2, Form2);
Forms.Application.Run;
end;
end.
相关文章推荐
- 创建一个既可作为普通exe(双击能运行),又可作为服务运行的程序
- 普通程序作为系统服务在后台运行
- How to add a exe application run as a service(如何将一个可执行程序当作服务运行)?
- 将EXE作为资源,然后在释放到磁盘上并运行该exe程序(使用了FindResource,LoadResource,然后用CFile写成一个文件)
- 创建一个如下的窗体,并在窗体上放置colorDialog控件。实现功能:1)程序运行时,单击打开颜色对话框按钮,可选择颜色,并以所选颜色作为窗体背景色
- 让程序作为服务运行(srvany.exe,instsrv.exe)
- C#创建服务及使用程序自动安装服务,.NET创建一个即是可执行程序又是Windows服务的exe(转)
- C#创建服务及使用程序自动安装服务,.NET创建一个即是可执行程序又是Windows服务的exe
- [转]C#创建服务及使用程序自动安装服务,.NET创建一个即是可执行程序又是Windows服务的exe
- C#创建服务及使用程序自动安装服务,.NET创建一个即是可执行程序又是Windows服务的exe
- C#创建服务及使用程序自动安装服务,.NET创建一个即是可执行程序又是Windows服务的exe
- Atitit.Java exe bat 作为windows系统服务程序运行
- 如何让一个程序作为服务运行
- 普通程序作为系统服务在后台运行
- 黄聪:使用srvany.exe将任何程序作为Windows服务运行
- 如何让一个程序作为服务运行
- 如何让一个程序作为服务运行
- vs2013创建exe程序在其它电脑运行出错解决方案
- C#程序双击运行之后,界面不显示,但是在任务管理器有进程(一个winform找bug之旅)
- 如何查看一个运行的exe执行程序需要有哪些DLL动态链接库