| Вопрос: А вот еще вопросик | Добавлено: 29.06.04 22:42 |
Автор вопроса:  TERMIT | Web-сайт: xtec.ru | ICQ: 5297101 |
| Как заблочить полностью меню которое типа пуск...блин я такими способами это делаю не поверите...короче при нажатии 92 93 кнопочки чтобы нажимал esc...да че только не делал может кто знает..как..плиз.....только не просто пуск заблочить а вообще меню чтобы не вылазило..... |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #1 | Добавлено: 30.06.04 00:23 |
|
API function:
DestroyWindow(hWnd As Long) |
||
|
Номер ответа: 2 Автор ответа: TERMIT ICQ: 5297101 Вопросов: 16 Ответов: 93 |
Web-сайт: Профиль | | #2 | Добавлено: 30.06.04 00:38 |
А по подробней нельзя?
может пример есть иди что там? |
||
|
Номер ответа: 3 Автор ответа:  Barsik Разработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #3 | Добавлено: 02.07.04 18:21 |
|
Можно хорошенько поиздеватся над кнопкой пуск...
к примеру так... 
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 Const SW_HIDE = 0 Private Const SW_SHOW = 5 Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long Dim hParent As Long, hChild As Long EnableWindow hChild, False ' сделать недоступной EnableWindow hChild, True ' сделать доступной ShowWindow hChild, SW_HIDE ' скрыть кнопку ПУСК ShowWindow hChild, SW_SHOW ' показать кнопку ПУСК Private Sub Form_Load() hParent = FindWindow("Shell_traywnd", vbNullString) ' находим хэндл системной панели hChild = FindWindowEx(hParent, 0, "Button", vbNullString) ' находим хэндл кнопки End Sub |
||
|
Номер ответа: 4 Автор ответа: TERMITICQ: 5297101 Вопросов: 16 Ответов: 93 |
Web-сайт: Профиль | | #4 | Добавлено: 02.07.04 22:42 |
|
Andr...нет мне совсем не надо над пуском издеваться.....да и я это умею...но все же мне надо имено над меню...
|
||
|
Номер ответа: 5 Автор ответа:  BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #5 | Добавлено: 02.11.04 17:56 |
|
тогда DestroyWindow(hWnd As Long)
|
||
|
Номер ответа: 6 Автор ответа:  User UnknownВечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #6 | Добавлено: 02.11.04 18:00 |
|
2Barsik, почти полгода прошло с данного вопроса, я думаю, что он уже справился
|
||
|
Номер ответа: 7 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #7 | Добавлено: 02.11.04 22:36 |
| Вероятно он этого не сумеет прочесть, т.к. скорее всего у него не стоит упорядочивание по дате последнего ответа, иначе бы не стал он писать лишнее в давно "завядшую" тему... | ||
|
Номер ответа: 8 Автор ответа: TERMITICQ: 5297101 Вопросов: 16 Ответов: 93 |
Web-сайт: Профиль | | #8 | Добавлено: 02.11.04 23:08 |
|
блин а вы приколисты ......пасиба всем я даже уже и не помню что я хотел от этого ......ну все же пасибки
|
||
Страница: 1 |