paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 17:58:18 +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:='';
{$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')