API_LicenceType

CryptoSys API Library Manual

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 _stdcall API_LicenceType(long nOptions);

Long: Returns the ASCII value of the licence type, either "D" (68, 0x44) for the Developer Edition or "T" (84, 0x54) for the Trial Edition.


gen.LicenceType

Public Function LicenceType() As String

Note the Australian/British spelling of `Licence'.

    Dim nRet As Long
    nRet = API_LicenceType(0)
    Debug.Print "API_LicenceType is " & Chr(nRet)