{
Call HTML browser.
}
procedure WebBrowser(FileName:String);
var WebViewer:String; p:Integer;
begin
 FileName:=Trim(FileName);
 if Length(FileName)=0 then FileName:='http://localhost/index.htm';
 WebViewer:=ParamStr('GetExeByFile '+DaqFileRef('~~\Resource\Manual\crw-daq.htm',''));
 if FileExists(WebViewer) then begin
  p:=task_init('"'+WebViewer+'" "'+FileName+'"');
  if task_run(p)
  then Success('Start pid '+Str(task_pid(p))+': '+task_ctrl(p,'CmdLine'))
  else Success('Could not browse '+FileName);
  b:=task_Free(p);
 end else begin
  if ShellExecute('open|'+FileName)<=32 then Success('Could not open '+FileName);
 end;
 WebViewer:='';
end;
