TIMER
Posted: Wed Nov 15, 2006 6:52 am
Buenos días foro:
Tengo 1 máquina con dos sesiones abiertas de MS-DOS, en una de ellas ejecuto el programa que a continuación os propongo, en la otra sesión genero el fichero que necesita la primera sesión. Bueno, pues el timer se vuelve loco. Espero haberme explicado correctamente:
// This sample shows how to call a function in an interval time.
#include "FiveWin.ch"
static oWnd
/----------------------------------------------------------------------------//
function Main()
local oTmr
DEFINE WINDOW oWnd TITLE "Checking File"
DEFINE TIMER oTmr INTERVAL 1 ACTION CheckFile(oTmr) OF oWnd
ACTIVATE TIMER oTmr
ACTIVATE WINDOW oWnd ICONIZED
return nil
//----------------------------------------------------------------------------//
function CheckFile(oTmr)
if file ("c:\pruebras.txt")
oTmr:Deactivate
waitrun("apertura.exe") <--Este programa no tarda nada en ejecutarse
ferase("C:\pruebas.txt")
oTmr:Activate
endif
return nil
//Como podeis observar este programa lo único que hace es estar observando si existe un fichero en un sitio determinado, bueno pues cuando existe no para de ejecutar <apertura.exe>[/b]
Tengo 1 máquina con dos sesiones abiertas de MS-DOS, en una de ellas ejecuto el programa que a continuación os propongo, en la otra sesión genero el fichero que necesita la primera sesión. Bueno, pues el timer se vuelve loco. Espero haberme explicado correctamente:
// This sample shows how to call a function in an interval time.
#include "FiveWin.ch"
static oWnd
/----------------------------------------------------------------------------//
function Main()
local oTmr
DEFINE WINDOW oWnd TITLE "Checking File"
DEFINE TIMER oTmr INTERVAL 1 ACTION CheckFile(oTmr) OF oWnd
ACTIVATE TIMER oTmr
ACTIVATE WINDOW oWnd ICONIZED
return nil
//----------------------------------------------------------------------------//
function CheckFile(oTmr)
if file ("c:\pruebras.txt")
oTmr:Deactivate
waitrun("apertura.exe") <--Este programa no tarda nada en ejecutarse
ferase("C:\pruebas.txt")
oTmr:Activate
endif
return nil
//Como podeis observar este programa lo único que hace es estar observando si existe un fichero en un sitio determinado, bueno pues cuando existe no para de ejecutar <apertura.exe>[/b]