Открепляем закрепленные приложения на Панели задач Windows

Закрепленные приложения

Функционал панели задач во многом остается неизменным со времен Windows 95 - на нем отображались запущенные приложения, можно было размещать различные панели инструментов (к примеру, Панель быстрого запуска), однако разработчики все же иногда вносят в её функционал некоторые изменения. Одним из таких стала возможность закреплять приложения - если ранее, для того, чтобы поместить ярлык нужного приложения на панель задач, требовалось поместить её ярлык в инструментов, вроде ранее упомянутой панели быстрого запуска, то теперь достаточно было просто нажать на приложении "Закрепить", и оно помещалось сразу за кнопкой Пуск.

Например, по умолчанию, в Windows 7 закрепляются следующие приложения:

• Проводник
• Internet Explorer
• Проигрыватель Windows Media

Для открепления приложения, достаточно нажать по его значку в панели задач правой кнопкой мыши, и выбрать пункт "Открепить от панели задач". Но в случае работы с несколькими компьютерами, а так же несколькими пользователями, может возникнуть потребность управлять тем, какие приложения должны быть закреплены в панели задач, а какие нет. Групповых политик на данный случай не существует, по этому придется воспользоваться возможностями встроенного в Windows VBScript,

Например, открепим из панели задач ярлык Internet Explorer. Сделать это можно следующим скриптом:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Set objShellApplication = CreateObject("Shell.Application")

Set objFolder = objShellApplication.Namespace(objShell.ExpandEnvironmentStrings("%appdata%") & "\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar")

If objFSO.FileExists(objShell.ExpandEnvironmentStrings("%appdata%") & "\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Internet Explorer.lnk") Then
	Set objPinnedApp = objFolder.ParseName("Internet Explorer.lnk")
	Set colVerbs = objPinnedApp.Verbs
	For Each objVerb in colVerbs
		If objVerb.name = "Открепить от &панели задач" Then
			objVerb.DoIt
		End If
	Next
End If

Фактически, происходит так, что с помощью скрипта срабатывает вызов опции "Открепить от панели задач" на указанном файле (в данном случае ярлыке от Internet Explorer). Для того, чтобы открепить какое-то иное приложение, следует внести в скрипт следующие изменения:

• В 5 строке изменить путь у переменной objFolder на директорию с файлом или ярлыком от приложения, которое нужно открепить;
• В 7 строке, в условии на проверку существования ярлыка так же следует изменить путь на прямой до файла;
• В 8 строке внести имя ярлыка.

Сделаем все то же самое, но для ярлыка от Windows Media Player:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Set objShellApplication = CreateObject("Shell.Application")

Set objFolder = objShellApplication.Namespace(objShell.ExpandEnvironmentStrings("%appdata%") & "\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar")

If objFSO.FileExists(objShell.ExpandEnvironmentStrings("%appdata%") & "\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Windows Media Player.lnk") Then
	Set objPinnedApp = objFolder.ParseName("Windows Media Player.lnk")
	Set colVerbs = objPinnedApp.Verbs
	For Each objVerb in colVerbs
		If objVerb.name = "Открепить от &панели задач" Then
			objVerb.DoIt
		End If
	Next
End If