неправильная работа keybd_event

[chertovich]

Здравствуйте.
Есть код, раньше он работал, а сейчас нет.
Для примера набросал код, но на самом деле я работаю с другим окном.

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Активизация Edit-a
  SendMessage(Edit1.Handle, WM_LBUTTONDOWN, 0, 0);
  SendMessage(Edit1.Handle, WM_LBUTTONUP, 0, 0);

  { Выделение содержимого Edit-a }
  // Нажатие и отпускание клавиши HOME
  keybd_event(VK_HOME, 0, 0, 0);
  keybd_event(VK_HOME, 0, KEYEVENTF_KEYUP, 0);

  // Нажатие клавиши Shift
  keybd_event(VK_SHIFT, 0, 0, 0);

  // Нажатие и отпускание клавиши END
  keybd_event(VK_END, 0, 0, 0);
  keybd_event(VK_END, 0, KEYEVENTF_KEYUP, 0);

  // Отпускание клавиши Shift
  keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);

  { Копирование выделенного текста }
  keybd_event(VK_CONTROL, 0, 0, 0);
  keybd_event(Ord('C'), 0, 0, 0);
  keybd_event(Ord('C'), 0, KEYEVENTF_KEYUP, 0);
  keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
end;

Здесь происходит кликом активизация Edit-a, потом зажатие клавиши Shift и нажатие на клавишу End. Но почему-то не происходит выделение и копирование.
В чем может быть проблема? Задержка в виде Sleep не дает результата.

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

а кто сказал что вы активируете Эдит?

ему фокус дать нужно, а не просто послать ему сообщения о нажатиях.

[chertovich]

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

а кто сказал что вы активируете Эдит?

ему фокус дать нужно, а не просто послать ему сообщения о нажатиях.

Активизация происходит:

  // Активизация Edit-a
  SendMessage(Edit1.Handle, WM_LBUTTONDOWN, 0, 0);
  SendMessage(Edit1.Handle, WM_LBUTTONUP, 0, 0);

Замена этих строк на

Edit1.SetFocus;

не дает никакого результата.
Проверяю не на чужой форме, а на своей. Переход на начало и конец строки происходит, а выделение нет.
Проверьте, пожалуйста, код у себя, может быть дело с системой.

[chertovich]

Все, нашел проблему, оказывается, у меня был включен num lock