Горячие клавиши в Delphi

[Maddy]

Пишу бота. Когда бот начинает управлять мышью не работают горячие клавиши. Горячие клавиши настраивал с помошью TActionBars chortCut.
Пока бот не работает с мышью горячие клавиши работают.
Как прервать работу бота с помошью нажатия комбинации клавиш?!
Может попробовать RegisterHotKey? напишите если несложно как это сделать?
я пробовал писать вот так

private
    { Private declarations }
    id1: Integer;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
  public

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = id1 then
    begin
      {что-то делаем в программе}
      MessageDlg('Работает второй способ)) ',
  mtWarning,[mbOk],0);  //
  Exit;   //
    end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
id1 := GlobalAddAtom('Hotkey1');
Handle1:=FindWindow('TForm1','Form1'); //0x50304
RegisterHotKey(Handle1, id1, VK_CONTROL, MapVirtualKey(VkKeyScan('y'),0));
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Handle1:=FindWindow('TForm1','Form1'); //0x50304
UnregisterHotKey(Handle1, id1)
end;

[Пепел Феникса]

используйте Form1.Handle
а id1 назначьте сами как константу.

[Maddy]

ой не удаляется(

[Maddy]

Сообщение от Пепел Феникса

используйте Form1.Handle
а id1 назначьте сами как константу.

Исправил код но все равно не работает.

private
    { Private declarations }
    id1: Integer;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
...
var...
const id='HotKey1';

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = id1 then
    begin
      {что-то делаем в программе}
      MessageDlg('Работает второй способ)) ',
  mtWarning,[mbOk],0);  //
  Exit;   //
    end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Form1.Handle, id1, VK_CONTROL, MapVirtualKey(VkKeyScan('y'),0));
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnregisterHotKey(Form1.Handle, id1)
end;

[Пепел Феникса]

private
    { Private declarations }
    id1: Integer;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
...
var...
const id=1;

типы параметров кто смотреть будет?

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = id then
    begin
      {что-то делаем в программе}
      MessageDlg('Работает второй способ)) ',
  mtWarning,[mbOk],0);  //
  Exit;   //
    end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin;
RegisterHotKey(Handle, id, MOD_CONTROL, MapVirtualKey(VkKeyScan('y'),0));
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnregisterHotKey(Handle, id)
end;

***у нас переменная id, а не id1
***зачем лишняя морока, учитывая что окно с такими данными может быть и не одно.
***хоть бы названия констант от этой функции посмотрели

[Maddy]

Сообщение от Пепел Феникса

procedure TForm1.FormCreate(Sender: TObject);
begin;
RegisterHotKey(Handle, id, MOD_CONTROL, MapVirtualKey(VkKeyScan('y'),0));
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnregisterHotKey(Handle, id)
end;[/CODE]
***у нас переменная id, а не id1
***зачем лишняя морока, учитывая что окно с такими данными может быть и не одно.
***хоть бы названия констант от этой функции посмотрели

таперь компилятор ругается на недостаток параметров.
[Error] Pr1.pas(407): Not enough actual parameters

[Пепел Феникса]

на какую строку ругается то?

[Maddy]

Сообщение от Пепел Феникса

на какую строку ругается то?

Нашел ошибку в строке.
Начал работать но с такой большой задержкой. Нажму комбинацию а он секунд 30 думает и то через раз выдает сообщение. первый способ мнгновенно реагирует. Почему?