TInject.dpr

program TInject;
{$I cef.inc}
uses
  {$IFDEF DELPHI16_UP}
  Vcl.Forms,
  {$ELSE}
  Forms,
  Windows,
  {$ENDIF }
  uCEFApplication,
  uCEFConstants,
  u_principal in 'u_principal.pas' {frm_principal},
  UnitCEFHandlerSessionChromium in 'Services\UnitCEFHandlerSessionChromium.pas',
  UnitCEFLoadHandlerChromium in 'Services\UnitCEFLoadHandlerChromium.pas';

{$R *.res}

begin
  GlobalCEFApp := TCefApplication.Create;
  GlobalCEFApp.EnableGPU            := True;
  GlobalCEFApp.cache                := 'DATA\cache';
  GlobalCEFApp.DisableFeatures      := 'NetworkService,OutOfBlinkCors';

  if GlobalCEFApp.StartMainProcess then
    begin
      Application.Initialize;
      {$IFDEF DELPHI11_UP}
      Application.MainFormOnTaskbar := True;
      {$ENDIF}
      Application.CreateForm(Tfrm_principal, frm_principal);
      Application.Run;
    end;

  GlobalCEFApp.Free;
  GlobalCEFApp := nil;
end.