知道MsiQueryFeatureState API函数的请进

[wangRobin]

Private Declare Function MsiQueryFeatureState Lib "Msi" Alias "MsiQueryFeatureStateA" (ByVal Product As String, ByVal Feature As String) As Long

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Start Word.
Dim wdApp As Object
wdApp = CreateObject("Excel.Application")

' Get the Product Code.
Dim szCode As String
szCode = wdApp.ProductCode

' Get FeatureState for the VBAFiles Feature.
Dim x As Long
x = MsiQueryFeatureState(szCode, "VBAFiles")

If (x = 1) Or (x = 3) Or (x = 4) Then
MsgBox("VBA is installed")
Else
MsgBox("VBA is NOT installed")
End If
End Sub


上面代码的作用是判断Excel是否安装了VBA组件,代码是从MSDN上找来的。
但是在我电脑上运行MsiQueryFeatureState函数返回的结果x 跟MSDN上的代码不一样，
代码是If (x = 1) Or (x = 3) Or (x = 4) Then 表示安装了VBA，
我的电脑安装了VBA，运行返回的结果是 8976488881364926467 一串数字。
请专家解答一下。
(VB代码可转换成C#代码，返回的结果也是一样的)
大家如果在自己电脑上运行了，请回复一下返回的结果，看看跟我电脑运行的结果是不是一样.

感谢~

[wangRobin]

代码的地址
http://support.microsoft.com/kb/285884/zh-cn

[xingyuebuyu]

Private Declare Function MsiQueryFeatureState Lib "Msi" Alias "MsiQueryFeatureStateA" (ByVal Product As String, ByVal Feature As String) As Integer

上面是VB6.0的API声明,其中Long对应VB.NET中的Integer

[yuanhuiqiao]

相同~~

[wangRobin]

感谢 xingyuebuyu,
呵呵,对VB.Net不太熟悉