程序调试信息查看工具(Dbgview)

.版本 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)
监听函数 ()

@woxl