forward
global type w_main from window
end type
type st_adv from statictext within w_main
end type
type st_status from statictext within w_main
end type
type sle_dir from singlelineedit within w_main
end type
type cb_start from commandbutton within w_main
end type
type cb_close from commandbutton within w_main
end type
end forward

global type w_main from window
integer width = 1847
integer height = 1164
boolean titlebar = true
string title = "folder change"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
st_adv st_adv
st_status st_status
sle_dir sle_dir
cb_start cb_start
cb_close cb_close
end type
global w_main w_main

type prototypes
function ulong FindFirstChangeNotification( string lpPathName,  boolean bWatchSubtree,  ulong dwNotifyFilter) library "kernel32.dll" alias for "FindFirstChangeNotificationW;unicode"
function boolean FindCloseChangeNotification( ulong handle ) library "kernel32.dll"
function Boolean FindNextChangeNotification( ulong hChangeHandle) library "kernel32.dll"
function ulong WaitForSingleObject(ulong hHandle,ulong dwMilliseconds) library "kernel32.dll"
end prototypes
type variables
ulong il_handle
end variables

on w_main.create
this.st_adv=create st_adv
this.st_status=create st_status
this.sle_dir=create sle_dir
this.cb_start=create cb_start
this.cb_close=create cb_close
this.Control[]={this.st_adv,&
this.st_status,&
this.sle_dir,&
this.cb_start,&
this.cb_close}
end on

on w_main.destroy
destroy(this.st_adv)
destroy(this.st_status)
destroy(this.sle_dir)
destroy(this.cb_start)
destroy(this.cb_close)
end on

event timer;if il_handle <>0 then
  ulong res
  res = WaitForSingleObject( il_handle, 1 )
  if 258 /*WAIT_TIMEOUT */ <> res then
    if res = 0 then
      st_adv.text += "dir changed - " + string(now(), "hh:mm:ss.ffffff" ) + "~r~n"
      FindNextChangeNotification( il_handle )
    end if    
  end if
end if
end event

event open;sle_dir.text = GetCurrentDirectory()
end event

type st_adv from statictext within w_main
integer x = 5
integer y = 480
integer width = 1815
integer height = 540
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = ""
boolean border = true
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type st_status from statictext within w_main
integer x = 5
integer y = 256
integer width = 1819
integer height = 104
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "(status)"
boolean border = true
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type sle_dir from singlelineedit within w_main
integer x = 411
integer y = 124
integer width = 1399
integer height = 112
integer taborder = 30
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
string text = "c:\"
borderstyle borderstyle = stylelowered!
end type

type cb_start from commandbutton within w_main
integer y = 128
integer width = 402
integer height = 112
integer taborder = 20
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Start"
end type

event clicked;
il_handle = FindFirstChangeNotification( sle_dir.text, false, 31 /* FILE_NOTIFY_CHANGE_FILE_NAME .. FILE_NOTIFY_CHANGE_LAST_WRITE */ )
st_status.text = "handle = " + string( il_handle )

timer( 0.5 )
end event

type cb_close from commandbutton within w_main
integer width = 402
integer height = 112
integer taborder = 10
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "close"
boolean cancel = true
end type

event clicked;if il_handle <> 0 then
  FindCloseChangeNotification( il_handle )
  il_handle = 0
end if

Close( parent )
end event