diff --git a/demos/Lazarus_any_OS/AppHelper/AppHelper.lpi b/demos/Lazarus_any_OS/AppHelper/AppHelper.lpi index 7a12e328..9b550eb8 100644 --- a/demos/Lazarus_any_OS/AppHelper/AppHelper.lpi +++ b/demos/Lazarus_any_OS/AppHelper/AppHelper.lpi @@ -72,6 +72,11 @@ + + + + + diff --git a/demos/Lazarus_any_OS/ExternalPumpBrowser/ExternalPumpBrowser.lpr b/demos/Lazarus_any_OS/ExternalPumpBrowser/ExternalPumpBrowser.lpr index 905592fe..216feb14 100644 --- a/demos/Lazarus_any_OS/ExternalPumpBrowser/ExternalPumpBrowser.lpr +++ b/demos/Lazarus_any_OS/ExternalPumpBrowser/ExternalPumpBrowser.lpr @@ -69,7 +69,8 @@ uses begin RequireDerivedFormResource:=True; - Application.Scaled:=True; + Application.Title := 'External Pump Browser'; + Application.Scaled := True; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; diff --git a/demos/Lazarus_any_OS/ExternalPumpBrowser/uExternalPumpBrowser.pas b/demos/Lazarus_any_OS/ExternalPumpBrowser/uExternalPumpBrowser.pas index ff1119dc..e9d6fdb1 100644 --- a/demos/Lazarus_any_OS/ExternalPumpBrowser/uExternalPumpBrowser.pas +++ b/demos/Lazarus_any_OS/ExternalPumpBrowser/uExternalPumpBrowser.pas @@ -276,8 +276,10 @@ end; initialization if GlobalCEFApp = nil then begin CreateGlobalCEFApp; - if not GlobalCEFApp.StartMainProcess then + if not GlobalCEFApp.StartMainProcess then begin + DestroyGlobalCEFApp; halt(0); // exit the subprocess + end; end; finalization