Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
_
(ByVal lptring, 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 Sub StartButtonState(tState As Boolean)
Dim Handle As Long, Find mPopup As Long
Findndow("Shell_TrayWnd", vbNullString)
Handle = FindWindowEx(Findton", vbNullString)
mPopup = FindWindowEx(Handle, 0, "POPUP", vbNullString)
ShowWindow Handle&, -(tState=True)
End Sub
Использование:
StartButtonState False 'скрывает "ПУСК" |
|
