Systemsteuerung aufrufen
Wenn's denn schon unmöglich oder wenigstens sehr auwendig ist, Funktionen aus der Systemsteuerung zu programmieren, warum sollte man sich nicht der eigebauten Funktionen bedienen? Diese Funktion öffnet die jeweilige Seite der Systemsteuerung aus dem eigenen Programm.
Deklarationsteil:
| Public Declare Function
CreateProcess Lib "coredll.dll"
_ Alias "CreateProcessW" (_ ByVal lpApplicationName As String, _ ByVal lpCommandLine As String, _ ByVal lpProcessAttributes As Long, _ ByVal lpThreadAttributes As Long, _ ByVal bInheritHandles As Long, _ ByVal dwCreationFlags As Long, _ ByVal lpEnvironment As Long, _ ByVal lpCurrentDirectory As Long, _ ByVal lpStartupInfo As Long, _ ByVal lpProcessInformation As Long _ ) As Long |
hier eine Beispielfunktion, der Dateiname und Kommandozeilen-Parameter übergeben werden:
| Function
RunApp(Dateiname, cmdLine) RunApp = CreateProcess(Dateiname, cmdLine, 0, 0, 0, 0, 0, 0, 0, 0) End Function |
Um nun die Systemsteuerung aufrufen zu können muß diese Funktion mit den korrekten Parametern aufgerufen werden. Der Dateiname des Control-Panels lautet "ctlpnl.exe".
| RunApp "ctlpnl.exe", "cplmain.cpl," & param1 & "," & param2 |
Der Kommandozeilen-String besteht aus dem Namen des Control-Panel-Message-Files und den Parametern 1 und 2. Diese Parameter entscheiden darüber, was beim Öffnen des Control-Panels angezeigt wird. Parameter 1 stellt dabei die anzuzeigende Funktionalität dar, Parameter 2 enscheidet über die innerhalb dieser Funktionalität anzuzeigende Registrierkarte (so vorhanden).
| Param1 | Beschreibung |
| 0 | Kontrast |
| 1 | Kennwort/Sicherheit |
| 2 | Besitzerinformationen |
| 3 | Stromversorgung |
| 4 | Speicher |
| 5 | Info |
| 6 | Beleuchtung |
| 7 | Touchscreen |
| 8 | Eingabe |
| 9 | Sound |
| 10 | Programme entfernen |
| 11 | Menüs |
| 12 | Tasten |
| 13 | Heute |
| 14 | PC |
| 15 | Modem |
| 16 | Uhr |
| 17 | Netzwerk |
| 18 | Ländereinstellungen |