Erstellen einer Desktopverknüpfung mit dem Windows Script Host

  • Artikel

In diesem Artikel wird beschrieben, wie Desktopverknüpfungen mithilfe des Microsoft Windows Script Host (WSH) in Visual FoxPro erstellt werden.

Gilt für: Windows 10 (alle Editionen), Windows Server 2012 R2
Ursprüngliche KB-Nummer: 244677

Zusammenfassung

Das 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 problemlos über das Windows Script-Hostobjektmodell ausführen können. Der Microsoft Windows Script Host ist in Windows 98, Windows 2000 und höhere Versionen des Windows-Betriebssystems integriert. Es ist für Windows NT 4.0 verfügbar, indem das Windows NT 4.0 Option Pack installiert wird. Um dieses Tool herunterzuladen, besuchen Sie Skripterstellung.

Beispiele zum Erstellen einer Desktopverknüpfung mit WSH

Dieses Programm veranschaulicht, wie Sie den Windows Script Host verwenden, um eine Verknüpfung auf dem Windows-Desktop zu erstellen. Um dieses Beispiel ausführen zu können, muss der Windows Script Host auf Ihrem Computer installiert sein. Um eines dieser Beispiele auszuführen, kopieren Sie den folgenden Code in eine neue Programmdatei, und führen Sie sie 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

Hinweis

Abhängig von der version von Visual FoxPro, die Sie verwenden, 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

Hinweis

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

References

  • Whitepaper: Windows Script Host: Ein universeller Skripthost für Skriptsprachen
  • Technisches Dokument: Windows Script Host-Programmierreferenz