fixed Service status on Win64

- the Handle was sometimes truncated to 32-bit
synopse · Oct 26, 2022 · 66bbc6d · 66bbc6d
1 parent 3319adb
commit 66bbc6d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/core/mormot.core.os.pas b/src/core/mormot.core.os.pas
@@ -3709,7 +3709,7 @@ function RegisterGlobalShutdownRelease(Instance: TObject;
   end;
 
   SC_HANDLE = THandle;
-  SERVICE_STATUS_HANDLE = cardinal;
+  SERVICE_STATUS_HANDLE = THandle;
   TServiceTableEntry = record
     lpServiceName: PChar;
     lpServiceProc: procedure(ArgCount: cardinal; Args: PPChar); stdcall;

diff --git a/src/mormot.commit.inc b/src/mormot.commit.inc
@@ -1 +1 @@
-'2.0.4237'
+'2.0.4238'