Autor
Código:
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
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
En línea
