library bootone;

uses
  Windows,
  Vcl.SvcMgr,
  System.SysUtils,
  System.Classes,
  ServiceRunDLL in 'ServiceRunDLL.pas',
  SvcBs1Rcvr in 'SvcBs1Rcvr.pas' {SvBs1Rcvr: TService},
  GlobalDefine in '..\LIB_Common\GlobalDefine.pas';

{$R *.res}

exports
  ServiceMain,
  InstallServices_dll,
  UninstallServices_dll;

procedure MyDllProc(Reason: Integer);
begin
  case Reason of
    DLL_THREAD_ATTACH:
    begin

    end;

    DLL_THREAD_DETACH:
    begin

    end;

    DLL_PROCESS_DETACH:
    begin

    end;
  end;
end;

begin
  DLLProc := @MyDllProc;

  if not Application.DelayInitialize then
    Application.Initialize;
  Application.CreateForm(TSvBs1Rcvr, SvBs1Rcvr);
  end.