博客园_☆会飞的鱼☆

InstallShield高级应用系列目录

2012-05-11T03:29:00Z

InstallShield高级应用系列目录

1 InstallShield高级应用--判断是否是本机

2 InstallShield高级应用--获取本机所有的SQL服务

3 InstallShield高级应用--获取机机所有ORACLE服务列表

8 InstallShield高级应用--打开文件对话框

7 InstallShield高级应用--测试ORACL是否可连接

6 InstallShield高级应用--测试SQL Server是否可连接

5 InstallShield高级应用--测试Access是否可连接

4 InstallShield高级应用--检查是否安装ORACLE或SQL Server

9 InstallShield高级应用--文件操作

10 InstallShield高级应用--检测系统ServerPack版本，SP2前不支持则 abort

本文链接

InstallShield高级应用--检测系统ServerPack版本，SP2前不支持则 abort

2012-05-11T03:18:00Z

//检测系统ServerPack版本，SP2前不支持则 abort
function CheckServerPackVersion()
BOOL bCheckSP;
begin
if(SYSINFO.WINNT.nServicePack <2) then
bCheckSP =FALSE;
if ((SYSINFO.nOSMajor == 5) && (SYSINFO.nOSMinor == 1)) then //Windows XP : 5.1
bCheckSP = TRUE;
elseif ((SYSINFO.nOSMajor == 5) && (SYSINFO.nOSMinor == 2)) then // Windows 2003
bCheckSP = TRUE;
endif;
if(bCheckSP = TRUE) then
switch (SELECTED_LANGUAGE)
case ISLANG_CHINESE_PRC:
MessageBox("安装程序需要 ServicePack 2 (含) 以上版本支持。", WARNING);
case ISLANG_ENGLISH:
MessageBox("For This setup the ServicePack version must be more than 2(Include) .", WARNING);
default:
MessageBox("For This setup the ServicePack version must be more than 2(Include).", WARNING);
endswitch;
abort;
endif;
endif;

end;

本文链接

InstallShield高级应用--文件操作

2012-05-11T03:16:00Z

主要包含三个：

1 检查文件是否存在；

3 获得文件名称；

//检查文件是否存在，若不存在则返回FALSE
function BOOL ExistFile(szFileFullPath)
BOOL bExists;
STRING szFilePath,szFileName,svResult;
begin
bExists = FALSE;
szFilePath =szFileFullPath;
szFileName ="";
GetFileName(szFilePath,szFileName);
GetPreDir(szFilePath);
if(szFileName != "") then
if(FindFile(szFilePath,szFileName,svResult) = 0) then
bExists =TRUE;
endif;
endif;
return bExists;
end;

//获得目录的前一级目录
function GetPreDir(szDir)
number iLen,i;
STRING szSubStr;
begin
szSubStr = szDir;
i =1;
iLen = StrLength(szDir);
if(iLen>5) then
while(i<iLen)
if(szDir[iLen -i] = "\\") then
StrSub (szSubStr,szDir,0,iLen -i);
i = iLen;
endif;
i++;
endwhile;
szDir =szSubStr;
endif;
end;
//获得文件名称
function GetFileName(szFileFullPath,szFileName)
number iLen,i;
begin
szFileName ="";
iLen = StrLength(szFileFullPath);
i =iLen-1;
while(i>0)
if(szFileFullPath[i] = "\\") then
StrSub (szFileName,szFileFullPath,i+1,iLen - i);
return;
endif;
i--;
endwhile;
end;

本文链接

InstallShield高级应用--检查是否安装ORACLE或SQL Server

2012-05-11T03:14:00Z

实现原理：判断是否存在，是通过查找注册表是否含有相应标识来判断的。

注意：XP与WIN7系统注册表保存方式不一样，32位与64位操作系统注册表保存方式也不一样，需要分别判断。在此只判断32位操作系统的情况。

源码：

