2022-10-15 19:29:11 +02:00
|
|
|
program VirtualUIBrowser_sp;
|
|
|
|
|
|
|
|
{$MODE Delphi}
|
|
|
|
|
2023-11-27 18:21:07 +01:00
|
|
|
{$I ..\..\..\source\cef.inc}
|
2022-10-15 19:29:11 +02:00
|
|
|
|
|
|
|
uses
|
|
|
|
LCLIntf, LCLType, LMessages, Forms, Interfaces,
|
|
|
|
uCEFApplicationCore;
|
|
|
|
|
|
|
|
{$IFDEF MSWINDOWS}
|
|
|
|
// CEF needs to set the LARGEADDRESSAWARE flag which allows 32-bit processes to use up to 3GB of RAM.
|
|
|
|
{$SetPEFlags $20}
|
|
|
|
{$ENDIF}
|
|
|
|
|
2024-05-02 12:31:19 +02:00
|
|
|
{$R *.res}
|
|
|
|
|
2022-10-15 19:29:11 +02:00
|
|
|
begin
|
|
|
|
GlobalCEFApp := TCefApplicationCore.Create;
|
|
|
|
GlobalCEFApp.WindowlessRenderingEnabled := True;
|
2023-12-23 18:58:40 +01:00
|
|
|
GlobalCEFApp.EnableGPU := True;
|
|
|
|
GlobalCEFApp.SetCurrentDir := True;
|
2022-10-15 19:29:11 +02:00
|
|
|
//GlobalCEFApp.LogFile := 'debug.log';
|
|
|
|
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
|
|
|
|
|
|
|
|
GlobalCEFApp.StartSubProcess;
|
|
|
|
DestroyGlobalCEFApp;
|
|
|
|
end.
|
|
|
|
|