Mute/stop 视频 运行 在后台（Delphi - Android 应用程序）

Question

我在 Delphi 中有一个播放视频的应用程序。当我打开另一个应用程序但黑屏时，我一直听到视频声音。 如何检测到屏幕已黑屏，或已切换到另一个应用程序？

Answer 1

我找到了解决方案。

uses FMX.Platform;

procedure TMyForm.FormCreate(Sender: TObject);
var
AppEventSvc:IFMXApplicationEventService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService,IInterface(AppEventSvc)) then
begin
AppEventSvc.SetApplicationEventHandler(AppEvent);
end;
end;

function TMyForm.AppEvent(AAppEvent:TApplicationEvent;AContext:TObject):Boolean;
begin
if AAppEvent=TApplicationEvent.WillTerminate then
begin
// Do soomething
end;
Result:=True;
end;