Hi,
die Anwendung wird einwandfrei über das Trayicon gestartet, allerdings funktionieren jetzt nicht mehr der Schließen-Button und das X zum Schließen.
Weiß jemand Rat?
Grüße
Guido
C
;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")
TraySetState()
AutoItSetOption("GUIOnEventMode", 1)
While 1
$msg = TrayGetMsg()
Select
Case $msg = 0
ContinueLoop
Case $msg = $info
;Fenster aufrufen
GUISetState(@SW_SHOW )
Case $msg = $exit
Exit()
case $msg = $CloseButton
;GUIDelete()
Exit
;case $msg = $GUI_EVENT_CLOSE
; GUIDelete()
; Exit
EndSelect
WEnd
Exit
Alles anzeigen