FiveTech Support Forums

I would like to close program or log off for specific time if the user does not use.

I guess the oTimer() will be used but how can I do that?

Regards,
Dutch

The key is that we need to detect keystrokes and mouse moves and clicks. You would need to reset the timer after each keystroke and mouse move or click. I don't know how to do this.

James

Dear James,

Thanks for your idea. I have another point, if can we detect screen saver is lActive? If so, we can check from that point.

Regards,
Dutch

Dutch,

You can modify this screensaver example in FWH:

viewtopic.php?p=88848#p88848

I have the same question and solved it this way :

EACH TIME I ENTER IN A MENU,A BROWSE , A DIALOG , I CALL the CheckT procedure with 1 as parameteers, it reset the counter to 1 CheckT(1)

DEFINE WINDOW oWnd FROM 0,0 TO 29,78
MENU BuildMenu()
SET MESSAGE OF oWnd ;
TO "Timer ;
CENTERED DATE KEYBOARD

DEFINE TIMER oTmr INTERVAL 10000 ACTION CheckT() OF oWnd
ACTIVATE TIMER oTmr

ACTIVATE WINDOW oWnd MAXIMIZED
*

• ===
  procedure CheckT(pr)
  LOCAL hWnd,wjacfo,vdxx
  static cteur:=1
  if pr=NIL
  cteur:=cteur+1
  oWnd:SetMsg("Value TimeOut :"+str(cteur,10)+" ")
  else
  cteur:=pr && reset
  endif
  *
  if cteur > 300 && This will stop the application
  cteur:=1
  oTmr:end()
  close databases
  set resources to
  cteur:=1
  *
  oWnd:end()
  quit
  endif
  *
  RETURN

I have more than 100 dialogs. How does it works? It is not possible to put timer in every dialog.

Regards,
Dutch

Hello Dutch...

you can modify window class and implement James idea in window class, use a CLASSDATA to keystrokes and use one main timer, this way you dont need modify your code