Visual Basic FAQ

Как заблокировать кнопку Пуск?

Только не нужно так шутить над товарищами

Option Explicit

Private Declare Function EnableWindow Lib "user32" _
    (ByVal hWnd As Long, _
     ByVal fEnable As Boolean) As Long
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 ShowWindow Lib _
    "user32" (ByVal hWnd As Long, _
    ByVal nCmdShow As Long) As Long
Dim hPanel As Long, hPusk As Long

Private Sub Command1_Click()
  EnableWindow hPusk, False
End Sub

Private Sub Command2_Click()
  EnableWindow hPusk, True
End Sub
Private Sub Form_Load()
  hPanel = FindWindow("Shell_traywnd", vbNullString)
  hPusk = FindWindowEx(hPanel, 0, "Button", vbNullString)
End Sub

Запись опубликована on 24.09.2008 at 18:50 и размещена в рубрике: Windows. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.