ИнфоАптека ®

Автоматизация аптек и аптечных сетей

Инструменты пользователя

Инструменты сайта


user:vmsirenko:ярлык_на_рабочем_столе

Ярлык на рабочем столе

К счастью или к сожалению, у модулей Склад и Касса нет программы установки, устанавливаются данные модули простым копированием. При этом приходится создавать и ярлыки на рабочем столе. Для ускорения этой операции я создал файлы скриптов на VBScript, при запуске которых устанавливаются необходимые мне ярлыки. Файлы скриптов расположил в папке BPL локального дистрибутива \\AptSrv\iADistrib\Apteka\BPL.

Скрипт создания ярлыка модуля Склад

Link_iApteka.vbs
Option Explicit
Dim oShell, oShortCut, sDeskTopPath
Set oShell = CreateObject("Wscript.Shell")
sDeskTopPath = oShell.SpecialFolders("Desktop")
Set oShortCut = oShell.CreateShortcut(sDeskTopPath & "\ИнфоАптека Склад.lnk")
oShortCut.IconLocation = oShell.CurrentDirectory & "\iapteka.exe, 0"
oShortCut.TargetPath = oShell.CurrentDirectory & "\iapteka.bat"
oShortCut.WorkingDirectory = oShell.CurrentDirectory
oShortCut.Save

Разобраться в этом скрипте не составляет труда и на основании него можно сделать скрипты создания ярлыков других модулей.

Только авторизованные участники могут оставлять комментарии.
user/vmsirenko/ярлык_на_рабочем_столе.txt · Последние изменения: 2018/03/07 12:29 — Владимир Сиренко