Блокировка Кнопки Windows (чтобы менюшка не появлялась от кнопки Пуск)

@Dronni · Регистрация: 28.02.2008

Author24 — интернет-сервис помощи студентам

Народ! Помогите пожалуйста!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Как зафиксировать кнопку Пуск и кнопку Windows ка клавиатуре, чтобы не появлялось меню Пуск

@sharig · 19.03.2008, 23:26

я знаю, как 'заблокировать кнопку' - http://sharig.webzone.ru/category/windows/win05_startblock.htm
или как 'спрятать/показать' - http://sharig.webzone.ru/category/windows/win21_hideshow_startbutton.htm

20.03.2008, 18:19

Самый простой и эффективный метод это 'убийство' самого меню 'Пуск' !

Private Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib 'user32' Alias 'PostMessageA' (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Load()
PostMessage FindWindow('BaseBar', ''), &H10, 0, 0
End Sub

Если не тяжело, сообщи о результатах.

@Dronni 0 / 0 / 0 Регистрация: 28.02.2008 Сообщений: 25
		1
	Блокировка Кнопки Windows (чтобы менюшка не появлялась от кнопки Пуск) 19.03.2008, 12:21. Показов 2442. Ответов 2 Метки нет (Все метки) Народ! Помогите пожалуйста!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Как зафиксировать кнопку Пуск и кнопку Windows ка клавиатуре, чтобы не появлялось меню Пуск 0

@sharig 2 / 2 / 1 Регистрация: 30.07.2007 Сообщений: 206
	19.03.2008, 23:26	2
	я знаю, как 'заблокировать кнопку' - http://sharig.webzone.ru/category/windows/win05_startblock.htm или как 'спрятать/показать' - http://sharig.webzone.ru/category/windows/win21_hideshow_startbutton.htm 0

Серж
	20.03.2008, 18:19	3
	Самый простой и эффективный метод это 'убийство' самого меню 'Пуск' ! Private Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib 'user32' Alias 'PostMessageA' (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub Form_Load() PostMessage FindWindow('BaseBar', ''), &H10, 0, 0 End Sub Если не тяжело, сообщи о результатах.