Имитация клика мышки и клавиатуры

[Reimscher]

В windows 10 некоторые приложения игнорируют mouse_event и keybd_event. Что делать? Можно ли как-то имитировать клик мышки и нажатие кнопки клавиатуры подключившись к драйверами мыши/клавиатуры?

[Stilet]

Сообщения посылать не хочешь?
Или вот этой функцией: https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx

[Reimscher]

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

Сообщения посылать не хочешь?
Или вот этой функцией: https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx

Send/PostMessage игнорируются.
Попробую с SendInput. Хотя уже какой-то такой код использовал, вроде бы не работало.

Ещё один интересный момент. В своей программе использую

procedure WMHotKey(var Mes: TMessage); message WM_HOTKEY;

Когда в фокусе определённая другая программа и я нажимаю горячую клавишу — WMHotKey в моей программе не срабатывает.

Вот код программы:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMHotKey(var Mes: TMessage);
begin
  Form1.Caption := IntToStr(Random(1000));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle, 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if not RegisterHotKey(Handle, 0, 0, VK_F8) then Exit;
end;

end.

Запускаю экранную клавиатуру, делаю что бы она была в фокусе и жму F8 — ничего не происходит.

[Stilet]

Ставил бряк себе? Обработчик сообщения вообще срабатывает?

if not RegisterHotKey(

А где проверка на код ошибки? Почему сразу Exit? И кстати зачем тут этот Exit?

[Reimscher]

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

Ставил бряк себе? Обработчик сообщения вообще срабатывает?

А где проверка на код ошибки? Почему сразу Exit? И кстати зачем тут этот Exit?

procedure TForm1.WMHotKey(var Mes: TMessage);
begin
  Form1.Caption := IntToStr(Random(1000));
end;

Так и определяю, срабатывает обработчик или нет. Если в фокусе экранная клавиатура или другие определённые приложения — не срабатывает. По поводу проверки. Там, как правило, всего 1 ошибка бывает — что клавиша уже занята. Exit стоит потому что суть приложения в том, что бы оно по нажатию хоткея выполняло на фоне свои дела.