XProfan

Français

Sato
Pinto

allô

Habe deux Programme am courir, un ist sichtbar et l'autre pas. dans den sichtbaren Programme
habe je une Fortschrittanzeige qui je sur den unsichtbaren Programme steuern voudrais.
là fällt mir SendMessage un, mais comment peux je cela faire, den si je avec Findwindow den Handle
des sichtbaren Programme ermittele, comment peux je avec sendmessage à den Handle qui Fortschrittanzeige
Werte senden?

Im unsichtabres Programme wird qui variable Progresszaehler& hochgezählt, et so un Befehl voulais
je qui Fortschritanzeige beeinflussen. Weiss quelqu'un comment cela gemacht wird?
z.b @SendMessage(Progresshandle&,$0400+2,Progresszaehler&,0)

Gruss
Sato

Sato Pinto
WIN XP Home
XPROFAN 11

15.09.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Sato
Pinto

allô

Habe cela sur den Clipboard gelöst, pas qui eleganteste Solution, mais es funktioniert

Gruss
Sato

Sato Pinto
WIN XP Home
XPROFAN 11

16.09.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

allô Sato, s'il te plaît einmal qui pipe-unit anschauen bzw. un Trick hätte je là déjà.

Bennenne cela Serverfenster z.B. avec "meinProgramm - ["+str$(handle)+"]" et im Client peux Du per FindWindow "meinProgramm - [" simple un entsprechendes la fenêtre trouver weil FindWindow indirect cherchez.

Programme qui "mir" meinen Zwischeninhalt/Clipboard effacer ou bien changement, volonté grundsätzlich erwürgt et près de den Autor gehägt.

16.09.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

ou bien per RegisterWindowMessage

Beispiel :

Client
Kompilieren Marque Séparation

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
Kompilieren Marque Séparation

Server
pour dem Client starten
 $H Windows.ph
 $H Messages.ph
windowStyle $250
Fenêtre 0,0-0,0
Var Ende& = 0
Var RegMessage& = ~RegisterWindowMessage("Meine-Meldung")
Utilisateur Messages RegMessage&
SetTimer 500
Var X& = 0

Whilenot Ende&

    Waitinput

    Si %wmtimer

        annonce absetzen
        Poster un message(~HWND_BROADCAST,RegMessage&,0,X&)
        Inc X&

    endif

    Si %UMessage = RegMessage&

        annonce zum finissons wurde empfangen

        Si &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 : [...]

16.09.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Andreas Miethe, Beitrag=54255, Zeitpunkt=16.09.2009

ou bien per RegisterWindowMessage...

Ist oui sogar encore viel besser!

17.09.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Sato
Pinto

allô

Andreas Solution ist super. je weiss cela avec den Clipboard pas qui feine Art ist, mais
vous êtes oui Profis, je pas, muss encore viel apprendre.

merci à Euch beide

Gruss
Sato

Sato Pinto
WIN XP Home
XPROFAN 11

17.09.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation