![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте!
По своим нуждам, делаю себе программу, что бы уменьшала/увеличивала громкость системы. Программа будет находится в трее, по этому надо горячие клавиши... Поискав в интернете, нашел как делать эти горячие клавиши, но получается только одна! Вернее только на одно событие... Код:
Type procedure F1(var Message:TMessage);message WM_HOTKEY; ... ... procedure TForm1.FormCreate(Sender: TObject); begin RegisterHotKey(Handle,0,MOD_CONTROL,VK_DOWN); end; procedure TForm1.FormDestroy(Sender: TObject); begin UnRegisterHotKey(Handle,0); end; procedure TForm1.F1(var Message: TMessage); begin {И тут уже пишется код, который я хочу...} keybd_event(VK_VOLUME_DOWN, 0, 0, 0); keybd_event(VK_VOLUME_DOWN, 0, KEYEVENTF_KEYUP, 0); end; Горячие клавиши получается - CTRL+Стрелка вниз. Как добавить еще горячие клавиши ???? Не могу понять. ![]() |