| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

RegisterHotKey [D7, WinXP]

Михаил(Киров) ©   (2005-08-02 22:57:00) 

Как пользоваться функцией RegisterHotKey. У кого-нибудь есть простенький примерчик?

---

SpyBoy   (2005-08-03 18:35:00) [1]

Вопрос:
Как глобально перехватить нажатие кнопки PrintScreen?
Ответ:
В примере для глобального перехвата нажатия клавиши printscreen регистрируется горячая клавиша (hot key).
Пример:

           type
              TForm1 = class(TForm)
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
              private
                { Private declarations }
                procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
              public
                { Public declarations }
              end;

            var
              Form1: TForm1;

            implementation

            {$R *.DFM}

            const id_SnapShot = 101;

            procedure TForm1.WMHotKey (var Msg : TWMHotKey);
            begin
              if Msg.HotKey = id_SnapShot then
                ShowMessage('GotIt');
            end;

            procedure TForm1.FormCreate(Sender: TObject);
            begin
              RegisterHotKey(Form1.Handle,
                             id_SnapShot,
                             0,
                             VK_SNAPSHOT);
            end;

            procedure TForm1.FormDestroy(Sender: TObject);
            begin
              UnRegisterHotKey (Form1.Handle, id_SnapShot);
            end;

---

alex-drob   (2005-08-03 00:19:00) [2]

private
procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;

procedure TForm1.WMHotKey(var Message: TMessage);
begin
beep
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterHotKey(handle,555,MOD_ALT,VK_TAB);
end;

---

Наверх