Returns the ASCII value of the licence type.
Public Declare Function PKI_LicenceType Lib "diCrPKI.dll"
(ByVal nReserved As Long) As Long
nRet = PKI_LicenceType(nReserved)
long __stdcall PKI_LicenceType(long nOptions);
Returns the ASCII value of the licence type, either "D" (68, 0x44) for the Developer Version or "T" (84, 0x54) for the Trial Version.
Note the Australian/English spelling of `Licence'.
Dim nRet As Long
nRet = PKI_LicenceType(0)
Debug.Print "PKI_LicenceType is " & Chr(nRet)
PKI_LicenceType is D