Windows service demo

jachguate · Feb 28, 2022 · 5eae984 · 5eae984
1 parent cde4a94
commit 5eae984
Show file tree

Hide file tree

Showing 5 changed files with 867 additions and 0 deletions.
diff --git a/demos/AppType/WindowsService/jachLogServiceDemo.dpr b/demos/AppType/WindowsService/jachLogServiceDemo.dpr
@@ -0,0 +1,14 @@
+program jachLogServiceDemo;
+
+uses
+  Vcl.SvcMgr,
+  usvcDemo in 'usvcDemo.pas' {svcDemo: TService};
+
+{$R *.RES}
+
+begin
+  if not Application.DelayInitialize or Application.Installing then
+    Application.Initialize;
+  Application.CreateForm(TsvcDemo, svcDemo);
+  Application.Run;
+end.