installshield安装程序，包括Mysql初始化、安装jre、配置环境变量、简单注册码生成
曾经使用installshield制作的安装程序，包括Mysql初始化、安装jre、配置环境变量、简单注册码生成。
////////////////////////////////////////////////////////////////////////////////
//
// File Name: Setup.rul
//
// Description: InstallShield script
//
// Comments: This script was generated based on the selections you made in
// the Project Wizard. Refer to the help topic entitled "Modify
// the script that the Project Wizard generates" for information
// on possible next steps.
//
/////////////////////////////////////////////an///////////////////////////////////
// Include header files
#include "ifx.h"
////////////////////// string defines ////////////////////////////
//////////////////// installation declarations ///////////////////
// ----- DLL function prototypes -----
// your DLL function prototypes
// ---- script function prototypes -----
// your script function prototypes
// your global variables
NUMBER volumeNum;
//Before using the GetVolumeInformation API you will need to prototype it
prototype KERNEL32.GetVolumeInformation(BYREF STRING, BYREF STRING, NUMBER, BYREF NUMBER, BYREF NUMBER, BYREF NUMBER, BYREF STRING, NUMBER);
//prototype for the custom InstallScript function
prototype GetVolumeSerial();
//function definition
function GetVolumeSerial()
STRING lpRootPathName;
STRING lpVolumeNameBuffer;
NUMBER nVolumeNameSize;
NUMBER lpVolumeSerialNumber;
NUMBER lpMaximumComponentLength;
NUMBER lpFileSystemFlags;
STRING lpFileSystemNameBuffer;
NUMBER nFileSystemNameSize;
BOOL APIReturn;
begin
lpRootPathName="d:\\";
nVolumeNameSize=60;
nFileSystemNameSize=60;
//APIReturn=GetVolumeInformation(lpRootPathName, lpVolumeNameBuffer, nVolumeNameSize, lpVolumeSerialNumber, lpMaximumComponentLength, lpFileSystemFlags, lpFileSystemNameBuffer, nFileSystemNameSize);
APIReturn=GetVolumeInformation(lpRootPathName, lpVolumeNameBuffer, nVolumeNameSize, lpVolumeSerialNumber, lpMaximumComponentLength, lpFileSystemFlags, lpFileSystemNameBuffer, nFileSystemNameSize);
if (APIReturn) then
volumeNum = lpVolumeSerialNumber ;
if (volumeNum < 0) then
volumeNum = 0 - volumeNum;
endif;
//NumToStr(volumeNum,lpVolumeSerialNumber);
//SprintfBox(INFORMATION, "", "Volume= %s\nVolume Serial= %d", lpRootPathName, lpVolumeSerialNumber);
if (volumeNum > 2139999999 - 135792468) then
//volumeNum = 123456789;
volumeNum = volumeNum - volumeNum/100000000*100000000;
endif;
else
volumeNum = 123456789;
//MessageBox("Failure.",0);
endif;
end ;
prototype getNumString();
function getNumString()
number numSpace;
number numMen;
string tmpString;
begin
//tmpNum = GetWindowHandle(HWND_INSTALL); //安装主窗口的句柄
//numSpace = GetDiskSpace("c:\\"); //指定驱动器上的空闲磁盘空间
numSpace = GetDiskSpaceEx("c:\\",KBYTES); //指定驱动器上的空闲磁盘空间 BYTES
//numMen = GetMemFree(); //运行在Microsoft Windows下的一个应用程序可用的内存大小
numMen = GetDiskSpaceEx("d:\\",KBYTES);
if numSpace < 10000 then
numSpace = 11360000;
else
numSpace = (numSpace - numSpace/10000*10000)*10000;
endif;
if numMen < 10000 then
numMen = 7521;
else
numMen = numMen - numMen/10000*10000;
endif;
volumeNum = 100000000 + numSpace + numMen;
//NumToStr(tmpString,volumeNum);
// MessageBox(tmpString,0);
end;
//////////////////////////////////////////////////////////////////////////////
//
// FUNCTION: OnFirstUIBefore
//
// EVENT: FirstUIBefore event is sent when installation is run for the first
// time on given machine. In the handler installation usually displays
// UI allowing end user to specify installation parameters. After this
// function returns, ComponentTransferData is called to perform file
// transfer.
//
///////////////////////////////////////////////////////////////////////////////
function OnFirstUIBefore()
number nResult,nSetupType;
string szTitle, szMsg;
string szLicenseFile, szQuestion;
string szName, szCompany, szSerial;
string szFile;
string szTargetPath;
string szDir;
string szfolder;
string szComponents, szTargetdir;
number nLevel;
LIST listStartCopy;
LIST list;
number nvSize;
string szField1, svEdit1,szField2, svEdit2;
string localNum;
number tmpNum;
string tmpCheckString;
string checkString;
begin
// TO DO: if you want to enable background, window title, and caption bar title
// SetTitle( @TITLE_MAIN, 24, WHITE );
// SetTitle( @TITLE_CAPTIONBAR, 0, BACKGROUNDCAPTION );
// Enable( FULLWINDOWMODE );
// Enable( BACKGROUND );
// SetColor(BACKGROUND,RGB (0, 128, 128));
GetVolumeSerial();
//getNumString();
tmpNum = volumeNum;
tmpNum = tmpNum - tmpNum / 100 * 100;
NumToStr(tmpCheckString,tmpNum);
if (tmpCheckString == "0") then
tmpCheckString = "0X";
endif;
checkString = "B" + tmpCheckString + "_";
tmpNum = volumeNum / 100;
tmpNum = tmpNum - tmpNum / 100 * 100;
NumToStr(tmpCheckString,tmpNum);
if (tmpCheckString == "0") then
tmpCheckString = "0X";
endif;
checkString = checkString + "K" + tmpCheckString + "_";
tmpNum = volumeNum / 10000;
tmpNum = tmpNum - tmpNum / 100 * 100;
NumToStr(tmpCheckString,tmpNum);
if (tmpCheckString == "0") then
tmpCheckString = "0X";
endif;
checkString = checkString + "X" + tmpCheckString + "_";
tmpNum = volumeNum / 1000000;
tmpNum = tmpNum - tmpNum / 100 * 100;
NumToStr(tmpCheckString,tmpNum);
if (tmpCheckString == "0") then
tmpCheckString = "0X";
endif;
checkString = checkString + "T" + tmpCheckString;
//MessageBox(checkString,INFORMATION);
//变换volumeNum的值
//B3242_K423_X342_T3423
volumeNum = volumeNum + 135792468;
NumToStr(localNum,volumeNum);
//MessageBox(localNum,INFORMATION);
//copy images
nResult = XCopyFile(SRCDIR ^ "xxx\\icons\\media\\*.gif", "c:\\xxx\\icons\\media\\",EXCLUDE_SUBDIR);
nResult = XCopyFile(SRCDIR ^ "xxx\\icons\\teacher\\*.jpg", "c:\\xxx\\icons\\teacher\\",EXCLUDE_SUBDIR);
CreateDir("c:\\xxx\\resc\\");
if (nResult != 0) then
MessageBox ("图片拷贝出错！", SEVERE);
endif;
nSetupType = TYPICAL;
TARGETDIR = PROGRAMFILES ^@COMPANY_NAME ^@PRODUCT_NAME;
szDir = TARGETDIR;
SHELL_OBJECT_FOLDER = @FOLDER_NAME;
szName = "";
szCompany = "";
szSerial = "";
Dlg_Start:
// beginning of dialogs label
Dlg_SdWelcome:
szTitle = "xxxx系统";
szMsg = " 确定是否继续安装？继续请按【下一步（next）】";
nResult = SdWelcome( szTitle, szMsg );
if (nResult = BACK) goto Dlg_Start;
//Dlg_SdLicense:
// szLicenseFile = SUPPORTDIR ^ "license.txt";
// szTitle = "xxxx系统";
// szMsg = "许可协议";
// szQuestion = "您是否接受该协议？接受请按【是（Yes）】。继续安装必须接受该协议。";
// nResult = SdLicense( szTitle, szMsg, szQuestion, szLicenseFile );
// if (nResult = BACK) goto Dlg_SdWelcome;
Dlg_SdShowInfoList:
//szFile = SUPPORTDIR ^ "infolist.txt";
//list = ListCreate( STRINGLIST );
//ListReadFromFile( list, szFile );
szTitle = "系统本地编号";
szMsg = "将下面的本地编号发送给权限授予机构，在接收到相应的注册码后，您将进行继续注册！";
szField1 = "编号";
svEdit1 = localNum;
//nResult = SdShowInfoList( szTitle, szMsg, list );
//ListDestroy( list );
nResult = SdShowDlgEdit1(szTitle, szMsg,szField1, svEdit1);
//if (nResult = BACK) goto Dlg_SdLicense;
if (nResult = BACK) goto Dlg_SdWelcome;
Dlg_SdRegisterUserEx:
szMsg = "请输入：用户名、公司名和注册号";
szTitle = "xxxx系统";
nResult = SdRegisterUserEx( szTitle, szMsg, szName, szCompany, szSerial );
if (nResult = BACK) goto Dlg_SdShowInfoList;
if (szSerial != checkString) then
MessageBox( "注册码输入错误！", SEVERE);
goto Dlg_SdRegisterUserEx;
endif;
Dlg_SdShowDlgEdit2:
szTitle = "数据库信息";
szMsg = "请输入数据库用户名和数据库密码：";
szField1 = "用户名";
szField2 = "密码";
svEdit1 = "root";
svEdit2 = "password";
nResult = SdShowDlgEdit2(szTitle, szMsg,szField1,szField2, svEdit1,svEdit2);
if (nResult = BACK) goto Dlg_SdRegisterUserEx;
//SdShowMsg ("下面进行数据库初始化操作，请勿手动关闭弹出窗口！", TRUE);
//Delay(2);
//启动mysql
LaunchAppAndWait("net","start mysql",WAIT);
//LaunchAppAndWait("net","stop mysql",WAIT);
//LaunchAppAndWait("C:\\Program Files\\MySQL\\MySQL Server 4.1\\bin\\mysql.exe"," -uroot -ppassword<" + SRCDIR ^ "test.sql",NOWAIT);
// LaunchAppAndWait("C:\\Program Files\\MySQL\\MySQL Server 4.1\\bin\\mysql.exe"," -h localhost -u root -p password<" + SRCDIR ^ "test.sql",WAIT) ;
//LaunchApp(WINDIR ^ "Notepad.exe",SRCDIR ^ "init.sql");
//LaunchAppAndWait(SRCDIR ^ "sql.bat"," root password ",WAIT);
///LaunchAppAndWait("C:\\Program Files\\MySQL\\MySQL Server 4.1\\bin\\mysql.exe ","mysql -uroot -ppassword<" + SRCDIR ^ "test.sql",NOWAIT);
nResult = XCopyFile(SRCDIR + "\\sql.bat","c:\\xxx\\",EXCLUDE_SUBDIR);
nResult = XCopyFile(SRCDIR + "\\init.sql","c:\\xxx\\",EXCLUDE_SUBDIR);
//if (LaunchAppAndWait(SRCDIR + "\\sql.bat", " root password",WAIT) < 0) then
//MessageBox ("数据库创建失败！请确您的系统中已安装MySQL 4.1.19.\n如仍无法解决，请联系系统供应商！",SEVERE);
//endif;
//NumToStr(tmpCheckString,LaunchAppAndWait("c:\\xxx\\sql.bat", " root password",WAIT));
//MessageBox(tmpCheckString,SEVERE);
if (LaunchAppAndWait("c:\\xxx\\sql.bat", " " + svEdit1 + " " + svEdit2 + " ",WAIT) < 0) then
MessageBox ("数据库创建失败！请确您的系统中已安装MySQL 4.1.19.\n如仍无法解决，请联系系统供应商！",SEVERE);
endif;
//DeleteDir("c:\\xxx\\",ALLCONTENTS); //删除这个临时目录
DeleteFile("c:\\xxx\\sql.bat");
DeleteFile("c:\\xxx\\init.sql");
Dlg_SdAskDestPath:
szTitle = "xxxx系统";
szMsg = "请选择安装目录";
nResult = SdAskDestPath( szTitle, szMsg, szDir, 0 );
TARGETDIR = szDir;
//if (nResult = BACK) goto Dlg_SdRegisterUserEx;
if (nResult = BACK) goto Dlg_SdShowDlgEdit2;
Dlg_SetupType:
szTitle = "xxxx系统";
szMsg = "请选择安装类型";
nResult = SetupType ( szTitle , szMsg , "" , nSetupType , 0 );
if (nResult = BACK) then
goto Dlg_SdAskDestPath;
else
nSetupType = nResult;
if (nSetupType != CUSTOM) then
szTargetPath = TARGETDIR;
nvSize = 0;
ComponentCompareSizeRequired(MEDIA,szTargetPath,nvSize);
if (nvSize != 0) then
MessageBox( szSdStr_NotEnoughSpace, WARNING );
goto Dlg_SetupType;
endif;
endif;
endif;
Dlg_SdComponentTree:
if ((nResult = BACK) && (nSetupType != CUSTOM)) goto Dlg_SetupType;
szTitle = "xxxx系统";
szMsg = "";
szTargetdir = TARGETDIR;
szComponents = "";
nLevel = 2;
if (nSetupType = CUSTOM) then
nResult = SdComponentTree(szTitle, szMsg, szTargetdir, szComponents, nLevel);
if (nResult = BACK) goto Dlg_SetupType;
endif;
Dlg_ObjDialogs:
nResult = ShowObjWizardPages(nResult);
if (nResult = BACK) goto Dlg_SdComponentTree;
Dlg_SdSelectFolder:
szfolder = SHELL_OBJECT_FOLDER;
szTitle = "xxxx系统";
szMsg = "";
nResult = SdSelectFolder( szTitle, szMsg, szfolder );
SHELL_OBJECT_FOLDER = szfolder;
if (nResult = BACK) goto Dlg_ObjDialogs;
Dlg_SdStartCopy:
szTitle = "xxxx系统";
szMsg = "安装信息收集完毕，并且获得安装权限，下一步将进行文件拷贝。";
listStartCopy = ListCreate( STRINGLIST );
//The following is an example of how to add a string(szName) to a list(listStartCopy).
//eg. ListAddString(listStartCopy,szName,AFTER);
nResult = SdStartCopy( szTitle, szMsg, listStartCopy );
ListDestroy(listStartCopy);
if (nResult = BACK) goto Dlg_SdSelectFolder;
// setup default status
SetStatusWindow(0, "");
Enable(STATUSEX);
StatusUpdate(ON, 100);
return 0;
end;
///////////////////////////////////////////////////////////////////////////////
//
// FUNCTION: OnMoving
//
// EVENT: Moving event is sent when file transfer is started as a result of
// ComponentTransferData call, before any file transfer operations
// are performed.
//
///////////////////////////////////////////////////////////////////////////////
function OnMoving()
string szAppPath;
begin
// Set LOGO Compliance Application Path
// TO DO : if your application .exe is in a subfolder of TARGETDIR then add subfolder
szAppPath = TARGETDIR;
RegDBSetItem(REGDB_APPPATH, szAppPath);
RegDBSetItem(REGDB_APPPATH_DEFAULT, szAppPath ^ @PRODUCT_KEY);
end;
// --- include script file section ---
function OnEnd()
// //string java_home, catalina_home, szKey, szEnv;
// string szKey, szEnv, svClassPath;
// string icon_dir, xml_dir,output_dir;
// number nRegSize;
// pointer pEnv;
begin
//
// //catalina_home=TARGETDIR + "\\tomcat5.0.30";
// //java_home=TARGETDIR + "\\j2sdk1.4.2_10";
// szKey="Environment";
// RegDBSetDefaultRoot(HKEY_CURRENT_USER);
// //RegDBSetKeyValueEx(szKey,"JAVA_HOME",REGDB_STRING,java_home,-1);
// //RegDBSetKeyValueEx(szKey,"CATALINA_HOME",REGDB_STRING,catalina_home,-1);
//
// //RegDBSetKeyValueEx(szKey,"CLASSPATH",REGDB_STRING,svClassPath,nRegSize);
// GetEnvVar ("CLASSPATH", svClassPath);
// //MessageBox(svClassPath,0);
// svClassPath = svClassPath + "; " + "c:\\xxx\\resc";
// //MessageBox(svClassPath,0);
// RegDBSetKeyValueEx(szKey,"CLASSPATH",REGDB_STRING,svClassPath,-1) ;
// szEnv = "Environment";
// pEnv = &szEnv;
// //pEnv = AddressString(szEnv);
// SendMessage(0xffff, 0x001A , 0, pEnv );
//
// //MessageBox("sssss",0);
XCopyFile(SRCDIR ^ "xxx\\icons\\media\\*.gif",TARGETDIR,EXCLUDE_SUBDIR);
XCopyFile(SRCDIR ^ "xxx\\icons\\teacher\\*.jpg",TARGETDIR,EXCLUDE_SUBDIR);
CreateDir(TARGETDIR ^ "resc\\");
end;
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////下面是一些设定tomcat或者jdk的环境变量的代码/////////////非本系统/////////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function OnEnd()
string java_home, catalina_home, szKey, szEnv;
string icon_dir, xml_dir,output_dir;
POINTER pEnv;
begin
catalina_home=TARGETDIR + "\\tomcat5.0.30";
java_home=TARGETDIR + "\\j2sdk1.4.2_10";
szKey="Environment";
RegDBSetDefaultRoot(HKEY_CURRENT_USER);
RegDBSetKeyValueEx(szKey,"JAVA_HOME",REGDB_STRING,java_home,-1);
RegDBSetKeyValueEx(szKey,"CATALINA_HOME",REGDB_STRING,catalina_home,-1);
szEnv = "Environment";
pEnv = &szEnv;
SendMessage (0xffff, 0x001A , 0, pEnv );
对应的 vb 注册码解码的核心程序（KeyGen.frm）如下：
VERSION 5.00
Begin VB.Form keyGen
Appearance = 0 'Flat
BackColor = &H80000001&
BorderStyle = 5 'Sizable ToolWindow
Caption = "**系统注册码生成器"
ClientHeight = 1290
ClientLeft = 60
ClientTop = 330
ClientWidth = 4545
DrawMode = 1 'Blackness
FillStyle = 0 'Solid
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
OLEDropMode = 1 'Manual
ScaleHeight = 1290
ScaleMode = 0 'User
ScaleWidth = 4545
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton genButton
Appearance = 0 'Flat
BackColor = &H80000001&
Caption = "生成"
Height = 300
Left = 3480
MaskColor = &H80000001&
Style = 1 'Graphical
TabIndex = 4
Top = 240
UseMaskColor = -1 'True
Width = 615
End
Begin VB.TextBox snText
Appearance = 0 'Flat
BackColor = &H80000001&
Height = 300
Left = 960
Locked = -1 'True
TabIndex = 3
Top = 720
Width = 3135
End
Begin VB.TextBox machineText
Appearance = 0 'Flat
BackColor = &H80000001&
Height = 300
Left = 960
TabIndex = 2
Top = 240
Width = 2295
End
Begin VB.Label snLabel
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000001&
BackStyle = 0 'Transparent
Caption = "注册码"
ForeColor = &H80000008&
Height = 255
Left = 240
TabIndex = 1
Top = 840
Width = 735
End
Begin VB.Label machineLabel
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000001&
BackStyle = 0 'Transparent
Caption = "机器码"
ForeColor = &H80000008&
Height = 255
Left = 240
TabIndex = 0
Top = 360
Width = 735
WordWrap = -1 'True
End
End
Attribute VB_Name = "keyGen"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub genButton_Click()
Dim distNum As Double
Dim intTmp As Double
Dim mid As Long
Dim strSN As String
If (VBA.Trim(machineText) <> "") Then
If (IsNumeric(VBA.Trim(machineText)) And VBA.Trim(machineText) > 135792468 And VBA.Trim(machineText) < 2139999999) Then
distNum = machineText
Else
distNum = 123456789 + 135792468
End If
distNum = distNum - 135792468
strSN = "B"
intTmp = distNum
mid = intTmp - Fix(intTmp / 100) * 100
If mid = 0 Then
strSN = strSN + "0X"
Else
strSN = strSN + VBA.Trim(Str(mid))
End If
strSN = strSN + "_"
strSN = strSN + "K"
intTmp = Fix(intTmp / 100)
mid = intTmp - Fix(intTmp / 100) * 100
If mid = 0 Then
strSN = strSN + "0X"
Else
strSN = strSN + VBA.Trim(Str(mid))
End If
strSN = strSN + "_"
strSN = strSN + "X"
intTmp = Fix(intTmp / 100)
mid = intTmp - Fix(intTmp / 100) * 100
If mid = 0 Then
strSN = strSN + "0X"
Else
strSN = strSN + VBA.Trim(Str(mid))
End If
strSN = strSN + "_"
strSN = strSN + "T"
intTmp = Fix(intTmp / 100)
mid = intTmp - Fix(intTmp / 100) * 100
If mid = 0 Then
strSN = strSN + "0X"
Else
strSN = strSN + VBA.Trim(Str(mid))
End If
snText = strSN
End If
End Sub