Windows-Farbeinstellungen aufrufen

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    @Selter98

    Rein theoretisch sollte das möglich sein. Theoretisch deswegen weil ich das für den Desktop noch nicht gebraucht habe. Sollte aber analog zu den ContextMenüs für eine Datei/Ordner bzw. mehrere Dateien/Ordner funktionieren.

    1. vom virtuellen Pfad "::{00021400-0000-0000-C000-000000000046}" (sollte der Desktop sein) per API SHCreateItemFromParsingName ein Interface IShellItem erstellen -> docs.microsoft.com/en-us/windo…createitemfromparsingname

    2. per IShellItem.BindToHandler mit BHID_SFUIObject und IID_IContextMenu ein Interface IContextMenu erstellen -> docs.microsoft.com/en-us/windo…-ishellitem-bindtohandler

    3. per API CreatePopupMenu ein Handle für ein PopupMenu erstellen -> docs.microsoft.com/en-us/windo…f-winuser-createpopupmenu

    4. per IContextMenu.QueryContextMenu und dem Handle vom PopupMenu wird das ContextMenü für den Desktop geladen -> docs.microsoft.com/en-us/windo…textmenu-querycontextmenu

    5. per API TrackPopupMenuEx und dem Handle vom PopupMenu kann man sich nun das ContextMenü anzeigen lassen wo Du dann den entsprechenden Eintrag anklicken kannst. -> docs.microsoft.com/en-us/windo…-winuser-trackpopupmenuex

    Ab hier könnte man auch folgendes machen: Wenn Du bei TrackPopupMenuEx den Flag TPM_RETURNCMD angibst, gibt Dir TrackPopupMenuEx ein MenüItem-Identifier zurück. Per IContextMenu.GetCommandString und dem MenüItem-Identifier + dem Flag GCS_VERBA oder GCS_VERBW kommst Du an das Verb für den angeklickten ContextMenü-Eintrag. -> docs.microsoft.com/en-us/windo…textmenu-getcommandstring

    Wenn man dieses Verb hat, braucht man das ContextMenü nicht mehr anzeigen lassen, TrackPopupMenuEx kann dann entfallen, sondern füllt die Structure CMINVOKECOMMANDINFOEX entsprechend aus (.cbSize = SizeOf(Structure), .lpVerb = Verb <- GCS_VERBA bzw. lpVerbW = Verb <- GCS_VERBW) docs.microsoft.com/en-us/windo…ore-cminvokecommandinfoex
    Nun kann man direkt nach IContextMenu.QueryContextMenu per IContextMenu.InvokeCommand(CMINVOKECOMMANDINFOEX) den entsprechenden Befehl (Verb) ausführen lassen anstatt diesen Im Contextmenü anzuklicken. -> docs.microsoft.com/en-us/windo…contextmenu-invokecommand

    Grob gesagt, Du benötigst das Verb zum Aufrufen der Windows-Farbeinstellungen aus dem ContextMenü um über IContextMenu.InvokeCommand diesen Befehl direkt auszuführen. Die Frage wäre: Ändert sich das Verb auch mal? k.A. und bei MS weis man nie ob die da mal was ändern. Einige Verb sind bisher bei allen Windowsversionen immer konstant geblieben wie zB. "Print" um Dateien, wie über das ContextMenü, zu drucken. Wenn Du ganz sicher gehen möchtest, solltest Du doch das ContextMenü anzeigen lassen und dann den entsprechenden Eintrag anklicken. Du müsstest auch zu diesem Thema ContextMenüs (IContextMenu und das drumherum) einiges im Internet finden.

    Evtl. gibt es auch andere Möglichkeiten die Windows-Farbeinstellungen direkt aufzurufen. Diese sind mir aber nicht bekannt.
    Mfg -Franky-

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „-Franky-“ ()

    @Selter98null
    Kleine Korrektur: Per API SHGetDesktopFolder ein Interface IShellFolder erstellen. Per IShellFolder.CreateViewObject und IID_IContextMenu ein Interface IContextMenu erstellen. Der Rest bleibt gleich.

    Edit: Weil ich gerade etwas Zeit hatte, hab ich das mal fix zusammen gebaut. Evtl. reicht Dir ja dieser Weg. Um dann an die Farben zu kommen, ist es ja nur noch ein Klick.
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Option Strict On
    3. Option Explicit On
    5. Imports System.Text
    6. Imports System.Runtime.InteropServices
    8. Public Class Form1
    10. Private Const S_OK As Integer = 0
    11. Private Const GCS_VERBA As Integer = &H0
    12. Private Const GCS_UNICODE As Integer = &H4
    13. Private Const MIN_CONTEXTMENU_CMDID = &H1
    14. Private Const MAX_CONTEXTMENU_CMDID = &H7FFF
    15. Private Const TPM_RETURNCMD As Integer = &H100
    17. Private Const IID_IShellFolder As String = "000214E6-0000-0000-C000-000000000046"
    18. Private Const IID_IContextMenu As String = "000214e4-0000-0000-c000-000000000046"
    20. <StructLayout(LayoutKind.Sequential)>
    21. Private Structure CMINVOKECOMMANDINFOEX
    22. Dim cbSize As Integer
    23. Dim fMask As Integer
    24. Dim hwnd As IntPtr
    25. <MarshalAs(UnmanagedType.LPStr)> Dim lpVerb As String
    26. <MarshalAs(UnmanagedType.LPStr)> Dim lpParameters As String
    27. <MarshalAs(UnmanagedType.LPStr)> Dim lpDirectory As String
    28. Dim nShow As Integer
    29. Dim dwHotKey As Integer
    30. Dim hIcon As IntPtr
    31. <MarshalAs(UnmanagedType.LPStr)> Dim lpTitle As String
    32. <MarshalAs(UnmanagedType.LPWStr)> Dim lpVerbW As String
    33. <MarshalAs(UnmanagedType.LPWStr)> Dim lpParametersW As String
    34. <MarshalAs(UnmanagedType.LPWStr)> Dim lpDirectoryW As String
    35. <MarshalAs(UnmanagedType.LPWStr)> Dim lpTitleW As String
    36. Dim ptInvokeX As Integer
    37. Dim ptInvokeY As Integer
    38. End Structure
    40. <DllImport("Shell32.dll", EntryPoint:="SHGetDesktopFolder")>
    41. <PreserveSig> Private Shared Function SHGetDesktopFolder(<Out, MarshalAs(UnmanagedType.Interface)> ByRef ppshf As IShellFolder) As Integer
    42. End Function
    44. <DllImport("User32.dll", EntryPoint:="CreatePopupMenu")>
    45. Private Shared Function CreatePopupMenu() As IntPtr
    46. End Function
    48. <DllImport("User32.dll", EntryPoint:="TrackPopupMenuEx")>
    49. Private Shared Function TrackPopupMenuEx(<[In]> ByVal hMenu As IntPtr,
    50. <[In]> ByVal uFlags As UInt32,
    51. <[In]> ByVal x As Integer,
    52. <[In]> ByVal y As Integer,
    53. <[In]> ByVal hwnd As IntPtr,
    54. <[In]> ByVal lptpm As IntPtr) As Integer
    55. End Function
    57. <DllImport("User32.dll", EntryPoint:="DestroyMenu")>
    58. Private Shared Function DestroyMenu(<[In]> ByVal hMenu As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    59. End Function
    61. <ComImport>
    62. <InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    63. <Guid(IID_IShellFolder)>
    64. Private Interface IShellFolder
    66. ' Die Dummyfunktionen sind nur dafür da, damit die VTable des Interfaces bis CreateViewObject passt!
    68. <PreserveSig> Function ParseDisplayName() As Integer ' nur eine Dummyfunktion
    69. <PreserveSig> Function EnumObjects() As Integer ' nur eine Dummyfunktion
    70. <PreserveSig> Function BindToHandler() As Integer ' nur eine Dummyfunktion
    71. <PreserveSig> Function BindToStorage() As Integer ' nur eine Dummyfunktion
    72. <PreserveSig> Function CompareIDs() As Integer ' nur eine Dummyfunktion
    73. <PreserveSig> Function CreateViewObject(<[In]> ByVal hwndOwner As IntPtr,
    74. <[In], MarshalAs(UnmanagedType.LPStruct)> ByVal riid As Guid,
    75. <Out, MarshalAs(UnmanagedType.IUnknown)> ByRef ppv As Object) As Integer
    77. ' Weitere nicht verwendete Funktionen des Interfaces.
    78. ' Diese brauchen wir aber nicht als Dummyfunktionen anlegen
    79. ' da wir nur die Funktion CreateViewObject nutzen wollen.
    81. ' Function GetAttributesOf() As Integer
    82. ' Function GetUIObjectOf() As Integer
    83. ' Function GetDisplayNameOf() As Integer
    84. ' Function SetNameOf() As Integer
    85. End Interface
    87. <ComImport>
    88. <InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    89. <Guid(IID_IContextMenu)>
    90. Private Interface IContextMenu
    91. <PreserveSig> Function QueryContextMenu(<[In]> ByVal hMenu As IntPtr,
    92. <[In]> ByVal indexMenu As Integer,
    93. <[In]> ByVal idCmdFirst As Integer,
    94. <[In]> ByVal idCmdLast As Integer,
    95. <[In]> ByVal uFlags As Integer) As Integer
    96. <PreserveSig> Function InvokeCommand(<[In], MarshalAs(UnmanagedType.Struct)> ByRef pici As CMINVOKECOMMANDINFOEX) As Integer
    97. <PreserveSig> Function GetCommandString(<[In]> ByVal idCmd As Integer,
    98. <[In]> ByVal uType As Integer,
    99. <[In]> ByVal pReserved As IntPtr,
    100. <Out, MarshalAs(UnmanagedType.LPWStr)> ByVal lpszShortPath As StringBuilder,
    101. <[In]> ByVal cchMax As Integer) As Integer
    102. End Interface
    104. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    106. Dim IIShellFolder As IShellFolder = Nothing
    108. ' IShellFolder erstellen
    109. If SHGetDesktopFolder(IIShellFolder) = S_OK Then
    111. Dim oIContextMenu As Object = Nothing
    113. ' IContextMenu erstellen
    114. If IIShellFolder.CreateViewObject(IntPtr.Zero, New Guid(IID_IContextMenu),
    115. oIContextMenu) = S_OK Then
    117. Dim IIContextMenu As IContextMenu = DirectCast(oIContextMenu, IContextMenu)
    119. ' PopupMenu erstellen
    120. Dim hMenu As IntPtr = CreatePopupMenu()
    122. If hMenu <> IntPtr.Zero Then
    124. ' ContextMenü laden
    125. If IIContextMenu.QueryContextMenu(hMenu, 0, MIN_CONTEXTMENU_CMDID,
    126. MAX_CONTEXTMENU_CMDID, 0) > 0 Then
    128. ' ********************************************************************
    129. ' Ohne das Contextmenü anzuzeigen. Dann direkt das Verb, falls dieses
    130. ' immer konstant in unterschiedlichen Windowsversionen ist und man
    131. ' das Verb kennt!, verwenden ohne TrackPopupMenuEx auszuführen.
    132. 'Dim tCMICI As New CMINVOKECOMMANDINFOEX
    134. '' Structure CMINVOKECOMMANDINFOEX füllen
    135. 'With tCMICI
    136. ' .cbSize = Marshal.SizeOf(tCMICI)
    137. ' .lpVerb = "Personalize" ' <- Verb
    138. 'End With
    140. '' Befehl (Verb) ausführen
    141. 'If IIContextMenu.InvokeCommand(tCMICI) = S_OK Then
    143. ' ' Befehl erfolgreich ausgeführt
    144. ' Debug.Print("OK")
    146. 'End If
    147. ' ********************************************************************
    149. ' ContextMenü anzeigen, hier an Position 0,0 des Bildschirmes
    150. Dim intCommandID As Integer = TrackPopupMenuEx(hMenu, TPM_RETURNCMD,
    151. 0, 0, Me.Handle, IntPtr.Zero)
    153. ' intCommandID > 0, 0 = irgendwo anders hingeklickt -> ContextMenü verschwindet
    154. If intCommandID >= MIN_CONTEXTMENU_CMDID And intCommandID <= MAX_CONTEXTMENU_CMDID Then
    156. ' MIN_CONTEXTMENU_CMDID wieder abziehen!
    157. intCommandID -= MIN_CONTEXTMENU_CMDID
    159. Dim sbVerb As New StringBuilder(255)
    161. ' Verb für den angeklickten MenüItem ermitteln
    162. If IIContextMenu.GetCommandString(intCommandID, GCS_VERBA Or GCS_UNICODE,
    163. IntPtr.Zero, sbVerb, sbVerb.Capacity) = S_OK Then
    165. Dim strVerb As String = sbVerb.ToString
    167. ' Verb vom angeklickten MenüItem ausgeben
    168. Debug.Print("Verb des MenüItems = " & strVerb)
    170. Dim tCMICI As New CMINVOKECOMMANDINFOEX
    172. ' Structure CMINVOKECOMMANDINFOEX füllen
    173. With tCMICI
    174. .cbSize = Marshal.SizeOf(tCMICI)
    175. .lpVerb = strVerb
    176. End With
    178. ' Befehl (Verb) ausführen
    179. If IIContextMenu.InvokeCommand(tCMICI) = S_OK Then
    181. ' Befehl erfolgreich ausgeführt
    182. Debug.Print("OK")
    184. End If
    186. End If
    188. End If
    190. End If
    192. ' PopupMenu löschen
    193. DestroyMenu(hMenu)
    195. End If
    197. ' IContextMenu löschen
    198. Marshal.FinalReleaseComObject(IIContextMenu)
    200. End If
    202. ' IShellFolder löschen
    203. Marshal.FinalReleaseComObject(IIShellFolder)
    205. End If
    207. End Sub
    209. End Class

    Mfg -Franky-

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „-Franky-“ ()

    @Selter98

    So wie es ausschaut, gibt es noch eine anderen Weg. Google ist Dein Freund. :) Schaust Du hier: tenforums.com/tutorials/78214-…ortcuts-windows-10-a.html Im Prinzip musst Du folgenden Befehl ausführen: explorer.exe ms-settings:dateandtime Und mit der Liste aus dem Link, solltest Du auch an die anderen Einstellungen kommen.
    Mfg -Franky-

    Hie führen viele Wege nach Rom, wenn ich dich richtig verstanden habe suchst du danach:

    C#-Quellcode

    1. System.Diagnostics.Process.Start(System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Windows), "explorer.exe"), @"shell:::{ED834ED6-4B5A-4bfe-8F11-A626DCB6A921} -Microsoft.Personalization\pageColorization");


    Weiter Parameter: open-control-panel-items-windows-10

    Das Beispiel mit den Farbeinstellungen funktioniert schonmal. Aber wenn ich versuche andere Einstellungen zu öffnen, wird immer der Explorer mit der Seite "Dokumente" geöffnet. Was ist hier falsch?

    Drucker-Einstellungen:

    VB.NET-Quellcode

    1. ​System.Diagnostics.Process.Start(System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Windows), "explorer.exe"), "control /name Microsoft.DevicesAndPrinters")

    Bildschirm-Einstellungen:

    VB.NET-Quellcode

    1. ​System.Diagnostics.Process.Start(System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Windows), "explorer.exe"), "control /Name Microsoft.RemoteAppAndDesktopConnections")

    Tastatur-Einstellungen:

    VB.NET-Quellcode

    1. ​ System.Diagnostics.Process.Start(System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Windows), "explorer.exe"), "control /name Microsoft.Keyboard")


    Und mit diesem Befehl kommt Visual Basic garnicht klar. Meldung: "Komma, ")" oder eine gültige Ausdrucksfortsetzung erwartet.

    VB.NET-Quellcode

    1. ​System.Diagnostics.Process.Start(System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Windows), "explorer.exe"), "control /name Microsoft.RegionalAndLanguageOptions /page /p:"Formats"")

    Naja das funktioniert nicht weil du den armen Explorer dazu bringen willst das dieser die Control.exe mit Startparameter öffnet. Das control bedeuted das dieses Argument die Control.exe entgegen nimmt. Diese befindet sich im windows/system32 Ordner.

    C#-Quellcode

    1. System.Diagnostics.Process.Start(System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Windows), "system32", "control.exe"), "/name Microsoft.Keyboard");


    Das dein letztes Beispiel nicht funktioiniert ist klar. Wenn du in einem String " verwenden willst musst diese entweder Escapen oder du nutzt String Interpolation bzw. String Format.

    C#-Quellcode

    1. Console.WriteLine("\"Hallo Welt\""); // Funktioniert
    2. Console.WriteLine($"{(char)34}Hallo Welt{(char)34}"); // Funktioniert
    3. Console.WriteLine("{0}Hallo Welt{0}", (char)34); // Funktioniert
    5. Console.WriteLine(""Hallo Welt""); // Funktioniert NICHT

    Sicher !
    Wenn kein Programm explizit angegeben wird, verwendet das System standardmäßig den Explorer.

    Das habe ich jetzt doch mal probiert.
    Zumindest mit .Net Core gibt's da einen Fehler.
    Ich hab's jetzt nicht mir .Net Framework versucht.
    Bilder

    • Bild_2021-09-17_140951.png

      24,16 kB, 835×290, 36 mal angesehen
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „petaod“ ()

Facebook
Telefonspende