//////////////////////////////////////////////////////////////////////////////// // // IIIIIII SSSSSS // II SS InstallShield (R) // II SSSSSS (c) 1996-2002, InstallShield Software Corporation // II SS All rights reserved. // IIIIIII SSSSSS // // // This template script provides the code necessary to build an entry-point // function to be called in an InstallScript custom action. // // // File Name: Setup.rul // // Description: InstallShield script // //////////////////////////////////////////////////////////////////////////////// #define dpinst64_FILE "dpinst_amd64\\dpinst_amd64.exe" #define dpinst32_FILE "dpinst_x86\\dpinst_x86.exe" #define vcp32_FILE "x86\\dpinst_x86.exe" #define vcp64_FILE "x64\\dpinst_amd64.exe" #define autoDriver32_PATH "C:\\WINDOWS\\system32\\drivers\\" #define autoDriver64_PATH "C:\\WINDOWS\\system64\\drivers\\" #define accessDBEngine "AccessDatabaseEngine.exe" #define PSAPI_FILE "psapi.dll" #define runInstallName "\\Geomative_setup.exe" #define setInstDirverReg "set_driver.bat" #define allExe "*.exe" #define allBat "*.bat" #define allTxt "*.txt" #define allAccdb "*.accdb" #define allInf "*.Inf" // Include Ifx.h for built-in InstallScript function prototypes, for Windows // Installer API function prototypes and constants, and to declare code for // the OnBegin and OnEnd events. #include "ifx.h" // The keyword export identifies MyFunction() as an entry-point function. // The argument it accepts must be a handle to the Installer database. export prototype MyFunction(HWND); //prototype OnResumeUIBefore(); // To Do: Declare global variables, define constants, and prototype user- // defined and DLL functions here. prototype BOOL SetAutoInstallDirver(NUMBER); function OnFirstUIBefore() STRING szStrName, svStrValue; NUMBER nvSize, nvType; begin RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE ); if (RegDBGetKeyValueEx ("第三方程序的注册表项", "Path", nvType, svStrValue, nvSize) < 0) then LaunchAppAndWait("AccessDatabaseEngine.exe" , "/i "+SUPPORTDIR^"第三方程序文件名.msi"+""+" /qn" ,WAIT) ; endif ; end; // To Do: Create a custom action for this entry-point function: // 1. Right-click on "Custom Actions" in the Sequences/Actions view. // 2. Select "Custom Action Wizard" from the context menu. // 3. Proceed through the wizard and give the custom action a unique name. // 4. Select "Run InstallScript code" for the custom action type, and in // the next panel select "MyFunction" (or the new name of the entry- // point function) for the source. // 5. Click Next, accepting the default selections until the wizard // creates the custom action. // // Once you have made a custom action, you must execute it in your setup by // inserting it into a sequence or making it the result of a dialog's // control event. /////////////////////////////////////////////////////////////////////////////// // // Function: MyFunction // // Purpose: This function will be called by the script engine when // Windows(TM) Installer executes your custom action (see the "To // Do," above). // /////////////////////////////////////////////////////////////////////////////// STRING strInstallStatus; function MyFunction(hMSI) // To Do: Declare local variables. STRING strDriverPath, strOSVer, strRes, strInfo,strODBCPath; NUMBER nResult,nvSize,nvType; STRING strODBCRegPath, strGeoKey,strGeoJetKey,strODBCDataSourceKey,strODBCInstKey,strRegVal; BOOL bIsNeedWriteGeoKey; STRING strInstDriBasePath,strExtInstDriverPath; begin strDriverPath = INSTALLDIR + "GD_10\\"; strODBCPath = INSTALLDIR + "DBConntEngine\\"; MessageBox("Ready to install hardware driver ,please wait for a moment",INFORMATION); bIsNeedWriteGeoKey = FALSE; //this is a test // if (LaunchAppAndWait(strODBCPath^accessDBEngine, "AUTORUN",LAAW_OPTION_WAIT) < 0) then // Sprintf(strInfo, "Unable to launch %s, path = %s", accessDBEngine, strODBCPath); // MessageBox (strInfo, WARNING); // else // MessageBox ("install DB compelete!",INFORMATION); //regedit ODBC in System DSN RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE); strODBCRegPath= "\\SOFTWARE\\Wow6432Node\\ODBC"; strGeoKey = "\\ODBC.INI\\AccessDB For Geomative"; strGeoJetKey = strGeoKey + "\\Engines\\Jet"; strODBCInstKey = "\\ODBCINST.INI\\Microsoft Access Driver (*.mdb, *.accdb)"; if(RegDBKeyExist(strODBCRegPath) < 0) then strODBCRegPath = "\\SOFTWARE\\ODBC"; if(RegDBKeyExist(strODBCRegPath)<0) then MessageBox ("regidit info error!",INFORMATION); else //write strGeoKey if there was not strGeoKey if(RegDBKeyExist(strODBCRegPath^strGeoKey)<0) then // MessageBox("need to wirte GeoDB key in 32 bit!", INFORMATION); bIsNeedWriteGeoKey = TRUE; // else // MessageBox("don't need to wirte GeoDB key in 32 bit!", INFORMATION); endif; endif; else if(RegDBKeyExist(strODBCRegPath^strGeoKey)<0)then //MessageBox("need to wirte GeoDB key in 64 bit!", INFORMATION); bIsNeedWriteGeoKey = TRUE; //else // MessageBox("don't need to wirte GeoDB key in 64 bit!", INFORMATION); endif; endif; //endif; //wirte geomative odbc if(TRUE == bIsNeedWriteGeoKey) then nvType=REGDB_STRING; strRegVal = ""; strODBCDataSourceKey = strODBCRegPath + "\\ODBC.INI\\ODBC Data Sources"; if(0 == RegDBGetKeyValueEx(strODBCRegPath^strODBCInstKey, "Driver",nvType,strRegVal,nvSize)) then //write geo key RegDBSetKeyValueEx(strODBCRegPath^strGeoKey,"Driver",REGDB_STRING,strRegVal,-1); RegDBSetKeyValueEx(strODBCRegPath^strGeoKey,"DriverId",REGDB_NUMBER,"25",-1); RegDBSetKeyValueEx(strODBCRegPath^strGeoKey,"FIL",REGDB_STRING,"MS Access;",-1); RegDBSetKeyValueEx(strODBCRegPath^strGeoKey,"SafeTransactions",REGDB_NUMBER,"0",-1); RegDBSetKeyValueEx(strODBCRegPath^strGeoKey,"UID",REGDB_STRING,"",-1); //set jetkey val RegDBSetKeyValueEx(strODBCRegPath^strGeoJetKey,"ImplicitCommitSync",REGDB_STRING,"",-1); RegDBSetKeyValueEx(strODBCRegPath^strGeoJetKey,"MaxBufferSize",REGDB_NUMBER,"2048",-1); RegDBSetKeyValueEx(strODBCRegPath^strGeoJetKey,"PageTimeout",REGDB_NUMBER,"5",-1); RegDBSetKeyValueEx(strODBCRegPath^strGeoJetKey,"Threads",REGDB_NUMBER,"3",-1); RegDBSetKeyValueEx(strODBCRegPath^strGeoJetKey,"UserCommitSync",REGDB_STRING,"Yes",-1); //wirte ODBC Data Sources RegDBSetKeyValueEx(strODBCDataSourceKey,"AccessDB For Geomative",REGDB_STRING,"Microsoft Access Driver (*.mdb, *.accdb)",-1); else MessageBox("can't get ODBC install information", INFORMATION); endif; endif; //SetObjectPermissions(INSTALLDIR, IS_PERMISSIONS_TYPE_FOLDER, "", "Everyone", DELETE|GENERIC_ALL|FILE_ALL_ACCESS,0); // SetAutoInstallDirver(0); // if(AskYesNo("Do you want to exec set_driver reg?",YES) = YES) then // if(LaunchAppAndWait(strDriverPath^setInstDirverReg, "", LAAW_OPTION_WAIT | LAAW_OPTION_HIDDEN) < 0) then //if (LaunchApp(, "") < 0) then // Sprintf(strInfo, "Unable to launch %s", strDriverPath^setInstDirverReg); // MessageBox (strInfo, WARNING); // else // MessageBox ("start set_driver success", WARNING); // endif; // endif; // endif; if(SYSINFO.bIsWow64) then strOSVer = "this is 64 bit platform"; //MessageBox (strOSVer, INFORMATION); nResult = XCopyFile (strDriverPath ^ "*.*", autoDriver64_PATH ^ "*.*",INCLUDE_SUBDIR); if ( nResult < 0) then strInfo = FormatMessage(nResult); MessageBox (strInfo, WARNING); endif; if(FindFile(strDriverPath,vcp64_FILE,strRes) < 0) then Sprintf (strInfo, "Find %s failed,path = %s", vcp64_FILE,strDriverPath); MessageBox (strInfo, WARNING); else if (LaunchApp(strDriverPath^vcp64_FILE, "") < 0) then //if (LaunchAppAndWait(strDriverPath^vcp64_FILE, "",LAAW_OPTION_HIDDEN) < 0) then Sprintf(strInfo, "Unable to launch %s, path = %s. Are you running installation file as Adimistrator?", vcp64_FILE, strDriverPath); MessageBox (strInfo, WARNING); endif; endif; else strOSVer = "this is 32 bit platform"; // MessageBox (strOSVer, INFORMATION); //copy file to auto_driver nResult = XCopyFile (strDriverPath ^ "*.*", autoDriver32_PATH ^ "*.*",INCLUDE_SUBDIR); if ( nResult < 0) then strInfo = FormatMessage(nResult); MessageBox (strInfo, WARNING); endif; if(FindFile(strDriverPath,vcp32_FILE,strRes) < 0) then Sprintf (strInfo, "Find %s failed,path = %s", vcp32_FILE, strDriverPath); MessageBox (strInfo, WARNING); else if (LaunchApp(strDriverPath^vcp32_FILE, "") < 0) then // if (LaunchAppAndWait(strDriverPath^vcp32_FILE, "",LAAW_OPTION_HIDDEN) < 0) then Sprintf(strInfo, "Unable to launch %s, path = %s", vcp32_FILE, strDriverPath); MessageBox (strInfo, WARNING); endif; endif; endif; // SetObjectPermissions(INSTALLDIR, IS_PERMISSIONS_TYPE_FOLDER, "", "Everyone", //DELETE|GENERIC_ALL|FILE_ALL_ACCESS,0); // To Do: Write script that will be executed when MyFunction is called. end; export prototype SetupCheck(HWND); function SetupCheck(hMSI) // To Do: Declare local variables. STRING strNoteInfo1,strNoteInfo2; begin //dasdasdasdad strNoteInfo1 = "NOTE:\n1.For WIN7,WIN8,WIN10 system,please ensure right-click \"Geomative_setup.exe\",then click \"Run as administrator\" to install;\n if not,please cancel and install again.\n"; strNoteInfo2 = "2.During installation,please ensure the destination path has full read-write access.\n\nDo you want to continue running setup?"; // MessageBox(strNoteInfo1+strNoteInfo2,INFORMATION); //abort; // To Do: Write script that will be executed when MyFunction is called. if(AskYesNo(strNoteInfo1+strNoteInfo2,YES) = NO) then // InstallFinalize(); abort; endif; end; //test export prototype StartSetupAfterUpgrade(HWND); function StartSetupAfterUpgrade(hMSI) STRING SETUPEXEDIR[MAX_PATH + 1]; //获取安装程序Setup.exe自身所在的路径 //STRING strCurDir; STRING strShow; //STRING szProductName,szBmpPath; NUMBER nBuffer; // local buffer-size variable begin if(""=UNINSTALL_STRING) then MessageBox("not stalled status",INFORMATION); else MessageBox("stalled status",INFORMATION); nBuffer = MAX_PATH + 1; // initialize size buffer before calling siGetProperty MsiGetProperty(ISMSI_HANDLE, "SETUPEXEDIR", SETUPEXEDIR, nBuffer); //Sprintf(strShow, "installdir0 = %s", SETUPEXEDIR); //MessageBox(strShow,WARNING); if (LaunchApp(SETUPEXEDIR^runInstallName, "") < 0) then Sprintf(strShow, "installdir1 = %s", SETUPEXEDIR); MessageBox(strShow,WARNING); MessageBox ("load setup.exe failed!", WARNING); endif; endif; end; function BOOL SetAutoInstallDirver(nvSetVal) STRING strInstDriBasePath; STRING strExtInstDriverPath; STRING strAutoInstKey; STRING strShow; STRING strResVal; begin if(RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE) < 0) then MessageBox("set local_machine failed!",WARNING); endif; strInstDriBasePath = "\\SOFTWARE"; strExtInstDriverPath = "\\Microsoft\\Windows\\CurrentVersion"; if(RegDBKeyExist(strInstDriBasePath^strExtInstDriverPath) < 0) then Sprintf(strShow, "path1 = %s", strInstDriBasePath^strExtInstDriverPath); MessageBox(strShow,WARNING); strExtInstDriverPath = "\\Policies\\Microsoft\\Windows\\DriverSearching"; //如果都查找不到，则返回错误 if(RegDBKeyExist(strInstDriBasePath^strExtInstDriverPath) < 0) then MessageBox("can't found installDriver Information!",WARNING); return FALSE; //如果查找到该项，则认为是XP，2003的需要验证 //由于在XP里的项用的是DontSearchWindowsUpdate，所以最后得到的值也要取反 else strAutoInstKey = "DontSearchWindowsUpdate"; Sprintf(strResVal,"%d",!nvSetVal); Sprintf(strShow, "found installdirver in xp,org = %d, res = %s", nvSetVal,strResVal); MessageBox(strShow,WARNING); endif; //如果可以找到，则认为是WIN7,8,10 else strExtInstDriverPath = strExtInstDriverPath + "\\DriverSearching"; strAutoInstKey = "SearchOrderConfig"; Sprintf(strResVal,"%d",nvSetVal); endif; if(RegDBSetKeyValueEx(strInstDriBasePath^"\\"^strExtInstDriverPath,strAutoInstKey,REGDB_NUMBER,strResVal,-1)<0)then Sprintf(strShow,"set dirvieconfig failed, path = %s, value = %s",strInstDriBasePath^"\\"^strExtInstDriverPath, strResVal); MessageBox(strShow,WARNING); return FALSE; endif; return TRUE; end; export prototype test(HWND); function test(hMSI) STRING strTest1,strBase,strInfo; begin strBase = "C:\\Geomative\\Geomative_setup\\"; strTest1 = "Geomative\\*.*"; strInfo = strBase+strTest1; MessageBox(strBase^strTest1,INFORMATION); MessageBox(strInfo,INFORMATION); strTest1="*.*"; Sprintf(strInfo,"%s %s",strBase,strTest1); MessageBox(strInfo,INFORMATION); Sprintf(strInfo,"%s%s",strBase,strTest1); MessageBox(strInfo,INFORMATION); end; //this is a test dsadada export prototype UnInstallPreVersion(HWND); function UnInstallPreVersion(hMSI) //STRING strDstFile,strShow,strDelFile; INT installlDirID; STRING folder,strInstDir; begin //MessageBox("unstall dir = 133333...",INFORMATION); strInstDir = INSTALLDIR; /* strDstFile = strInstDir+"Geomative\\*.*"; MessageBox(strDstFile,INFORMATION); DeleteFile(strDstFile); strDstFile = strInstDir + "Geomative\\LOG\\*.*"; MessageBox(strDstFile,INFORMATION); DeleteFile(strDelFile); strDstFile = strInstDir + "Geomative\\DB\\*.*"; MessageBox(strDstFile,INFORMATION); DeleteFile(strDelFile); strDstFile = strInstDir + "Geomative\\firmware\\*.*"; MessageBox(strDstFile,INFORMATION); DeleteFile(strDelFile); strDstFile = strInstDir + "GD_10\\*.*"; MessageBox(strDstFile,INFORMATION); DeleteFile(strDelFile); strDstFile = strInstDir + "DBConntEngine\\*.*"; MessageBox(strDstFile,INFORMATION); DeleteFile(strDelFile); //test */ //find the first file form folder installlDirID = ListCreate(STRINGLIST); FindAllDirs(strInstDir,INCLUDE_SUBDIR,installlDirID); ListGetFirstString(installlDirID,folder); SetFileInfo(folder, FILE_ATTRIBUTE, FILE_ATTR_NORMAL,""); while(ListGetNextString(installlDirID,folder) = 0) SetFileInfo(folder, FILE_ATTRIBUTE, FILE_ATTR_NORMAL,""); endwhile; DeleteDir(strInstDir^"Geomative Studio",ALLCONTENTS); DeleteDir(strInstDir^"GD_10",ALLCONTENTS); DeleteDir(strInstDir^"DBConntEngine",ALLCONTENTS); //MessageBox("unstall preversion complete",INFORMATION); end;