mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2024-11-16 00:05:55 +01:00
37 lines
1013 B
ObjectPascal
37 lines
1013 B
ObjectPascal
program AppHelper;
|
|
|
|
(*
|
|
* The compiled exe should be copied into
|
|
* SimpleBrowser.app/Content/Frameworks/SimpleBrowser2 Helper.app/Content/MacOS/SimpleBrowser2 Helper
|
|
* including app bundle in SimpleBrowser2.app/Content/Frameworks/SimpleBrowser2 Helper.app
|
|
*)
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
{$IFDEF MSWINDOWS}{$I ..\..\..\..\source\cef.inc}{$ELSE}{$I ../../../../source/cef.inc}{$ENDIF}
|
|
|
|
uses
|
|
{$IFDEF UNIX}
|
|
cthreads,
|
|
{$ENDIF}
|
|
Interfaces, // this includes the LCL widgetset
|
|
uHelperProcessDom,
|
|
uCEFApplication, uCEFTypes, uCEFConstants, LazFileUtils, sysutils;
|
|
|
|
begin
|
|
GlobalCEFApp := TCefApplication.Create;
|
|
InitProcessMessagesHandler;
|
|
|
|
// The main process and the subprocess *MUST* have the same GlobalCEFApp
|
|
// properties and events, specially FrameworkDirPath, ResourcesDirPath,
|
|
// LocalesDirPath, cache and UserDataPath paths.
|
|
{$IFDEF MACOSX}
|
|
GlobalCEFApp.InitLibLocationFromArgs;
|
|
{$ENDIF}
|
|
|
|
GlobalCEFApp.StartSubProcess;
|
|
GlobalCEFApp.Free;
|
|
GlobalCEFApp := nil;
|
|
end.
|
|
|