////检查是否有安装Oracle
function NUMBER CheckOracleISExist()
STRING svOraclePath,nvValue;
NUMBER nKeyType,nvType, nvSize;
begin
// defaut regedit root
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
//oralce regedit path
if(RegDBGetKeyValueEx("SOFTWARE\\ORACLE\\ALL_HOMES","DEFAULT_HOME",nvType,nvValue,nvSize) = 0) then
return 0;
endif;
return -1;
end;

// SQL Server 2000, SQL Server 2005, SQL Server 2008,
// SQL Server 2005 Express,SQL Server 2008 Express
//检查是否有安装SQL Server
function NUMBER CheckSQLServer()
STRING nvValue;
NUMBER nvType, nvSize;
begin
//return -1;
// defaut regedit root
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
// SQL Server 2000
if(RegDBGetKeyValueEx("SOFTWARE\\Microsoft\\Microsoft SQL Server","InstalledInstances",nvType,nvValue,nvSize) = 0) then
return 0;
endif;
//SQL Server 2005 Version
if(RegDBGetKeyValueEx("SOFTWARE\\Microsoft\\Microsoft SQL Server 2005 Redist\\BOL\\2052\\CurrentVersion","Version",nvType,nvValue,nvSize) = 0) then
return 0;
endif;
//SQL Server 2008 Express
//if(RegDBGetKeyValueEx("SOFTWARE\\Microsoft\\Microsoft SQL Server 2008 Redist\\SQLNCLI10\\2052\\CurrentVersion","Version",nvType,nvValue,nvSize) = 0) then
// return 0;
//endif;
// Express
if(RegDBGetKeyValueEx("SOFTWARE\\Microsoft\\Microsoft SQL Server\SQLEXPRESS\setup","SQLPath",nvType,nvValue,nvSize) = 0) then
return 0;
endif;
return -1;
end;

本文链接

InstallShield高级应用--测试Access是否可连接

2012-05-11T03:12:00Z

实现原理：Access数据库连接是使用Microsoft Access Driver (*.mdb)实现的。

通过Access连接数据库字符串，使用“ADODB.Connection“对象，连接到Access数据库，

再使用“ADODB.Recordset”对象，通过查询一张已存在的表TBL_test，判断是否成功。

注意：当前电脑必包含ADODB.Connection和ADODB.Recordset这二个对象。

源码：

prototype BOOL DB_CheckAccessConn(STRING,NUMBER,BYREF STRING);
//============================================================//
//function : DB_CheckAccessConn //
// //
//purpose: 测试Access是否可连接 //
// //
//Argment: szDBPath:Access数据库绝对路径 //

//return: TRUE -连接成功 FALSE - 连接失败 //
//Remark: 本验证使用 Microsoft Access Driver (*.mdb) 验证 //
// DRIVER={Microsoft Access Driver (*.mdb)}; //
// DBQ=数据库名.mdb;UID= sa;PWD=sa//
//============================================================//

function BOOL DB_CheckAccessConn(szDBPath,szError)
OBJECT pADOConnObj, pADORecordSetObj;
STRING szADOConnObjID, szADORecordSetObjID, szConnString, szSQL,svDriver;
STRING svServerName,szDatabase,svUserName, svUserPassword;
BOOL bExists;
begin
bExists = FALSE;
svDriver = "Microsoft Access Driver (*.mdb)";
try
// Create ADO Connection Object to connect to the SQL server
szADOConnObjID = "ADODB.Connection";
set pADOConnObj = CreateObject(szADOConnObjID);

// Create the SQL string to complete the connection
szConnString = "driver={" + svDriver + "};";
szConnString = szConnString + "DBQ=" + szDBPath + ";";
szConnString = szConnString + "uid=sa;";
szConnString = szConnString + "pwd=sa;";

// Open the ADO Connection
pADOConnObj.Open(szConnString);

// Create ADO Recordset object for the return
szADORecordSetObjID = "ADODB.Recordset";
set pADORecordSetObj = CreateObject(szADORecordSetObjID);

// Set some ADO Recordset properties
pADORecordSetObj.CursorType = 3;
pADORecordSetObj.ActiveConnection = pADOConnObj;

