fred12
asked on
350 pts Stop taskbar from loading
The Bar with Start, small icons, clock etc.
I can Hide and Disable it (parts of it) already.
How can I stop it From Loading Completely?
No 3rd party want code. Security app.
Points in:
https://www.experts-exchange.com/topics/comp/os-ms-windows/general/win98/Q.10106246
Ive tried hidding it just after it loads,
Ive tried Covering it With TopMost,
There are always Backdoors during boot and crashes.
I need Solution. -Points to stop it completely
Thank You Experts
I can Hide and Disable it (parts of it) already.
How can I stop it From Loading Completely?
No 3rd party want code. Security app.
Points in:
https://www.experts-exchange.com/topics/comp/os-ms-windows/general/win98/Q.10106246
Ive tried hidding it just after it loads,
Ive tried Covering it With TopMost,
There are always Backdoors during boot and crashes.
I need Solution. -Points to stop it completely
Thank You Experts
Post points, and you shall get an answer.
ASKER
-idcanada you should not have answer the question.
-as stated in question the points are at 10106246
-Please only lock question if your sure you have the solution, Thank you.
-as stated in question the points are at 10106246
-Please only lock question if your sure you have the solution, Thank you.
Use the following :
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cY As Long, ByVal wFlags As Long) As Long
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80
Public Sub HideTaskBar()
' #VBIDEUtils#************** ********** ********** ********** ********** ******
' * Programmer Name : Waty Thierry
' * Web Site : www.geocities.com/ResearchTriangle/6311/
' * E-Mail : waty.thierry@usa.net
' * Date : 2/12/98
' * Time : 11:44
' * Module Name : TaskBar_Module
' * Module Filename : taskbar.bas
' * Procedure Name : HideTaskBar
' * Parameters :
' ************************** ********** ********** ********** ********** ****
' * Comments : Hide the taskbar
' *
' *
' ************************** ********** ********** ********** ********** ****
Dim nTaskBarhWnd As Long
nTaskBarhWnd = FindWindow("Shell_traywnd" , "")
If nTaskBarhWnd <> 0 Then Call SetWindowPos(nTaskBarhWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub
Public Sub ShowTaskBar()
' #VBIDEUtils#************** ********** ********** ********** ********** ******
' * Programmer Name : Waty Thierry
' * Web Site : www.geocities.com/ResearchTriangle/6311/
' * E-Mail : waty.thierry@usa.net
' * Date : 2/12/98
' * Time : 11:46
' * Module Name : TaskBar_Module
' * Module Filename : taskbar.bas
' * Procedure Name : ShowTaskBar
' * Parameters :
' ************************** ********** ********** ********** ********** ****
' * Comments : Show the taskbar
' *
' *
' ************************** ********** ********** ********** ********** ****
Dim nTaskBarhWnd As Long
nTaskBarhWnd = FindWindow("Shell_traywnd" , "")
If nTaskBarhWnd <> 0 Then Call SetWindowPos(nTaskBarhWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cY As Long, ByVal wFlags As Long) As Long
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80
Public Sub HideTaskBar()
' #VBIDEUtils#**************
' * Programmer Name : Waty Thierry
' * Web Site : www.geocities.com/ResearchTriangle/6311/
' * E-Mail : waty.thierry@usa.net
' * Date : 2/12/98
' * Time : 11:44
' * Module Name : TaskBar_Module
' * Module Filename : taskbar.bas
' * Procedure Name : HideTaskBar
' * Parameters :
' **************************
' * Comments : Hide the taskbar
' *
' *
' **************************
Dim nTaskBarhWnd As Long
nTaskBarhWnd = FindWindow("Shell_traywnd"
If nTaskBarhWnd <> 0 Then Call SetWindowPos(nTaskBarhWnd,
End Sub
Public Sub ShowTaskBar()
' #VBIDEUtils#**************
' * Programmer Name : Waty Thierry
' * Web Site : www.geocities.com/ResearchTriangle/6311/
' * E-Mail : waty.thierry@usa.net
' * Date : 2/12/98
' * Time : 11:46
' * Module Name : TaskBar_Module
' * Module Filename : taskbar.bas
' * Procedure Name : ShowTaskBar
' * Parameters :
' **************************
' * Comments : Show the taskbar
' *
' *
' **************************
Dim nTaskBarhWnd As Long
nTaskBarhWnd = FindWindow("Shell_traywnd"
If nTaskBarhWnd <> 0 Then Call SetWindowPos(nTaskBarhWnd,
End Sub
ASKER
Thank waty but the question said I knew how to hide/show
ASKER
This problem has been solved in other question,
ASKER
Mirkwood please answer this question so I could paq it
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER