Создание ярлыка на рабочем столе с помощью узла сценариев Windows

В этой статье описывается создание ярлыков на рабочем столе с помощью узла сценариев Microsoft Windows (WSH) из Visual FoxPro.

Область применения: Windows 10 — все выпуски, Windows Server 2012 R2
Исходный номер базы знаний: 244677

Сводка

WSH — это средство, которое позволяет запускать Microsoft Visual Basic Scripting Edition и JScript в базовой операционной системе либо в Windows 95, либо Windows NT 4.0. Он также включает несколько методов автоматизации COM, которые позволяют легко выполнять несколько задач с помощью объектной модели узла сценариев Windows. Узел сценариев Microsoft Windows интегрирован в Windows 98, Windows 2000 и более поздних версий операционной системы Windows. Он доступен для Windows NT 4.0 путем установки пакета параметров Windows NT 4.0. Чтобы скачать это средство, посетите страницу Скрипты.

Примеры создания ярлыка на рабочем столе с помощью WSH

В этой программе показано, как использовать узел сценариев Windows для создания ярлыка на рабочем столе Windows. Чтобы запустить этот пример, на компьютере должен быть установлен узел сценариев Windows. Чтобы запустить один из этих примеров, скопируйте приведенный ниже код в новый файл программы и запустите его.

Пример 1

WshShell = CreateObject("Wscript.shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oMyShortcut = WshShell.CreateShortcut(strDesktop + "\Sample.lnk")
oMyShortcut.WindowStyle = 3 &&Maximized 7=Minimized 4=Normal
oMyShortcut.IconLocation = "C:\myicon.ico"
OMyShortcut.TargetPath = "%windir%\notepad.exe"
oMyShortCut.Hotkey = "ALT+CTRL+F"
oMyShortCut.Save

Пример 2. Добавление аргумента командной строки

WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oMyShortCut= WshShell.CreateShortcut(strDesktop+"\Foxtest.lnk")
oMyShortCut.WindowStyle = 7 &&Minimized 0=Maximized 4=Normal
oMyShortcut.IconLocation = home()+"wizards\graphics\builder.ico"
oMyShortCut.TargetPath = "c:\Program Files\Microsoft Visual Studio\VFP98\vfp6.exe"
oMyShortCut.Arguments = '-c'+'"'+Home()+'config.fpw'+'"'
oMyShortCut.WorkingDirectory = "c:\"
oMyShortCut.Save

Пример 3. Добавление ярлыка URL-адреса на рабочий стол

WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oUrlLink = WshShell.CreateShortcut(strDesktop+"\Microsoft Web Site.URL")
oUrlLink.TargetPath = "http://www.microsoft.com"
oUrlLink.Save

Ссылки

• Технический документ: Узел сценариев Windows: универсальный узел сценариев для языков сценариев
• Технический документ: справочник программиста узла сценариев Windows