Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

5th
Окт

Связать THotKey и глобальные клавиши

Posted by micher under Delphi

Как связать THotKey и глобальные клавиши?

Человек_Борща

procedure TMainForm.PrepareHK(const aHotKey: DWORD; var vModifers, vKey: Word);

const

  VK2_SHIFT   = 32;

  VK2_CONTROL = 64;

  VK2_ALT     = 128;

  VK2_WIN     = 256;

var

  vKeys: Integer;

begin

  vKey := 0;

  vModifers := 0;

  vKey := Byte(aHotKey);

  vKeys := aHotKey shr 8;

  if (vKeys and VK2_WIN)  0 then

    Inc(vModifers, MOD_WIN);
  if (vKeys and VK2_ALT)  0 then

    Inc(vModifers, MOD_ALT);
  if (vKeys and VK2_CONTROL)  0 then

    Inc(vModifers, MOD_CONTROL);
  if (vKeys and VK2_SHIFT)  0 then

    Inc(vModifers, MOD_SHIFT);

end;
//

procedure TMainForm.AppyHKBtnClick(Sender: TObject);

var

  fKey, fMod: Word;

begin

  UnregisterHotKey(Handle, fHK);

  PrepareHK(ImgChangeHKEdit.HotKey, fMod, fKey);

  if not RegisterHotKey(Handle, fHK, fMod, fKey) then

    RaiseLastWin32Error;

end;
fHK это Global Atom зарегистрированный в системе.