Manchmal wäre es ja wichtig, wenn ein Prozess
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.
Code
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
Alles anzeigen
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.