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查看完整版本： NSIS打包自动加载LISP,VLX等
Tags:
