computer 版 (精华区)

发信人: windoe (为中国电信做贡献), 信区: program
标  题: VB:如何屏蔽Windows 95中的Ctrl-Alt-Delete和Ctrl-Es
发信站: 听涛站 (Fri Mar 10 19:09:15 2000), 转信

这个问题只要调用一个Windows API函数SystemParametersInfo就可以解决。
我们编写小函数如下：
Private Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long,
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long,
ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
程序设计时如果需要屏蔽Ctrl-Alt-Delete按键，可以书写
Call DisableCtrlAltDelete(True)，如果需要恢复原状，可以书写Call
DisableCtrlAltDelete(False)。


--By Kammi's SuperPost General Version
--

夜中不能寐，起坐弹鸣琴。
    薄帷鉴明月，清风吹我襟。
孤鸿号外野，翔鸟鸣北林。
    徘徊将何见，忧思独伤心。