Parameter bei einer Funktion

[LuckyJoe]

Hallo zusammen,

ich entwickle derzeit ein Script, das mir im Tray alle laufenden Programme durchläuft und auf Nachfrage beendet. Dazu nutze ich die TrayIcon library (Download hier), die einige Funktionen in diesem Zusammenhang zur Verfügung stellt.
Meine Frage stellt sich aber nicht zu dieser Bibliothek, sondern zu dem grundsätzlichen Aufruf einer Funktion und den zu übergebenden Parametern. Meine Schleife ist folgendermaßen aufgebaut:

Code: Select all

#Include TrayIcon.ahk
DetectHiddenWindows, On
SetTitleMatchMode, 2

TrayPrg := TrayIcon_GetInfo()
Loop % TrayPrg.MaxIndex()
{
	; Programm 01
	If (TrayPrg[A_Index].Process = "Programm01.exe")
	{
		hWnd := TrayPrg[A_Index].hWnd
		idx := TrayPrg[A_Index].idx
		MsgBox, 1,, % TrayPrg[A_Index].Process . "`ngefunden - beenden?"
		IfMsgBox Ok
		{
			WinClose, ahk_id %hWnd%
			TrayIcon_Delete(idx, 0)
		}
	}

	; Programm 02
	If (TrayPrg[A_Index].Process = "Programm02.exe")
	; statt diesem Konstrukt ...:
	; {
		; hWnd := TrayPrg[A_Index].hWnd
		; idx := TrayPrg[A_Index].idx
		; MsgBox, 1,, % TrayPrg[A_Index].Process . "`ngefunden - beenden?"
		; IfMsgBox Ok
		; {
			; WinClose, ahk_id %hWnd%
			; TrayIcon_Delete(idx, 0)
		; }
	; }

	; ... soll eine Funktion aufgerufen werden,
	; aber mit welchem Parameter?
		MeClose(???)
}
Return

; Wie sieht der Parameter der Funktion aus?:
MeClose(???)
{
	hWnd := ???
	idx := ???
	MsgBox, 1,, % ??? . "`ngefunden - beenden?"
	IfMsgBox Ok
	{
		WinClose, ahk_id %hWnd%
		; ??? -> TrayIcon_Delete(idx, 0)
	}

}

Wie müssen die Parameter an die Funktion MeClose() aussehen und wie kann ich damit innerhalb der Funktion weiterarbeiten?

Danke schon mal im Voraus für euer Lesen.
Lucky Joe

[just me]

Moin,

das in der Schleife abgearbeitete Element TrayPrg[A_Index] ist ein Objekt. Das kannst Du direkt an eine Funktion übergeben, die in Deinem Fall auch nur diesen einen Parameter braucht:

Code: Select all

   ; Programm 02
   If (TrayPrg[A_Index].Process = "Programm02.exe")
      MeClose(TrayPrg[A_Index])

...
...
; Wie sieht der Parameter der Funktion aus?:
MeClose(TrayItem)
{
   hWnd := TrayItem.hWnd
   idx := TrayItem.idx
   MsgBox, 1,, % TrayItem.Process . "`ngefunden - beenden?"
   IfMsgBox Ok
   {
      WinClose, ahk_id %hWnd%
      TrayIcon_Delete(idx, 0)
}

Das sollte funktionieren, ist aber ungetestet.

[LuckyJoe]

... jau! Klappt - Dankeeee!

[nnnik]

Die TrayIcon library sollte jemand bei Zeiten mal in OOP umarbeiten