CEF4Delphi/demos/Delphi_VCL/WindowsServiceBrowser/WindowsServiceBrowser_sp.dpr
Salvador Díaz Fau f764c39cc1 Replace the SetPEFlags code
Remove the outdated license text.
Use the main cef.inc file in all Delphi demos.
Fixed issue #493.
2023-11-26 19:28:28 +01:00

25 lines
789 B
ObjectPascal

program WindowsServiceBrowser_sp;
{$I ..\..\..\source\cef.inc}
uses
uCEFApplicationCore;
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
GlobalCEFApp := TCefApplicationCore.Create;
GlobalCEFApp.WindowlessRenderingEnabled := True;
GlobalCEFApp.ShowMessageDlg := False;
GlobalCEFApp.BlinkSettings := 'hideScrollbars';
GlobalCEFApp.EnableGPU := False;
GlobalCEFApp.DisableComponentUpdate := True;
GlobalCEFApp.SetCurrentDir := True;
GlobalCEFApp.StartSubProcess;
DestroyGlobalCEFApp;
end.