* Added error message with the hint to specify the libxpcom-filename when xulrunner failed to load

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2359 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/geckoport/version2/SampleApps/GBrowser.dpr

@@ -7,7 +7,9 @@ uses
   Math,
  {$ENDIF}
 {$ENDIF}
+  sysutils,
   Forms,
+  GeckoInit,
   gec10 in 'gec10.pas';
 
 
@@ -20,6 +22,18 @@ begin
 {$ENDIF}
 
   Application.Initialize;
-  Application.CreateForm(TForm1, Form1);
+  try
-  Application.Run;
+    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.