Мануал Создание ярлыка программы

[#Samurai]

Создание ярлыка с помощью .bat скрипта.

@echo off
Set MyFile=%~f0
Set ShorcutName=ShortCut
(
echo Call Shortcut(%1,%2^)
echo Sub Shortcut(ApplicationPath,Nom^)
echo    Dim objShell,DesktopPath,objShortCut,MyTab
echo    Set objShell = CreateObject("WScript.Shell"^)
echo    MyTab = Split(ApplicationPath,"\"^)
echo    If Nom = "" Then
echo    Nom = MyTab(UBound(MyTab^)^)
echo    End if
echo    DesktopPath = objShell.SpecialFolders("Desktop"^)
echo    Set objShortCut = objShell.CreateShortcut(%2 ^& ".lnk"^)
echo    objShortCut.TargetPath = Dblquote(ApplicationPath^)
echo    ObjShortCut.IconLocation = %3
echo    objShortCut.Save
echo End Sub

echo ^'Fonction pour ajouter les doubles quotes dans une variable
echo Function DblQuote(Str^)
echo    DblQuote = Chr(34^) ^& Str ^& Chr(34^)
echo End Function

) > Shortcutme.vbs
Start /Wait Shortcutme.vbs
Del Shortcutme.vbs
cls

[HR][/HR]
Ключи запуска:
1. Путь к приложению
2. Путь для создания ярлыка
3. Путь к .ico файлу для ярлыка

Пример:

файл_со_скриптом "C:/application.exe" "C:/users/admin/desktop/app_shortcut" "C:/application.exe,0"