All pastes #143042 Raw Edit

Mine

public text v1 · immutable
#143042 ·published 2006-08-21 20:49 UTC
rendered paste body
DEFINITION
==============
  #if TargetWin32
    Declare Function CBIOS_GetBoxInfoAdvI Lib "CBIOSVB6.Dll" alias "CBIOS_VB6_GetBoxInfoAdvI"(iCount  as Integer, byref stInfo as CBIOS_BOX_INFO_ADV) as integer
    return CBIOS_GetBoxInfoAdvI(iCount, stInfo)
  #Endif


USAGE
==============
...
Dim dwErrCode as Integer
dwErrCode = CBIOS_GetBoxInfoAdvI(i, stInfo)
If dwErrCode =  0 Then
...


CBIOS_GetBoxInfoAdvI structure (VB code just in case)
=======================================================

Public Type CBIOS_BOX_INFO_ADV
 dwBoxName                  As Long
 dwModel                    As Long
 dwApp                      As Long                     ' application ID or applications qty
 wCBIOS                     As Integer                  ' CBIOS version. 0 - non CBIOS box.
 bAppPolicy                 As Byte                     ' Application Policy
 bLogin                     As Byte                     ' login status from cbusb_flag structure
 bHiVersion                 As Byte
 bLoVersion                 As Byte
 dwRAMLen                   As Long                     ' in bytes
 dwSize_RAM1                As Long                     ' Size in RAM1
 dwSize_RAM2                As Long                     ' Size in RAM2
 dwSize_RAM3                As Long                     ' Size in RAM3
 bBoxLabel                  As String * CBIOS_LABEL_LEN ' Box label
 dwDeveloperID              As Long                     ' DevelpoerID
 bMPI                       As Byte                     ' MPI flag
End Type