以编程方式检查SAP Business One安装

您可以使用以下代码检查SAP Business One的安装：

Public Function isSapBusinesOneClientInstalled() As Boolean
   Try
      SAP Business One Application
      Dim type As Type = Type.GetTypeFromCLSID(New Guid("632F4591-AA62-4219-8FB6-22BCF5F60088"))
      Dim obj As Object = Activator.CreateInstance(type)
      Marshal.ReleaseComObject(obj)
      Return True
         Catch ex As COMException
      Return False
   End Try
End Function