>Is there an API call that allows for the creation of a shortcut?

I found a VB example of using the Windows Script Host and modified it for VFP.

** MakeSC()
LPARAMETERS tcLink, tcTargetPath, tcDescription, tcWorkingDirectory
LOCAL loShell, loShortcut, lcDesktop
loShell = CREATEOBJECT("WScript.Shell")
lcDesktop = loShell.SpecialFolders("Desktop")
loShortcut = loShell.CreateShortcut(lcDesktop + "\\" + tcLink + ".lnk")
loShortcut.TargetPath = tcTargetPath
loShortcut.WindowStyle = 1
loShortcut.Description = tcDescription
loShortcut.WorkingDirectory = tcWorkingDirectory
loShortcut.Save()