46 lines
682 B
Plaintext
46 lines
682 B
Plaintext
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.
|