关于使热启键失效的函数

Question

让你的程序不在任务栏中显示 
首先在一个模块中做如下声明： Public Const SW_HIDE = 0 
Public Const GW_OWNER = 4 
Declare Function GetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As _ 
Long, ByVal wCmd As Long) As Long 
Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd _ 
As Long, ByVal nCmdShow As Long) As Long 将下面的代码添加到窗体的Load事件中： Dim rc As Long 
Dim OwnerhWnd As Long '让窗体不可见 
Me.Visible = False 
'从任务管理器列表中移除 
OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER) 
rc = ShowWindow(OwnerhWnd, SW_HIDE) 

Answer 1

在VB中控制Ctrl+Del+Alt键 下面的子程序能让你自由控制Ctrl-Alt-Del的使用。 在您的程序中通过以下代码调用该函数: AllowKeys(False) ' 禁用Ctrl+Del+Alt键 AllowKeys(True) ' 允许使用Ctrl+Del+Alt键 
复制以下代码到程序中的某个模块: 
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 Public Sub AllowKeys(bParam as Boolean) Dim lRetVal As Long, bOld As Boolean lRetVal = SystemParametersInfo(SPI_SCREENSAVERRUNNING, bParam, bOld, 0&) End Sub 
查看SystemParametersInfo的用法