Создание ярлыка через vbscript

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4559
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

Создание ярлыка через vbscript

Сообщение finsoftrz »

Поглядел пример создания ярлыка в соответствующей теме на этом форуме. Та тема закрыта. Вдогонку создам новую. Если кому-то хочется проще и понятнее, то можно через vbscript. В аттаче небольшой классик для этого. Пример вызова для создания ярлыка на рабочем столе ниже. Если в первом параметре Make поставить 2, то ярлык создастся в автозапуске.

Код: Выделить всё

myrout routine
   DATA
fsSC fsShortCut
  CODE   
   fsSC.init('1.vbs')   
   fsSC.Make(1,clip(longpath()) & '\prg.exe',clip(longpath()),'Программа.lnk','Описание') 
   fsSC.kill
Вложения
fsShortCut.clw
(6.56 КБ) 62 скачивания
fsShortCut.inc
(1.68 КБ) 58 скачиваний
C6/C11, ШВС, tps/btrieve.
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Создание ярлыка через vbscript

Сообщение Admin »

Каких уже вариантов не предложили для создания ярлыка. Я тоже отмечусь...
DLL на С++ с функцией CreateLink и ее исходники. VS 2019 C++
Программа на Clarion для примера.
PepyakaShortcuts.zip
(23.84 КБ) 68 скачиваний
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Аватара пользователя
Дед Пахом
Старичок
Сообщения: 3131
Зарегистрирован: 07 Июль 2005, 16:51
Откуда: Москва, Россия
Благодарил (а): 10 раз
Поблагодарили: 28 раз
Контактная информация:

Создание ярлыка через vbscript

Сообщение Дед Пахом »

CLW скачали 7, а INC 4 раза.
С уважением, ДП
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Создание ярлыка через vbscript

Сообщение Admin »

Дед Пахом писал(а): 18 Август 2022, 22:46 CLW скачали 7, а INC 4 раза.
Мне inc не интересен, я просто реализацию посмотрел. Как то так :)
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Ответить