TrayIcon - Symbole Verhalten - "Symbol und Benachrichtigungen anzeigen" automatisch?

  • VB.NET
  • .NET (FX) 4.0

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Hinti.

    TrayIcon - Symbole Verhalten - "Symbol und Benachrichtigungen anzeigen" automatisch?

    Hallo,

    Ich möchte wenn mein Programm gestartet wird (es hat ein TrayIcon), dass dieses von mir automatisch die Option "Symbol und Benachrichtigungen anzeigen" erhält. Per Default macht Windows hier "Nur Benachrichtigungen". Siehe Bild (so würd ichs gern haben).

    Jetzt find ich dazu beim Googln einfach nix!
    Vielleicht kann mir wer einen Hinweis geben. Danke.
    Bilder

    • bild1.png

      24,82 kB, 434×233, 185 mal angesehen

    • bild2-will-haben.png

      2,62 kB, 303×72, 173 mal angesehen

    Soll scheinbar laut microsoft offiziell nicht unterstützt sein:
    msdn.microsoft.com/en-us/libra…ows/desktop/dn742495.aspx


    Windows 7 has gone a step further by focusing the notification on its original purpose of being a notification source. Most icons are hidden by default in Windows 7, but can be promoted to the notification area manually, by the user. To keep users in control of their desktops, there is no way[/b] for your program to perform this promotion automatically. Windows still displays notifications for hidden icons by promoting them temporarily.​


    Hab da aber was gefunden (ungetestet):

    VB.NET-Quellcode

    1. Imports System.Text
    2. Imports Microsoft.Win32
    3. Imports System.IO
    5. Public NotInheritable Class IconStreams
    7. Public Enum IconStreamVisibleValues As Integer
    8. OnlyShowNotifications = 0
    9. HideIconAndNotifications = 1
    10. ShowIconAndNotifications = 2
    11. End Enum
    13. Private Sub New()
    14. End Sub
    16. Private Shared Function ROT13(ByVal input As String) As String
    17. Dim sb As New StringBuilder
    18. For Each c As Char In input
    19. If Char.IsLetter(c) Then
    20. If Convert.ToInt32((Char.ToUpper(c))) < 78 Then
    21. sb.Append(Convert.ToChar(Convert.ToInt32(c) + 13))
    22. Else
    23. sb.Append(Convert.ToChar(Convert.ToInt32(c) - 13))
    24. End If
    25. Else
    26. sb.Append(c)
    27. End If
    28. Next
    29. Return sb.ToString
    30. End Function
    32. Public Shared Sub WriteIconStreamsVisibleValue(ByVal appExecutable As String, ByVal visibleValue As IconStreamVisibleValues)
    34. Dim iconStreamBytes() As Byte = Nothing
    35. Dim iconHeader() As Byte = Nothing
    36. Dim exeName() As Byte = Nothing
    37. Dim recordCount As Integer = 0
    39. ' Open registry key with write access permission.
    40. Dim r As RegistryKey = Registry.CurrentUser.OpenSubKey( _
    41. "Software\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify", True)
    43. ' We need the raw IconStream bytes read from registry.
    44. iconStreamBytes = r.GetValue("IconStreams", Nothing)
    46. Using ms As New MemoryStream(iconStreamBytes)
    48. Using reader As New BinaryReader(ms)
    50. ' Read the icon streams header, this also advances
    51. ' the position in the stream @20 offset.
    52. iconHeader = reader.ReadBytes(20)
    54. ' Read the IconStreams record count @12 byte offset
    55. ' in IconStreams header.
    56. recordCount = BitConverter.ToInt32(iconHeader, 12)
    58. ' Each IconStreams record after the 20 byte header
    59. ' is 1640 bytes.
    60. For i As Integer = 1 To recordCount
    62. ' Get the executable path information bytes.
    63. exeName = reader.ReadBytes(528)
    65. ' Advance 4 bytes in the stream for visibility position.
    66. reader.ReadInt32()
    68. ' The full executable path decoded using ROT13.
    69. If (ROT13(Encoding.Unicode.GetString(exeName))).Contains(appExecutable) Then
    71. ' Prepare to write the new visibility value into the stream.
    72. Using bw As New BinaryWriter(ms)
    74. ' The offset value in the stream to write.
    75. bw.Seek(reader.BaseStream.Position - 4, SeekOrigin.Begin)
    77. ' Write the new visible value.
    78. bw.Write(CInt(visibleValue))
    80. ' Save the new edited IconStreams bytes into the registry.
    81. r.SetValue("IconStreams", ms.ToArray)
    82. End Using
    84. Exit For '__leave
    85. End If
    87. ' Skip bytes
    88. reader.BaseStream.Seek(1108, SeekOrigin.Current)
    90. Next
    92. End Using
    93. End Using
    95. ' Close the registry handle
    96. r.Close()
    98. End Sub
    100. End Class