Имитировать нажатие горячей клавиши

[Kronos913]

Как сделать так, чтобы программа имитировала нажатие горячей клавиши?

То есть, моя Delphi программа запущена, но свёрнута, активна другая программа
Я нажимаю горячую клавишу Ctrl+1, моя программа его перехватывает, активируется процедура реакции на горячую клавишу, программа делает какие-то действия

И дальше нужно сделать так, чтобы моя программа сымитировала нажатие Ctrl+V в активной программе

[Kronos913]

Что вообще я хочу сделать:

Если я в какой-то программе (например, в браузере) начал набирать не той раскладкой - чтобы просто выделить неправильно введенный кусок теста, нажать горячую клавишу

А дальше моя программа (которая включена но свёрнута) имитирует нажатие ctrl+C (копирует выделенное в браузере), загружает буфер обмена себе, проводит изменение текста, возвращает его в буфер обмена, после чего имитирует нажатие ctrl+V и вставляет его в нужное место в браузере

И проблема только с имитацией ctrl+C и ctrl+V

Сейчас приходится действовать в три нажатия:ctrl+C, горячая клавиша, ctrl+V
А хочу сократить только до нажатия горячей клавиши

[NetSpace]

читай. там есть два очень хороших примера. один в начале, другой в конце.
https://www.programmersforum.ru/show...E0%E2%E8%F8%F3

[Vapaamies]

Процедура keybd_event давно устарела, Microsoft рекомендует использовать SendInput. Вот перегруженная процедура из моей программы, вставляющей символы или строки в любое поле ввода:

procedure SimulateKeystroke(Key: WideChar); overload;
var
  Input: array[0..1] of TInput;
begin
  FillChar(Input, SizeOf(Input), 0);
  with Input[0] do
  begin
    Itype := INPUT_KEYBOARD;
    with ki do
    begin
      wScan := Word(Key);
      dwFlags := KEYEVENTF_UNICODE
    end;
  end;
  with Input[1] do
  begin
    Itype := INPUT_KEYBOARD;
    with ki do
    begin
      wScan := Word(Key);
      dwFlags := KEYEVENTF_UNICODE or KEYEVENTF_KEYUP;
    end;
  end;
  SendInput(Length(Input), Input[0], SizeOf(TInput));
end;

procedure SimulateKeystroke(Key: Word); overload;
var
  Input: array[0..1] of TInput;
begin
  FillChar(Input, SizeOf(Input), 0);
  with Input[0] do
  begin
    Itype := INPUT_KEYBOARD;
    ki.wVk := Key;
  end;
  with Input[1] do
  begin
    Itype := INPUT_KEYBOARD;
    with ki do
    begin
      wVk := Key;
      dwFlags := KEYEVENTF_KEYUP;
    end;
  end;
  SendInput(Length(Input), Input[0], SizeOf(TInput));
end;

Вам, по-видимому, нужна вторая процедура. Посмотрите по SDK, какие коды или маски VK_xxxx соответствуют Ctrl+C/Ctrl+V.