TRAYIcon mit GUI

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author:         A.N.Other <myemail@nowhere.com>
;
; Script Function:
;	Template AutoIt script.
;
; ----------------------------------------------------------------------------




;Konstanten und Variablen für die GUI
#include <GUIConstants.au3>


;Fenster erstellen
GUICreate("System-Informationen", 300, 180)
GUISetBkColor("0xFFFFCA")
GUISetFont(9, 400, 0, "Arial")
$CloseButton = GUICtrlCreateButton("Schließen", 100, 140, 100, 20)


;Rechner-Name
GUICtrlCreateLabel("Computer Name:", 10, 10, 150, 20)
GUICtrlCreateLabel(@ComputerName, 140, 10, 280, 20)
;angemeldeter Benutzer
GUICtrlCreateLabel("Benutzer:", 10, 30, 150, 20)
GUICtrlCreateLabel(@UserName, 140, 30, 280, 20)
;Betriebssystem
GUICtrlCreateLabel("Betriebssystem:", 10, 50, 150, 20)
GUICtrlCreateLabel(StringReplace(@OSVersion, "WIN_", "Windows ", 0, 0), 140, 50, 280, 20)
;Service Pack
GUICtrlCreateLabel("Service Pack:", 10, 70, 150, 20)
GUICtrlCreateLabel(@OSServicePack, 140, 70, 280, 20)
;IP-Adresse
GUICtrlCreateLabel("IP-Adresse:", 10, 90, 150, 20)
GUICtrlCreateLabel(@IPAddress1, 140, 90, 280, 20)


opt("TrayMenuMode", 1)
$info = TrayCreateItem ("System-Informationen")
$exit = TrayCreateItem ("Exit")




While 1
	$msg = TrayGetMsg ()
	Select
		Case $msg = $info
			;Fenster aufrufen
			info()
		Case $msg = $exit
			Exit
	EndSelect
WEnd




Func info()
While 1
	GUISetState()
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			Exit
		Case $msg = $CloseButton
			Exit
	EndSelect
WEnd
EndFunc