本文整理自网络，侵删。
function SharedActivityManager: JActivityManager;
var
AService: JObject;
begin
AService := SharedActivityContext.getSystemService(TJContext.JavaClass.ACTIVITY_SERVICE);
Result := TJActivityManager.Wrap((AService as ILocalObject).GetObjectID);
end;
function IsAppActive(AName:JString):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)or (AProcess.importance=TJActivityManager_RunningAppProcessInfo.JavaClass.IMPORTANCE_BACKGROUND) then
begin
Result:=True;
Break;
end;
end;
end;
end;
end;
procedure TformMain.Button2Click(Sender: TObject);
var
b:Boolean;
begin
b:= IsAppActive(StringToJString(txtfind.Text));
if b then
ShowMessage('存在')
else
ShowMessage('不存在');
end;
相关阅读 >>
Delphi 的 tstringbuilder 可以完美实现jave ,c#的tstringbuilder功能
Delphi d10.x 在android 9及更高版本下使用Delphi获取设备序列号？
Delphi xe 在andriod程序中获取外置sd卡根目录
更多相关阅读请进入《Delphi》频道 >>
