From 75fe994e95a900e6f9a69a471c64faca3bf98e77 Mon Sep 17 00:00:00 2001
From: "Scott E. Graves" <scott.e.graves@protonmail.com>
Date: Wed, 30 Jul 2025 13:55:19 -0500
Subject: [PATCH] Create Windows installer #53

---
 repertory.iss.in | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/repertory.iss.in b/repertory.iss.in
index 36788583..4b7265d7 100644
--- a/repertory.iss.in
+++ b/repertory.iss.in
@@ -39,16 +39,19 @@ type
   LRESULT = LongWord;
   WPARAM = LongWord;
 
-function SendMessageTimeout(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM;
+function SendMessageTimeout(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: WideString;
   fuFlags: UINT; uTimeout: UINT; out lpdwResult: DWORD): LRESULT;
   external 'SendMessageTimeoutW@user32.dll stdcall';
 
 procedure RefreshEnvironment();
 var
+  EnvStr: WideString;
   R: DWORD;
 begin
-  SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0,
-    'Environment', SMTO_ABORTIFHUNG, 5000, R);
+  EnvStr := 'Environment' + #0 + #0;
+
+  SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 
+    EnvStr, SMTO_ABORTIFHUNG, 5000, R);
 end;
 
 function NormalizeSemicolons(S: string): string;