[illya05]

Сообщение от angvelem

Что мешало написать это самому?

Код:

var
  HotKey : HATOM;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
  begin
    HotKey := GlobalAddAtom('Hotkey1');   //нарка
    RegisterHotKey(Handle, HotKey, 0, VK_F2);   //нарка
  end
  else
  begin
    UnRegisterHotKey(Handle, HotKey);
    GlobalDeleteAtom(HotKey);
  end;
end;

procedure Tfunk.WMHotKey (var Msg : TWMHotKey);
begin
  if msg.HotKey = HotKey then keybd_event(50, 0, 0, 0);   //нарка
  if msg.HotKey = HotKey then keybd_event(51, 0, 0, 0);   //нарка
  if msg.HotKey = HotKey then keybd_event(52, 0, 0, 0);   //нарка
  if msg.HotKey = HotKey then keybd_event(50, 0, keyeventf_keyup, 0);   //нарка
  if msg.HotKey = HotKey then keybd_event(51, 0, keyeventf_keyup, 0);   //нарка
  if msg.HotKey = HotKey then keybd_event(52, 0, keyeventf_keyup, 0);   //нарка
end;

[Error] Unit22.pas(28): Undeclared identifier: 'HATOM'