zoukankan      html  css  js  c++  java
  • Delphi开发Windows服务程序教程<一>

    开发步骤:
    1、New->Other->Service Application
    2、现在一个服务程序的框架已经搭起来了,打开Service1窗口,有几个属性说明一下:
    AllowPause:是否允许暂停
    AllowStop: 是否允许停止
    Dependencies: 设置服务的依存关系,服务的启动是否依赖于某个服务或者组
    DisplayName: 在“服务”窗口显示的名称
    Interactive: 设置为true时可以和Windows桌面进行交互,如果我们想在服务里显示窗体的话此设置就要设置为true,另外ServiceType必须为stWin32
    Password: 密码
    StartType: 启动方式
    3、如果我们想让服务与窗体交互,步骤如下:
    在工程中新建一个窗体fmMain
    然后在Service1的OnStart中写代码
    procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
    begin
    Started := True;
    Svcmgr.Application.CreateForm(TFmMain, fmMain);
    FmMain.show;
    end;

    OnStop的代码
    procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
    begin
    Stopped := True;
    FmMain.Free;
    end;
    这样在服务启动的时候就会显示出新建的那个窗体
    4、编译完成后,我们可以安装服务了,安装方法为:
    在cmd窗口中执行 appname /install,
    如F:BookDServiceProject1.exe /install
    这样服务就安装完成了
    5、同样,删除时也是在cmd窗口输入命令 appname /uninstall
    如F:BookDServiceProject1.exe /uninstall

    关于其他:
    1、关于服务程序的调试
    如果我们开发的服务有多个窗体,程序的调试无疑是个大问题
    其实服务程序稍微一改就能改成一个标准的Win32工程,为了防止不停的变来变去,我们可以加上一个编译条件,通过编译条件来切换生成服务程序还是普通可执行程序,假设编译条件为 NormalApp,在以下几个地方需要加入编译条件
    工程文件中,单元的引用
    {$IFDEF NormalApp}
    Forms,
    {$ELSE}
    SvcMgr,
    {$ENDIF}

    工程初始化
    {$IFDEF NormalApp}
    Application.Initialize;
    Application.CreateForm(TFmMain, FmMain);
    Application.Run;
    {$ELSE}
    if not Application.DelayInitialize or Application.Installing then
    Application.Initialize;
    Application.CreateForm(TService1, Service1);
    Application.Run;
    {$ENDIF}
    这样我们就可以通过增加/删除NormalApp的编译条件来切换服务程序和普通窗口程序了

  • 相关阅读:
    360抢票王验证码自动识别真的那么牛吗?
    wpf 的各个template
    HTML/CSS实现的一个列表页
    泛型约束和利用反射修改对象属性的值
    KindEditor富文本编辑器, 从客户端中检测到有潜在危险的 Request.Form 值
    检查对象是否为NULL或者为Empty
    【笔记】WPF实现ViewPager引导界面效果及问题汇总
    【笔记】WPF之模板控件应用
    【笔记】W3C CSS关键属性
    【转】Web标准中的常见问题
  • 原文地址:https://www.cnblogs.com/spiritofcloud/p/3976169.html
Copyright © 2011-2022 走看看