Hiho,
Ich werd hier bald verrück, da das alles nicht so funktioniert wie ich will...
Ich hab auch schon die suche benutzt etc, allerdings ist da bisher noch nicht das beigewesen, was mich wirklich weiterbringt.
Daher mach ich jetzt mal nen thread auf...
Code
Oberflaeche()
Func Oberflaeche()
Opt("TrayIconHide", 1)
Opt("TrayMenuMode",0)
Opt("TrayOnEventMode",1)
Opt("TrayAutoPause",0)
"buttons fürs gui"
$tstart = TrayCreateItem ("Start TF2")
TrayCreateItem ("")
$tcut = TrayCreateItem ("Cut")
$tuncut = TrayCreateItem ("Uncut")
TrayCreateItem ("")
$topen = TrayCreateItem ("Öffnen")
$tclose = TrayCreateItem ("Beenden")
GUISetState(@SW_SHOW)
TraySetState()
while 1
$msg = GUIGetMsg()
$tmsg = TrayGetMsg()
Select
"Aufrufe für das gui."
EndSelect
If $tmsg = $topen Then
GUISetState(@SW_SHOW)
GUISetState(@SW_RESTORE)
Opt("TrayIconHide", 1)
EndIf
If $tmsg = $tclose Then
If FileExists($odir &"\Blutpatch\ClientRegistry.blob") Then
FileMove ($odir &"\Blutpatch\ClientRegistry.blob", $odir & "\", 1 )
EndIf
Exit
EndIf
If $tmsg = $tcut Then
FileMove ($odir &"\Blutpatch\ClientRegistry.blob", $odir & "\", 1 )
EndIf
If $tmsg = $tuncut Then
If FileExists($odir &"\Blutpatch\ClientRegistry.blob") Then
FileMove ($odir &"\Blutpatch\ClientRegistry.blob", $odir & "\", 1 )
EndIf
FileMove ($odir &"\ClientRegistry.blob", $odir &"\Blutpatch\", 8)
EndIf
If $tmsg = $tstart Then
ShellExecute ( $odir &"\Steam.exe", "-applaunch 440 " & $oparameter)
EndIf
WEnd
EndFunc
Alles anzeigen
ich bin sicher, dass ihr das in 5 min löst, warum ich kein item ausm traymenu benutzen kann. wenn ich draufklicke passiert nix.