XProfan

English

Sato
Pinto

Hello

have two programs on the walk, one is visible and the others not. into visible Program
have I a Fortschrittanzeige The I over the unsichtbaren Program steer would like.
there falls me Sendmessage one, but how can I the make, whom if I with Findwindow whom lever
the visible Program ermittele, how can I with sendmessage on whom lever the Fortschrittanzeige
Send values?

in the unsichtabres Program becomes The variable Progresszaehler& hochgezählt, and so one commands wished
I The Fortschritanzeige bearing. knows someone How the made becomes?
z.b @Sendmessage(Progresshandle&,$0400+2,Progresszaehler&,0)

greeting
Sato

Sato Pinto
WIN XP Home
XPROFAN 11

09/15/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Sato
Pinto

Hello

have the over the Clipboard resolved, not The eleganteste Solution, but it functions

greeting
Sato

Sato Pinto
WIN XP Home
XPROFAN 11

09/16/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hello Sato, Please once The pipe-unit look at or. one ploy had I there already.

Bennenne the Serverfenster z.B. with "meinProgramm - ["+st$(lever)+"]"And in the Client can You by FindWindow "meinProgramm - [" simply one entsprechendes Window find because FindWindow indirect seek.

programs The "mir" my Zwischeninhalt/Clipboard delete or Change, go fundamentally choking and next to whom Author gehägt.

09/16/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

or by RegisterWindowMessage

example :

Client
Compile Mark Separation

CLIENT
zuerst starten
###############
 $H Windows.ph
 $H Messages.ph
Windowstyle 520
CLS
Var Ende& = 0
Var RegMessage& = ~RegisterWindowMessage("Meine-Meldung")
UserMessages RegMessage&

Whilenot Ende&

    Waitinput

    If %UMessage = RegMessage&

        If &uwParam = 0

            Locate 0,0
            Print &ulParam

        Endif

    Endif

    If %Key = 2

        Server beenden
        PostMessage(~HWND_BROADCAST,RegMessage&,2,0)
        Ende& = 1

    Endif

EndWhile

Server
Compile Mark Separation

Server
to the Client started
 $H windows.ph
 $H Messages.ph
windowStyle $250
Window 0,0-0,0
Var Ende& = 0
Var RegMessage& = ~RegisterWindowMessage("Meine-Meldung")
User Messages RegMessage&
SetTimer 500
Var X& = 0

Whilenot Ende&

    Waitinput

    If %wmtimer

        Message put down
        PostMessage(~HWND_BROADCAST,RegMessage&,0,X&)
        Inc X&

    endif

    If %UMessage = RegMessage&

        Message to that terminate watts receive

        If &uwParam = 2

            Ende& = 1

        Endif

    Endif

EndWhile

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

09/16/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Andreas Miethe, Beitrag=54255, Zeitpunkt=16.09.2009

or by RegisterWindowMessage...

is Yes even yet much better!

09/17/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Sato
Pinto

Hello

Andreas Solution is class. I knows with the whom Clipboard not The swell manner is, but
you are Yes Profis, I do not, must yet plenty learn.

thanks on you both

greeting
Sato

Sato Pinto
WIN XP Home
XPROFAN 11

09/17/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote