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 12:31:47 -05:00
parent cbb2bfa73d
commit 9d020dd241
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
repertory.iss.in
View File

@@ -34,16 +34,21 @@ const
SMTO_ABORTIFHUNG = $0002; SMTO_ABORTIFHUNG = $0002;
WM_SETTINGCHANGE = $001A; WM_SETTINGCHANGE = $001A;
type
LPARAM = LongWord;
LRESULT = LongWord;
WPARAM = LongWord;
function SendMessageTimeout(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM; function SendMessageTimeout(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM;
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
R: Cardinal; R: DWORD;
begin begin
SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0,
LPARAM(PChar('Environment')), SMTO_ABORTIFHUNG, 5000, R); 'Environment', SMTO_ABORTIFHUNG, 5000, R);
end; end;
function NormalizeSemicolons(S: string): string; function NormalizeSemicolons(S: string): string;