delphi xe Android 判断自己程序是否是前台程序


本文整理自网络,侵删。

 

如果程序当前在前台,返回 True,否则返回 False。

 

function IsAppActive:Boolean;

var
  AList:JList;
  AProcess:JActivityManager_RunningAppProcessInfo;
  AName:JString;
  AIterator:JIterator;
begin
AList:=SharedActivityManager.getRunningAppProcesses;
AName:=SharedActivityContext.getPackageName;
Result:=False;
if Assigned(AList) then
  begin
  AIterator:=AList.iterator;
  while AIterator.hasNext do
    begin
    AProcess:=TJActivityManager_RunningAppProcessInfo.Wrap((AIterator.next as ILocalObject).GetObjectID);
    if AProcess.processName.equals(AName) then
      begin
      if AProcess.importance=TJActivityManager_RunningAppProcessInfo.JavaClass.IMPORTANCE_FOREGROUND then
        begin
        Result:=True;
        Break;
        end;
      end;
    end;
  end;
end;

相关阅读 >>

Delphi-基础(for循环)

gdi tgpimage 提取 gif 动画

cnpack sqlite tool 2.04

Delphi 让程序自己更新本程序

Delphi 禁止窗口移动

Delphi的控制台程式添加图标

Delphi textfile utf8编码读写

Delphi 通用压缩单元

Delphi xe7上启用android蓝牙

快速上手Delphi三十六计之输入处理篇

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...