paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 03:37:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 52863 #8c06636b4b from trunk:

Browse Source 
LazHelpHtml: UnQuotes the result of FinddefaultBrowser. Resolves issue #0030502.
........

git-svn-id: branches/fixes_1_6@52892 -
This commit is contained in:
maxim 2016-08-29 22:20:06 +00:00
parent 0afe553727
commit 797d33ae13
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/lazhelphtml.pas
View File

@ -334,6 +334,13 @@ begin
ErrMsg:=hhsHelpNoHTMLBrowserFound;
exit;
end;
{$ifdef windows}
//The result of FindDefaultBrowser may or may not be quoted on Windows
//Since on Windows, a filename cannot contain a double quote, we simply remove them
//otherwise FileExistsUf8 and FileIsExecutable fail. Issue #0030502
if (Length(Executable) > 1) and (Executable[1] = '"') and (Executable[Length(Executable)] = '"') then
Executable := Copy(Executable, 2, Length(Executable)-2);
{$endif windows}
if (not FileExistsUTF8(Executable)) then begin
ErrMsg:=Format(hhsHelpBrowserNotFound, [Executable]);
exit;