Fix warning.

narspt · Feb 3, 2019 · 87771ae · 87771ae
1 parent c562bd2
commit 87771ae
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Projects/HtmlHelpFunc.pas b/Projects/HtmlHelpFunc.pas
@@ -75,7 +75,7 @@ function CloseHtmlHelpWindowsEnumProc(Wnd: HWND; lParam: LPARAM): BOOL; stdcall;
 var
   PID: DWORD;
   ClassName: array[0..31] of Char;
-  MsgResult: DWORD;
+  MsgResult: DWORD_PTR;
 begin
   if (GetWindowThreadProcessId(Wnd, @PID) <> 0) and
      (PID = GetCurrentProcessId) then begin
@@ -85,7 +85,7 @@ function CloseHtmlHelpWindowsEnumProc(Wnd: HWND; lParam: LPARAM): BOOL; stdcall;
         because it's waiting on a modal dialog (e.g. Properties) then it's
         probably not safe to close it. }
       if IsWindowEnabled(Wnd) then
-        SendMessageTimeout(Wnd, WM_CLOSE, 0, 0, SMTO_BLOCK, 7500, MsgResult);
+        SendMessageTimeout(Wnd, WM_CLOSE, 0, 0, SMTO_BLOCK, 7500, @MsgResult);
     end;
   end;
   Result := True;