// Create the SQL string to retrieve the database if it exists
szSQL = "SELECT * FROM TBL_test";

// Use the recordset to see if the database exists
pADORecordSetObj.Open(szSQL);
if (pADORecordSetObj.RecordCount >= 0) then
bExists = TRUE;
endif;

pADORecordSetObj.Close();
pADOConnObj.Close();
catch
//nErr =Err.Number;

Sprintf(szError,"Error!Number:%d；",Err.Number);
szError = szError +"Desc:"+Err.Description;
szError ="DB:"+ szError;

bExists = FALSE;
//Clean up
set pADOConnObj = NOTHING;
set pADORecordSetObj = NOTHING;
endcatch;
set pADOConnObj = NOTHING;
set pADORecordSetObj = NOTHING;
return bExists;
end;

本文链接

InstallShield高级应用--测试SQL Server是否可连接

2012-05-11T03:10:00Z

实现原理：SQLServer数据库连接是使用SQL Server实现的。

通过SQLServer连接数据库字符串，使用“ADODB.Connection“对象，连接到Access数据库，

再使用“ADODB.Recordset”对象，通过查询一张已存在的表Select name from sysdatabases where name='master'，判断是否成功。

注意：当前电脑必包含ADODB.Connection和ADODB.Recordset这二个对象。

源码：

prototype BOOL DB_CheckSQLServerCon(BYREF STRING,STRING,BYREF STRING,BYREF STRING,BYREF STRING);
//============================================================//
//function : DB_CheckSQLServerCon //
// //
//purpose: 测试SQL Server是否可连接 //
// //
//Argment: svServerName-SQL Server连接服务名称 //
// svUserName-登录帐号 //
// svUserPassword-登录密码 //
// szError-错误提示信息 //
//return: TRUE -连接成功 FALSE - 连接失败 //
//Remark: 本验证使用 SQL Server 验证 //
//============================================================//
function BOOL DB_CheckSQLServerCon(svServerName,szDatabase,svUserName, svUserPassword,szError)
OBJECT pADOConnObj, pADORecordSetObj;
STRING szADOConnObjID, szADORecordSetObjID, szConnString, szSQL,svDriver;
BOOL bExists;
begin
bExists = FALSE;
svDriver = "SQL Server";
try
// Create ADO Connection Object to connect to the SQL server
szADOConnObjID = "ADODB.Connection";
set pADOConnObj = CreateObject(szADOConnObjID);

// Create the SQL string to complete the connection
szConnString = "driver={" + svDriver + "};";
szConnString = szConnString + "server=" + svServerName + ";";
szConnString = szConnString + "uid=" + svUserName + ";";
szConnString = szConnString + "pwd=" + svUserPassword + ";";
if(szDatabase !="") then
szConnString = szConnString + "database=" + szDatabase + ";";
endif;

// Open the ADO Connection
pADOConnObj.Open(szConnString);
pADOConnObj.Close();
bExists = TRUE;

/*// Create ADO Recordset object for the return
szADORecordSetObjID = "ADODB.Recordset";
set pADORecordSetObj = CreateObject(szADORecordSetObjID);

// Set some ADO Recordset properties
pADORecordSetObj.CursorType = 3;
pADORecordSetObj.ActiveConnection = pADOConnObj;

// Create the SQL string to retrieve the database if it exists
szSQL = "Select name from sysdatabases where name='" + "master" + "'";

// Use the recordset to see if the database exists
pADORecordSetObj.Open(szSQL);
if (pADORecordSetObj.RecordCount = 1) then
bExists = TRUE;
endif; */
catch
//nErr =Err.Number;
Sprintf(szError,"Error!Number:%d；",Err.Number);
szError = szError +"Desc:"+Err.Description;
bExists = FALSE;
//Clean up
set pADOConnObj = NOTHING;
endcatch;
set pADOConnObj = NOTHING;
return bExists;
end;

本文链接

InstallShield高级应用--测试ORACL是否可连接

2012-05-11T03:08:00Z

实现原理：Oracle数据库连接是使用Microsoft ODBC for Oracle实现的。

