Link to home
Start Free TrialLog in
Avatar of fred12
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
Avatar of fred12
fred12

ASKER

Edited text of question

Post points, and you shall get an answer.

Avatar of fred12

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.

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

Avatar of fred12

ASKER

Thank waty but the question said I knew how to hide/show
Avatar of fred12

ASKER

This problem has been solved in other question,
Avatar of fred12

ASKER

Mirkwood please answer this question so I could paq it
ASKER CERTIFIED SOLUTION
Avatar of Mirkwood
Mirkwood

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial