Пытаюсь написать программку, для себя, ориентированную на клиент RF которая бы могла имитировать нажатия тех или иных клавиш на клавиатуре.

Пробовал имитировать нажатия 2-я известными мне способами:

1. через PostMessage
2. через keybd_event

и третьим, найденным в интернете:

через процедуру написанную на ассемблере

procedure EmulateKey(Wnd: HWND; VKey: Integer);
asm
push 0
push edx
push 0101H //WM_KEYUP
push eax
push 0
push edx
push 0100H //WM_KEYDOWN
push eax
call PostMessage
call PostMessage
end;

Во всех случаях окно искал по названию "RF Online", также использовал SetForegroundWindow

Язык, понятное дело, Delphi. Операционная система: Win7 x64.

Ни один из способов не приносит результата, т.е. нажатие не имитируется.

Поможите кто чем может, люды добрые)

Ребят, ну подскажите плиз.. Не получается у меня.. Намекните.. Я не прошу готового кода..

Вообще есть у кого-то какие-то мысли по этому поводу? Чего все молчат-то? Или просмотревшие 60 человек случайно зашли в ветку программирование?)

[@Восьмеркин]

эм, чтобы пользоваться тем что у тебя написано выше на asm нужно использовать EmulateKey (hwnd, vkey). Чтобы тебе не парится вот те готовый кусок:

procedure EmulateKey(Wnd: HWND; VKey: Integer);
asm
push 0
push edx
push 0101H //WM_KEYUP
push eax
push 0
push edx
push 0100H //WM_KEYDOWN
push eax
call PostMessage
call PostMessage
end;

//пример с таймером
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Делаем окно рф-ки активным:
sendmessage (findwindow(nil,'RF Online' ,wm_activate,1,1); // Работает только если окно не свернуто

//Жмем кнопку F1 в окно рф-ки
EmulateKey(findwindow(nil,'RF Online'), vk_f1 );
end;

Благодарю за ответ.

Я конечно же использовал процедуру EmulateKey так же как и ты написал, окно делал активным через SetForegroundWindow. Попробовал так как ты посоветовал, через sendmessage.

К сожалению результат один и тот же, окно активным становится, но имитация нажатия клавиши не происходит.

Есть у меня ощущение что это каким-то образом связано с Win7 x64. Как вы думаете?

[@Восьмеркин]

С версией винды это никак не связано, выложи свой листинг здесь или в личку

[@dark]

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

Пытаюсь написать программку, для себя, ориентированную на клиент RF которая бы могла имитировать нажатия тех или иных клавиш на клавиатуре.

Пробовал имитировать нажатия 2-я известными мне способами:

1. через PostMessage
2. через keybd_event

и третьим, найденным в интернете:

через процедуру написанную на ассемблере

procedure EmulateKey(Wnd: HWND; VKey: Integer);
asm
push 0
push edx
push 0101H //WM_KEYUP
push eax
push 0
push edx
push 0100H //WM_KEYDOWN
push eax
call PostMessage
call PostMessage
end;

Во всех случаях окно искал по названию "RF Online", также использовал SetForegroundWindow

Язык, понятное дело, Delphi. Операционная система: Win7 x64.

Ни один из способов не приносит результата, т.е. нажатие не имитируется.

Поможите кто чем может, люды добрые)

Проблема заключается в том, что ты шлёшь не в то окно нажатия. Окно RF Online на самом деле - это окно фроста (оно грузится первым). Поэтому в данном случае стандартными методами (поиск по заголовку) ты hwnd не получишь.
Я делаю так:
Аттачу дллку, перехватываю обработчик сообщений и в нём уже при клике правой мышкой (а клик этот будет по любому в нужном для нас окне), сохраняю нужный hwnd.

Спасибо большое Дарк, я разобрался..