Ayuda extra urgente. Mi API no responde
Publicado por Reyna Ortiz (6 intervenciones) el 09/04/2002 13:59:52
Me urge ayuda, por favor, estoy trabajando con varios archivos ejecutables en VB y necesito enlazarlos, para ello estoy aplicando el Shell, de la siguiente manera:
Modulo:
Public Declare Function ShellExecute Lib "Shell32" Alias "ShellExecuteA" (Byval hWnd as long, Byval pOperation as string, bByval pFile As string, Byval pParameters as string, Byval pDirectory as string, Byval nShowCmd as long) as long
Sub AbrirArchivo(F as Form, unidad1 as String)
ShellExecute F.hWnd, vbnullstring, "unidad1.exe", vbnullstring, vbnullstring, vbNormalFocus
End Sub
En el Formulario:
Private sub Cmd1_Click( )
AbrirArchivo Me, "unidad1.exe"
End Sub
Por FAvor, es urgente. Si alguien me puede ayudar. GRacias.
Reyna.
Modulo:
Public Declare Function ShellExecute Lib "Shell32" Alias "ShellExecuteA" (Byval hWnd as long, Byval pOperation as string, bByval pFile As string, Byval pParameters as string, Byval pDirectory as string, Byval nShowCmd as long) as long
Sub AbrirArchivo(F as Form, unidad1 as String)
ShellExecute F.hWnd, vbnullstring, "unidad1.exe", vbnullstring, vbnullstring, vbNormalFocus
End Sub
En el Formulario:
Private sub Cmd1_Click( )
AbrirArchivo Me, "unidad1.exe"
End Sub
Por FAvor, es urgente. Si alguien me puede ayudar. GRacias.
Reyna.
Valora esta pregunta


0