XProfan

Español

Sato
Pinto

¡Hola

Posesiones zwei Programas al laufen, una es sichtbar y el otro no. In el sichtbaren Programa
Yo una Fortschrittanzeige el Yo encima el unsichtbaren Programa steuern möchte.
Como fällt me SendMessage una, aber como kann Yo el hacer, el si yo con Findwindow el Handle
des sichtbaren Programa ermittele, como kann I, con sendmessage a el Handle el Fortschrittanzeige
Werte senden?

Im unsichtabres Programa se el variabel Progresszaehler& hochgezählt, y así una Befehl quería
Yo el Fortschritanzeige beeinflussen. Weiss alguien como el gemacht se?
z.b @SendMessage(Progresshandle&,$0400+2,Progresszaehler&,0)

Gruss
Sato

Sato Pinto
WIN XP Home
XPROFAN 11

15.09.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sato
Pinto

¡Hola

Posesiones el encima el Clipboard gelöst, no el eleganteste Solución, pero funktioniert

Gruss
Sato

Sato Pinto
WIN XP Home
XPROFAN 11

16.09.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

¡Hola Sato, Por favor, una vez el pipe-unit anschauen o. una Trick hätte Yo como ya.

Bennenne el Serverfenster z.B. con "meinProgramm - ["+str$(handle)+"]" y en el Client kannst Usted por FindWindow "meinProgramm - [" simplemente una entsprechendes Ventana encontrar porque FindWindow indirekt sucht.

Programas el "mir" media Zwischeninhalt/Clipboard löschen oder ändern, voluntad grundsätzlich erwürgt y neben el Autor gehägt.

16.09.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Oder por RegisterWindowMessage

Ejemplo :

Client
Kompilieren Marca Separación

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 Marca Separación

Server
después de el Client starten
 $H Windows.ph
 $H Messages.ph
windowStyle $250
Ventana 0,0-0,0
Var Ende& = 0
Var RegMessage& = ~RegisterWindowMessage("Meine-Meldung")
Mensajes del usuario RegMessage&
SetTimer 500
Var X& = 0

Sinestar encargado Ende&

    Waitinput

    If %wmtimer

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

    endif

    If %UMessage = RegMessage&

        Meldung para 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 Cita Zeilenweise Cita

Andreas Miethe, Beitrag=54255, Zeitpunkt=16.09.2009

Oder por RegisterWindowMessage...

Ist sí incluso todavía viel mejor!

17.09.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sato
Pinto

¡Hola

Andreas Solución es Klasse. Yo blanco el con el Clipboard no el feine Art es, aber
Ihr seid sí Profis, Yo no, muss todavía viel aprender.

Gracias a Euch beide

Gruss
Sato

Sato Pinto
WIN XP Home
XPROFAN 11

17.09.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita