James Bott wrote:I don't know if this will work, but try this:James
- Code: Select all Expand view
Function isWindowsLocked()
Local lLocked:=.f.
if getForegroundWindow() == 0 // Screen saver or login screen is foreground
lLocked:=.t.
endif
Return lLocked
HunterEC wrote:Uwe, Erico:
Thank you very much for the tip ! Worked flawlessly !
To program this for any size DBF I calculated the step as follows:
- Code: Select all Expand view
nStep := INT ( RECCOUNT() / 25 )
If RecCount() < 100
nStep := 1
End
nStep := INT ( RECCOUNT() / 25 )