Page 1 of 1

RUN sin ventana de fondo negra

Posted: Mon Jul 21, 2008 11:39 pm
by ARCC
Buen día para todos...

Que tal amigos, por casualidad saben si es posible ejecutar el mandato RUN sin que salga o aparezca la ventana de fondo negra?.

Ejemplo:

RUN("Dir > C:\dir.txt")

Posted: Tue Jul 22, 2008 2:39 pm
by cuatecatl82
Saludos ARCC: :D

Prueba de la Siguiente Manera: :idea:

Code: Select all

//---------------------------//
FUNCTION RunComand()

LOCAL cAccion:= "@ECHO OFF"+CRLF+"Dir > C:\dir.txt"
LOCAL   cFile:= ".\COMANDO.BAT"
LOCAL nHandle:= FCREATE(cFile)


     FWRITE(nHandle, cAccion)
      INKEY(0.2)
     FCLOSE(nHandle)
      INKEY(0.2)
    WaitRun(cFile,0)
      INKEY(0.2)  
     FERASE(cFile)      
     

RETURN nil
A mi me ha funcionado para correr comandos del DOS desde mi aplicacion.
La idea es Crear un archivo .BAT, ejecutarlo y Borrarlo, puedes agregar los comandos que necesites..

Ojala y te pueda servir... :wink:

Posted: Thu Jul 24, 2008 4:07 am
by ARCC
Buen día para todos...

Que tal Victor, muchas gracias funciona muy bien pero recuerdo que una vez Antonio Linares colocó un código para utilizar RUN sin la ventana de fondo.

Esta fué la función final que resultó de es tu código con unos muy pequeños retoques.

Code: Select all

//*******######
Function RunCmd( cCmd, cTempFile )
//*******######

  Local nHandle
  Local cFileBAT

  Default cTempFile := GetWinDir() + "\Temp\"

  cFileBAT := cTempFile + "RunCmd.bat"
  nHandle  := FCreate( cFileBAT )

  FWrite( nHandle, "@ECHO OFF" + CRLF + CRLF + cCmd )
  Inkey( 0.2 )

  FClose( nHandle )
  Inkey( 0.2 )

  WaitRun( cFileBAT, 0)
  Inkey( 0.2 )

  FErase( cFileBAT )

Return Nil

Posted: Thu Jul 24, 2008 2:07 pm
by Willi Quintana
Holas,,
Asi me trabaja ok:
Salu2


Function CapturaPuerto(cRutaLpt, cLptx)
local cOrden

If AT("\\" + Netname(), cRutaLpt) > 0 // para no redundar en el server de impresoras
Return(Nil)
EndIf

cOrden := "net use " + cLptx + " /delete" // eliminamos el asunto
cOrden := "COMMAND.COM /C " + cOrden
WaitRun(cOrden, 0) // ejecutor externo

If !EMPTY(cRutaLpt) .AND. (cLptx = "LPT1" .OR. cLptx = "LPT2" .OR. cLptx = "LPT3")
cOrden := "net use " + cLptx + " " + ALLTRIM(cRutaLpt)
cOrden := "COMMAND.COM /C " + cOrden + " /persistent:yes"
WaitRun(cOrden, 0) // ejecutor externo
EndIf
Return(Nil)

Posted: Thu Jul 24, 2008 8:22 pm
by ARCC
Buen día para todos...

Que tal Willi, bueno tu método funciona y no hay que crear ningún archivo temporal, pero tengo una pequeña duda la cual te o les voy a plantear que no ocurre con el método de Victor.

Así trabaja bien

Code: Select all

WaitRun( "COMMAND.COM /C DIR /A:D /B  C:\DOCUME~1 > C:\DIR.TXT", 0 )
Pero así no, cre el archivo DIR.TXT pero vacio

Code: Select all

WaitRun( 'COMMAND.COM /C DIR /A:D /B "C:\Documents and Settings" > C:\DIR.TXT', 0 )
Será que estoy haciendo algo mal, pero con el método de Victor si funciona bien

Re: RUN sin ventana de fondo negra

Posted: Thu Jul 24, 2008 8:48 pm
by FranciscoA
ARCC wrote:Buen día para todos...

Que tal amigos, por casualidad saben si es posible ejecutar el mandato RUN sin que salga o aparezca la ventana de fondo negra?.

Ejemplo:

RUN("Dir > C:\dir.txt")



Prueba esto, lo encontré por ahí:

Ej.: Si queremos hacer un archivo ZIP con PKZIP:
oK := WaitRun( "Pkzip.exe A:Respaldo *.dbf" )

Y para cerrar la ventana que se ve al correr la aplicación:
WaitRun( "command.com /c tuprograma", 0 )

Posted: Fri Jul 25, 2008 1:24 am
by Willi Quintana
Si estas con XP prueba asi:
WaitRun( 'CMD.EXE /C DIR /A:D /B "C:\Documents and Settings" > C:\DIR.TXT', 0 )

Salu2

Posted: Fri Jul 25, 2008 2:04 am
by ARCC
Buen día para todos...

Ahora si Willi ya quedo y muy secillo el código.

Code: Select all

//*******######
Function RunCmd( cCmd )
//*******######

  WaitRun( "CMD.EXE /C " + cCmd, 0)

Return Nil