From b1a1824050a17c9044da0cd5b63a7595eddc6127 Mon Sep 17 00:00:00 2001 From: "Scott E. Graves" Date: Wed, 30 Jul 2025 14:12:04 -0500 Subject: [PATCH] Create Windows installer #53 --- repertory.iss.in | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/repertory.iss.in b/repertory.iss.in index 4b7265d7..98746b58 100644 --- a/repertory.iss.in +++ b/repertory.iss.in @@ -39,16 +39,16 @@ type LRESULT = LongWord; WPARAM = LongWord; -function SendMessageTimeout(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: WideString; +function SendMessageTimeout(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: AnsiString; fuFlags: UINT; uTimeout: UINT; out lpdwResult: DWORD): LRESULT; - external 'SendMessageTimeoutW@user32.dll stdcall'; + external 'SendMessageTimeoutA@user32.dll stdcall'; procedure RefreshEnvironment(); var - EnvStr: WideString; + EnvStr: AnsiString; R: DWORD; begin - EnvStr := 'Environment' + #0 + #0; + EnvStr := 'Environment' + #0; SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, EnvStr, SMTO_ABORTIFHUNG, 5000, R);