2023-11-27 18:21:07 +01:00
|
|
|
|
unit InitSubProcess;
|
2021-02-17 04:58:49 +01:00
|
|
|
|
|
|
|
|
|
|
{$mode ObjFPC}{$H+}
|
2023-11-27 18:21:07 +01:00
|
|
|
|
{$IFDEF MSWINDOWS}{$I ..\..\..\source\cef.inc}{$ELSE}{$I ../../../source/cef.inc}{$ENDIF}
|
2021-02-17 04:58:49 +01:00
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
|
GlobalCefApplication, uCEFApplication, uCEFWorkScheduler;
|
|
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
|
|
initialization
|
|
|
|
|
|
CreateGlobalCEFApp;
|
|
|
|
|
|
if not GlobalCEFApp.StartMainProcess then begin
|
|
|
|
|
|
if GlobalCEFWorkScheduler <> nil then
|
|
|
|
|
|
GlobalCEFWorkScheduler.StopScheduler;
|
|
|
|
|
|
DestroyGlobalCEFApp;
|
|
|
|
|
|
DestroyGlobalCEFWorkScheduler;
|
|
|
|
|
|
halt(0); // exit the subprocess
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
end.
|
|
|
|
|
|
|
