CEF4Delphi/demos/Lazarus_Windows/TabbedBrowser/TabBrowser.lpr

37 lines
771 B
ObjectPascal
Raw Normal View History

program TabBrowser;
{$I ..\..\..\source\cef.inc}
uses
{$IFDEF DELPHI16_UP}
Vcl.Forms,
WinApi.Windows,
{$ELSE}
Forms, Interfaces,
Windows,
{$ENDIF }
uCEFApplication,
uMainForm in 'uMainForm.pas' {MainForm};
//{$R *.res}
{$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
begin
// GlobalCEFApp creation and initialization moved to a different unit to fix the memory leak described in the bug #89
// https://github.com/salvadordf/CEF4Delphi/issues/89
CreateGlobalCEFApp;
if GlobalCEFApp.StartMainProcess then
begin
Application.Initialize;
{$IFDEF DELPHI11_UP}
Application.MainFormOnTaskbar := True;
{$ENDIF}
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end;
DestroyGlobalCEFApp;
end.