Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 01.08.2013, 14:12
Gareth Gareth вне форума
Активный
 
Регистрация: 21.03.2013
Адрес: Приднестровье
Сообщения: 202
Версия Delphi: Delphi 7
Репутация: 10
Печаль Объясните, как сделать несколько горячих клавиш

Здравствуйте!
По своим нуждам, делаю себе программу, что бы уменьшала/увеличивала громкость системы.
Программа будет находится в трее, по этому надо горячие клавиши...
Поискав в интернете, нашел как делать эти горячие клавиши, но получается только одна! Вернее только на одно событие...

Код:
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+Стрелка вниз.
Как добавить еще горячие клавиши ????
Не могу понять.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:15.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025