unit Unit3;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.IOUtils, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.Media, FMX.StdCtrls, FMX.ScrollBox, FMX.Memo,
  FMX.Helpers.Android, Androidapi.JNI.Net, FMX.Platform,
  Androidapi.JNIBridge,
  Androidapi.JNI.JavaTypes,
  Androidapi.JNI.Os,
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.Media,
  Androidapi.Helpers,
  Androidapi.JNI.App, Androidapi.JNI,
  FMX.Platform.Android, Androidapi.JNI.PowerManager;
 
type
  TForm3 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
     function HandleAppEvent(AAppEvent: TApplicationEvent;
      AContext: TObject): Boolean;
    procedure Logdatas(sdata: string);
  public
    { Public declarations }
 
  end;
 
var
  Form3: TForm3;
 
 
implementation
 
{$R *.fmx}
 
procedure TForm3.Logdatas(sdata: string);
begin
 
memo1.lines.add(sdata);
end;
 
function TForm3.HandleAppEvent(AAppEvent: TApplicationEvent;
      AContext: TObject): Boolean;
begin
 
case AAppEvent of
 
TApplicationEvent.FinishedLaunching:
Logdatas('Finished Launching');
 
TApplicationEvent.BecameActive:
Logdatas('IsActive');
 
TApplicationEvent.WillBecomeInactive:
Logdatas('Inactive');
 
TApplicationEvent.EnteredBackground:
Logdatas('IsBackground');
 
TApplicationEvent.WillBecomeForeground:
Logdatas('IsForeground');
 
TApplicationEvent.WillTerminate:
Logdatas('Terminate');
 
TApplicationEvent.LowMemory:
Logdatas('Low Memory');
 
TApplicationEvent.TimeChange:
Logdatas('Time Change');
 
TApplicationEvent.OpenURL:
Logdatas('Open URL');
 
end;
 
Result := True;
 
end;
 
 
procedure TForm3.FormCreate(Sender: TObject);
var
  aFMXApplicationEventService: IFMXApplicationEventService;
begin
 
if TPlatformServices.Current.SupportsPlatformService
(IFMXApplicationEventService, IInterface(aFMXApplicationEventService)) then
begin
 
aFMXApplicationEventService.SetApplicationEventHandler(HandleAppEvent);
 
end;
 
 
AcquireWakeLock;
 
end;
 
end.