Hintergrundanwendung erstellen

[Tombi]

Hallo zusammen,
ich würde gerne eine Anwendung erstellen, welche "unsichtbar" im Hintergrund arbeitet.

Dazu bräuchte ich jedoch noch eure Hilfe.

Folgende Probleme:

1. Auf welche Weise kann ich das Programm aus der Startleiste entfernen? (Nur Systray?)
2. Auf welche Weise kann ich das Programm so aufbauen, das es einen Befehl (bzw das komplette Programm) nur alle X Minuten ausführt und der Rest der Zeit im Leerlauf läuft (abwartet)?

[mk-soft]

Fenster erstellen mit #PB_Window_Invisible und AddWindowTimer()

FF

[hörmi]

Hier ungefär so...
sollte zum größten teil selbsterklährend sein
benötigt allerdings min PB 4.40 wegen der timerfunktion

Code: Alles auswählen

OpenWindow(0,0,0,400,20,"",#PB_Window_SystemMenu|#PB_Window_Invisible)

AddWindowTimer(0,0,1000)

AddSysTrayIcon(0,WindowID(0),CreateImage(0,16,16))

CreatePopupMenu(0)
MenuItem(0,"Exit")

Repeat
event=WaitWindowEvent()
 Select event
 Case #PB_Event_Timer
  ;Hier kommt das rein was nur alle 1000ms bearbeitet werden soll
  
 Case #PB_Event_SysTray
  DisplayPopupMenu(0,WindowID(0))
  
 Case #PB_Event_Menu
  Select EventMenu()
   Case 0
    event=#PB_Event_CloseWindow
  EndSelect
 EndSelect
Until event=#PB_Event_CloseWindow

;Programm Ende

[Tombi]

Gibt es da auch eine Möglichkeit für PB4.31?

[jojo1541]

Die Timer über Win API, oder ElapsedMilliseconds() laufen lassen.

[Tombi]

Die Timer über Win API

Erklär' das mal bitte genauer?

[RSBasic]

http://www.rsbasic.q-soft.ch/index.php? ... &Itemid=59

Müsste bei dir funktionieren.

Bei mir unter PB 4.40 zählt er anscheinend nur bis 2
Liegt es daran, dass PB einen eigenen Timer besitzt und deshalb bei dieser API nicht korrekt zählt?

[Conrad]

also ich würde das mit delay machen:

Code: Alles auswählen

Repeat

...

Delay(zeit)

ForEver

[jojo1541]

Dann kann er aber sein Systray-Icon nur dann abfragen, wenn das Delay ausgelaufen ist. Also hier ungeeignet.

[hörmi]

außer man lässt es im hintergrund laufen

Code: Alles auswählen

Procedure Irgendwas(zeit.l)
Repeat

...

Delay(zeit)

ForEver
EndProcedure
CreateThread(@Irgendwas(),1000)