【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时,才进入下一个进程

解决方案 »

  1.   

    程序实例:Const BSF_POSTMESSAGE = &H10
    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