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 13:55:19 -05:00
parent 9d020dd241
commit 75fe994e95
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
repertory.iss.in
View File

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