要确定Business Central中的扩展是否已安装，您可以使用AL代码编写以下解决方案：

1. 使用扩展管理器对象：

procedure IsExtensionInstalled@1(var IsInstalled: Boolean)
var
    ExtensionManagement: Codeunit "Extension Management";
    ExtensionRecord: Record 50105 "Extension";
begin
    IsInstalled := false;

    // 获取扩展记录
    if ExtensionRecord.Get(ExtensionRecord.FindByExtensionID('EXTENSION_ID')) then
    begin
        // 检查扩展状态
        if ExtensionRecord.Status = ExtensionRecord.Status::Installed then
            IsInstalled := true;
    end;
end;

请将'EXTENSION_ID'替换为您要检查的扩展的唯一标识符。

2. 使用系统表查询：

procedure IsExtensionInstalled@1(var IsInstalled: Boolean)
var
    ExtensionInstalled: Boolean;
begin
    IsInstalled := false;

    // 查询系统表
    SELECT COUNT(*) INTO ExtensionInstalled
    FROM "Extension"
    WHERE "Extension ID" = 'EXTENSION_ID' AND Status = Status::Installed;

    // 检查扩展是否已安装
    if ExtensionInstalled then
        IsInstalled := true;
end;

请将'EXTENSION_ID'替换为您要检查的扩展的唯一标识符。

在上述两种方法中，您可以将IsInstalled参数传递给函数，以获取扩展是否已安装的布尔值。