通过Oracle连接数据库字符串，使用“ADODB.Connection“对象，连接到Access数据库，通过是否可连接成功判断

注意：当前电脑必包含ADODB.Connection个对象。

源码：

EXPORT prototype BOOL DB_CheckOraclerCon(BYREF STRING,BYREF STRING,BYREF STRING,BYREF STRING);
//Driver={Microsoft ODBC for Oracle};Server=myServerAddress;Uid=myUsername;Pwd=myPassword;
//Driver={Microsoft ODBC Driver for Oracle};ConnectString=OracleServer.world;Uid=myUsername;Pwd=myPassword;
//============================================================//
//function : DB_CheckOraclerCon //
// //
//purpose: 测试ORACL是否可连接 //
// //
//Argment: svServerName-Oracle连接服务名称 //
// svUserName-登录帐号 //
// svUserPassword-登录密码 //
//return: TRUE -连接成功 FALSE - 连接失败 //
//Remark: 本验证使用 Microsoft ODBC for Oracle 验证 //
//============================================================//
function BOOL DB_CheckOraclerCon(svServerName,svUserName,svUserPassword,szError)
OBJECT pADOConnObj, pADORecordSetObj,pDBConObj;
STRING szADOConnObjID, szADORecordSetObjID, szConnString, szSQL,svDriver;
BOOL bExists;
begin
svDriver = "Microsoft ODBC for Oracle";
bExists = FALSE;
try
// Create ADO Connection Object to connect to the SQL server
szADOConnObjID = "ADODB.Connection";
set pADOConnObj = CreateObject(szADOConnObjID);

// Create the Oracle string to complete the connection
szConnString = "driver={" + svDriver + "};";
szConnString = szConnString + "server=" + svServerName + ";";
szConnString = szConnString + "uid=" + svUserName + ";";
szConnString = szConnString + "pwd=" + svUserPassword + ";";
//szConnString = szConnString + "database=master";

// Open the ADO Connection
pADOConnObj.Open(szConnString);
bExists = TRUE;
catch
Sprintf(szError,"Error:Number:%d；",Err.Number);
szError = szError +"Desc:"+Err.Description;
bExists = FALSE;
//Clean up
set pADOConnObj = NOTHING;
endcatch;
set pADOConnObj = NOTHING;
return bExists;
end;

本文链接

InstallShield高级应用--打开文件对话框

2012-05-11T03:07:00Z

打开文件对话框，若异常则打开文件夹对话框。

实现方法如下

export prototype number OpenFileDialog(byref string);

//Open File Dialog User Com object "UserAccounts.CommonDialog"
function OpenFileDialog(szFileFullPath)
OBJECT ObjDialog;
begin
try
set ObjDialog = CreateObject("UserAccounts.CommonDialog") ;
ObjDialog.Filter = "Access File(*.mdb)|*.mdb";//|All Files(*.*)|*.*" ;
//ObjDialog.FilterIndex = 1;
//ObjDialog.InitialDir = "c:\\";
//Open File Dialog
if ObjDialog.ShowOpen() then
szFileFullPath = ObjDialog.FileName;
endif;
catch
set ObjDialog = NOTHING;
return -1;
endcatch;

set ObjDialog = NOTHING;
return 0;
end;

本文链接

InstallShield高级应用--获取机机所有ORACLE服务列表

2012-05-11T03:06:00Z

//=====================================================================//
// //
// function GetOracleServerList //
// 获取机机所有ORACLE服务列表//
// purpose get the local oracle servers from the tnsnames.ora //
// from the path %oraclepath%\nerwork\admin //
// //
// argment //
// //
// return local oracle server list //
// //
// author chenhuicong 2010-12-18 //
// //
//=====================================================================//

EXPORT prototype LIST GetOracleServerList();

function LIST GetOracleServerList()
NUMBER nvHomeCount,nKeyType, nvSize,nFileHandle;
LIST listID;
STRING svOraclePath,svLine,svOraFileName,svOracleItem;
INT iVal, iLength,iItemLen;
begin
//ora filename
svOraFileName = "tnsnames.ora";
// defaut regedit root
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);

