Fjerne Steam Iconet i systray
Sidder og roder med at fjerne Steam iconet fra systray uden at lukke steam of course.. Til dem der ikke ved hvad steam er: www.steampowered.com .. det er valves nye Content delivery system som man skal bruge for at spille deres nye spil inklusiv Counter-Strike 1.6 ..Oh well her er hvad jeg har lavet so far.. ved ikke om jeg har fat i det rigtige vindue.. eller om jeg overhovedet gør det rigtige...
ved ikke om 65636 er det rigtige at skrive det var hWnd for steam .... tror jeg :) Hvis der er nogen der har mere forstand på det ku de så ik lige se om det er rigtigt..
:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Function HideTaskBarSteam()
Dim FindClass As Long, FindParent As Long, Handle As Long
FindClass& = FindWindow("Shell_TrayWnd", vbNullString)
FindParent& = FindWindowEx(FindClass&, 0, "65636", vbNullString)
Handle& = FindWindowEx(FindParent&, 0, "65636", vbNullString)
ShowWindow Handle&, 0
End Function
