lazarus-ccr/components/geckoport/version2/SampleApps/GBrowser.dpr

program GBrowser;

uses
{$IFDEF LCL}
  Interfaces,
 {$IFDEF MSWINDOWS}
  Math,
 {$ENDIF}
{$ENDIF}
  sysutils,
  Forms,
  GeckoInit,
  gec10 in 'gec10.pas';


begin
{$IFDEF FPC}
 {$IFDEF MSWINDOWS}
  //For now - disable all floating point exceptions or XULRUNNER will crash.
  SetExceptionMask([exInvalidOp,exDenormalized,exZeroDivide,exOverflow,exUnderflow,exPrecision]);
 {$ENDIF}
{$ENDIF}

  Application.Initialize;
  try
    GeckoComponentsStartup(ParamStr(1));
  except
    on E: Exception do
      raise Exception.CreateFmt('Failed to initialize xulrunner. Try to pass the complete filename ' +
                                'of the libxpcom library (including the path) as first parameter to ' +
                                'the command line. Original error message: %s', [E.Message]);
  end;
  try
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  finally
    GeckoComponentsShutdown;
  end;
end.