![]() ![]() RegQueryStringValue(HKEY_LOCAL_MACHINE, ('SOFTWARE\Wow6432Node\Autodesk\AutoCAD\' + Version + '\' + Product),'AcadLocation', AcadLocn)ĭelete (Ver, 4, 2)//remove trailing period and integer If RegValueExists(HKEY_LOCAL_MACHINE, ('SOFTWARE\Wow6432Node\Autodesk\AutoCAD\' + Version + '\' + Product), 'AcadLocation') then RegQueryStringValue(HKEY_LOCAL_MACHINE, ('SOFTWARE\Autodesk\AutoCAD\' + Version + '\' + Product),'AcadLocation', AcadLocn) If RegValueExists(HKEY_LOCAL_MACHINE, ('Software\Autodesk\AutoCAD\' + Version + '\' + Product), 'AcadLocation') then Create a registry string as global 'Wow' to check later RegQueryStringValue(HKEY_LOCAL_MACHINE, ('Software\Autodesk\AutoCAD\' + Version),'CurVer', Product) RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\Autodesk\AutoCAD','CurVer', Version) RegQueryStringValue(HKEY_LOCAL_MACHINE, ('Software\Bricsys\Bricscad\' + Version + '\' + Product),'AcadLocation', AcadLocn)//AcadLocn RegQueryStringValue(HKEY_CURRENT_USER, ('Software\Bricsys\Bricscad\' + Version),'CURVER', Product)//Assign the variable Product ![]() RegQueryStringValue(HKEY_CURRENT_USER, 'Software\Bricsys\Bricscad','CURVER', Version)//Reassign variable Version If Version = 'BricscadApp.AcadApplication' then MsgBox('Can''t locate AutoCAD or Bricscad on this system, exiting install.', mbInformation, MB_OK) MsgBox('AutoCAD LT is not supported, exiting install.', mbInformation, MB_OK) else If RegValueExists(HKEY_CURRENT_USER, 'Software\Autodesk\AutoCAD LT','CurVer') then If (Version = '') or RegKeyExists(HKEY_CLASSES_ROOT, 'AutoCADLT.Drawing\CurVer') then RegQueryStringValue(HKEY_CLASSES_ROOT, 'AutoCAD.Application\CurVer','', Version) If RegKeyExists(HKEY_CLASSES_ROOT, 'AutoCAD.Application') or RegKeyExists(HKEY_CLASSES_ROOT, 'AutoCADLT.Drawing') then so may not work for products other than vanilla AutoCADĪpp, Version, Product, Ver, Wow, AcadLocn: String īegin //check for apps including AutoCAD, AutoCAD LT, Bricscad It doesn't allow for a choice if there are multiple installations on the same system and hasn't been tested extensively The following InitializeSetup function is a basic check for installation of AutoCAD or Bricscad. Code: procedure AddACADRegKey (Release: String) \OpenDCL.Runtime.7.0.0.13.msi"""
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |