Здравствуйте!
По своим нуждам, делаю себе программу, что бы уменьшала/увеличивала громкость системы.
Программа будет находится в трее, по этому надо горячие клавиши...
Поискав в интернете, нашел как делать эти горячие клавиши, но получается только одна! Вернее только на одно событие...
Код:
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+Стрелка вниз.
Как добавить еще горячие клавиши ????
Не могу понять.
