требуется изменить ярлык запуска программы. Но так как рабочих мест очень много и могут быть варианты запуска (например, путь к рабочей папке программы), хотелось бы при запуске программы выложить на рабочий стол новый ярлык, созданный на базе шаблона в котором изменить конкретные настройки пользователя.

Нашел такой код создания ярлыка:

LOCAL WshShell,oShellLink, strDesktop, fstart
fstart=FULLPATH('start.exe')
WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oShellLink = WshShell.CreateShortcut(strDesktop+"\XXX.lnk")
oShellLink.TargetPath = fstart
oShellLink.WindowStyle = 1
oShellLink.IconLocation = fstart
oShellLink.Description = "Новая версия XXX"
oShellLink.WorkingDirectory = JUSTPATH(fstart)
oShellLink.Save && 'создать ярлык

для создания своего ярлыка прописываю:
oShellLink.TargetPath='"'+SYS(2004)+IIF(VERSION(4) = '09','vfp9','vfp8')+'.exe" start.exe ADM'
естестно ожидаю получить эту строку в ярлыке, однако получаю:
"C:\"C:\PROGRAM FILES\MICROSOFT VISUAL FOXPRO 9\vfp9.exe" start.exe ADM"

Jonny540,
В итоге мне нать получить строку:
"c:\programs files\Microsoft Visual Foxpro 9\vfp9" start.exe adm
где то что в кавычках - имя программы, start.exe по сути параметр VFP9.exe, а adm - параметр start.exe (требуется запустить приложение под оболочкой VFP), а при автоматическом создании ярлыка в кавычки берется вся строка и WIN пытается найти программу с таким именем. И, естессна, не находит.

Jonny540,

ЕКсли не понял:
Пишу:
oShellLink.TargetPath='C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe start.exe ADM'
Получаю:
"C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe start.exe ADM"

Пишу:
oShellLink.TargetPath='"C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe" start.exe ADM'
Получаю:
"C:\"C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe" start.exe ADM"

Надо
"C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe" start.exe ADM

Dima T,

В этом режиме нужен доступ к ресурсам и сервисам VFP

Jonny540,

Ты понимаешь разницу между
"C:\"C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe" start.exe ADM"
или
"C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe start.exe ADM"
и
"C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe" start.exe ADM

?

Третий раз пишу что формируется ярлык в котором команда ПОЛНОСТЬЮ взята в КАВЫЧКИ.
В последнем варианте я уже даже не вспоминаю про сисы. Пишу полный путь. как он есть.

Jonny540,

Я ж тебе не про то, что в фоксе не получается, а то что в ярлыке не то что в фоксе.

Слушатель ты наш дорогой.

ВладимирМ,

Ок, все получилось. Спасибо.

XAndy,

Try - само собой.

лам,

IF !PROGRAM(0) = 'START' && OR _sys0_kod = '000001'
IF _x1.roles $ 'PR,PS,SA' AND DTOS(DATE()) > '20121122' AND !_sys0_kod $ '000001'
=MESSAGEBOX('Работа старой версии программы для работников отдела заблокирована!')
Quit
Endi
TRY
LOCAL WshShell,oShellLink, strDesktop, fstart
fstart=FULLPATH('start.exe')
WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") &&переменная strDesktop будет равна пути до рабочего стола будь то путь в windows 7 (C:\Users\Имя пользователя\Desktop) или в windows xp (C:\Documents and settings\Имя пользователя\Рабочий стол)
IF FILE(strDesktop+"\Новая версия.lnk")
ERASE (strDesktop+"\Новая версия.lnk")
Endi
IF !FILE(strDesktop+"\Новая версия.lnk")
oShellLink = WshShell.CreateShortcut(strDesktop+"\Новая версия.lnk") && кто не знает то у ярлыков формат lnk

DO case
CASE _x1.roles $ 'PR,PS,SA' && OR _sys0_kod = '000001'
oShellLink.TargetPath=SYS(2004)+IIF(VERSION(4) = '09','vfp9','vfp8')+'.exe'
oShellLink.Arguments = "start.exe ADM"
CASE !EMPTY(asup21.mount_net)
oShellLink.TargetPath=fstart
othe
oShellLink.TargetPath=fstart
oShellLink.Arguments = "OPER"
Endc
oShellLink.WindowStyle = 1
oShellLink.IconLocation = fstart
oShellLink.Description = "Новая версия"
oShellLink.WorkingDirectory = JUSTPATH(fstart)
oShellLink.Save && 'создать ярлык
ELSE
IF _x1.roles $ 'PR,PS,SA' AND DTOS(DATE()) > '20121122' AND !_sys0_kod = '000001'
=MESSAGEBOX('Работа старой версии программы для работников отдела заблокирована!')
Quit
Endi
Endi
CATCH
=send_exchange(_sys0_kod, '000001','Стартовая процедура','Попытка создания ярлыка окончилась неудачей')
ENDTRY
=MESSAGEBOX('Для корректной работы программы используйте ярлык "Новая версия",'+;
'для запуска программы')
* quit
Endi