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

LCLIntf: refactor.

Browse Source 
git-svn-id: trunk@52641 -
This commit is contained in:
bart 2016-07-06 08:52:03 +00:00
parent 491870c710
commit 9a90869147
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/sysenvapis_win.inc
View File

@ -187,7 +187,7 @@ end;
{$ENDIF WinCE}
function FindDefaultBrowserAndOpenUrl(AURL: String): Boolean;
function FindDefaultBrowserAndOpenUrl(AURL: String; IsFileURI: Boolean=False; IsLocalWithAnchor: Boolean=False): Boolean;
var
ABrowser, AParams: WideString;
H: HINST;
@ -200,7 +200,7 @@ begin
if (Pos('%s', AParams) > 0) then
begin
//at least FireFox does not like -url -osint "%s" for local files, it wants "%s"
if IsFileUriScheme(AURL) and IsHtmlWithAnchor(AURL) then
if IsFileUri and IsLocalWithAnchor then
AParams := '"%s"';
{$IFnDEF ACP_RTL}
AParamsUtf8 := Utf16ToUtf8(AParams);
@ -262,7 +262,7 @@ begin
//if FindDefaultBrowserWide returns 'rundll.exe'
//See: issue #0030326 and related
if IsFileURI and IsHtmlWithAnchor(AURL) then
Result := FindDefaultBrowserAndOpenURL(AURL)
Result := FindDefaultBrowserAndOpenURL(AURL, True, True)
else
begin
//Urls that start with file:// are allowed to contain spaces and should be quoted