diff --git a/repertory.iss.in b/repertory.iss.in
index 1620156b..36788583 100644
--- a/repertory.iss.in
+++ b/repertory.iss.in
@@ -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;