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

simplewebserver: fixed crash if browser path empty

Browse Source
This commit is contained in:
mattias 2024-01-24 11:25:23 +01:00
parent 7b1e04c5d8
commit b737901aa5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/simplewebservergui/simplewebsrvcontroller.pas
View File

@ -2008,8 +2008,11 @@ begin
exit; exit;
end; end;
SplitCmdLineParams(Cmd,Params); SplitCmdLineParams(Cmd,Params);
Result:=Params[0]; if Params.Count>0 then
Params.Delete(0); begin
Result:=Params[0];
Params.Delete(0);
end;
end; end;
swsbkFirefox: Result:=GetBrowserFirefox(URL,Params); swsbkFirefox: Result:=GetBrowserFirefox(URL,Params);
swsbkChrome: Result:=GetBrowserChrome(URL,Params); swsbkChrome: Result:=GetBrowserChrome(URL,Params);