FoxPro/Visual FoxPro - Depurar Función

COMETI UNA " Falla" con esta función y necesito que me ayuden acorregirla.. POR FAVOR !!

TENGO LA SIGUIENTE FUNCION CON LA QUE SE LOGRA QUE AL EJECUTAR UN COMANDO DE D.O.S. NO SE ME MUESTRE LA PANTALLA "feita" NEGRA DE D.O.S.

* EJECUTA UN COMANDO EXTERNO Y NO MUESTRA EL CUADRO NEGRO
FUNCTION run
PARAMETER doscmd
DECLARE INTEGER WinExec IN win32api AS run ;
STRING command, INTEGER param
DO CASE
CASE file("c:windowssystem32cmd.exe")
cmdstart= "c:windowssystem32cmd.exe /c"
CASE file("d:windowssystem32cmd.exe")
cmdstart= "d:windowssystem32cmd.exe /c"
CASE file("e:windowssystem32cmd.exe")
cmdstart= "e:windowssystem32cmd.exe /c"
ENDCASE
fullcmd = cmdstart + doscmd
retval = run(fullcmd,0) && SI SE CAMBIA ESTE 0 POR UN 1 MUESTRA LA EJECUCIÓN
RETURN retval

SI EN EL COMPUTADOR DE UN CLIENTE NO EXISTE EL CMD.EXE, PUES SENCILLAMENTE ESTE COMANDO FALLA.

SI EL WINDOWS DEL CLIENTE ES WIN 98, PUES NO DEBE TENER LA CARPETA SYSTEM32 DENTRO DEL WINDOWS Y POR CONSIGUIENTE FALLA.

EN WINDOS XP FUNCIONA OK.

EL PROBLEMA ES QUE NO SE SI EL COMANDO CMD.EXE (al archivo como tal) viene acompañado de otro complementario.; puues si es solito , la solución sería conseguir el CMD.EXE y copiarlo en esa ruta.

QUE ME SUGIEREN ??

Gracias

alexcoinc

Hola.

Prueba que en la instalacion de tu programa sea validado el archivo y la ruta. Si el archivo no existe, entonces, crealo en la ruta especificada. Copia el archivo llamado COMMAND.COM de la carpeta de WINDOWS en la ruta donde quieres el CMD.EXE y renombralo como CMD.EXE.

El COMMAND.COM hace lo mismo que el CMD.EXE, e inclusive el XP lo trae instalado tambien. Prueba escribiendolo en EJECUTAR del menu inicio de windows.

Espero que te sea de utilidad.

Hancito2003