Resumen Ejecutar programa DOS de forma síncrona (16 bits)

Hola amigos.

Necesito ejecutar un programa MSDOS de forma sincrona. Busque en la
biblia (las paginas de el Guille :-) y encontre una funcion
maravillosa. Hasta aqui todo bien. Pero mirando en 'Visual Basic
Expert Solutions' vi una funcion muy cuca que hacia lo mismo y muy
pequeña. Es esta:

Declare Function GetModuleUsage Lib "Kernel" _
(ByVal hModule As Integer) As Integer

Sub SyncShell(szAppName as String)
Dim hModule as Integer
hModule = Shell( szAppName ,1 )
while GetModuleUsage(hModule) > 0
DoEvents
Wend
End Sub

Y aqui viene el problema. Yo que soy un poco torpe la meto a cañon en
mi programa y me da un error de fichero no encontrado o algo asi. Le
pego a la ayuda (una cosa que a veces es bastante interesante) y veo
que puede ser porque la funcion no esta en la DLL. Haciendo un
horrible esfuerzo mental me doy cuenta que yo tengo WinNT y que
necesito la declaracion de la funcion en 32 bits.

Entonces cogi de nuevo la biblia y me baje el fichero de declaraciones
de la API de 32 bits y veo que alli no esta la funcion que buscaba.

Quiza la pregunta sea un poco tonta, pero ¿Ques pasa? ¿No existe?
¿Tendra otro nombre?

Muchas gracias.

--
Juan Carlos Calderón Igareda
CALDEJC@santandersupernet.com



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com