在安装程序中整合加密狗驱动

请大家选用InstallShield 或者与之兼容的安装程序制作工具。

// ----------------------------------------------------------------------

// 例程: 使用Installshield 调用GeniusDogSetup.dll 安装加密狗驱动程序// ----------------------------------------------------------------------

#include "ifx.h"

NUMBER Parameter1;

NUMBER status;

NUMBER DriverInfo;

// Dll 申明

prototype NUMBER GeniusDogSetup.InstDriver(NUMBER);

prototype NUMBER GeniusDogSetup.UninstallDriver(NUMBER); prototype NUMBER GeniusDogSetup.GetDogDriverInfo();

prototype GeniusDogSetup.DriverDialog();

program

status=UseDLL("GeniusDogSetUp.DLL");

if(status!=0) then

UnUseDLL("GeniusDogSetUp.DLL");

abort;

else

DriverInfo = GetDogDriverInfo();

//可以使用DriverInfo 获取加密狗驱动的版本

//DriverInfo = 0 未找到加密狗驱动

//DriverInfo = 1 找到相同版本的USB 及并口驱动

//DriverInfo = 2 找到相同版本的USB 口驱动

//DriverInfo = 3 找到相同版本的并口驱动

//DriverInfo = 4 找到低版本的USB 及并口驱动

//DriverInfo = 5 找到低版本的USB 驱动

//DriverInfo = 6 找到低版本的并口驱动

//DriverInfo = 7 找到高版本的USB 及并口驱动

//DriverInfo = 8 找到高版本的USB 驱动

//DriverInfo = 9 找到高版本的并口驱动

//DriverInfo =3008 当前用户不是administrator

//Parameter1:

//1 - 删除USB 口驱动; 2 - 删除并口驱动; 3 - 删除USB 及并口驱动Parameter1=3;

status=UninstallDriver(Parameter1);

//if (status != 0) 表示删除驱动失败

//显示加密狗安装界面

DriverDialog();

//不显示加密狗安装界面

//Parameter1:

//1 - 安装USB 口驱动; 2 - 安装并口驱动; 3 - 安装USB 及并口驱动

Parameter1=3;

status=InstDriver(Parameter1);

//if (status != 0) 表示安装驱动失败

UnUseDLL("GeniusDogSetUp.DLL");

endif;

endprogram

我们先新建一个安装程序项目。InstallScript 的代码如下：

//============================================================ ===============

//

// File Name: Setup.rul

//

// Description: Blank setup main script file

//

// Comments: Blank setup is an empty setup project. If you want to

// create a new project via. step-by step instructions use the

// Project Assistant.

//

//============================================================== =============

// Included header files ----------------------------------------------------

#include "ifx.h"

//---------------------------------------------------------------------------

// OnFirstUIBefore

//

// First Install UI Sequence - Before Move Data

//

// The OnFirstUIBefore event is called by OnShowUI when the setup is

// running in first install mode. By default this event displays UI allowing

// the end user to specify installation parameters.

//

// Note: This event will not be called automatically in a

// program...endprogram style setup.

//---------------------------------------------------------------------------

function OnFirstUIBefore()

number nResult, nLevel, nSize, nSetupType;

string szTitle, szMsg, szOpt1, szOpt2, szLicenseFile;

string szName, szCompany, szTargetPath, szDir, szFeatures, szTargetdir;

BOOL bLicenseAccepted;

begin

nSetupType = COMPLETE;

szDir = TARGETDIR;

szName = "";

szCompany = "";

bLicenseAccepted = FALSE;

// Beginning of UI Sequence

Dlg_Start:

nResult = 0;

Dlg_SdWelcome:

szTitle = "";

szMsg = "";

//{{IS_SCRIPT_TAG(Dlg_SdWelcome)

nResult = SdWelcome( szTitle, szMsg );

//}}IS_SCRIPT_TAG(Dlg_SdWelcome)

if (nResult = BACK) goto Dlg_Start;

Dlg_SdLicense2:

szTitle = "";

szOpt1 = "";

szOpt2 = "";

//{{IS_SCRIPT_TAG(License_File_Path)

szLicenseFile = SUPPORTDIR ^ "License.rtf";

//}}IS_SCRIPT_TAG(License_File_Path)

//{{IS_SCRIPT_TAG(Dlg_SdLicense2)

// nResult = SdLicense2Rtf( szTitle, szOpt1, szOpt2, szLicenseFile, bLicenseAccepted ); //}}IS_SCRIPT_TAG(Dlg_SdLicense2)

if (nResult = BACK) then

goto Dlg_SdWelcome;

else

bLicenseAccepted = TRUE;

endif;

Dlg_SdRegisterUser:

szMsg = "";

szTitle = "";

//{{IS_SCRIPT_TAG(Dlg_SdRegisterUser)

// nResult = SdRegisterUser( szTitle, szMsg, szName, szCompany );

