Menu à espera de um arquivo

[Mário Isa]

Gostaria de saber se no fivewin tem como eu, ali no momento em que o programa está rodando, aguardando por um clique num botão da barras de botões ou a escolha de um item do menu fazer:

while .t.
inkey(0.2) // pausa de 0.2 segundos
if file("algum.txt") // verifica se existe um arquivo
executafuncao() // se existe executa uma função

Creio que seria no momento da definição do menu ou na ativação da janela..
já pesquisei mas não achei...

Teria como ?

Mário

[rochinha]

Amiguinho,

Faça uso dos TIMERs:

Código: Selecionar todos

#include "FiveWin.ch"

static oWnd
static lActive := .f.

//----------------------------------------------------------------------------//

function Main()

   local oTmr

   DEFINE WINDOW oWnd TITLE "FileControl"

   DEFINE TIMER oTmr INTERVAL 10000 ACTION CheckFile() OF oWnd

   ACTIVATE TIMER oTmr

   ACTIVATE WINDOW oWnd ICONIZED

return nil

//----------------------------------------------------------------------------//

function CheckFile()

   if ! lActive
      lActive = .t. // Para evitar que outro timer execute CheckFile novamente
      if file("algum.txt") // verifica se existe um arquivo 
         executafuncao() // se existe executa uma função 
      endif
      lActive = .f.
   endif

return nil