coco
406 lines
16 KiB
Plaintext
406 lines
16 KiB
Plaintext
////////////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// 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;
|
|
|