/ Snippet Library - View Code

Visual Basic / Application techniques / Hide from task manage winNT

Snippet details

ID: 183

Viewed: 1287

Added: 2002-04-29

Version:

Snippets in this catagory
Show Printable Version

Hide from task manager ( ctrl-alt-del ) win NT only

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: unknown

Snippet By:	unknown
Declarations
Highlight AllOption Explicit Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Const GW_OWNER = 4 Public Const SW_HIDE = 0 Public Const SW_SHOW = 5 'Hide the app from the task manager. Public Sub HideApp(ByVal mainFrmHwnd As Long) Dim lRtn As Long lRtn = GetWindow(mainFrmHwnd, GW_OWNER) lRtn = ShowWindow(lRtn, SW_HIDE) End Sub 'Show the app from the task manager. Public Sub ShowApp(ByVal mainFrmHwnd As Long) Dim lRtn As Long lRtn = GetWindow(mainFrmHwnd, GW_OWNER) lRtn = ShowWindow(lRtn, SW_SHOW) End Sub Option Explicit Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Const GW_OWNER = 4 Public Const SW_HIDE = 0 Public Const SW_SHOW = 5 'Hide the app from the task manager. Public Sub HideApp(ByVal mainFrmHwnd As Long) Dim lRtn As Long lRtn = GetWindow(mainFrmHwnd, GW_OWNER) lRtn = ShowWindow(lRtn, SW_HIDE) End Sub 'Show the app from the task manager. Public Sub ShowApp(ByVal mainFrmHwnd As Long) Dim lRtn As Long lRtn = GetWindow(mainFrmHwnd, GW_OWNER) lRtn = ShowWindow(lRtn, SW_SHOW) End Sub
Code
Highlight Allnone

No Reviews to show