获取已安装的应用程序列表

时间:2019-02-15 07:29:58

标签: android delphi

是否可以在Android手机上获取当前安装的应用程序列表?

当前,我尝试检查应用程序是否已安装,但是我需要将所有已安装的应用程序保存在StringList中。

function TForm2.IsAppInstalled(const AAppName: string): Boolean;
var
   PackageManager: JPackageManager;
begin
PackageManager := SharedActivity.getPackageManager;
try
   PackageManager.getPackageInfo(StringToJString(AAppName), 
   TJPackageManager.JavaClass.GET_ACTIVITIES);
   Result := True;
except
   on Ex: Exception do
      Result := False;
end;
end;
{$ENDIF}

procedure TForm2.Button1Click(Sender: TObject);
begin
Label1.Text := BoolToStr(IsAppInstalled('com.test.project1'), True);
end;

1 个答案:

答案 0 :(得分:2)

这应该解决它:

cd "directory wth space"