24 Январь 2009

Различные операции с кнопкой Пуск

Windows |  Таги: , ,

Различные операции с кнопкой Пуск.

Option Explicit
Dim hwndChild As Long
Const SW_HIDE = 0
Const SW_SHOW = 5
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 hWndParent As Long, _
        ByVal hWndChildAfter As Long, _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
        (ByVal hWnd As Long, _
        ByVal fEnable As Boolean) As Long
Private Declare Function ShowWindow Lib "user32" _
        (ByVal hWnd As Long, _
        ByVal nCmdShow As Long) As Long

Private Sub Form_Load()
Me.Caption = "Start button"
Command1.Caption = "Hide"
Command2.Caption = "Show"
Command3.Caption = "Enabled"
Command4.Caption = "Disabled"
hwndChild = FindWindowEx(FindWindow("Shell_traywnd", ""), 0, "Button", "")
End Sub

Private Sub Command1_Click()
ShowWindow hwndChild, SW_HIDE
End Sub

Private Sub Command2_Click()
ShowWindow hwndChild, SW_SHOW
End Sub

Private Sub Command3_Click()
EnableWindow hwndChild, True
End Sub

Private Sub Command4_Click()
EnableWindow hwndChild, False
End Sub


У нас куча комментариев (2) на запись “Различные операции с кнопкой Пуск”

Почему бы Вам не высказать свое мнение! Позвольте нам узнать, что Вы думаете...

  1. 1 On 21.04.2009, viter.alex said:

    Интересно, но не работает. XP Prof SP2

  2. 2 On 21.04.2009, Александр said:

    В свое время все коды проверялись именно на 2 сервис паке ХР.

Оставить комментарий

Я не робот.