Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > PostMessage в графическое приложение

Автор: pomogite 19.4.2012, 17:13

Здравствуйте,
подскажите пожалуйста, вот есть код (взят с интернета), он отправляет окну wind нажатие клавиши "1"

Код


PostMessage(FindWindow(nil,(PAnsiChar(wind))),WM_KEYDOWN,$00000031,$00020001);

Всё работает, клавиша нажимается, даже в свёрнутом окне.
Раньше я делала так:

Код


PostMessage(FindWindow(nil,(PAnsiChar(wind))),WM_KEYDOWN,49,0);

В принципе идентичные коды, но почему не работает второй вариант?
Хотелось бы чтобы пользователь мог сам выбрать какую клавишу послать в окно программы.
Спасибо.

Автор: volvo877 19.4.2012, 17:19

Цитата(pomogite @ 19.4.2012, 16:13

)

почему не работает второй вариант?

Работает, и отсылает 0 нажатий в окно, как просили. Поэтому ты и не видишь результата. LPARAM для WM_KEYDOWN http://msdn.microsoft.com/en-us/library/windows/desktop/ms646280%28v=vs.85%29.aspx, что содержит...

Автор: pomogite 19.4.2012, 17:35

Пишу так -

Код


PostMessage(FindWindow(nil,(PAnsiChar(wind))),WM_KEYDOWN,49,1);

Не нажимается
так

Код


PostMessage(FindWindow(nil,(PAnsiChar(wind))),WM_KEYDOWN,49,$00020001);

Тыкает однёрку.
так нажимает цифру 3, не обращая внимания на wparam - 49

Код


PostMessage(FindWindow(nil,(PAnsiChar(wind))),WM_KEYDOWN,49,$00040001);

Автор: volvo877 19.4.2012, 18:02

Цитата(pomogite @ 19.4.2012, 16:35

)

Пишу так -
PostMessage(FindWindow(nil,(PAnsiChar(wind))),WM_KEYDOWN,49,1);
Не нажимается

Странно, проверил на Блокноте - нажимается, 1 печатается. Равно как и в следующих двух вариантах.

Автор: pomogite 19.4.2012, 18:11

В блокноте и калькуляторе да, а вот в игре видимо стоит какая-то защита.
Хотя с этим вариантом -

Код


PostMessage(FindWindow(nil,(PAnsiChar(wind))),WM_KEYDOWN,$00000031,$00020001);

удачно всё отправляется, узнать бы значения - $00000031,$00020001 для других цифр и пробела, энтера.

Автор: Чучмек 19.4.2012, 20:14

Цитата

lParam

    The repeat count, scan code, extended-key flag, context code, previous key-state flag, and transition-state flag, as shown following.
    Bits    Meaning
    0-15    The repeat count for the current message. The value is the number of times the keystroke is autorepeated as a result of the user holding down the key. If the keystroke is held long enough, multiple messages are sent. However, the repeat count is not cumulative.
    16-23    The scan code. The value depends on the OEM.
    24    Indicates 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    The context code. The value is always 0 for a WM_KEYDOWN message.
    30    The previous key state. The value is 1 if the key is down before the message is sent, or it is zero if the key is up.
    31    The transition state. The value is always 0 for a WM_KEYDOWN message.

Биты 16-23 содержат номер клавиши на клавиатуре
http://delphiworld.narod.ru/base/symbol_to_key_scan_code.html

Автор: pomogite 19.4.2012, 20:39

Ну это понятно, что клавиша 1 это - $00000031
а второе значение? - $00020001
пишу так -

Код


PostMessage(FindWindow(nil,(PAnsiChar(wind))),WM_KEYDOWN,$00000020,$00020001);

Пробел не нажимается.

Автор: Чучмек 19.4.2012, 22:08

lParam=$00390001 не?

Автор: pomogite 19.4.2012, 22:36

Да так работает! Спасибо огромное!!! Скажите пожалуйста, как Вы вычислили lParam пробела? И вообще как вычислять для других клавиш.

Автор: volvo877 19.4.2012, 22:39

http://ru.wikipedia.org/wiki/%D0%A1%D0%BA%D0%B0%D0%BD-%D0%BA%D0%BE%D0%B4 пробела = $39, посылать 1 раз. smile

Автор: Чучмек 19.4.2012, 22:55

Код


lParam:=((ScanCode and $000000FF) shl 16) or (count and $0000FFFF )

Скан код можно получить с помощью MapVirtualKey

Автор: pomogite 19.4.2012, 22:56

А почему тогда вот эти параметры $00000031,$00020001 посылают единицу?

Автор: Чучмек 19.4.2012, 23:03

Скан код "1" - $02
А ansi код "1" - $31

подробней завтра, жена гонит спать. smile

Автор: Чучмек 20.4.2012, 08:20

Теперь подробнее, почему в одном случае "1" это (hwn,WM_KEYDOWN, $00000031,0) а в другом (hwn,WM_KEYDOWN, 0,$00020001)
Для блокнота не важно, где была нажата единица, важно что это единица а не "!", по этому блокнот использует wParm в котором передается ansi код символа.
Для игры важно, что была нажата клавиша "1/!", но не важно, что это "!" или "1", поэтому игра использует скан-код клавиши, который передается в lParam.
Вот для примера:

Код


var owp:pointer;
function nwp(h,m,w,l:cardinal):cardinal;stdcall;
begin
if m=WM_KEYDOWN then form1.Memo2.Lines.Add(inttohex(w,8)+'  '+inttohex(l,8));
CallWindowProc(owp,h,m,w,l);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
integer(owp):=getwindowlong(memo1.Handle,GWL_WNDPROC);
setwindowlong(memo1.Handle,GWL_WNDPROC,integer(@nwp));
end;

В memo2 будут выводится wParam и lParam при WM_KEYDOWN в memo1

Автор: pomogite 20.4.2012, 10:23

Спасибо большое, ещё раз, что всё понятно объяснили на пальцах! Думаю многим будет полезна данная информация.