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

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

Доброго времени суток!

Пытаюсь без гемороя, дать пользователю свободно указать желаемый hot key.


Как это сделать?

Цель: с сокрытым окном программы, по горячей клавише, делать действие.

Пробовал вот-так(Высмотрел в исходниках TcustomHotKey):

  //ImgChangeHKEdit - THotKey
  //fHK - registred global atom.
  UnregisterHotKey(Handle, fHK);
  RegisterHotKey(Handle, fHK, MakeWord(Byte(ImgChangeHKEdit.Modifiers), 0),
    (ImgChangeHKEdit.HotKey - MakeWord(Byte(ImgChangeHKEdit.Modifiers), 0)));

Но не работает

Можно и DLL навязать, но как дать возможность юзеру, самому, произвольно, выставлять желаемую комбинацию клавиш?

[beegl]

посмотрите компонент HotKeyManager

[Stilet]

От себя: http://www.programmersforum.ru/showthread.php?t=8638

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

Примного благодарен, вот что получилось:

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 зарегистрированный в системе.