XProfan

- Página 1 -

Timotheus

GetAsyncKeyState va!

Das hätte Yo no pensamiento, porque en el API-Lybrary, sowie en el Win32.hlp es drin, dass el Rüchgabewert sólo seit el letzten Aufruf abgefragt se. Also si F gedückt se, y A abgefragt se, debería dass F doch eigentlich de el Speicher verschwinden, oder no?

Timo

20.07.2005 ▲

¡Hola Timo...

GetAsyncKeyState es una meiner Lieblingsfunktionen, es en fast cada Programa de me drin.

Zu beachten:
Wird en Abfrage zurückgesetzt. D.h., willst du esta Función benutzen, mußt du, bevor du ellos wirklich verwendest, el Función sólo una vez aufrufen en el evtl. enthaltenen Valor en 0 zurückzusetzen - el es en el WIN32.HLP gemeint.
Außerdem klauen se zwei Programas el esta Función benutzen evtl. gegenseitig el Tastendrücke.

21.07.2005 ▲

Bueno Tag.

El GetKeyState-API reicht föllig y es viel mejor geeignet.

24.07.2005 ▲

¡Hola Werner...

Das voluntad Yo dir gerne glauben - schreib doch veces a la Code con GetKeyState:
Yo möchte, daß una Messagebox erscheint, si en un otro Programa el Taste F12 gedrückt se - y el en allen 32Bit Windows Betribssystemen...
Das Problema hatten wir antes unos pocos Jahren ya veces.

25.07.2005 ▲

Timotheus

¡Hola,

Nochmal Yo. Passt ungefähr a el Thema, deshalb escribir Yo otra vez hier rein. Yo möchte ahora todavía el Messages de una otro Ventana auslesen puede. Beide Programas Yo incluso comenzó. Mit AttachThreadInput scheint lo en Bezug en Messages no bastante hinzuhauen. Gibt lo como una otro Möglichkeit?

Timo

06.08.2005 ▲

- Página 2 -

Frank
Abbing

Hi,

a Messages fremder Ventana lesen (y manipulieren) a puede, mußt Si es usted el Ventana subclassen. Andreas ha Miethe algunos Beispiele en su Página, cómo soetwas macht. Condición es allerdings XProfan de Versión 8.

06.08.2005 ▲

Timotheus

Welches de los vielen se Yo wählen,
en mich no con el falschen a quälen.

Timo

06.08.2005 ▲

Frank
Abbing

Hi,

nimm al besten [...]

. An el Message WM_QUERYENDSESSION siehst du schön, como el va con el Messages abfangen.

Frank
Abbing

Hi,

tener vorhin todavía algo gebastelt:
Kompilieren Marca Separación

 $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='./../../funktionsreferenzen/XProfan/endwhile/'>EndWhile

Drück veces el Mausknöpfe y unos pocos Tasten.
Eigentlich müßte así cada Ventana gesubclassed voluntad puede. Yo hoffe, auch fremde.

Timotheus

Oje, Oje.
Un Minute después de que dieses Foro verlassen hatte, hast Si es usted el geschrieben. Hätte Todavía 1 Minute gewartet, hätte Yo no incluso una Demo remendar necesario

Aber una Cuestión todavía. ¿Es posible, 2 Ventana con el selben Procedimiento abzufragen? Mit scheint el nähmlich unmöglich.

Übrigens: Wer, oder qué, bist du después de deinem Wechsel en el grüne Página el Macht?

Entwerder: Gras Shopper (???)

Oder: grass Hopper

Como 1. wahrscheinlich unwahrscheinlich es, hay 3 Möglichkeiten:

1. una krasser Hopper (?)
2. una gras Hopper
3. lo wurde ya otra vez una neue Rechtschreibreform eingeführt (al wahrscheinlichsten)

Timo

Frank
Abbing

Hi.

> Oje, Oje.
> Un Minute después de que dieses Foro verlassen
> hatte, hast Si es usted el geschrieben. Hätte Yo
> todavía 1 Minute gewartet, hätte Yo no
> incluso una Demo remendar necesario

Naja, Übung macht el Meister. Und incluso Erarbeitetes restos sí doch mejor hängen.

> Aber una Cuestión todavía. ¿Es posible, 2
> Ventana con el selben Procedimiento abzufragen?
> Mit scheint el nähmlich unmöglich.

Also No. El Codestelle se eben de verschiedenen Programmen durchlaufen. Es en el Hilos auch no anders y va (fast)sin Problemas. Jedenfalls solange, como du no en Variables zugreifst...

> Übrigens: Wer, oder qué, bist du después de deinem
> Wechsel en el grüne Página el Macht?
>
> Entwerder: Gras Shopper (???)
>
> Oder: grass Hopper
>
> Como 1. wahrscheinlich unwahrscheinlich es,
> hay 3 Möglichkeiten:
>
> 1. una krasser Hopper (?)
> 2. una gras Hopper
> 3. lo wurde ya otra vez una neue Rechtschreibreform
> eingeführt (al wahrscheinlichsten)

Green Vader natürlich...