paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 10:32:32 +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;
end;
SplitCmdLineParams(Cmd,Params);
Result:=Params[0];
Params.Delete(0);
if Params.Count>0 then
begin
Result:=Params[0];
Params.Delete(0);
end;
end;
swsbkFirefox: Result:=GetBrowserFirefox(URL,Params);
swsbkChrome: Result:=GetBrowserChrome(URL,Params);