24
Январь
2009
Различные операции с кнопкой Пуск
Различные операции с кнопкой Пуск.
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