.版本 2
.支持库 iext
.子程序 监听函数
.局部变量 AckEvent, 整数型
.局部变量 ReadyEvent, 整数型
.局部变量 Mapping, 整数型
.局部变量 Buffer, 整数型
.局部变量 X, 整数型
AckEvent = CreateEvent (0, 1, 0, “DBWIN_BUFFER_READY”)
ReadyEvent = CreateEvent (0, 1, 0, “DBWIN_DATA_READY”)
Mapping = CreateFileMapping (-1, 0, 4, 0, 4096, “DBWIN_BUFFER”)
Buffer = MapViewOfFile (Mapping, 4, 0, 0, 0)
SetEvent (AckEvent)
.判断循环首 (真)
处理事件 ()
.如果真 (WaitForSingleObject (ReadyEvent, -1) = 0)
X = 列表框.插入表项 (, , 0, , , )
列表框.置标题 (X, 0, 到文本 (X + 1))
列表框.置标题 (X, 1, 到文本 (读整数 (Buffer)))
列表框.置标题 (X, 2, 取名称 (读整数 (Buffer)))
列表框.置标题 (X, 3, 指针到文本 (Buffer + 4))
跳出循环 ()
.如果真结束
' 本源码来自三叶资源网(www.sanye.cx)
.判断循环尾 ()
UnmapViewOfFile (Buffer)
CloseHandle (Mapping)
CloseHandle (ReadyEvent)
CloseHandle (AckEvent)
监听函数 ()
“程序调试信息查看工具(Dbgview)”上的0条回复
易语言模仿Dbgview