//}}IS_SCRIPT_TAG(Dlg_SdRegisterUser)

if (nResult = BACK) goto Dlg_SdLicense2;

Dlg_SetupType2:

szTitle = "";

szMsg = "";

//{{IS_SCRIPT_TAG(Dlg_SetupType2)

// nResult = SetupType2( szTitle, szMsg, "", nSetupType, 0 );

//}}IS_SCRIPT_TAG(Dlg_SetupType2)

if (nResult = BACK) then

goto Dlg_SdRegisterUser;

else

nSetupType = nResult;

if (nSetupType != CUSTOM) then

szTargetPath = TARGETDIR;

nSize = 0;

FeatureCompareSizeRequired( MEDIA, szTargetPath, nSize );

if (nSize != 0) then

MessageBox( szSdStr_NotEnoughSpace, WARNING );

goto Dlg_SetupType2;

endif;

endif;

endif;

Dlg_SdAskDestPath2:

if ((nResult = BACK) && (nSetupType != CUSTOM)) goto Dlg_SetupType2;

szTitle = "";

szMsg = "";

if (nSetupType = CUSTOM) then

//{{IS_SCRIPT_TAG(Dlg_SdAskDestPath2)

// nResult = SdAskDestPath2( szTitle, szMsg, szDir );

//}}IS_SCRIPT_TAG(Dlg_SdAskDestPath2)

TARGETDIR = szDir;

endif;

if (nResult = BACK) goto Dlg_SetupType2;

Dlg_SdFeatureTree:

if ((nResult = BACK) && (nSetupType != CUSTOM)) goto Dlg_SdAskDestPath2;

szTitle = "";

szMsg = "";

为了便于重复使用，我们先尝试把加密狗安装做成一个子程序，以便于以后直接复制到InstallScript 代码中使用。

此主题相关图片如下：

此主题相关图片如下：

// 在程序最前面写上如下代码用来定义dll 函数及自定义函数。函数返回0 则表示驱动程序安装成功

// Dll 申明

prototype NUMBER GeniusDogSetup.InstDriver(NUMBER);

// prototype NUMBER GeniusDogSetup.UninstallDriver(NUMBER);

// prototype NUMBER GeniusDogSetup.GetDogDriverInfo();

// prototype GeniusDogSetup.DriverDialog();

// 自定义函数- 安装加密狗驱动程序

prototype NUMBER InstallKeypro();

function InstallKeypro()

NUMBER intResult; // 函数返回值

NUMBER intDll; // 加载DLL 是否成功

NUMBER intFlag; // DLL 调用参数

begin

intDll = UseDLL("GeniusDogSetUp.DLL");

intResult = 1; // 未知错误。

if(intDll != 0) then

UnUseDLL("GeniusDogSetUp.DLL");

intResult = 2; // 安装失败, 未找到Dll 文件

// abort;

else

// DriverInfo = GetDogDriverInfo();

// 可以使用DriverInfo 获取加密狗驱动的版本

// DriverInfo = 0 未找到加密狗驱动

// DriverInfo = 1 找到相同版本的USB 及并口驱动

// DriverInfo = 2 找到相同版本的USB 口驱动

// DriverInfo = 3 找到相同版本的并口驱动

// DriverInfo = 4 找到低版本的USB 及并口驱动

// DriverInfo = 5 找到低版本的USB 驱动

// DriverInfo = 6 找到低版本的并口驱动

// DriverInfo = 7 找到高版本的USB 及并口驱动

// DriverInfo = 8 找到高版本的USB 驱动

// DriverInfo = 9 找到高版本的并口驱动

// DriverInfo =3008 当前用户不是administrator

// Parameter1:

// 1 - 删除USB 口驱动; 2 - 删除并口驱动; 3 - 删除USB 及并口驱动// Parameter1=3;

// status=UninstallDriver(Parameter1);

// if (status != 0) 表示删除驱动失败

// 显示加密狗安装界面

// DriverDialog();

// 不显示加密狗安装界面

// Parameter1:

// 1 - 安装USB 口驱动; 2 - 安装并口驱动; 3 - 安装USB 及并口驱动intFlag = 3;

intResult = InstDriver(intFlag);

// if (status != 0) 表示安装驱动失败

UnUseDLL("GeniusDogSetUp.DLL");

endif;

return intResult;

end;

// 我是在许多协议那一步安装加密狗驱动的。

// 开始- 安装加密狗

MessageBox("安装程序将首先安装加密狗驱动，请等待几秒钟！", INFORMATION);

intKeypro = InstallKeypro();

if (intKeypro = 0) then

MessageBox("加密狗驱动程序已经安装成功，请继续安装！", INFORMATION);

else

MessageBox("加密狗驱动程序未安装成功，请在安装程序结束后重新安装加密狗驱动！", WARNING); endif;

// 结束- 安装加密狗