Comment créer un raccourci de bureau avec l’hôte de script Windows

2025-01-15

Cet article explique comment créer des raccourcis de bureau à l’aide de l’hôte de script Microsoft Windows (WSH) à partir de Visual FoxPro.

Numéro de la base de connaissances d’origine : 244677

Résumé

Le WSH est un outil qui vous permet d’exécuter Microsoft Visual Basic Scripting Edition et JScript en mode natif dans le système d’exploitation de base, sur Windows 95 ou Windows NT 4.0. Il inclut également plusieurs méthodes d’automatisation COM qui vous permettent d’effectuer plusieurs tâches facilement via le modèle objet hôte de script Windows. L’hôte de script Microsoft Windows est intégré à Windows 98, Windows 2000 et versions ultérieures du système d’exploitation Windows. Il est disponible pour Windows NT 4.0 en installant le pack d’options Windows NT 4.0. Pour télécharger cet outil, consultez Scripting.

Exemples de création d’un raccourci de bureau avec WSH

Ce programme montre comment utiliser l’hôte de script Windows pour créer un raccourci sur le Bureau Windows. Pour exécuter cet exemple, vous devez installer l’hôte de script Windows sur votre ordinateur. Pour exécuter l’un de ces exemples, copiez le code ci-dessous dans un nouveau fichier de programme et exécutez-le.

Exemple 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

Exemple 2 : Ajouter un argument de ligne de commande

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

Note

Selon la version de Visual FoxPro que vous utilisez, vous devrez peut-être modifier le nom et le chemin d’accès de l’exécutable Visual FoxPro dans l’exemple 2.

Exemple 3 : Ajouter un raccourci URL au bureau

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

Note

Pour que le raccourci soit créé, les paramètres valides doivent être passés pour toutes les méthodes. Aucune erreur n’apparaît si l’un des paramètres est incorrect.

References

Livre blanc : Hôte de script Windows : hôte de script universel pour les langages de script
Document technique : Référence du programmeur Windows Script Host