XProfan

Italia

Sato
Pinto

Hallo

Habe zwei Programme am laufen, ein ist sichtbar und das andere nicht. In den sichtbaren Programm
habe ich einen Fortschrittanzeige die ich circa den unsichtbaren Programm steuern möchte.
Da fällt mir Sendmessage ein, aber wie kann ich das machen, den wenn ich mit Findwindow den Handle
des sichtbaren Programm ermittele, wie kann ich mit sendmessage an den Handle der Fortschrittanzeige
Werte senden?

Im unsichtabres Programm wird die variabel Progresszaehler& hochgezählt, und mit so ein Befehl wollte
ich die Fortschritanzeige beeinflussen. Weiss jemand wie das gemacht wird?
z.b @Sendmessage(Progresshandle&,$0400+2,Progresszaehler&,0)

Gruss
Sato

Sato Pinto
WIN XP Home
XPROFAN 11

15.09.2009 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Sato
Pinto

Hallo

Habe das circa den Clipboard gelöst, nicht die eleganteste Lösung, aber es funktioniert

Gruss
Sato

Sato Pinto
WIN XP Home
XPROFAN 11

16.09.2009 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Hallo Sato, bitte einmal die pipe-unit anschauen bzw. ein Trick hätte ich da schon.

Bennenne das Serverfenster z.B. mit "meinProgramm - ["+str$(handle)+"]" und im Client kannst Du per FindWindow "meinProgramm - [" einfach ein entsprechendes Fenster finden weil FindWindow indirekt sucht.

Programme die "mir" meinen Zwischeninhalt/Clipboard löschen oder ändern, werden grundsätzlich erwürgt und neben den Autor gehägt.

16.09.2009 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Oder per RegisterWindowMessage

Beispiel :

Client
Kompilieren Markieren Separieren

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 Markieren Separieren

Server
nach dem Client starten
 $H Windows.ph
 $H Messages.ph
windowStyle $250
Window 0,0-0,0
Var Ende& = 0
Var RegMessage& = ~RegisterWindowMessage("Meine-Meldung")
UserMessages RegMessage&
SetTimer 500
Var X& = 0

Whilenot Ende&

    Waitinput

    If %wmtimer

        Meldung absetzen
        PostMessage(~HWND_BROADCAST,RegMessage&,0,X&)
        Inc X&

    endif

    If %UMessage = RegMessage&

        Meldung zum Beenden wurde empfangen

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

16.09.2009 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Andreas Miethe, Beitrag=54255, Zeitpunkt=16.09.2009

Oder per RegisterWindowMessage...

Ist ja sogar noch viel besser!

17.09.2009 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Sato
Pinto

Hallo

Andreas Lösung ist Klasse. Ich weiss das mit den Clipboard nicht die feine Art ist, aber
Ihr seid ja Profis, ich nicht, muss noch viel lernen.

Danke an Euch beide

Gruss
Sato

Sato Pinto
WIN XP Home
XPROFAN 11

17.09.2009 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione