; ----------------------------------------------------------------------------
;
; AutoIt-Version: v3.2.0.1
;
; Programmname:   Toolbox
; Version:        1.00
;
; Autor:          Manuel Kübler
; Mail:           mk-software@gmx.de
;
; Skript Function:
;    Systemsteuerung als Menü
;    wichtige Programme als Menü
;    Arbeitsplatz als Menü
;
; ----------------------------------------------------------------------------


; ----------------------------------------------------------------------------

; Todo:

; - _RunDOS-Funktionen
;    -> In den nächsten Versionen werden langsam die Run-Funktionen durch _RunDOS-Funktionen ersetzt.
;    -> Durch diese Umstellung, entfällt die Sucherei nach den Programm-Pfaden.
;   - Manuel Kübler

; - Icons
;    -> Jede Schaltfläche erhält ein Icon.
;    -> Die Icons liegen im Verzeichnis "Icons"
;   - Manuel Kübler

; - Bugs
;    -> Alle Bugs entfernen
;   - Manuel Kübler

; - Arbeitsplatz als Menü
;    -> Alle Laufwerke
;   - Offen


; Done:

; - _RunDOS-Funktionen
;    -> Ein Teil der Run-Funktionen wurden durch _RunDOS-Funktionen ersetzt.
;   - Manuel Kübler

; - Bugs im Systemsteuerungs-Menü
;    -> Alle Bugs im Systemsteuerungs-Menü wurden behoben.
;   - Manuel Kübler (Done.)

; - Eigene Dateien
;    -> Eigene Dateien-Link
;   - Manuel Kübler (Done.)

; - Systemsteuerung als Menü
;    -> Anzeige, Automatische Updates, ...
;   - Manuel Kübler (Done.)
; ----------------------------------------------------------------------------


; ============================================================================
; ----------------------------------------
; AutoIT Options
; ----------------------------------------
Opt("TrayIconDebug", 0)   ; TESTING später entfernen, eigenes TrayMenü bauen
Opt("TrayMenuMode", 1)    ; Default tray menu items (Script Paused/Exit) will not be shown.
Opt("TrayOnEventMode", 1)

; ----------------------------------------
; Include
; ----------------------------------------
#Include <Constants.au3>
#Include <Process.au3>

; ----------------------------------------
; Target
; ----------------------------------------
Global $target_reader = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\Acrobat Reader\7.0\Installer", "Path")

; ----------------------------------------
; Variablen-Deklarationen
; ----------------------------------------
Global $PROGRAMM_NAME = "Toolbox"
Global $PROGRAMM_VERSION = "1.00"
; ============================================================================


; ============================================================================

; ----------------------------------------
; TrayMenu
; ----------------------------------------
; Eigene Dateien
$Dateien = TrayCreateItem("Eigene Dateien")
TrayItemSetOnEvent(-1, "_dateien")

TrayCreateItem("")

; Programme
$Programme = TrayCreateMenu("Programme")
;  Editor
$Programme_Editor = TrayCreateItem("Editor", $Programme)
TrayItemSetOnEvent(-1, "_editor")
;  Eingabeaufforderung
$Programme_CMD = TrayCreateItem("Eingabeaufforderung", $Programme)
TrayItemSetOnEvent(-1, "_cmd")
;  Internet Explorer
$Programme_IEXPLORE = TrayCreateItem("Internet Explorer", $Programme)
TrayItemSetOnEvent(-1, "_iexplore")
;  Registrierungs-Editor
$Programme_Regedit = TrayCreateItem("Registrierungs-Editor", $Programme)
TrayItemSetOnEvent(-1, "_regedit")
;  Systemwiederherstellung
$Programme_Restore = TrayCreateItem("Systemwiederherstellung", $Programme)
TrayItemSetOnEvent(-1, "_restore")
;  Windows Media Player
$Programme_wmPlayer = TrayCreateItem("Windows Media Player", $Programme)
TrayItemSetOnEvent(-1, "_wmplayer")
; Windows Update
$Programme_Update = TrayCreateItem("Windows Update", $Programme)
TrayItemSetOnEvent(-1, "_wupdate")

TrayCreateItem("", $Programme)

;  AutoIt3
If FileExists(@ProgramFilesDir & "\AutoIt3") Then
	$Programme_AutoIT = TrayCreateMenu("AutoIT", $Programme)
	;   AutoIt Window Info
	$Programme_AutoIT_Au3Info = TrayCreateItem("AutoIt Window Info", $Programme_AutoIT)
	TrayItemSetOnEvent(-1, "_au3info")
	;   Compile Script to .exe
	$Programme_AutoIT_Aut2Exe = TrayCreateItem("Compile Script to .exe", $Programme_AutoIT)
	TrayItemSetOnEvent(-1, "_aut2exe")
	;   Run Script
	$Programme_AutoIT_AutoIt3 = TrayCreateItem("Run Script", $Programme_AutoIT)
	TrayItemSetOnEvent(-1, "_autoit3")
EndIf
;  Adobe Reader
If FileExists($target_reader & "\Reader\AcroRd32.exe") Then
	$Programme_Reader = TrayCreateItem("Adobe Reader", $Programme)
	TrayItemSetOnEvent(-1, "_reader")
EndIf
;  Mozilla Firefox
If FileExists(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe") Then
	$Programme_Firefox = TrayCreateItem("Mozilla Firefox", $Programme)
	TrayItemSetOnEvent(-1, "_firefox")
EndIf
;  Mozilla Thunderbird
If FileExists(@ProgramFilesDir & "\Mozilla Thunderbird\thunderbird.exe") Then
	$Programme_Thunderbird = TrayCreateItem("Mozilla Thunderbird", $Programme)
	TrayItemSetOnEvent(-1, "_thunderbird")
EndIf
TrayCreateItem("")

; ----------------------------------------
; Systemsteuerung
; ----------------------------------------

; Systemsteuerung
;  Anzeige
;  Automatische Updates
;  Benutzerkonten
;  Datum und Uhrzeit
;  Drahtlosnetzwerkinstallation
;  Drucker und Faxgeräte
;  Eingabehilfe
;  Energieoptionen
;  Gamecontroller
;  Geplante Tasks
;  Hardware
;  Internetoptionen
;  Mail
;  Maus
;  Netzwerkinstallations-Assistent
;  Netzwerkverbindungen
;  Ordneroptionen
;  Regions- und Sprachoptionen
;  Scanner und Kameras
;  Schriftarten
;  Sicherheitscenter
;  Software
;  Sounds und Audiogeräte
;  Sprachein-/ausgabe
;  System
;  Taskleiste und Startmenü
;  Tastatur
;  Telefon- und Modemoptionen
;  Verwaltung
;   Computerverwaltung
;   Datenquellen (ODBC)
;   Dienste
;   Ereignisanzeige
;   Komponentendienste
;   Leistung
;   Lokale Sicherheitsrichtlinie
;  Windows-Firewall

; Systemsteuerung
$Systemsteuerung = TrayCreateMenu("Systemsteuerung")
TrayItemSetOnEvent(-1, "_open_systemsteuerung")

;  Anzeige
$Systemsteuerung_Anzeige = TrayCreateItem("Anzeige", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_anzeige")

;  Automatische Updates
$Systemsteuerung_Updates = TrayCreateItem("Automatische Updates", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_automatischeupdates")

;  Benutzerkonten
$Systemsteuerung_Benutzer = TrayCreateItem("Benutzerkonten", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_benutzerkonten")

;  Datum und Uhrzeit
$Systemsteuerung_Datum = TrayCreateItem("Datum und Uhrzeit", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_datumunduhrzeit")

;  Drahtlosnetzwerkinstallation
$Systemsteuerung_Draht = TrayCreateItem("Drahtlosnetzwerkinstallation", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_drahtlosnetzwerkinstallation")

;  Drucker und Faxgeräte
$Systemsteuerung_Drucker = TrayCreateItem("Drucker und Faxgeräte", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_druckerundfaxgeraete")

;  Eingabehilfe
$Systemsteuerung_Eingabe = TrayCreateItem("Eingabehilfe", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_eingabehilfe")

;  Energieoptionen
$Systemsteuerung_Energie = TrayCreateItem("Energieoptionen", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_energieoptionen")

;  Gamecontroller
$Systemsteuerung_Game = TrayCreateItem("Gamecontroller", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_gamecontroller")

;  Geplante Tasks
$Systemsteuerung_Tasks = TrayCreateItem("Geplante Tasks", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_geplantetasks")

;  Hardware
$Systemsteuerung_Hardware = TrayCreateItem("Hardware", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_hardware")

;  Internetoptionen
$Systemsteuerung_Internet = TrayCreateItem("Internetoptionen", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_internetoptionen")

;  Mail
$Systemsteuerung_Mail = TrayCreateItem("Mail", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_mail")

;  Maus
$Systemsteuerung_Maus = TrayCreateItem("Maus", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_maus")

;  Netzwerkinstallations-Assistent
$Systemsteuerung_Netzwerkinstall = TrayCreateItem("Netzwerkinstallations-Assistent", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_netzwerkinstallationsassistent")

;  Netzwerkverbindungen
$Systemsteuerung_Netzwerk = TrayCreateItem("Netzwerkverbindungen", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_netzwerkverbindungen")

;  Ordneroptionen
$Systemsteuerung_Ordner = TrayCreateItem("Ordneroptionen", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_ordneroptionen")

;  Regions- und Sprachoptionen
$Systemsteuerung_Region = TrayCreateItem("Regions- und Sprachoptionen", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_regionsundsprachoptionen")

;  Scanner und Kameras
$Systemsteuerung_Scanner = TrayCreateItem("Scanner und Kameras", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_scannerundkameras")

;  Schriftarten
$Systemsteuerung_Schrift = TrayCreateItem("Schriftarten", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_schriftarten")

;  Sicherheitscenter
$Systemsteuerung_Sicherheit = TrayCreateItem("Sicherheitscenter", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_sicherheitscenter")

;  Software
$Systemsteuerung_Software = TrayCreateItem("Software", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_software")

;  Sounds und Audiogeräte
$Systemsteuerung_Sound = TrayCreateItem("Sounds und Audiogeräte", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_soundundaudiogeraete")

;  Sprachein-/ausgabe
$Systemsteuerung_Sprache = TrayCreateItem("Sprachein-/ausgabe", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_spracheinausgabe")

;  System
$Systemsteuerung_System = TrayCreateItem("System", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_system")

;  Taskleiste und Startmenü
$Systemsteuerung_Startmenue = TrayCreateItem("Taskleiste und Startmenü", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_taskleisteundstartmenue")

;  Tastatur
$Systemsteuerung_Tastatur = TrayCreateItem("Tastatur", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_tastatur")

;  Telefon- und Modemoptionen
$Systemsteuerung_Telefon = TrayCreateItem("Telefon- und Modemoptionen", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_telefonundmodemoptionen")

;  Verwaltung
$Systemsteuerung_Verwaltung = TrayCreateMenu("Verwaltung", $Systemsteuerung)

;   Computerverwaltung
$Systemsteuerung_Verwaltung_Computer = TrayCreateItem("Computerverwaltung", $Systemsteuerung_Verwaltung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_verwaltung_computerverwaltung")

;   Datenquellen (ODBC)
$Systemsteuerung_Verwaltung_ODBC = TrayCreateItem("Datenquellen (ODBC)", $Systemsteuerung_Verwaltung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_verwaltung_datenquellen")

;   Dienste
$Systemsteuerung_Verwaltung_Dienste = TrayCreateItem("Dienste", $Systemsteuerung_Verwaltung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_verwaltung_dienste")

;   Ereignisanzeige
$Systemsteuerung_Verwaltung_Event = TrayCreateItem("Ereignisanzeige", $Systemsteuerung_Verwaltung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_verwaltung_ereignisanzeige")

;   Komponentendienste
$Systemsteuerung_Verwaltung_Comexp = TrayCreateItem("Komponentendienste", $Systemsteuerung_Verwaltung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_verwaltung_komponentendienste")

;   Leistung
$Systemsteuerung_Verwaltung_Leistung = TrayCreateItem("Leistung", $Systemsteuerung_Verwaltung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_verwaltung_leistung")

;   Lokale Sicherheitsrichtlinie
$Systemsteuerung_Verwaltung_secpol = TrayCreateItem("Lokale Sicherheitsrichtlinie", $Systemsteuerung_Verwaltung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_verwaltung_lokalesicherheitsrichtlinie")

;  Windows-Firewall
$Systemsteuerung_Firewall = TrayCreateItem("Windows-Firewall", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_windowsfirewall")
; ----------------------------------------------------------------------------

TrayCreateItem("")

; Arbeitsplatz
$Explorer	= TrayCreateMenu("Arbeitsplatz")

; Papierkorb leeren
$Papierkorb = TrayCreateItem("Papierkorb leeren", $Explorer)
TrayItemSetOnEvent(-1, "_papierkorbleeren")

TrayCreateItem("", $Explorer)

;
TrayCreateItem("(Leer)", $Explorer)

TrayCreateItem("")

; Credits
$Credits = TrayCreateItem("Credits")
TrayItemSetOnEvent(-1, "_credits")

TrayCreateItem("")

; Beenden
$Exit = TrayCreateItem("Beenden")
TrayItemSetOnEvent(-1, "_close")
; ----------------------------------------------------------------------------

TraySetState()

While 1
	Sleep(500)
WEnd
; ============================================================================

; ----------------------------------------
; Funktionen
; ----------------------------------------

; Eigene Dateien
Func _dateien()
	
	_RunDOS("start ::{450D8FBA-AD25-11D0-98A8-0800361B1103}")
	
EndFunc   ;==>_dateien
; ----------------------------------------------------------------------------

; ----------------------------------------
; Programme
; ----------------------------------------

; Editor
Func _editor()
	
	_RunDOS("start NOTEPAD.EXE")
	
EndFunc   ;==>_editor

; Eingabeaufforderung
Func _cmd()
	
	_RunDOS("start cmd.exe")
	
EndFunc   ;==>_cmd

; Internet Explorer
Func _iexplore()
	
	_RunDOS("start IEXPLORE.EXE")
	
EndFunc   ;==>_iexplore

; Registrierungs-Editor
Func _regedit()
	
	_RunDOS("start regedit.exe")
	
EndFunc   ;==>_regedit

; Systemwiederherstellung
Func _restore()
	
	_RunDOS("start rstrui.exe")
	
EndFunc   ;==>_restore

; Windows Media Player
Func _wmplayer()
	
	_RunDOS("start wmplayer.exe")
	
EndFunc   ;==>_wmplayer

; Windows Update
func _wupdate()
	
	_RunDOS("start wupdmgr.exe")
	
EndFunc   ;==>_wupdate

; Adobe Reader
Func _reader()
	
	Run($target_reader & "\Reader\AcroRd32.exe")
	
EndFunc   ;==>_reader

; Mozilla Firefox
Func _firefox()
	
	Run(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe")
	
EndFunc   ;==>_firefox

; Mozilla Thunderbird
Func _thunderbird()
	
	Run(@ProgramFilesDir & "\Mozilla Thunderbird\thunderbird.exe")
	
EndFunc   ;==>_thunderbird

; ----------------------------------------
; AutoIT
; ----------------------------------------
; AutoIt Window Info
Func _au3info()
	
	Run(@ProgramFilesDir & "\AutoIt3\Au3Info.exe")
	
EndFunc   ;==>_au3info

; Compile Script to .exe
Func _aut2exe()
	
	Run(@ProgramFilesDir & "\AutoIt3\Aut2Exe\Aut2Exe.exe")
	
EndFunc   ;==>_aut2exe

; Run Script
Func _autoit3()
	
	Run(@ProgramFilesDir & "\AutoIt3\AutoIt3.exe")
	
EndFunc   ;==>_autoit3
; ----------------------------------------------------------------------------

; ----------------------------------------
; Systemsteuerung
; ----------------------------------------
; Systemsteuerung
Func _open_systemsteuerung()
	
	_RunDOS("start control.exe")
	
EndFunc   ;==>_systemsteuerung

;  Anzeige
Func _open_systemsteuerung_anzeige()
	
	_RunDOS("start control.exe desk.cpl")
	
EndFunc   ;==>_open_systemsteuerung_anzeige

;  Automatische Updates
Func _open_systemsteuerung_automatischeupdates()
	
	_RunDOS("start control.exe wuaucpl.cpl")
	
EndFunc   ;==>_open_systemsteuerung_automatischeupdates

;  Benutzerkonten
Func _open_systemsteuerung_benutzerkonten()
	
	_RunDOS("start control.exe nusrmgr.cpl")
	
EndFunc   ;==>_open_systemsteuerung_benutzerkonten

;  Datum und Uhrzeit
Func _open_systemsteuerung_datumunduhrzeit()
	
	_RunDOS("start control.exe timedate.cpl")
	
EndFunc   ;==>_open_systemsteuerung_datumunduhrzeit

;  Drahtlosnetzwerkinstallation
Func _open_systemsteuerung_drahtlosnetzwerkinstallation()
	
	Run(@SystemDir & "\rundll32.exe shell32.dll,Control_RunDLL NetSetup.cpl,@0,WNSW")
	
EndFunc   ;==>_open_systemsteuerung_drahtlosnetzwerkinstallation

;  Drucker und Faxgeräte
Func _open_systemsteuerung_druckerundfaxgeraete()
	
	_RunDOS("start ::{2227A280-3AEA-1069-A2DE-08002B30309D}")
	
EndFunc   ;==>_open_systemsteuerung_druckerundfaxgeraete

;  Eingabehilfe
Func _open_systemsteuerung_eingabehilfe()
	
	_RunDOS("start control.exe access.cpl")
	
EndFunc   ;==>_open_systemsteuerung_eingabehilfe

;  Energieoptionen
Func _open_systemsteuerung_energieoptionen()
	
	_RunDOS("start control.exe powercfg.cpl")
	
EndFunc   ;==>_open_systemsteuerung_energieoptionen

;  Gamecontroller
Func _open_systemsteuerung_gamecontroller()
	
	_RunDOS("start control.exe joy.cpl")
	
EndFunc   ;==>_open_systemsteuerung_gamecontroller

;  Geplante Tasks
Func _open_systemsteuerung_geplantetasks()
	
	MsgBox(320, "Geplante Tasks", "Bitte verwenden Sie die Systemsteuerungs-Schaltfläche")
	
EndFunc   ;==>_open_systemsteuerung_geplantetasks

;  Hardware
Func _open_systemsteuerung_hardware()
	
	_RunDOS("start control.exe hdwwiz.cpl")
	
EndFunc   ;==>_open_systemsteuerung_hardware

;  Internetoptionen
Func _open_systemsteuerung_internetoptionen()
	
	_RunDOS("start control.exe inetcpl.cpl")
	
EndFunc   ;==>_open_systemsteuerung_internetoptionen

;  Mail
Func _open_systemsteuerung_mail()
	
	MsgBox(320, "Mail", "Bitte verwenden Sie die Systemsteuerungs-Schaltfläche")
	
EndFunc   ;==>_open_systemsteuerung_mail

;  Maus
Func _open_systemsteuerung_maus()
	
	_RunDOS("start control.exe main.cpl")
	
EndFunc   ;==>_open_systemsteuerung_maus

;  Netzwerkinstallations-Assistent
Func _open_systemsteuerung_netzwerkinstallationsassistent()
	
	_RunDOS("start control.exe netsetup.cpl")
	
EndFunc   ;==>_open_systemsteuerung_netzwerkinstallationsassistent

;  Netzwerkverbindungen
Func _open_systemsteuerung_netzwerkverbindungen()
	
	_RunDOS("start control.exe ncpa.cpl")
	
EndFunc   ;==>_open_systemsteuerung_netzwerkverbindungen

;  Ordneroptionen
Func _open_systemsteuerung_ordneroptionen()
	
	MsgBox(320, "Ordneroptionen", "Bitte verwenden Sie die Systemsteuerungs-Schaltfläche")
	
EndFunc   ;==>_open_systemsteuerung_ordneroptionen

;  Regions- und Sprachoptionen
Func _open_systemsteuerung_regionsundsprachoptionen()
	
	_RunDOS("start control.exe intl.cpl")
	
EndFunc   ;==>_open_systemsteuerung_regionsundsprachoptionen

;  Scanner und Kameras
Func _open_systemsteuerung_scannerundkameras()
	
	MsgBox(320, "Scanner und Kameras", "Bitte verwenden Sie die Systemsteuerungs-Schaltfläche")
	
EndFunc   ;==>_open_systemsteuerung_scannerundkameras

;  Schriftarten
Func _open_systemsteuerung_schriftarten()
	
	Run(@WindowsDir & "\explorer.exe C:\Windows\Fonts")
	
EndFunc   ;==>_open_systemsteuerung_schriftarten

;  Sicherheitscenter
Func _open_systemsteuerung_sicherheitscenter()
	
	_RunDOS("start control.exe wscui.cpl")
	
EndFunc   ;==>_open_systemsteuerung_sicherheitscenter

;  Software
Func _open_systemsteuerung_software()
	
	_RunDOS("start control.exe appwiz.cpl")
	
EndFunc   ;==>_open_systemsteuerung_software

;  Sounds und Audiogeräte
Func _open_systemsteuerung_soundundaudiogeraete()
	
	_RunDOS("start control.exe mmsys.cpl")
	
EndFunc   ;==>_open_systemsteuerung_soundundaudiogeraete

;  Sprachein-/ausgabe
Func _open_systemsteuerung_spracheinausgabe()
	
	MsgBox(320, "Sprachein-/ausgabe", "Bitte verwenden Sie die Systemsteuerungs-Schaltfläche")
	
EndFunc   ;==>_open_systemsteuerung_spracheinausgabe

;  System
Func _open_systemsteuerung_system()
	
	_RunDOS("start control.exe sysdm.cpl")
	
EndFunc   ;==>_open_systemsteuerung_system

;  Taskleiste und Startmenü
Func _open_systemsteuerung_taskleisteundstartmenue()
	
	MsgBox(320, "Taskleiste und Startmenü", "Bitte verwenden Sie die Systemsteuerungs-Schaltfläche")
	
EndFunc   ;==>_open_systemsteuerung_taskleisteundstartmenue

;  Tastatur
Func _open_systemsteuerung_tastatur()
	
	MsgBox(320, "Tastatur", "Bitte verwenden Sie die Systemsteuerungs-Schaltfläche")
	
EndFunc   ;==>_open_systemsteuerung_tastatur

;  Telefon- und Modemoptionen
Func _open_systemsteuerung_telefonundmodemoptionen()
	
	_RunDOS("start control.exe telephon.cpl")
	
EndFunc   ;==>_open_systemsteuerung_telefon

;  Verwaltung

;   Computerverwaltung
Func _open_systemsteuerung_verwaltung_computerverwaltung()
	
	_RunDOS("start compmgmt.msc")
	
EndFunc   ;==>_computer

;   Datenquellen (ODBC)
Func _open_systemsteuerung_verwaltung_datenquellen()
	
	_RunDOS("start control.exe odbccp32.cpl")
	
EndFunc   ;==>_open_systemsteuerung_verwaltung_datenquellen

;   Dienste
Func _open_systemsteuerung_verwaltung_dienste()
	
	_RunDOS("start services.msc")
	
Endfunc   ;==>_open_systemsteuerung_verwaltung_dienste

;   Ereignisanzeige
Func _open_systemsteuerung_verwaltung_ereignisanzeige()
	
	_RunDOS("start eventvwr.msc")
	
EndFunc   ;==>_open_systemsteuerung_verwaltung_ereignisanzeige

;   Komponentendienste
Func _open_systemsteuerung_verwaltung_komponentendienste()
	
	MsgBox(320, "Komponentendienste", "Bitte verwenden Sie die Systemsteuerungs-Schaltfläche")
	
EndFunc   ;==>_open_systemsteuerung_verwaltung_komponentendienste

;   Leistung
Func _open_systemsteuerung_verwaltung_leistung()
	
	_RunDOS("start perfmon.msc")
	
EndFunc   ;==>_open_systemsteuerung_verwaltung_leistung

;   Lokale Sicherheitsrichtlinie
Func _open_systemsteuerung_verwaltung_lokalesicherheitsrichtlinie()
	
	_RunDOS("start secpol.msc")
	
EndFunc   ;==>_open_systemsteuerung_verwaltung_lokalesicherheitsrichtlinie

;  Windows-Firewall
Func _open_systemsteuerung_windowsfirewall()
	
	_RunDOS("start control.exe firewall.cpl")
	
EndFunc   ;==>_open_systemsteuerung_windowsfirewall
; ----------------------------------------------------------------------------

; ----------------------------------------
; Arbeitsplatz
; ----------------------------------------

; Papierkorb leeren
Func _papierkorbleeren()
	
	FileRecycleEmpty("")
	
EndFunc   ;==>_papierkorbleeren

Func _credits()
	
	MsgBox(320, "Credits", "Programmname: " & $PROGRAMM_NAME & @CRLF & "Version: " & $PROGRAMM_VERSION & @CRLF & @CRLF & @CRLF & "Idee & Programmierung: Manuel Kübler")
	
EndFunc   ;==>_credits


Func _close()
	
	Exit
	
EndFunc   ;==>_close
; ============================================================================