这段代码怎么修改？

goodidea

Option Compare Database

Type SYSTEM_INFO ' 36 Bytes
    dwOemID As Long
    dwPageSize As Long
    lpMinimumApplicationAddress As Long
    lpMaximumApplicationAddress As Long
    dwActiveProcessorMask As Long
    dwNumberOrfProcessors As Long
    dwProcessorType As Long
    dwAllocationGranularity As Long
    wProcessorLevel As Integer
    wProcessorRevision As Integer
End Type

Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)

Public Sub ShowSystemInfo()
    Dim myInfo As SYSTEM_INFO
    GetSystemInfo (myInfo)
    With myInfo
        MsgBox .dwOemID & vbNewLine & _
                .dwPageSize & vbNewLine & _
                .lpMaximumApplicationAddress & vbNewLine & _
                .lpMinimumApplicationAddress & vbNewLine & _
                .dwActiveProcessorMask & vbNewLine & _
                .dwNumberOrfProcessors & vbNewLine & _
                .dwProcessorType & vbNewLine & _
                .wProcessorLevel & vbNewLine & _
                .wProcessorRevision
    End With
End Sub

HG

呆，自定義類型必須要自定義函數名一樣。

goodidea

怎样才一致？

HG

Declare Sub system_info Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
這個地方，我就覺得有問題，首先一點你這樣似乎不能把取得的信息賦給自定義類型的。

goodidea

非常遗憾的是我也没有关于system_info 的详细资料。根据一本来自网上的VB API的介绍就只有这么多了~~

goodidea

根据你的提示，自作聪明写成这样：
Declare Sub GetSystemInfo Lib "kernel32" (ByRef lpSystemInfo As SYSTEM_INFO)
同样的问题存在。

HG

我個人的判斷，您 根本就沒有把取回的值傳給自定義類型，這是一種異常的用法，我也沒用過。

goodidea

可是这是一个过程，自定義類型传值是ByRef的。

goodidea

My GOD!

GetSystemInfo (myInfo)　＝＞　Ｃａｌｌ GetSystemInfo (myInfo)

ok! Thank u ,HG!