如何禁止用户切换到其他软件.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

在 Windows 95/98下 还 可 以 使 用 SystemParametersInfo(SPI_SCREENSAVERRUNNING)使 Windows认 为 你 的 程 序 是 个 屏 幕 保 护 程 序 ， 从 而 禁 止 程 序 切 换 。 
    具 体 做 法 是 ： 
    1、 设 置 窗 体 的 BorderStyle为 None， WindowState为 最 大 化 。 这 样 是 为 了 遮 盖 住 其 他 软 件 。 
    2、 使 用 下 面 的 函 数 定 义 ： 
     Private Const SPI_SCREENSAVERRUNNING = 97& 
     Private Declare Function SystemParametersInfo Lib "User32" _ 
     Alias "SystemParametersInfoA" _ 
     (ByVal uAction As Long, _ 
     ByVal uParam As Long, _ 
     lpvParam As Any, _ 
     ByVal fuWinIni As Long) As Long 
    禁 止 程 序 切 换 时 ， 使 用 下 面 的 代 码 ： 
     Dim lngRet As Long 
     Dim blnOld As Boolean 
     lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, _ 
     blnOld, _ 
     0&) 
    允 许 切 换 时 ， 使 用 ： 
     Dim lngRet As Long 
     Dim blnOld As Boolean 
     lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, _ 
     blnOld, _ 
     0&) 
    这 个 方 法 只 适 用 于 Win9x。 
<END>