'Beispiel: VB .Net - control.exe - Control Panels anzeigen 'Hinweis : Das Beispiel benoetigt eine PictureBox zur Anzeige des extrahierten Panel-Icons, 'einen Button zum Prozeduraufruf und eine ComboBox zur Anzeige der .cpl Datei und der Beschreibung 'der .cpl Datei. ' Option Explicit On Option Strict On Public Class Form1 'Struktur der vorhandenen Panel Namen... Public Structure PanelNames 'Netzwerkverbindungen Public NetworkConnection As String 'Eingabehilfen Public AccessibilityControls As String 'Programme installieren oder entfernen Public AddOrRemovePrograms As String 'Display Eigenschaften Public DisplayProperties As String 'Hardware-Assistenten aufrufen Public AddHardware As String 'Eigenschaften von Internet Public ConfigureInternetExplorerAndInternetProperties As String 'Regions- und Sprachoptionen Public RegionalSettings As String 'Gamecontroller Public GameControllers As String 'Eigenschaften von Maus Public MousePropertiesAndSettings As String 'Eigenschaften von Sounds und Audiogeraeten Public SoundsAndAudio As String 'Benutzerkonten Public UserAccounts As String 'Eigenschaften von Energieoptionen Public PowerConfiguration As String 'Systemeigenschaften Public SystemProperties As String 'Telefon- und Modemoptionen Public PhoneAndModemOptions As String 'Eigenschaften von Datum und Uhrzeit Public DateAndTimeProperties As String '... End Structure 'Struktur dimensionieren... Private pn As PanelNames Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click 'Einzelnen ComboBox-Eintrag in zwei Element zerlegen - Hier wird standardmaessig 'das in der Zeichenkette vorkommende Leerzeichen verwendet. Dim s() As String = Me.ComboBox1.SelectedItem.ToString().Split() 'Erstes Element als Titelzeilenbeschriftung verwenden Me.Text = s(0) 'Aufruf der Prozedur ControlPanelApplets mit dem ermittelten Wert aus dem 'selektieren Eintrag der ComboBox + der benoetigten PictureBox zur Anzeige des 'extrahierten Icons der .cpl Datei. ControlPanelApplets(s(0).Trim(), Me.PictureBox1) End Sub ''' <summary> ''' Ruft das uebergebene Panel auf ''' </summary> ''' <param name="Panel">Name des Control-Panels</param> ''' <param name="Canvas">Ausgabegeraet fuer das extrahierte Icon</param> Private Sub ControlPanelApplets(ByVal Panel As String, ByVal Canvas As PictureBox) 'Startprozess initialisieren... Dim psi As ProcessStartInfo = New ProcessStartInfo() With psi 'Aufrufende ausfuehrende Datei an FileName uebergeben .FileName = "control.exe" 'Fehlerdialog verwenden .ErrorDialog = True 'Argument ist die aufzurufende .cpl Datei .Arguments = Panel 'Prozess initialisieren... Dim hProcess As Process = New Process() With hProcess '... und Prozess starten. .StartInfo = psi .Start() End With End With 'Es wird versucht das Icon des Control-Panels zu extrahieren und in einer 'PictureBox anzuzeigen. 'Fehlerueberwachung einschalten Try 'Enthaelt das Ausgabegeraet eine Grafik wird das Ausgabegeraet zurueckgesetzt If Canvas.Image IsNot Nothing Then Canvas.Image = Nothing 'Icon aus der uebergebenen .cpl Datei extrahieren 'Die .cpl Dateien befinden sich im System-Pfad. Es wird ueber die Funktion 'Path.Combine der Systempfad mit der uebergebenen .cpl Datei kombiniert und ueber 'die Funktion ExtractAssociatedIcon das Icon extrahiert um dieses an das Ausgabegeraet 'zu uebergeben. Dim hIcon As Icon = Icon.ExtractAssociatedIcon _ ( _ IO.Path.Combine _ ( _ System.Environment.GetFolderPath(Environment.SpecialFolder.System _ ), Panel) _ ) '...Konnte das Icon extrahiert werden wird dieses an das Ausgabegeraet uebergeben. If hIcon IsNot Nothing Then Canvas.Image = hIcon.ToBitmap() 'Eventuell auftretenden Fehler abfangen. Catch ex As Exception 'Fehlermeldung in einer MessageBox ausgeben. MessageBox.Show(ex.Message(), "Info - ExtractIcon") End Try End Sub Public Sub New() InitializeComponent() 'Struktur initialisieren... pn = New PanelNames 'Benoetigte Werte an die Strukturvariablen uebergeben. Beschreibung s.o. With pn .NetworkConnection = "ncpa.cpl" .AccessibilityControls = "access.cpl" .AddOrRemovePrograms = "appwiz.cpl" .DisplayProperties = "desk.cpl" .AddHardware = "hdwwiz.cpl" .ConfigureInternetExplorerAndInternetProperties = "inetcpl.cpl" .RegionalSettings = "intl.cpl" .GameControllers = "joy.cpl" .MousePropertiesAndSettings = "main.cpl" .SoundsAndAudio = "mmsys.cpl" .UserAccounts = "nusrmgr.cpl" .PowerConfiguration = "powercfg.cpl" .SystemProperties = "sysdm.cpl" .PhoneAndModemOptions = "telephon.cpl" .DateAndTimeProperties = "timedate.cpl" End With End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load With Me 'Fenster zentrieren .CenterToScreen() 'Titelbeschreibung setzen .Text = "control.exe - Control Panels anzeigen" 'Buttonbeschreibung setzen .Button1.Text = "Test..." 'Die verwendete PictureBox erhaelt die Eigenschaft AutoSize .PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize End With 'Fehlerueberwachung einschalten... Try 'Verwendung FieldInfo zum durchlaufen der verwendeten Struktur zur Anzeige 'in einer ComboBox. 'Dimensionierung FieldInfo. Dim fi As System.Reflection.FieldInfo() = pn.GetType.GetFields 'Schleifendurchlauf in der Struktur... For Each Items As System.Reflection.FieldInfo In fi 'Das Array s() uebernimmt die einzelnen Elemente jedes einzelnen Eintrags in der 'Sruktur um 1.) den initialisierten Wert und 2.) den Variablen-Namen aufzunehmen. Dim s() As String = Split(Items.ToString(), " ") 'Beide Werte werden dann durch ein Leerzeichen getrennt in der verwendeten ComboBox 'angezeigt. Me.ComboBox1.Items.Add(Items.GetValue(pn).ToString() & " " & s(1)) Next 'Eventuell aufretenden Fehler abfangen... Catch '... und ausgeben. Throw New Exception("Error...") End Try 'Enthaelt die ComboBox Eintraege wird das erste Item angezeigt. If Me.ComboBox1.Items.Count > 0 Then Me.ComboBox1.SelectedIndex = 0 End Sub End Class