paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-09 02:39:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@52863 -
This commit is contained in:
bart 2016-08-22 13:07:30 +00:00
parent 602280cef5
commit 8c06636b4b
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; ErrMsg:=hhsHelpNoHTMLBrowserFound;
exit; exit;
end; 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 if (not FileExistsUTF8(Executable)) then begin
ErrMsg:=Format(hhsHelpBrowserNotFound, [Executable]); ErrMsg:=Format(hhsHelpBrowserNotFound, [Executable]);
exit; exit;