//oralce regedit path
if(RegDBGetKeyValueEx ("SOFTWARE\\ORACLE\\ALL_HOMES\\ID0", "PATH",nKeyType, svOraclePath, nvSize) = 0) then
//oracle path
svOraclePath= svOraclePath^"network\\admin\\";
// Create a list to store lines from the file.
listID = ListCreate (STRINGLIST);
// Set the file mode to normal.
OpenFileMode (FILE_MODE_NORMAL);
// Open the file for editing.
if(OpenFile (nFileHandle, svOraclePath, svOraFileName) = 0 ) then
try
// Get lines from the file into the list.
while (GetLine (nFileHandle, svLine) = 0)
if(svLine[0] != "#" && svLine[0] != " " && svLine[0] != "(") then
iVal = 0;
iLength = StrLength (svLine);
while (iVal <= iLength)
if(svLine[iVal] = "=" || svLine[iVal] = " ") then
svLine[iVal] = NOTHING;
endif;
iVal++;
endwhile;
if(iLength > 0 ) then
ListAddString (listID, svLine, AFTER);
endif;

endif;
endwhile;
// Close the file.
CloseFile (nFileHandle);
// Remove the list from memory.
//ListDestroy (listID);
catch
CloseFile (nFileHandle);
//ListDestroy (listID);
endcatch;
endif;
endif;

return listID;
end;

本文链接

InstallShield高级应用--获取本机所有的SQL服务

2012-05-11T03:04:00Z

//=====================================================================//
// //
// function GetSQLServers //
// //获取本机所有的SQL服务
// purpose get the local SQL servers //
// //
// argment //
// //
// return local SQL server list //
// //
// author chenhuicong 2010-12-24 //
// //
//=====================================================================//

EXPORT prototype LIST GetSQLServers();

function LIST GetSQLServers()
OBJECT objSqlServers,objItem,objAQLDMOApp;
string szSQLDMOSQLServer,szSQLDMOApp,szItem,szSQLServiceName1,szSQLServiceName;
LIST listID;
NUMBER nItemCnt,nStep,nType,nSize,nResult;
begin
/*nStep =0;
szSQLDMOApp ="SQLDMO.Application";
set objAQLDMOApp = CreateObject(szSQLDMOApp);
try
set objItem = objAQLDMOApp.ListAvailableSQLServers();
nItemCnt = objItem.Count;
nStep =1;
while(nStep < 5)
szItem = objItem.Item(nStep);
if(szItem[0] = "(" ) then
ListAddString (listID, szItem, AFTER);
endif;
nStep++;
endwhile;
catch
listID = NOTHING;
objItem = NOTHING;
endcatch;

if(szSQLServiceName1="") then
szSQLServiceName="MSSQL";
ListAddString (listID, szSQLServiceName, AFTER);
elseif(szSQLServiceName1!="MSSQLSERVER") then
szSQLServiceName="MSSQL$"+szSQLServiceName1;
ListAddString (listID, szSQLServiceName, AFTER);
else
szSQLServiceName=szSQLServiceName1;
ListAddString (listID, szSQLServiceName, AFTER);
endif;
*/

listID = ListCreate (STRINGLIST);
//获取服务器名称
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
nResult=RegDBGetKeyValueEx( "SOFTWARE\\Microsoft\\Microsoft SQL Server", "InstalledInstances", nType, szSQLServiceName1, nSize );
if(nResult < 0) then
szSQLServiceName="MSSQL" ;
else
ListAddString (listID, "(local)", AFTER);
endif;
nResult=RegDBGetKeyValueEx( "SOFTWARE\\Microsoft\\Microsoft SQL Server\\SQLEXPRESS\\Setup", "SQLPath", nType, szSQLServiceName1, nSize );
if(nResult < 0) then
szSQLServiceName="MSSQL" ;
else
ListAddString (listID, "(local)\\Express", AFTER);
endif;
return listID;
end;

本文链接