@echo off&set FileName=%~n0&shift

:: =============================================
:: AutoHelp PlugLab Concept: 2006 by Reatogo
:: =============================================

:: Help Info:
:: =======================
   set Routine_Type=4
::                  1=Getting Data  2=Prompts  3=Getting Files  4=Creating Files  5=General

   set Routine_Vers=1
   set Routine_Date=2007-02-15
   set RoutineName=XPEshortcuts
   set RoutineAuthor=Siegfried
   set Using_work_from=

   set Example_call_1=%%XPEshortcuts%%
   set Example_call_2=
   set Example_call_3=

   set text_01=Prints XPEshortcuts for Desktop and StartMenu in the INF.
   set text_02=.
   set text_03=If you need special shortcuts, use the printout of these as a template and add yours to the StaticINF.dat
   set text_04=.
   set text_05=.
   set text_06=.
   set text_07=.

if "%~1" == "GetHelp" goto :EOF
echo.&echo %*
:: =============================================


if "%SubDir_Of_MainEXE%" == "" goto NoSub
if not "%SubDir_Of_MainEXE:~-1%" == "\" set SubDir_Of_MainEXE=%SubDir_Of_MainEXE%\
:NoSub

Set StartFileDrive=%%SystemDrive%%
Set IconFileDrive=%%SystemDrive%%
if "%ProgStartDRV%" == "Y" (
Set StartFileDrive=Y:
Set IconFileDrive=Y:
)
set sGroup=%%StartMenu_Group%%
if not "%StartMenu_Group%" == "" set sGroup=%%StartMenu_Group%%\%%StartMenu_Sub_Group%%

:: Startparameter is given in the Start.cmd, NOT in the XPE-shortcut if a Start.cmd is used:
set StartP=%StartParam%
if "%StartFile%" == "Start.cmd" set StartP=

ECHO. %OUT%
ECHO [Software.AddReg]%OUT%
ECHO ; XPE Shortcuts%OUT%

if "%StartFile%" == "%MainEXE%" (
	ECHO 0x2, "Sherpya\XPEinit\Desktop", "%%ShortCut_Name%%", "%StartFileDrive%\Programs\%Prog_On_CD%\%SubDir_Of_MainEXE%%StartFile%|%StartP%|%IconFileDrive%\Programs\%Prog_On_CD%\%SubDir_Of_MainEXE%%IconFile%"%OUT%
	ECHO 0x2, "Sherpya\XPEinit\Programs", "%sGroup%\%%ShortCut_Name%%", "%StartFileDrive%\Programs\%Prog_On_CD%\%SubDir_Of_MainEXE%%StartFile%|%StartP%|%IconFileDrive%\Programs\%Prog_On_CD%\%SubDir_Of_MainEXE%%IconFile%"%OUT%
) else (
	ECHO 0x2, "Sherpya\XPEinit\Desktop", "%%ShortCut_Name%%", "%StartFileDrive%\Programs\%Prog_On_CD%\%StartFile%|%StartP%|%IconFileDrive%\Programs\%Prog_On_CD%\%SubDir_Of_MainEXE%%IconFile%"%OUT%
	ECHO 0x2, "Sherpya\XPEinit\Programs", "%sGroup%\%%ShortCut_Name%%", "%StartFileDrive%\Programs\%Prog_On_CD%\%StartFile%|%StartP%|%IconFileDrive%\Programs\%Prog_On_CD%\%SubDir_Of_MainEXE%%IconFile%"%OUT%
)
ECHO. %OUT%

Set StartFileDrive=
Set IconFileDrive=
set StartP=
goto :EOF
:: =============================================