[sov44]

привёл бы решение »

Creat0R, да без проблем. Я не программер, может быть будут предложения по улучшению скрипта
Локализация скрипта - Morpheus
Для применения настроек требуется перезагрузка.

читать дальше »

Код:

Opt("TrayIconDebug", 1)
Opt("WinDetectHiddenText", 0)
Opt("WinTextMatchMode", 2)
Opt("TrayIconHide", 0)
HotKeySet("{F1}", "OnF1")
Sleep(100)
If $CMDLINE[0] Then
	For $I = 1 To $CMDLINE[0]
		Switch $CMDLINE[$I]
			Case "/?"
				MsgBox(262144, "Help", "Switchless Commands: /NOPIN /TGL /TSI /AUTOTRAY /LBS3 /EXPLORER")
				Exit
			Case "/NOPIN"
				RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Explorer", "TaskbarNoPinnedList", "REG_DWORD", "1")
			Case "/TGL"
				RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarGlomLevel", "REG_DWORD", "2")
			Case "/TSI"
				RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSmallIcons", "REG_DWORD", "1")
			Case "/AUTOTRAY"
				RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray", "REG_DWORD", "0")
			Case "/LBS3"
				RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "3")
			Case "/EXPLORER"
				ProcessClose("explorer.exe")
		EndSwitch
	Next
EndIf
If Not ProcessWait("explorer.exe", 5) Then Run(@WindowsDir & "\explorer.exe")
WinWait("[CLASS:Shell_TrayWnd]")
Sleep(2000)
TrayTip("Quick Launch Classic 7", "Я работаю - ничего не трогай!!!", 30, 2)
MsgBox(4095, "Running.", "Quick Launch Classic 7", 1)
Sleep(10000)
$TASKBARSIZEMOVE = RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove")
If $TASKBARSIZEMOVE = 1 Then
	Do
		ProcessClose("explorer.exe")
	Until Not ProcessExists("explorer.exe")
	RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", "REG_DWORD", "0")
	If Not ProcessWait("explorer.exe", 5) Then Run(@WindowsDir & "\explorer.exe")
	WinWait("[CLASS:Shell_TrayWnd]")
	Sleep(2000)
EndIf
$TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:CiceroUIWndFrame; TEXT:TF_FloatingLangBar_WndTitle]")
If Not @error Then
	Call("_DISABLELANGBAR")
	$QLA = WinGetText("[CLASS:Shell_TrayWnd]", "")
	If StringInStr($QLA, "Quick Launch") Then
		MouseClick("right", 0, @DesktopHeight)
		Send("{DOWN}{RIGHT}{UP 2}{ENTER}")
	EndIf
EndIf
$QLA = WinGetText("[CLASS:Shell_TrayWnd]", "")
If StringInStr($QLA, "Quick Launch") Then
	MouseClick("right", 0, @DesktopHeight)
	Send("{DOWN}{RIGHT}{UP 2}{ENTER}")
EndIf
$CLEARDESKTOP = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:TrayShowDesktopButtonWClass]")
$TASKBAR_CENTERHEIGHT = @DesktopHeight - ($CLEARDESKTOP[3] / 2)
MouseClick("left", $CLEARDESKTOP[0] - 0, $TASKBAR_CENTERHEIGHT, 1, 10)
_TOGGLETASKBARLOCK()
$TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:CiceroUIWndFrame; TEXT:TF_FloatingLangBar_WndTitle]")
If Not @error Then
	Call("_DISABLELANGBAR")
EndIf
$PATH = "Shell:Quick Launch"
$TOOLBARTEXT = "{DOWN 3}{ENTER}"
$TOOLBARTITLE = "{DOWN 4}{ENTER}"
$TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ReBarWindow32]")
$LANG = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages")
If @error = 0 Then
Else
	$LANG = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages")
EndIf
Select
	Case $LANG = "en-US"
		$TITLE = "New Toolbar - Choose a folder"
		$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Running applications]"
	Case $LANG = "fr-FR"
		$TITLE = "Nouvelle barre d’outilsВ*-В*Choisir un dossier"
		$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Applications en cours d’exйcution]"
	Case $LANG = "nl-NL"
		$TITLE = "Nieuwe werkbalk - Selecteer een map"
		$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Actieve toepassingen]"
	Case $LANG = "da-DK"
		$TITLE = "Ny vР¶rktС?jslinje - vР¶lg en mappe"
		$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Programmer, der kС?rer]"
	Case $LANG = "se-SE"
		$TITLE = "Nytt verktygsfРґlt - vРґlj en mapp"
		$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Program som kцrs]"
	Case $LANG = "nb-NO"
		$TITLE = "Ny verktС?ylinje - velg en mappe"
		$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:KjС?rer programmer]"
	Case $LANG = "de-DE"
		$TITLE = "Neue Symbolleiste - Ordner auswРґhlen"
		$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:AusgefСЊhrte Anwendungen]"
	Case $LANG = "ru-RU"
		$TITLE = "Новая панель инструментов - Выбор папки"
		$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Выполнение приложений]"
EndSelect
_TASKTOOLBARWIN7("Shell:Quick Launch")
While 1
	Sleep(100)
	$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; TEXT:Quick Launch]")
	If Not @error Then ExitLoop
WEnd
$TASKBAR_CENTERHEIGHT = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
Sleep(100)
MouseClick("right", $QUICKLAUNCH[0] - 5, $TASKBAR_CENTERHEIGHT, 1, 0)
Send($TOOLBARTEXT)
Sleep(100)
$TASKBAR_CENTERHEIGHT = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
Sleep(100)
MouseClick("right", $QUICKLAUNCH[0] - 5, $TASKBAR_CENTERHEIGHT, 1, 0)
Send($TOOLBARTITLE)
Sleep(1000)
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; TEXT:Quick Launch]")
MouseClickDrag("left", $QUICKLAUNCH[0] - 10, $TASKBAR_CENTERHEIGHT, $TRAY[0] + 5, $TASKBAR_CENTERHEIGHT, 40)
$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $PROGRAMS)
MouseClickDrag("left", $CURRENTAPPS[0] - 10, $TASKBAR_CENTERHEIGHT, $TRAY[0] + 150, $TASKBAR_CENTERHEIGHT, 40)
_TOGGLETASKBARLOCK()
$CLEARDESKTOP = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:TrayShowDesktopButtonWClass]")
$TASKBAR_CENTERHEIGHT = @DesktopHeight - ($CLEARDESKTOP[3] / 2)
MouseClick("left", $CLEARDESKTOP[0] - 0, $TASKBAR_CENTERHEIGHT, 1, 10)

Func _DISABLELANGBAR()
	MouseClick("right", 0, @DesktopHeight)
	Send("{DOWN}{RIGHT}{UP 2}{ENTER}")
EndFunc


Func _TASKTOOLBARWIN7($PATH)
	MouseClick("right", 0, @DesktopHeight)
	Send("{DOWN}{RIGHT}{UP}{ENTER}")
	WinActive($TITLE)
	Sleep(1000)
	ControlSetText($TITLE, "", "Edit1", $PATH)
	Sleep(1000)
	ControlClick($TITLE, "", "Button1")
EndFunc


Func _TOGGLETASKBARLOCK()
	MouseClick("right", 0, @DesktopHeight)
	Send("{UP 2}{ENTER}")
EndFunc

;языковую панель на место
BlockInput(1)
$MP = MouseGetPos()
$WP = WinGetPos('TF_FloatingLangBar_WndTitle')
MouseClick('left', $WP[0] + $WP[2] - 10, $WP[1] + 10, 1, 0)
MouseMove($MP[0], $MP[1], 0)
BlockInput(0)

; Удаление ярлыков
FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\Shows Desktop.lnk")
FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\Window Switcher.lnk")
; Удаление папки с ярлыками
DirRemove(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\User Pinned", 1)
;Правка реестра на удаление ярлыков
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband", "Favorites", "REG_BINARY", "ff")
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband", "FavoritesResolve")

;
$LANGBAR = RegRead("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus")
Select
	Case $LANGBAR = "0"
		RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "4")
EndSelect

Func ONF1()
Exit
EndFunc

TrayTip("Quick Launch Classic 7", "Наслаждайся!", 30, 2)
MsgBox(4095, "Running.", "Quick Launch Classic 7", 1)
Sleep(2000)

Creat0R, если не будет активности в теме, тогда удаляйте её.