关于SetWindowLong消息处理函数的替代

用户名205252

SetWindowLong需要绑定一个窗口，我想做成模块集成在我的应用里，我的应用是没有窗口的
所以我问了问ChatGPT，它说可以使用PeekMessage或GetMessage来接收消息
请问有没有大佬会改一改的？

[JavaScript] 纯文本查看 复制代码

.版本 2

.程序集 窗口程序集1
.程序集变量 a, 子程序指针

.子程序 __启动窗口_创建完毕

a ＝ SetWindowLong (_启动窗口.取窗口句柄 (), -4, &MsgProc)
' 弹出
' * 537,7,0
' * 537,7,0
' * 537,7,0
' * 537,32772,1244672

' 插入
' 537,7,0
' * 537,7,0
' * 537,7,0
' * 537,7,0
' * 537,7,0
' * 537,32768,1244672
' * 537,7,0


.子程序 MsgProc, 整数型
.参数 hwnd, 整数型
.参数 msg, 整数型
.参数 wp, 整数型, , ' 本源码来自三叶资源网(www.sanye.cx)
.参数 lp, 整数型
.局部变量 val, PDEV_BROADCAST_VOLUME
.局部变量 i, 整数型
.局部变量 mask, 整数型

.判断开始 (msg ＝ 537)
    .判断开始 (wp ＝ #DBT_DEVICERARRIVAL)  ' 插入设备
        复制结构体 (val, lp, 14)
        .如果真 (val.dbcv_devicetype ＝ #DBT_DEVTYP_VOLUME)
            mask ＝ val.dbcv_unitmask
            .变量循环首 (0, 25, 1, i)
                .如果真 (位与 (mask, 1) ＝ 1)
                    跳出循环 ()
                .如果真结束
                mask ＝ 右移 (mask, 1)
            .变量循环尾 ()
            编辑框1.加入文本 (“USB磁盘被插入，盘符:” ＋ 字符 (65 ＋ i) ＋ #换行符)
            检测 (字符 (65 ＋ i))
        .如果真结束
        ' 本源码来自三叶资源网(www.sanye.cx)
    .判断 (wp ＝ #DBT_DEVICEREMOVECOMPLETE)  ' 删除设备
        复制结构体 (val, lp, 14)
        .如果真 (val.dbcv_devicetype ＝ #DBT_DEVTYP_VOLUME)
            mask ＝ val.dbcv_unitmask
            .变量循环首 (0, 25, 1, i)
                .如果真 (位与 (mask, 1) ＝ 1)
                    跳出循环 ()
                .如果真结束
                mask ＝ 右移 (mask, 1)
            .变量循环尾 ()
            编辑框1.加入文本 (“USB磁盘被拔除，盘符:” ＋ 字符 (65 ＋ i) ＋ #换行符)
        .如果真结束

    .默认

    .判断结束

.默认

.判断结束
返回 (CallWindowProc (a, hwnd, msg, wp, lp))

.子程序 __启动窗口_将被销毁

a ＝ SetWindowLong (_启动窗口.取窗口句柄 (), -4, a)

.子程序 检测
.参数 盘符, 文本型
.局部变量 fn, 文本型

fn ＝ 寻找文件 (盘符 ＋ “:\*.*”, )
编辑框2.内容 ＝ “”
.判断循环首 (fn ≠ “”)
    编辑框2.加入文本 (fn ＋ #换行符)
    fn ＝ 寻找文件 (, )
.判断循环尾 ()

用户名205252

使用SetWindowsHookEx捕获#DBT_DEVNODES_CHANGED 可以吗？

aa火柴人

学习学习

b0y

不知道 等大佬来回答。
找不到的话 就窗口可视=假

用户名205252

b0y 发表于 2023-11-21 06:58
不知道 等大佬来回答。
找不到的话 就窗口可视=假

我是写成服务启动的，不能有窗口

gx854386319

没有窗口就自己实现一个消息队列，主线程轮询这个队列。SetWindowLong必须要一个HWND。没有窗口说明你的应用程序根本不走Windows消息队列机制，那怎么收到POSTMESSAGE的消息呢？最简单的方法就是用你自己的消息队列来代替WindowsAPI的消息队列，然后把所有POSTMessage换成你自己的消息发送函数。