1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-22 22:17:48 +02:00
Files
CEF4Delphi/demos/Lazarus_Windows/EditorBrowser/EditorBrowser.dpr

33 lines
596 B
ObjectPascal
Raw Permalink Normal View History

program EditorBrowser;
{$MODE Delphi}
{$I ..\..\..\source\cef.inc}
uses
Forms,
Windows,
Interfaces,
uCEFApplication,
uEditorBrowser in 'uEditorBrowser.pas' {Form1};
{.$R *.res}
// CEF needs to set the LARGEADDRESSAWARE ($20) flag which allows 32-bit processes to use up to 3GB of RAM.
{$IFDEF WIN32}{$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}{$ENDIF}
{$R *.res}
begin
CreateGlobalCEFApp;
if GlobalCEFApp.StartMainProcess then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
DestroyGlobalCEFApp;
end.