BlockStorage/repertory
1
0
Fork 0
Code Issues 7 Pull Requests Releases 8 Wiki Activity

Create Windows installer #53
All checks were successful
BlockStorage/repertory/pipeline/head This commit looks good
Details

Browse Source
This commit is contained in:
Scott E. Graves
2025-07-30 14:12:04 -05:00
parent 75fe994e95
commit b1a1824050
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
repertory.iss.in
View File

@@ -39,16 +39,16 @@ type
LRESULT = LongWord; LRESULT = LongWord;
WPARAM = 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; fuFlags: UINT; uTimeout: UINT; out lpdwResult: DWORD): LRESULT;
external 'SendMessageTimeoutW@user32.dll stdcall'; external 'SendMessageTimeoutA@user32.dll stdcall';
procedure RefreshEnvironment(); procedure RefreshEnvironment();
var var
EnvStr: WideString; EnvStr: AnsiString;
R: DWORD; R: DWORD;
begin begin
EnvStr := 'Environment' + #0 + #0; EnvStr := 'Environment' + #0;
SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0,
EnvStr, SMTO_ABORTIFHUNG, 5000, R); EnvStr, SMTO_ABORTIFHUNG, 5000, R);