das Hauptprogramm über etwas informiert.
Z.B. wenn der Prozess turnusmäßige Aufgaben
in einer Schleife ausführt und bei jedem Durchlauf
das Hauptfenster informieren möchte.
Quellcode
- Declare Handle Gridbox1
- Declare Int ende
- WindowTitle "Ende auch mit ESC !"
- Window 800, 600
- Gridbox1 = @Create("Gridbox", %HWnd, "Name;0;120;Wert 1;0;80;Wert 2;0;80", 0, 10, 80, 300, 200)
- ende = 0
- pExec("|Werte", %HWnd, Gridbox1)
- UserMessages 1001
- Locate 1, 2
- Print "Ende auch mit ESC"
- WhileNot ende
- WaitInput
- If %UMessage = 1001
- SetText %HWnd, "Gridbox " + Str$(&UwParam) + " mal aktualisiert !"
- EndIf
- Case %Key = 2 : ende = 1
- Case %Key = 27 : ende = 1
- EndWhile
- Proc Werte
- Parameters Handle Win, Grid
- Declare Int ende1, a, b
- ende1 = 0
- a = 0
- b = 0
- Randomize
- WhileNot ende1
- If GetText$(Win) <> ""
- Inc a
- AddString(Grid, "Werte :|" + Str$(Rnd(100)) + "|" + Str$(Rnd(1000)))
- If a > 10
- a = 0
- ClearList Grid
- Inc b
- SendMessage(Win, 1001, b, 0)
- EndIf
- EndIf
- Sleep 200
- case getText$(Win) = "" : ende1 = 1
- EndWhile
- EndProc
- UserMessages 0
- End
Auch das FileMapping wäre da zu nennen, wenn
der Prozess etwa in eine Map schreibt und wenn
er fertig ist, das Programm informiert, damit dieses
etwa die Map auslesen kann.
Vielleicht kann es jemand ja gebrauchen.
