paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 19:35:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

html help viewer: searching for rundll32

Browse Source 
git-svn-id: trunk@9323 -
This commit is contained in:
mattias 2006-05-21 08:32:19 +00:00
parent 18b6c31b47
commit 603d131c19
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/lazhelphtml.pas
View File

@ -393,7 +393,8 @@ procedure THTMLBrowserHelpViewer.FindDefaultBrowser(var Browser,
Ext:=''; Ext:='';
{$ENDIF} {$ENDIF}
Filename:=SearchFileInPath(ShortFilename+Ext,'', Filename:=SearchFileInPath(ShortFilename+Ext,'',
SysUtils.GetEnvironmentVariable('PATH'),PathSeparator,[]); SysUtils.GetEnvironmentVariable('PATH'),PathSeparator,
[sffDontSearchInBasePath]);
Result:=Filename<>''; Result:=Filename<>'';
if Result then begin if Result then begin
FDefaultBrowser:=Filename; FDefaultBrowser:=Filename;
@ -407,7 +408,15 @@ begin
OnFindDefaultBrowser(FDefaultBrowser, FDefaultBrowserParams); OnFindDefaultBrowser(FDefaultBrowser, FDefaultBrowserParams);
end; end;
if FDefaultBrowser='' then begin 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') if Find('mozilla')
or Find('galeon') or Find('galeon')
or Find('konqueror') or Find('konqueror')