FoxPro/Visual FoxPro - Generar acceso.. (para C. Colalongo)

Deseo que escribir un programa que genere Acceso Directo en el escritorio y en el Menu Inicio, Cecilia C. intento ejecutar el código que me sugieres, pero me faltan datos como valor de, MAX_PATH (coloqué 3), funciona, luego me dice que no existe el archivo SHGetSpecialFolderLocation.prg, supongo que es otra función como las dos que presentas.
Que más debo añadir o cambiar?
Gracias.

#DEFINE MAX_PATH 255

DECLARE Long SHGetSpecialFolderLocation IN Shell32 Long hwndOwner, Integer nFolder, Long @ppidl

DECLARE Long SHGetPathFromIDList IN Shell32 Long pidl, String @szPath