BriskBard, CEF4Delphi, WebView4Delphi, WebUI4Delphi and WebUI4CSharp

Code: Select all

begin
  CreateGlobalCEFApp;

  if GlobalCEFApp.StartMainProcess then
  begin
    Application.Initialize;
    Application.MainFormOnTaskbar := True;
    Application.Title := 'Береста 5';
    Application.CreateForm(TDM, DM);
    Application.CreateForm(TfmMain, fmMain);
    Application.Run;
  end;

  DestroyGlobalCEFApp;

Code: Select all

procedure CreateGlobalCEFApp;
begin
  GlobalCEFApp                            := TCefApplication.Create;
  GlobalCEFApp.OnProcessMessageReceived   := GlobalCEFApp_OnProcessMessageReceived;
  GlobalCEFApp.WindowlessRenderingEnabled := True;
  GlobalCEFApp.EnableHighDPISupport       := false;

  GlobalCEFApp.DisableFeatures            := 'NetworkService,VizDisplayCompositor';

  GlobalCEFApp.FrameworkDirPath           := 'D:\Dev\Chromium\CEF4Delphi\bin';
  GlobalCEFApp.LocalesDirPath             := 'D:\Dev\Chromium\CEF4Delphi\bin\locales';
  GlobalCEFApp.ResourcesDirPath           := 'D:\Dev\Chromium\CEF4Delphi\bin';
end;