Hallo, guten Tag.
Wie macht man bitte ein Prozessfenster unsichtbar.
Ich brauche das Fenster nicht, nur die Datenverarbeitung im Prozess.
Danke.
GRuss
Alles anzeigen
Wie macht man bitte ein Prozessfenster unsichtbar.
Ich brauche das Fenster nicht, nur die Datenverarbeitung im Prozess.
Danke.
GRuss
Quellcode
- $MAKE CLE
- Declare p&,ende&,b_start&,b_start1&
- Proc Prozess
- Parameters title$, x&, y&, color&, diff&, parent&
- Declare wert&,ende&
- windowstyle 24 + 1024
- WindowTitle title$
- window x&, y& - 150, 100
- CLS color&
- color 15,1
- wert& = 0
- Ende& = 0
- settimer 500
- WhileNot ende&
- Waitinput
- Case %key = 2 : Ende& = 1
- Case GetText$(parent&) = "" : Ende& = 1
- inc wert&, diff&
- EndWhile
- EndProc
- windowstyle 24 + 512
- WindowTitle "Statusfenster"
- window 100,300-500,200
- b_start& = Create("Button",%hwnd,"start",10,10,120,24)
- b_start1& = Create("Button",%hwnd,"start1",10,40,120,24)
- Randomize
- ende&=0
- WhileNot Ende&
- Waitinput
- Case %key = 2 : Ende& = 1
- If Clicked(b_start&)
- Process("Kill", p&, 0)
- p& = pExec("|Prozess", "A", 100, 100, rgb(rnd(256),rnd(256),rnd(256)),5, %hwnd)
- EndIf
- If Clicked(b_start1&)
- Process("Kill", p&, 0)
- p& = pExec("|Prozess", "B", 100, 100, rgb(rnd(256),rnd(256),rnd(256)),1, %hwnd)
- EndIf
- EndWhile
- End