1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-05-23 21:50:21 +02:00
Salvador Díaz Fau 79b76d3e71 Fixed black browser in Lazarus demos
Added a manifest to all Lazarus demos for Windows
2024-05-02 12:31:19 +02:00

30 lines
476 B
ObjectPascal

program TinyBrowser2;
{$MODE Delphi}
uses
Interfaces,
uCEFApplication,
uTinyBrowser2 in 'uTinyBrowser2.pas';
{.$R *.res}
{$IFDEF WIN32}
// CEF needs to set the LARGEADDRESSAWARE ($20) flag which allows 32-bit processes to use up to 3GB of RAM.
{$SetPEFlags $20}
{$ENDIF}
{$R *.res}
begin
CreateGlobalCEFApp;
if GlobalCEFApp.StartMainProcess then
begin
GlobalCEFApp.RunMessageLoop;
DestroyTinyBrowser;
end;
DestroyGlobalCEFApp;
end.