Открепляем закрепленные приложения на Панели задач 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%") & "MicrosoftInternet ExplorerQuick LaunchUser PinnedTaskBar")    If objFSO.FileExists(objShell.ExpandEnvironmentStrings("%appdata%") & "MicrosoftInternet ExplorerQuick LaunchUser PinnedTaskBarInternet 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%") & "MicrosoftInternet ExplorerQuick LaunchUser PinnedTaskBar")    If objFSO.FileExists(objShell.ExpandEnvironmentStrings("%appdata%") & "MicrosoftInternet ExplorerQuick LaunchUser PinnedTaskBarWindows 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