API_LicenceType returns the ASCII value of the licence type.
Public Declare Function API_LicenceType Lib "diCryptoSys.dll"
(ByVal nReserved As Long) As Long
nRet = API_LicenceType(nReserved)
Long not used in this release. Specify zero.
long _stdcall API_LicenceType(long nOptions);
Long: Returns the ASCII value of the licence type: "D" (68, 0x44) for the Developer Version,
"P" (80, 0x50) for the Personal Version, or "S" (83, 0x53) for the Server Trial Version..
gen.LicenceType
Public Function LicenceType() As String
See gen.LicenceType.
Note the Australian/British spelling of `Licence'.
Dim nRet As Long
nRet = API_LicenceType(0)
Debug.Print "API_LicenceType is " & Chr(nRet)