XProfan

- Page 1 -

Timotheus

GetAsyncKeyState goes!

the had I do not virtual, because in the API-Lybrary, as well as in the Win32.hlp standing drin, that the Rüchgabewert only since the last appeal quizzed becomes. means if F gedückt becomes, and A quizzed becomes, should that F still really from memory vanish, or not?

Timo

07/20/05 ▲

Hello Timo...

GetAsyncKeyState is a of my Lieblingsfunktionen, is in almost each Program of me drin.

To mind:
becomes with request reset. D.h., want You these function using, must You, before You tappt im dunkeln really verwendest, The function first once Call around the evtl. encompassed worth on 0 zurückzusetzen - this is in the WIN32.HLP meant.
Also klauen itself two programs The these function using evtl. mutual The Tastendrücke.

07/21/05 ▲

good day.

The GetKeyState-API reicht föllig and is much better suitable.

07/24/05 ▲

Hello Werner...

the I will you gladly believe - schreib still time a code with GetKeyState:
i want, that a Messagebox appear, if in another Program The Button F12 pressed becomes - and the on all 32bit windows Betribssystemen...
The problem had we to a couple years already time.

07/25/05 ▲

Timotheus

Hi,

Nochmal I. fit about to the Topic, therefore write I again here mere. i want now too yet The Messages of a . Develop read can. both programs have myself launched. with AttachThreadInput shining it in reference on Messages not integrally hinzuhauen. gives it there another Possibility?

Timo

08/06/05 ▲

- Page 2 -

Frank
Abbing

Hi,

around the Messages stranger Window reading (and manipulating) to, must You the window subclassen. Andreas Miethe has some Examples on its Page, How one soetwas power. circumstance is though XProfan ex Version 8.

08/06/05 ▲

Timotheus

which from the many should I dial,
circa me not the incorrect To bait.

Timo

08/06/05 ▲

Frank
Abbing

Hi,

nimm best [...]

. on the Message WM_QUERYENDSESSION you see beautiful, How the goes with the Messages intercepting.

Frank
Abbing

Hi,

Have a little while ago yet something gebastelt:
Compile Mark Separation

 $H windows.ph
 $H messages.ph
DEF HiWord(1) And(&(1)>>16,$FFFF)
DEF LoWord(1) And(&(1),$FFFF)
Declare Ende&,Button&,OldWindowProc&,text$

Proc WindowProc

    Parameters Wnd&, Msg&, wParam&, lParam&

    If Msg& = ~WM_CLOSE

        ~PostQuitMessage(0)Programm-Ende

    Endif

    text$="Controlhandle: "+Str$(wnd&)+"                 "
    ~TextOut(%hDC,0,20,addr(text$),len(text$))
    text$="Message: "+Str$(msg&)+"                 "
    ~TextOut(%hDC,0,40,addr(text$),len(text$))
    text$="WParam: "+Str$(wparam&)+"                 "
    ~TextOut(%hDC,0,60,addr(text$),len(text$))
    text$="LParam: "+Str$(lparam&)+"                 "
    ~TextOut(%hDC,0,80,addr(text$),len(text$))

    If Msg& = ~WM_LBUTTONDOWN

        text$="Linker Knopf wird gerade gedrückt."
        ~TextOut(%hDC,0,120,addr(text$),len(text$))

    ElseIf Msg& = ~WM_LBUTTONUP

        text$="Linker Knopf wurde losgelassen.       "
        ~TextOut(%hDC,0,120,addr(text$),len(text$))

    ElseIf Msg& = ~WM_RBUTTONDOWN

        text$="Rechter Knopf wird gerade gedrückt."
        ~TextOut(%hDC,0,140,addr(text$),len(text$))

    ElseIf Msg& = ~WM_RBUTTONUP

        text$="Rechter Knopf wurde losgelassen.       "
        ~TextOut(%hDC,0,140,addr(text$),len(text$))

    ElseIf Msg& = ~WM_KEYDOWN

        text$="Taste mit Tastencode "+Str$(wparam&)+" wird gerade gedrückt.       "
        ~TextOut(%hDC,0,160,addr(text$),len(text$))

    ElseIf Msg& = ~WM_KEYUP

        text$="                                                                                                        "
        ~TextOut(%hDC,0,160,addr(text$),len(text$))

    Endif

    alle Messages die nicht behandelt wurden an die Original-Prozedur weiterleiten
    return ~CallWindowProc(OldWindowProc&,Wnd&, Msg&, WParam&, LParam&)

EndProc

set("FastMode",1)
Cls
Window-Prozedur austauschen und die Original-Prozedur in
OldWindowproc sichern
OldWindowProc& = ~SetWindowLong(%hwnd,~GWL_WNDPROC, ProcAddr(windowProc,4))

WhileNot Ende&

    WaitInput

 href='./../../Function-References/XProfan/endwhile/'>EndWhile

Drück times the Mausknöpfe and a couple Keys.
really should so each Window gesubclassed go can. I hope, too stranger.

Timotheus

Oje, Oje.
an Minute after I this Forum leave having, have you got the written. would have been I yet 1 Minute waited, had I I do not self one demonstration basteln must

but a question yet. is it possible, 2 Window with the same procedure abzufragen? with shining the Namely unmöglich.

Übrigens: who, or what, are you to your change on The green Page the power?

Entwerder: grass Shopper (???)

or: grass Hopper

there 1. probably unwahrscheinlich is, there 3 Opportunities:

1. one krasser Hopper (?)
2. one grass Hopper
3. it watts again a new Rechtschreibreform introduced (on the wahrscheinlichsten)

Timo

Frank
Abbing

Hi.

> Oje, Oje.
> an Minute after I this Forum leave
> having, have you got the written. would have been I
> yet 1 Minute waited, had I I do not
> self one demonstration basteln must

Well, Übung power whom champion. and self Erarbeitetes remaining Yes still rather hang.

> but a question yet. is it possible, 2
> Window with the same procedure abzufragen?
> with shining the Namely unmöglich.

means I do not. The Codestelle becomes even of different Programs go through. this is with whom Threads neither differently and goes (almost)without Problems. anyway as long as, How You not variables zugreifst...

> Übrigens: who, or what, are you to your
> change on The green Page the power?
>
> Entwerder: grass Shopper (???)
>
> or: grass Hopper
>
> there 1. probably unwahrscheinlich is,
> there 3 Opportunities:
>
> 1. one krasser Hopper (?)
> 2. one grass Hopper
> 3. it watts again a new Rechtschreibreform
> introduced (on the wahrscheinlichsten)

Green Vader naturally...