1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-22 22:17:48 +02:00
Files
.github
bin
demos
Delphi_FMX_Linux
Delphi_FMX_Mac
Delphi_FMX_Windows
Delphi_VCL
ConsoleBrowser
ConsoleBrowser2
CookieVisitor
CustomResourceBrowser
DLLBrowser
DOMVisitor
DualBrowser
EditorBrowser
ExternalPumpBrowser
FullScreenBrowser
JavaScript
KioskOSRBrowser
MDIBrowser
MDIExternalPumpBrowser
MediaRouter
MiniBrowser
MiniBrowserD7
MobileBrowser
NetworkTrackerBrowser
OAuth2Tester
OSRExternalPumpBrowser
PopupBrowser
PopupBrowser2
PostInspectorBrowser
ResponseFilterBrowser
SchemeRegistrationBrowser
SimpleBrowser
SimpleBrowser2
SimpleExternalPumpBrowser
SimpleOSRBrowser
SimpleServer
SubProcess
00-DeleteDCUs.bat
SimpleBrowser.dpr
SimpleBrowser.dproj
SimpleBrowser_sp.dpr
SimpleBrowser_sp.dproj
SubProcessGrp.groupproj
uCEFLoader.pas
uCEFLoader_sp.pas
uSimpleBrowser.dfm
uSimpleBrowser.pas
TabbedBrowser
TabbedBrowser2
TabbedOSRBrowser
TinyBrowser
TinyBrowser2
ToolBoxBrowser
ToolBoxBrowser2
ToolBoxSubProcessBrowser
URLRequest
VirtualUIBrowser
WebpageSnapshot
WindowsServiceBrowser
Lazarus_Linux_Console
Lazarus_Linux_GTK2
Lazarus_Linux_GTK3
Lazarus_Mac
Lazarus_Windows
Lazarus_any_OS
docs
packages
source
tools
.gitignore
Delphinus.Info.json
Delphinus.Install.json
LICENSE.md
README.md
update_CEF4Delphi.json
CEF4Delphi/demos/Delphi_VCL/SubProcess/SimpleBrowser.dpr

33 lines
779 B
ObjectPascal
Raw Normal View History

program SimpleBrowser;
{$I ..\..\..\source\cef.inc}
uses
{$IFDEF DELPHI16_UP}
Vcl.Forms,
{$ELSE}
Forms,
{$ENDIF}
uCEFLoader in 'uCEFLoader.pas',
uSimpleBrowser in 'uSimpleBrowser.pas' {Form1};
{$R *.res}
const
IMAGE_FILE_LARGE_ADDRESS_AWARE = $0020;
// 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}
begin
// This demo has the GlobalCEFApp creation, initialization and destruction in uCEFLoader.pas
// Read the code comments in uCEFLoader.pas for more details.
Application.Initialize;
{$IFDEF DELPHI11_UP}
Application.MainFormOnTaskbar := True;
{$ENDIF}
Application.CreateForm(TForm1, Form1);
Application.Run;
end.