hice mi dll estandar en vb6 con el vbAdvance y funciona bien mientras lo prueblo desde un prog. hecho en vb6 , pero ahora necesito cargarla desde un programa hecho en delphi:
Option Explicit
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" ( _
ByVal hwnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal wType As Long) As Long
Public Function DllMain() As Long
DllMain = MessageBox(0, "hola", "titulo", 64)
DllMain = MessageBox(0, "hola", "titulo", 48)
DllMain = MessageBox(0, "hola", "titulo", 16)
End Function
al cargar sale el primer mensaje y luego lo demas mensajes no salen, no se que pasa, necesito usarlo desde delphi ¿que puedo hacer? xP
Probaste asi?
Public Function DllMain() As Long
MessageBox 0, "hola", "titulo", 64
MessageBox 0, "hola", "titulo", 48
MessageBox 0, "hola", "titulo", 16
DllMain = 1
End Function
Va a explotar porque no esta cargada la libreria msvbvm60.
ya probe DllMain=1 pero nada, cobein dices que explota, entonces es imposible que pueda compartir mi dll para que la usen otros programas distintos a vb6?