From 883092e2178e4eccd084a973c98c07e50d2f8d55 Mon Sep 17 00:00:00 2001
From: rc-swag <58423624+rc-swag@users.noreply.github.com>
Date: Wed, 6 Nov 2024 15:53:45 +1000
Subject: [PATCH] feat(windows): fix installHelper

---
 .../insthelper/Keyman.System.Install.EnginePostInstall.pas  | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/windows/src/engine/insthelper/Keyman.System.Install.EnginePostInstall.pas b/windows/src/engine/insthelper/Keyman.System.Install.EnginePostInstall.pas
index 56d33c8339..6c756bbbac 100644
--- a/windows/src/engine/insthelper/Keyman.System.Install.EnginePostInstall.pas
+++ b/windows/src/engine/insthelper/Keyman.System.Install.EnginePostInstall.pas
@@ -29,15 +29,13 @@ end;
 function UpdateState: Boolean;
 var
   UpdateStr : UnicodeString;
-  UpdatePBytes : PByte;
   hk: Winapi.Windows.HKEY;
-  updateData: Cardinal;
 begin
 
   Result := False;
   UpdateStr := 'usPostInstall';
 
-  if RegCreateKeyEx(HKEY_CURRENT_USER, PChar(SRegKey_KeymanEngine_CU), 0, NULL, KEY_ALL_ACCESS, NULL, &hk, NULL) = ERROR_SUCCESS then
+  if RegCreateKeyEx(HKEY_CURRENT_USER, PChar(SRegKey_KeymanEngine_CU), 0, nil, 0, KEY_ALL_ACCESS, nil, &hk, nil) = ERROR_SUCCESS then
   begin
     try
       if RegSetValueEx(hk, PChar(SRegValue_Update_State), 0, REG_SZ, PChar(UpdateStr), (Length(UpdateStr)+1) * SizeOf(Char)) = ERROR_SUCCESS then
@@ -54,7 +52,7 @@ begin
   end
   else
   begin
-   // TODO-WINDOWS-UPDATES: error log creating key
+    //TODO-WINDOWS-UPDATES: error log creating key
   end;
 end;