[SNIPPET] IsPCode()?

[Karcrack]

Bueno, tenia la necesidad de hacer esa comprobacion... asi que lo comparto, de esta forma el codigo no se desperdiciara en un proyecto a medias

Código (vb) [Seleccionar] Expandir

Option Explicit
'MSVBVM60
Private Declare Sub GetMem1 Lib "MSVBVM60" (ByVal lpSource As Any, ByRef Destination As Any)

Private Sub DumbSub(): End Sub

Public Function IsPCode() As Boolean
    Dim bTmp    As Byte
   
    Call GetMem1(AddressOf DumbSub, bTmp)
    IsPCode = (bTmp <> &HC3)
End Function

Como promete el titulo de la funcion comprueba si hemos sido compilados como P-Code o bien como Native Code

Saludos