Visual Basic > Code Snippets sample source codes

 Disable CTRL + ALT + DEL on Windows XP

Disable CTRL + ALT + DEL on Windows XP Private Type NOTIFYICONDATA cbSize As Long hWnd As Long uId As Long uFlags As Long ucallbackMessage As Long hIcon As Long szTip As String * 64 End Type Private Const NIM_DELETE = &H2 Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Sub Form_Load() Dim tskWin As Long, t As NOTIFYICONDATA Shell "taskmgr.exe", vbHide Do Until tskWin <> 0 tskWin = FindWindow("#32770", "Windows Task Manager") Loop t.hWnd = tskWin Shell_NotifyIcon NIM_DELETE, t End Sub



Privacy Policy | Link to Us | Links