paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 20:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix compilation of LazHelpHtml for WinCE. Issue #36558.

Browse Source 
git-svn-id: branches/fixes_2_0@62543 -
This commit is contained in:
wp 2020-01-13 11:51:05 +00:00
parent 7577b0e9e9
commit 81cf2717b8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lazhelphtml.pas
View File

@ -18,7 +18,7 @@ unit LazHelpHTML;
interface interface
uses uses
{$IFDEF Windows}Windows, ShellApi,{$ENDIF} {$IFDEF MSWindows}Windows, ShellApi,{$ENDIF} // needed for ShellExecute, not good for WinCE, issue #36558
Classes, SysUtils, Classes, SysUtils,
// LazUtils // LazUtils
LazFileUtils, UTF8Process, LazUTF8, LazConfigStorage, LazFileUtils, UTF8Process, LazUTF8, LazConfigStorage,
@ -383,7 +383,7 @@ begin
{$ENDIF} {$ENDIF}
// run // run
{$IFDEF Windows} {$IFDEF MSWindows} // not good for WinCE! Issue #36558.
// Special handling for Microsoft Edge in Win10, issue #35659 // Special handling for Microsoft Edge in Win10, issue #35659
if IsShellStr then begin if IsShellStr then begin
if ShellExecute(0,'open',PChar(Executable),PChar(ParamsStr),'',SW_SHOWNORMAL)<=32 then if ShellExecute(0,'open',PChar(Executable),PChar(ParamsStr),'',SW_SHOWNORMAL)<=32 then