一个独立的Delphi应用程序,也可以作为Windows服务安装

发布时间：2020-12-15 05:22:04 所属栏目：大数据来源：网络整理

导读：在Delphi中，您可以创建一个独立的Windows VCL表单应用程序。您还可以创建Windows服务应用程序。是否可以将这两个组合在一个可作为独立应用程序运行的单个应用程序中，也可以作为Windows服务安装？解决方法完全可能。诀窍是编辑.dpr以创建主窗体，当您希

在Delphi中，您可以创建一个独立的Windows VCL表单应用程序。您还可以创建Windows服务应用程序。

是否可以将这两个组合在一个可作为独立应用程序运行的单个应用程序中，也可以作为Windows服务安装？

解决方法

完全可能。诀窍是编辑.dpr以创建主窗体，当您希望作为应用程序运行时，以及服务窗体当您希望作为服务运行时。喜欢这个：

if SvComFindCommand('config') then begin
  //When run with the /config switch,display the configuration dialog.
  Forms.Application.Initialize;
  Forms.Application.CreateForm(TfrmConfig,frmConfig);
  Forms.Application.Run;
end
else begin
  SvCom_NTService.Application.Initialize;
  SvCom_NTService.Application.CreateForm(TscmServiceSvc,scmServiceSvc);
  SvCom_NTService.Application.Run;
end;

上面的代码使用SvCom来运行服务，但使用标准TService可以实现完全相同的效果。

我写了一篇关于Delphi杂志多年前的文章。你可以在这里阅读：Many Faces Of An Application。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!