Get additional information about the core DLL module.
Public Declare Function PKI_ModuleInfo Lib "diCrPKI.dll"
(ByVal strName As String, ByVal nStrLen As Long, ByVal nOptions As Long) As Long
nRet = PKI_ModuleInfo(strName, nStrLen, 0)
long __stdcall PKI_ModuleInfo(char *szOutput, long nOutChars, long nOptions);
If successful, the return value is the number of characters in or required for the output string; otherwise it returns a negative error code.
Public Function pkiModuleInfo
(Optional nOptions As Long = 0) As String
Dim nLen As Long Dim strModuleInfo As String nLen = PKI_ModuleInfo("", 0, 0) If nLen > 0 Then strModuleInfo = String(nLen, " ") nLen = PKI_ModuleInfo(strModuleInfo, nLen, 0) strModuleInfo = Left(strModuleInfo, nLen) Debug.Print "PKI_ModuleInfo returns " & nLen & " [" & strModuleInfo & "]" Else Debug.Print "Error " & nLen & " with PKI_ModuleInfo" End If
PKI_ModuleInfo returns 26 [Licensed Developer Edition]
Debug.Print pkiCompileTime()
Debug.Print pkiModuleInfo()
Debug.Print pkiModuleName()
Debug.Print pkiPlatform()