NSIS打包自动加载LISP,VLX等

;;注册LISP到配置项中
Function RegLispsProfile
Var /Global NumStartup
Var /Global NumLisp
ReadRegStr $NumStartup HKCU “Software\Autodesk\AutoCAD\$ACAD_REG_VERSION\$ACAD_REG_PRODUCT\Profiles\$ACAD_REG_PROFILES\Dialogs\Appload\Startup” “NumStartup”

StrCpy $7 1
${While} $7 <= $NumStartup

ReadRegStr $NumLisp HKCU “Software\Autodesk\AutoCAD\$ACAD_REG_VERSION\$ACAD_REG_PRODUCT\Profiles\$ACAD_REG_PROFILES\Dialogs\Appload\Startup” “$7Startup”
StrCmp $NumLisp “$INSTDIR\JLRJ.vlx” done
IntOp $7 $7 + 1
${EndWhile}

;;IntOp $NumStartup $NumStartup + 1
WriteRegStr HKCU “Software\Autodesk\AutoCAD\$ACAD_REG_VERSION\$ACAD_REG_PRODUCT\Profiles\$ACAD_REG_PROFILES\Dialogs\Appload\Startup” “NumStartup” “$7”
WriteRegStr HKCU “Software\Autodesk\AutoCAD\$ACAD_REG_VERSION\$ACAD_REG_PRODUCT\Profiles\$ACAD_REG_PROFILES\Dialogs\Appload\Startup” “$7Startup” “$INSTDIR\JLRJ.vlx”

done:
FunctionEnd

;;注册LISP
;;$ACAD_REG_VERSION CAD版本
;;$ACAD_REG_PRODUCT CAD产品
Function RegLisps
StrCpy $8 0
loop:
EnumRegKey $9 HKCU “Software\Autodesk\AutoCAD\$ACAD_REG_VERSION\$ACAD_REG_PRODUCT\Profiles” $8
StrCmp $9 “” done
IntOp $8 $8 + 1
StrCpy $ACAD_REG_PROFILES $9
Call RegLispsProfile
Goto loop
done:
FunctionEnd