【VB声明】
Private Declare Function BroadcastSystemMessage Lib "user32" Alias "BroadcastSystemMessage" (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long【说明】
将一条系统消息广播给系统中所有的顶级窗口 【返回值】
Long,大于零表示成功;-1表示出错。如设置了BSF_QUERY,而且至少有一个消息接收者返回零,那么这个函数返回零 【参数表】
dw ------------- Long,下述常数的一个或多个
BSF_FLUSHDISK
每次处理完一条消息后,都对磁盘进行刷新(将未存盘的数据存下来
BSF_FORCEIFHUNG
如目标处于挂起状态,则在设定的超时后到期返回
BSF_IGNORECURRENTTASK
发送任务不接收消息
BSF_LPARAMBUFFER pdw ------------ Long,下述常数的一个或多个
BSF_ALLCOMPONENTS
消息进入能够接收消息的每一个系统组件
BSF_APPLICATIONS
消息到达应用程序
BSF_INSTALLABLEDRIVERS
消息到达可安装的驱动程序
BSF_NETDRIVERS
消息到达网络驱动程序
BSF_VXDS
消息到达系统设备驱动程序 un ------------- Long,消息编号 wParam --------- Long,由消息决定
lParam
Long,由消息决定。如指定了BSF_LPARAMBUFFER,这就是位于调用进程地址空间的一个内存缓冲区的地址,而且缓冲区的第一个16位字包含了缓冲区的长度 lParam指向一个内存缓冲区 - BSF_NOHANG
跳过被挂起的所有进程
BSF_POSTMESSAGE
投递消息。不与BSF_LPARAMBUFFER和BSF_QUERY兼容
BSF_QUERY
将消息顺序发给进程,只有前一个返回TRUE时,才进入下一个进程
Private Declare Function BroadcastSystemMessage Lib "user32" Alias "BroadcastSystemMessage" (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long【说明】
将一条系统消息广播给系统中所有的顶级窗口 【返回值】
Long,大于零表示成功;-1表示出错。如设置了BSF_QUERY,而且至少有一个消息接收者返回零,那么这个函数返回零 【参数表】
dw ------------- Long,下述常数的一个或多个
BSF_FLUSHDISK
每次处理完一条消息后,都对磁盘进行刷新(将未存盘的数据存下来
BSF_FORCEIFHUNG
如目标处于挂起状态,则在设定的超时后到期返回
BSF_IGNORECURRENTTASK
发送任务不接收消息
BSF_LPARAMBUFFER pdw ------------ Long,下述常数的一个或多个
BSF_ALLCOMPONENTS
消息进入能够接收消息的每一个系统组件
BSF_APPLICATIONS
消息到达应用程序
BSF_INSTALLABLEDRIVERS
消息到达可安装的驱动程序
BSF_NETDRIVERS
消息到达网络驱动程序
BSF_VXDS
消息到达系统设备驱动程序 un ------------- Long,消息编号 wParam --------- Long,由消息决定
lParam
Long,由消息决定。如指定了BSF_LPARAMBUFFER,这就是位于调用进程地址空间的一个内存缓冲区的地址,而且缓冲区的第一个16位字包含了缓冲区的长度 lParam指向一个内存缓冲区 - BSF_NOHANG
跳过被挂起的所有进程
BSF_POSTMESSAGE
投递消息。不与BSF_LPARAMBUFFER和BSF_QUERY兼容
BSF_QUERY
将消息顺序发给进程,只有前一个返回TRUE时,才进入下一个进程
解决方案 »
- ByVal O& 再API函数里面是什么意思?
- 请问哪位有多种颜色的渐变填充?
- 怎样用编程取得ftp上的目录?
- 请问在VB中如何实现网络数据共享?而且是实时的。
- 请问怎么可以使MSHFlexGrid控件在窗体中的大小是相对大小,即放大窗体,该控件能自动按比例放大?
- 看到 yoki(小马哥) 的sqlserver还原的代码,可是搞不懂,急求解....................100分
- 关于VB中的Picture控件问题
- 莫名其妙的丢失一条记录(急)
- 关于"未找到方法或数据成员",或"用户定义变量类型为定义"的问题(100分)
- 求帮:关于Treeview上节点的拖动,怎么实现!
- 各位.我还有救吗?
- 急急急!!!报表打印问题!!!请教Crystal Report!!!100分!!!请帮忙看看!!!急呀!!
Const BSM_APPLICATIONS = &H8
Const SC_MINIMIZE = &HF020
Const WM_SYSCOMMAND = &H112
Private Declare Function BroadcastSystemMessage Lib "user32" (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Command1_Click()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: [email protected]
'Broadcast a system message
BroadcastSystemMessage BSF_POSTMESSAGE, BSM_APPLICATIONS, WM_SYSCOMMAND, SC_MINIMIZE, ByVal 0&
End Sub