CEF4Delphi/demos/Lazarus_Linux_GTK2/TinyBrowser2/TinyBrowser2.lpr

30 lines
517 B
ObjectPascal
Raw Normal View History

program TinyBrowser2;
{$MODE Delphi}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
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}
begin
CreateGlobalCEFApp;
if GlobalCEFApp.StartMainProcess then
begin
GlobalCEFApp.RunMessageLoop;
DestroyTinyBrowser;
end;
DestroyGlobalCEFApp;
end.