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

[Kazik]

Доброго времени суток. Помогите разобраться с проблемой.
Есть код:

procedure TForm1.Timer2Timer(Sender: TObject);
var
    h:hwnd;
begin
    h:=FindWindow(nil, 'Заголовок окна');
    if h<>0 then
    begin
      PostMessage(h, WM_KEYDOWN, VK_F6, $00000001);
      sleep(100);
      PostMessage(h, WM_KEYUP, VK_F6, $C0000001);
      sleep(100);
      PostMessage(h, WM_KEYDOWN, VK_CONTROL, $00000001);
      sleep(100);
      PostMessage(h, WM_KEYDOWN, Ord('V'), $00000001);
      sleep(100);
      PostMessage(h, WM_KEYUP, Ord('V'), $C0000001);
      sleep(100);
      PostMessage(h, WM_KEYUP, VK_CONTROL, $C0000001);
      sleep(100);
      PostMessage(h, WM_KEYDOWN, VK_RETURN, $00000001);
      sleep(100);
      PostMessage(h, WM_KEYUP, VK_RETURN, $C0000001);
end;

Клавиша F6 передается правильно. Но дальше почему-то не срабатывает комбинация Ctrl+V. По сути ведь последовательность правильная - нажимаю Ctrl, нажимаю V, отжимаю V, отжимаюCtrl. Но в итоге в стороннее приложение передается только нажатие клавиши V.

[evg_m]

Delphi7 Help Windows SDK СПРАВКА по WM_KEYDOWN

WM_KEYDOWN
nVirtKey = (int) wParam; // virtual-key code
lKeyData = lParam; // key data


Parameters

nVirtKey

Value of wParam. Specifies the virtual-key code of the nonsystem key.

lKeyData

Value of lParam. Specifies the repeat count, scan code, extended-key flag, context code, previous key-state flag, and transition-state flag, as shown in the following table:

Value Description
0-15 Specifies the repeat count. The value is the number of times the keystroke is repeated as a result of the user holding down the key.
16-23 Specifies the scan code. The value depends on the original equipment manufacturer (OEM).
24 Specifies whether the key is an extended key, such as the right-hand ALT and CTRL keys that appear on an enhanced 101- or 102-key keyboard. The value is 1 if it is an extended key; otherwise, it is 0.
25-28 Reserved; do not use.
29 Specifies the context code. The value is always 0 for a WM_KEYDOWN message.
30 Specifies the previous key state. The value is 1 if the key is down before the message is sent, or it is 0 if the key is up.
31 Specifies the transition state. The value is always 0 for a WM_KEYDOWN message.

[tred]

тебе надо не просто нажать 2 клавиши а создать горячие клавиши вродебы

procedure TForm1.WM_HotKeyHandler (var Message: TMessage);
  var
    idHotKey: integer; //идентификатор, но об этом - позже
    fuModifiers: word; //модификатор MOD_XX
    uVirtKey: word; //код виртуальной клавиши VK_XX
begin
  // параметры сообщения получаем так:
  idHotkey:= Message.wParam;
  fuModifiers:= LOWORD(Message.lParam);
  uVirtKey:= HIWORD(Message.lParam);

  //теперь - небольшая проверочка:
  if (fuModifiers = MOD_ALT) AND (uVirtKey = VK_F10) then
    caption:='Alt-F10 нажата';
  inherited;
end;