So erstellen Sie eine Desktopverknüpfung mit dem Windows Script Host

In diesem Artikel wird beschrieben, wie Sie Desktopverknüpfungen mithilfe des Microsoft Windows Script Host (WSH) aus Visual FoxPro erstellen.

Ursprüngliche KB-Nummer: 244677

Übersicht

WSH ist ein Tool, mit dem Sie Microsoft Visual Basic Scripting Edition und JScript nativ im Basisbetriebssystem ausführen können, entweder unter Windows 95 oder Windows NT 4.0. Es enthält auch mehrere COM-Automatisierungsmethoden, mit denen Sie mehrere Aufgaben einfach über das Windows Script Host Object Model ausführen können. Der Microsoft Windows Script Host ist in Windows 98, Windows 2000 und höhere Versionen des Windows-Betriebssystems integriert. Sie ist für Windows NT 4.0 verfügbar, indem Sie das Windows NT 4.0 Option Pack installieren. Um dieses Tool herunterzuladen, besuchen Sie Scripting.

Beispiele zum Erstellen einer Desktopverknüpfung mit WSH

Dieses Programm veranschaulicht, wie Sie mit dem Windows Script Host eine Verknüpfung auf dem Windows-Desktop erstellen. Um dieses Beispiel auszuführen, müssen Sie den Windows Script Host auf Ihrem Computer installiert haben. Um eines dieser Beispiele auszuführen, kopieren Sie den folgenden Code in eine neue Programmdatei, und führen Sie ihn aus.

Beispiel 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

Beispiel 2: Hinzufügen eines Befehlszeilenarguments

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

Notiz

Abhängig von der verwendeten Version von Visual FoxPro müssen Sie möglicherweise den Namen und den Pfad der ausführbaren Visual FoxPro-Datei in Beispiel 2 ändern.

Beispiel 3: Hinzufügen einer URL-Verknüpfung zum Desktop

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

Notiz

Damit die Verknüpfung erstellt werden kann, müssen gültige Parameter für alle Methoden übergeben werden. Wenn einer der Parameter falsch ist, wird kein Fehler angezeigt.

References

• Whitepaper: Windows Script Host: Ein universeller Skriptinghost für Skriptsprachen
• Technisches Dokument: Referenz des Windows Script Host-Programmierers