句柄 ＝ FindFirstChangeNotification (目录, 选择 (包括子目录, 1, 0), 监视的对象)
.如果真 (句柄 ＝ #ERROR_INVALID_HANDLE)
ExitProcess (GetLastError ())
.如果真结束
输出调试文本 (句柄)
i ＝ 1
.判断循环首 (1 ＝ i)
处理事件 ()
信息 ＝ WaitForSingleObject (句柄, -1)
' 输出调试文本 (信息)
.如果真 (信息 ＝ 0)
列表框1.加入项目 (“文件夹内有文件被改变”, )
.如果真 (FindNextChangeNotification (句柄) ＝ 0)
ExitProcess (GetLastError ())
.如果真结束
.如果真结束
延时 (100)
.判断循环尾 ()
上一篇 简单的整数分割算法
下一篇 获取PE文件区段工具