PKI_ModuleName

Get the name of process module.

VB6/VBA

Debug.Print "Testing PKI_ModuleName ..."
Dim nLen As Long
Dim strModuleName As String

nLen = PKI_ModuleName("", 0, 0)
If nLen > 0 Then
    strModuleName = String(nLen, " ")
    nLen = PKI_ModuleName(strModuleName, nLen, 0)
    strModuleName = Left(strModuleName, nLen)
    Debug.Print "PKI_ModuleName returns " & nLen & " [" & strModuleName & "]"
Else
    Debug.Print "Error " & nLen & " with PKI_ModuleName"
End If

Output

Testing PKI_ModuleName ...
PKI_ModuleName returns 31 [C:\Windows\system32\diCrPKI.dll]

VB.NET

Console.WriteLine("Testing PKI_ModuleName ...")
Dim strModuleName As String

strModuleName = General.ModuleName()
Console.WriteLine("General.ModuleName returns " & " [" & strModuleName & "]")

[Contents]