diff --git a/lcl/lazhelphtml.pas b/lcl/lazhelphtml.pas index 038f971018..c323dfdeef 100644 --- a/lcl/lazhelphtml.pas +++ b/lcl/lazhelphtml.pas @@ -393,7 +393,8 @@ procedure THTMLBrowserHelpViewer.FindDefaultBrowser(var Browser, Ext:=''; {$ENDIF} Filename:=SearchFileInPath(ShortFilename+Ext,'', - SysUtils.GetEnvironmentVariable('PATH'),PathSeparator,[]); + SysUtils.GetEnvironmentVariable('PATH'),PathSeparator, + [sffDontSearchInBasePath]); Result:=Filename<>''; if Result then begin FDefaultBrowser:=Filename; @@ -407,7 +408,15 @@ begin OnFindDefaultBrowser(FDefaultBrowser, FDefaultBrowserParams); end; if FDefaultBrowser='' then begin - // prefer open source ;) + {$IFDEF MSWindows} + FDefaultBrowser:= SearchFileInPath('rundll32.exe','', + SysUtils.GetEnvironmentVariable('PATH'),';', + [sffDontSearchInBasePath]); + FDefaultBrowserParams:='url.dll,FileProtocolHandler %s'; + {$ENDIF} + end; + if FDefaultBrowser='' then begin + // then search in path prefer open source ;) if Find('mozilla') or Find('galeon') or Find('konqueror')