BlockStorage/repertory
1
0
Fork 0
Code Issues 9 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;
WM_SETTINGCHANGE = $001A;
type
LPARAM = LongWord;
LRESULT = LongWord;
WPARAM = LongWord;
function SendMessageTimeout(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM;
fuFlags: UINT; uTimeout: UINT; out lpdwResult: DWORD): LRESULT;
external 'SendMessageTimeoutW@user32.dll stdcall';
procedure RefreshEnvironment();
var
R: Cardinal;
R: DWORD;
begin
SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0,
LPARAM(PChar('Environment')), SMTO_ABORTIFHUNG, 5000, R);
'Environment', SMTO_ABORTIFHUNG, 5000, R);
end;
function NormalizeSemicolons(S: string): string;