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

40 lines
926 B
ObjectPascal
Raw Normal View History

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.