如何在 Delphi Firemonkey 移动应用程序中检测 iOS 上的应用程序何时未从后台重新打开？

Question

我正在 Android 和 iOS 平台上开发一个 Delphi 移动应用程序，我想在应用程序首次启动时执行一些操作，但不从后台打开。

我尝试过使用 if AAppEvent <> TApplicationEvent.WillBecomeForeground 但当我第一次启动应用程序时，该声明似乎不正确。有什么方法可以让我检测应用程序何时首次启动以及应用程序何时从后台打开？

Answer 1

这是示例代码：

class function TMainForm.ApplicationEventHandler(AAppEvent: TApplicationEvent; AContext: TObject): Boolean;
begin
  if AAppEvent = TApplicationEvent.BecameActive then begin
    if fLaunchedInBackgroundState then begin
        fLaunchedInBackgroundState := False;
    end;
  end
  else if AAppEvent = TApplicationEvent.FinishedLaunching then begin
    LaunchedInBackgroundState := TiOSHelper.SharedApplication.applicationState = UIApplicationStateBackground;
  end;
end;

initialization 
  LaunchedInBackgroundState := False;
  var LAppEventSvc: IFMXApplicationEventService;
  if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(LAppEventSvc)) then
    LAppEventSvc.SetApplicationEventHandler(TmainForm.ApplicationEventHandler);