FoxPro/Visual FoxPro - Depurar Función

   
Vista:

Depurar Función

Publicado por alexcoinc (449 intervenciones) el 09/05/2008 23:56:14
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Depurar Función

Publicado por hancito2003 (54 intervenciones) el 11/05/2008 02:29:55
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar