| Вопрос: Вопрос | Добавлено: 23.10.04 20:25 |
Автор вопроса:  Tigre
|
| Как сделать прогу которая бы сидела в системном трее и выполняло процедуру при нажатии какой-то клавищи (напр. F12) |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  ISpy Разработчик Offline Client Вопросов: 47 Ответов: 621 |
Web-сайт: Профиль | | #1 | Добавлено: 23.10.04 20:44 |
|
Что значит как? Пусть прога перехватывает все нажатия клавиш, и если нажата та клавиша, которая ей нужна, то пусть выполняет процедуру.
За кодами обращайся в примеры и статьи, из них вырезай то, что надо (как пихнуть прогу в трей, как перехватывать все нажатия клавиш, и т.д.). |
||
|
Номер ответа: 2 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 23.10.04 21:29 |
| см. добавление иконки в трей (обл. уведомлений) и пример по регистрации горячих клавишь с пом RegisterHotKey... | ||
|
Номер ответа: 3 Автор ответа: Tigre Вопросов: 34 Ответов: 63 |
Профиль | | #3 | Добавлено: 23.10.04 21:56 |
| Посмотрел примеры. Нашол добавление иконки в трей. А как перехватывать все нажатия клавиш? | ||
|
Номер ответа: 4 Автор ответа: ISpyРазработчик Offline Client Вопросов: 47 Ответов: 621 |
Web-сайт: Профиль | | #4 | Добавлено: 23.10.04 22:01 |
|
и пример по регистрации горячих клавишь с пом RegisterHotKey... Смотри что sne сказал 
|
||
|
Номер ответа: 5 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #5 | Добавлено: 24.10.04 00:19 |
| у меня подходящий пример есть... могу на мыло кинуть.... | ||
|
Номер ответа: 6 Автор ответа: freeloader ICQ: 50804884 Вопросов: 72 Ответов: 642 |
Web-сайт: Профиль | | #6 | Добавлено: 24.10.04 05:32 |
|
Вот пример из Api-Guide
Private Const MOD_ALT = &H1 Private Const MOD_CONTROL = &H2 Private Const MOD_SHIFT = &H4 Private Const PM_REMOVE = &H1 Private Const WM_HOTKEY = &H312 Private Type POINTAPI x As Long y As Long End Type Private Type Msg hWnd As Long Message As Long wParam As Long lParam As Long time As Long pt As POINTAPI End Type Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long Private Declare Function WaitMessage Lib "user32" () As Long Private bCancel As Boolean Private Sub ProcessMessages()  im Message As Msg
'loop until bCancel is set to True o While Not bCancel
'wait for a message WaitMessage 'check if it's a HOTKEY-message If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then 'minimize the form WindowState = vbMinimized End If 'let the operating system process other events oEvents
Loop End Sub Private Sub Form_Load() 'KPD-Team 2000 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net im ret As Long
bCancel = False 'register the Ctrl-F hotkey ret = RegisterHotKey(Me.hWnd, &HBFFF&, MOD_CONTROL, vbKeyF) 'show some information Me.AutoRedraw = True Me.Print "Press CTRL-F to minimize this form" 'show the form and Show 'process the Hotkey messages ProcessMessages End Sub Private Sub Form_Unload(Cancel As Integer) bCancel = True 'unregister hotkey Call UnregisterHotKey(Me.hWnd, &HBFFF& 
End Sub |
||
|
Номер ответа: 7 Автор ответа:  someoneВопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #7 | Добавлено: 27.10.04 11:37 |
|
Tigre!!! смотри пример SendKeys!
там есть и перехват и отправка! |
||
Страница: 1 |