InstallShield脚本语言的编写
蒋燚
InstallShield脚 本 语 言 是 类 似 C语 言 ， 利 用 InstallShield的 向 导 或 模 板 都 可 以 生 成 基 本 的 脚 本 程 序 框 架 ， 可 以 在 此 基 础 上 按 自 己 的 意 愿 进 行 修 改 和 添 加 。
一 .基 本 语 法 规 则
1.变 量
BOOL 布 尔 型 值 为 TRUE(1)或 FALSE(0)
CHAR 字 符 型 一 字 节 长 的 (8bit)的 字 符
HWND 窗 口 句 柄 用 来 存 放 窗 口 句 柄
INT 整 型 两 字 节 长 的 整 数
LIST 列 表 型 指 向 InstallShield列 表 ， 用 ListCreate和 ListDestroy
LONG 扩 展 数 值 型
LPSTR 扩 展 指 针
NUMBER 数 值 型 存 放 四 字 节 长 的 数 值 ， 范 围 从 -2147483648到 +2147483647
POINTER 指 针 型
SHORT 短 数 值 型
STRING 字 符 串 型 十 分 类 似 VC中 的 LPCTSTR
变 量 如 同 标 准 的 C语 言 ， 在 使 用 前 需 要 事 先 声 名 。 变 量 通 常 在 两 个 位 置 进 行 声 名 ， 一 是 主 程 序 外 部 ， 这 样 的 变 量 为 全 局 变 量 ， 二 是 各 函 数 的 变 量 声 名 区 ， 这 样 的 变 量 是 局 部 变 量 。
2.操 作 符
一 般 的 与 C语 言 相 同 操 作 符 ， 在 这 里 不 做 详 解 ， 以 下 主 要 介 绍 比 较 特 殊 的 操 作 符 ，
(1) + , - , * , /
以 上 四 个 操 作 符 与 C语 言 中 意 义 和 用 法 都 相 同 。
(2) &&
与 操 作 ， 与 C语 言 中 用 法 相 同 ， 例 ： x1 && x2
(3) ||
或 操 作 ， 与 C语 言 中 用 法 相 同 ， 例 ： x1 || x2
(4) !
非 操 作 ， 与 C语 言 中 用 法 相 同 ， 例 ： !x1
(5) *
指 针 操 作 ， 类 似 C语 言 中 的 *
(6) & , | , ^ , ~ , << , >>
分 别 为 位 与 ， 位 或 ， 按 位 异 或 ， 按 位 取 反 ， 左 移 和 右 移 ， 其 意 义 和 用 法 都 与 C语 言 中 基 本 相 同 。
(7) .
该 操 作 符 用 于 结 构 ， 用 来 得 到 结 构 的 子 项 ， 与 Delphi的 . 用 法 类 似 ， 例 如 ：
typedef SETTINGSREC
begin
BOOL bSwitchOn;
STRING szMssg[255];
INT nVal;
end;
SETTINGSREC settings;
program
settings.bSwitchOn = FALSE;
settings.szMssg = "Off";
settings.nVal = 0;
(8) =
既 可 作 为 赋 值 号 ， 同 时 也 做 等 于 符 ， 例 如 ：
str1 = "String";
if str1="String" then
endif;
(9) &
取 地 址 符 ， 与 C语 言 用 法 类 似 。
(10) < , > , = , <= , >= , !=
分 别 表 示 小 于 ， 大 于 ， 等 于 ， 小 于 等 于 ， 大 于 等 于 ， 不 等 于
(11) + , ^ , %
用 于 字 符 串 的 操 作 。
(12) ->
结 构 指 针 ， 与 C语 言 中 用 法 类 似 。
(13) @
用 于 得 到 Resource窗 口 中 定 义 的 字 符 串 ， 例 ：
szReferenceFile = svDir ^ @PRODUCT_KEY;
3.函 数
InstallShield的 函 数 使 用 前 同 样 需 要 声 名 ， 函 数 的 参 数 传 递 方 式 十 分 类 似 C语 言 ， 例 如 下 面 的 函 数 声 名 ：
prototype HandleMoveDataError( NUMBER );
该 声 名 中 函 数 名 为 HandleMoveDataError， 传 递 一 个 NUMBER类 型 的 参 数 。 调 用 该 函 数 时 也 基 本 与 C语 言 中 相 同 。
函 数 体 的 标 准 格 式 为 ：
function functionname(nResult)
// 函 数 变 量 声 名 区
begin
// 程 序 区
end;
通 常 的 函 数 返 回 一 个 NUMBER型 的 数 。
4.主 程 序 结 构
主 程 序 以 program开 始 ， 以 endprogram结 尾 ，
二 .框 架 程 序 的 基 本 结 构
程 序 开 始 为 函 数 与 变 量 的 声 明 区
通 过 向 导 建 立 的 框 架 程 序 包 含 以 下 一 些 主 函 数 ：
prototype ShowDialogs();
// 显 示 安 装 向 导 对 话 框
prototype MoveFileData();
// 移 动 文 件 数 据
prototype HandleMoveDataError( NUMBER );
// 移 动 数 据 出 错 处 理
prototype ProcessBeforeDataMove();
// 移 动 文 件 数 据 前 的 处 理
prototype ProcessAfterDataMove();
// 移 动 文 件 数 据 后 的 处 理
prototype SetupRegistry();
// 安 装 注 册 ， 用 户 可 在 此 加 入 一 些 代 码 ， 通 常 用 于 对 注 册 表 的 操 作
prototype SetupFolders();
// 安 装 生 成 快 捷 方 式 ， 通 常 用 户 可 在 此 加 入 生 成 快 捷 方 式 的 代 码
prototype CleanUpInstall();
// 安 装 完 成 后 清 除 临 时 文 件
prototype SetupInstall();
// 安 装 的 实 际 过 程
prototype SetupScreen();
// 设 置 安 装 过 程 的 屏 幕 显 示 （ 包 括 背 景 颜 色 ， 字 体 等 ）
prototype CheckRequirements();
// 检 查 安 装 需 求 （ 包 括 硬 盘 空 间 ， 操 作 系 统 平 台 等 ）
prototype DialogShowSdWelcome();
// 显 示 “ 欢 迎 ” 对 话 框 窗 口
prototype DialogShowSdLicense();
// 显 示 许 可 信 息 的 对 话 框
prototype DialogShowSdRegisterUserEx();
// 显 示 用 户 安 装 注 册 的 对 话 框
prototype DialogShowSdAskDestPath();
// 显 示 “ 安 装 路 径 选 择 ” 对 话 框
prototype DialogShowSdSetupType();
// 显 示 “ 安 装 类 型 选 择 ” 对 话 框
prototype DialogShowSdComponentDialog2();
// 当 用 户 选 择 “ 定 制 ” 安 装 时 ， 用 于 显 示 供 用 户 选 择 的 组 件 的 对 话 框
prototype DialogShowSdSelectFolder();
// 显 示 快 捷 方 式 文 件 夹 选 择 的 对 话 框
prototype DialogShowSdFinishReboot();
// 显 示 “ 安 装 完 成 重 启 动 ” 对 话 框
编 程 实 例 ：
1.怎 样 在 进 度 条 左 上 角 显 示 当 前 安 装 的 文 件
在 function SetupScreen()中 加 入 以 下 语 句
Enable( INDVFILESTATUS );
2.怎 样 改 变 窗 口 背 景 色
SetColor( BACKGROUND, **** )函 数 可 以 改 变 窗 口 背 景 色 ， 在 适 当 的 位 置 加 上 它 即 可 ， 其 中 第 二 个 变 量 可 以 为 以 下 值 ：
BK_BLUE BK_MAGENTA BK_PINK BK_YELLOW
BK_GREEN BK_ORANGE BK_RED
以 上 几 种 为 渐 变 色
BK_SOLIDBLACK BK_SOLIDMAGENTA BK_SOLIDRED
BK_SOLIDBLUE BK_SOLIDORANGE BK_SOLIDWHITE
BK_SOLIDGREEN BK_SOLIDPINK BK_SOLIDYELLOW
同 时 第 二 个 参 数 也 可 以 用 RGB来 描 述 ， 如 SetColor( BACKGROUND, RGB(0,0,255) )
3.怎 样 在 InstallShield5.0以 下 版 本 建 立 快 捷 方 式
在 InstallShield5.1以 上 版 本 可 以 可 以 在 Resource窗 口 中 建 立 ， 而 在 以 前 的 版 本 必 须 用 程 序 解 决 该 问 题 ， 如 果 现 在 有 一 文 件 RegPad.exe（ 安 装 路 径 为 用 户 选 定 的 ） ， 给 该 程 序 在 “ 开 始 ” ->“ 程 序 ” 中 加 一 个 快 捷 方 式 ， 具 体 实 现 程 序 如 下 ：
function SetupFolders()
NUMBER nResult;
STRING svResult,szCommand;
STRING szName;
begin
szName = "RegPad.exe";
szCommand = TARGETDIR ^ szName ;
LongPathToQuote ( szCommand , TRUE );
AddFolderIcon ( FOLDER_PROGRAMS ^"RegPad1.0Beta","RegPad" ,
szCommand , TARGETDIR , "" , 0 , "" , REPLACE );
4.怎 样 控 制 用 户 序 列 号
在 向 导 生 成 的 框 架 程 序 中 ， 定 义 了 一 个 STRING型 的 全 局 变 量 svSerial， 在 SdRegisterUserEx()结 束 时 将 给 该 值 赋 上 用 户 输 入 的 序 列 号 ， 你 对 该 变 量 进 行 判 断 即 可 。
5.怎 样 控 制 重 新 启 动 计 算 机
只 需 加 入 以 下 语 句
System ( SYS_BOOTWIN );
6.怎 样 给 Autoexec.bat或 Config.sys加 入 语 句
以 下 程 序 给 Autoexec.bat加 入 一 行 语 句
OpenFileMode ( FILE_MODE_APPEND );
OpenFile (nvFileHandle, "C:\\", "Autoexec.bat");
WriteLine ( nvFileHandle , "SET PATH=%PATH%;C:\\ORAWIN95\\BIN" );
7.怎 样 在 安 装 结 束 时 允 许 用 户 选 择 是 否 打 开 Readme文 件
假 定 Readme.txt文 件 已 经 复 制 到 目 标 路 径 ， 以 下 程 序 将 显 示 一 个 复 选 框 ， 如 果 用 户 选 择 了 ， 则 用 记 事 本 打 开 Readme.txt。
function DialogShowSdFinishReboot()
NUMBER nResult, nDefOptions;
STRING szTitle, szMsg1, szMsg2, szOption1, szOption2,szPathls;
NUMBER bOpt1, bOpt2;
begin
if (!BATCH_INSTALL) then
bOpt1 = TRUE;
bOpt2 = FALSE;
szMsg1 = "";
szMsg2 = "";
szOption1 = "阅 读 Readme文 件 ";
szOption2 = "";
nResult = SdFinish( szTitle, szMsg1, szMsg2, szOption1, szOption2, bOpt1, bOpt2 );
if bOpt1 = TRUE then
CopyFile ( "Readme.txt" , "Readme.txt" );
LaunchApp ( WINDIR^"Notepad.exe" , TARGETDIR^"Readme.txt" );
endif;
return 0;
endif;
..........
8.如 何 指 定 默 认 路 径
在 function SetupInstall()中 修 改 以 下 代 码 ， 如 默 认 目 录 改 为 C:\JttMis， 见 以 下 修 改 的 代 码
if (bIs32BitSetup) then
svDir = WINDISK ^ "Jttmis";
else
svDir = WINDISK ^ "Jttmis"; // use short names
endif;
TARGETDIR = svDir;
蒋燚
InstallShield脚 本 语 言 是 类 似 C语 言 ， 利 用 InstallShield的 向 导 或 模 板 都 可 以 生 成 基 本 的 脚 本 程 序 框 架 ， 可 以 在 此 基 础 上 按 自 己 的 意 愿 进 行 修 改 和 添 加 。
一 .基 本 语 法 规 则
1.变 量
BOOL 布 尔 型 值 为 TRUE(1)或 FALSE(0)
CHAR 字 符 型 一 字 节 长 的 (8bit)的 字 符
HWND 窗 口 句 柄 用 来 存 放 窗 口 句 柄
INT 整 型 两 字 节 长 的 整 数
LIST 列 表 型 指 向 InstallShield列 表 ， 用 ListCreate和 ListDestroy
LONG 扩 展 数 值 型
LPSTR 扩 展 指 针
NUMBER 数 值 型 存 放 四 字 节 长 的 数 值 ， 范 围 从 -2147483648到 +2147483647
POINTER 指 针 型
SHORT 短 数 值 型
STRING 字 符 串 型 十 分 类 似 VC中 的 LPCTSTR
变 量 如 同 标 准 的 C语 言 ， 在 使 用 前 需 要 事 先 声 名 。 变 量 通 常 在 两 个 位 置 进 行 声 名 ， 一 是 主 程 序 外 部 ， 这 样 的 变 量 为 全 局 变 量 ， 二 是 各 函 数 的 变 量 声 名 区 ， 这 样 的 变 量 是 局 部 变 量 。
2.操 作 符
一 般 的 与 C语 言 相 同 操 作 符 ， 在 这 里 不 做 详 解 ， 以 下 主 要 介 绍 比 较 特 殊 的 操 作 符 ，
(1) + , - , * , /
以 上 四 个 操 作 符 与 C语 言 中 意 义 和 用 法 都 相 同 。
(2) &&
与 操 作 ， 与 C语 言 中 用 法 相 同 ， 例 ： x1 && x2
(3) ||
或 操 作 ， 与 C语 言 中 用 法 相 同 ， 例 ： x1 || x2
(4) !
非 操 作 ， 与 C语 言 中 用 法 相 同 ， 例 ： !x1
(5) *
指 针 操 作 ， 类 似 C语 言 中 的 *
(6) & , | , ^ , ~ , << , >>
分 别 为 位 与 ， 位 或 ， 按 位 异 或 ， 按 位 取 反 ， 左 移 和 右 移 ， 其 意 义 和 用 法 都 与 C语 言 中 基 本 相 同 。
(7) .
该 操 作 符 用 于 结 构 ， 用 来 得 到 结 构 的 子 项 ， 与 Delphi的 . 用 法 类 似 ， 例 如 ：
typedef SETTINGSREC
begin
BOOL bSwitchOn;
STRING szMssg[255];
INT nVal;
end;
SETTINGSREC settings;
program
settings.bSwitchOn = FALSE;
settings.szMssg = "Off";
settings.nVal = 0;
(8) =
既 可 作 为 赋 值 号 ， 同 时 也 做 等 于 符 ， 例 如 ：
str1 = "String";
if str1="String" then
endif;
(9) &
取 地 址 符 ， 与 C语 言 用 法 类 似 。
(10) < , > , = , <= , >= , !=
分 别 表 示 小 于 ， 大 于 ， 等 于 ， 小 于 等 于 ， 大 于 等 于 ， 不 等 于
(11) + , ^ , %
用 于 字 符 串 的 操 作 。
(12) ->
结 构 指 针 ， 与 C语 言 中 用 法 类 似 。
(13) @
用 于 得 到 Resource窗 口 中 定 义 的 字 符 串 ， 例 ：
szReferenceFile = svDir ^ @PRODUCT_KEY;
3.函 数
InstallShield的 函 数 使 用 前 同 样 需 要 声 名 ， 函 数 的 参 数 传 递 方 式 十 分 类 似 C语 言 ， 例 如 下 面 的 函 数 声 名 ：
prototype HandleMoveDataError( NUMBER );
该 声 名 中 函 数 名 为 HandleMoveDataError， 传 递 一 个 NUMBER类 型 的 参 数 。 调 用 该 函 数 时 也 基 本 与 C语 言 中 相 同 。
函 数 体 的 标 准 格 式 为 ：
function functionname(nResult)
// 函 数 变 量 声 名 区
begin
// 程 序 区
end;
通 常 的 函 数 返 回 一 个 NUMBER型 的 数 。
4.主 程 序 结 构
主 程 序 以 program开 始 ， 以 endprogram结 尾 ，
二 .框 架 程 序 的 基 本 结 构
程 序 开 始 为 函 数 与 变 量 的 声 明 区
通 过 向 导 建 立 的 框 架 程 序 包 含 以 下 一 些 主 函 数 ：
prototype ShowDialogs();
// 显 示 安 装 向 导 对 话 框
prototype MoveFileData();
// 移 动 文 件 数 据
prototype HandleMoveDataError( NUMBER );
// 移 动 数 据 出 错 处 理
prototype ProcessBeforeDataMove();
// 移 动 文 件 数 据 前 的 处 理
prototype ProcessAfterDataMove();
// 移 动 文 件 数 据 后 的 处 理
prototype SetupRegistry();
// 安 装 注 册 ， 用 户 可 在 此 加 入 一 些 代 码 ， 通 常 用 于 对 注 册 表 的 操 作
prototype SetupFolders();
// 安 装 生 成 快 捷 方 式 ， 通 常 用 户 可 在 此 加 入 生 成 快 捷 方 式 的 代 码
prototype CleanUpInstall();
// 安 装 完 成 后 清 除 临 时 文 件
prototype SetupInstall();
// 安 装 的 实 际 过 程
prototype SetupScreen();
// 设 置 安 装 过 程 的 屏 幕 显 示 （ 包 括 背 景 颜 色 ， 字 体 等 ）
prototype CheckRequirements();
// 检 查 安 装 需 求 （ 包 括 硬 盘 空 间 ， 操 作 系 统 平 台 等 ）
prototype DialogShowSdWelcome();
// 显 示 “ 欢 迎 ” 对 话 框 窗 口
prototype DialogShowSdLicense();
// 显 示 许 可 信 息 的 对 话 框
prototype DialogShowSdRegisterUserEx();
// 显 示 用 户 安 装 注 册 的 对 话 框
prototype DialogShowSdAskDestPath();
// 显 示 “ 安 装 路 径 选 择 ” 对 话 框
prototype DialogShowSdSetupType();
// 显 示 “ 安 装 类 型 选 择 ” 对 话 框
prototype DialogShowSdComponentDialog2();
// 当 用 户 选 择 “ 定 制 ” 安 装 时 ， 用 于 显 示 供 用 户 选 择 的 组 件 的 对 话 框
prototype DialogShowSdSelectFolder();
// 显 示 快 捷 方 式 文 件 夹 选 择 的 对 话 框
prototype DialogShowSdFinishReboot();
// 显 示 “ 安 装 完 成 重 启 动 ” 对 话 框
编 程 实 例 ：
1.怎 样 在 进 度 条 左 上 角 显 示 当 前 安 装 的 文 件
在 function SetupScreen()中 加 入 以 下 语 句
Enable( INDVFILESTATUS );
2.怎 样 改 变 窗 口 背 景 色
SetColor( BACKGROUND, **** )函 数 可 以 改 变 窗 口 背 景 色 ， 在 适 当 的 位 置 加 上 它 即 可 ， 其 中 第 二 个 变 量 可 以 为 以 下 值 ：
BK_BLUE BK_MAGENTA BK_PINK BK_YELLOW
BK_GREEN BK_ORANGE BK_RED
以 上 几 种 为 渐 变 色
BK_SOLIDBLACK BK_SOLIDMAGENTA BK_SOLIDRED
BK_SOLIDBLUE BK_SOLIDORANGE BK_SOLIDWHITE
BK_SOLIDGREEN BK_SOLIDPINK BK_SOLIDYELLOW
同 时 第 二 个 参 数 也 可 以 用 RGB来 描 述 ， 如 SetColor( BACKGROUND, RGB(0,0,255) )
3.怎 样 在 InstallShield5.0以 下 版 本 建 立 快 捷 方 式
在 InstallShield5.1以 上 版 本 可 以 可 以 在 Resource窗 口 中 建 立 ， 而 在 以 前 的 版 本 必 须 用 程 序 解 决 该 问 题 ， 如 果 现 在 有 一 文 件 RegPad.exe（ 安 装 路 径 为 用 户 选 定 的 ） ， 给 该 程 序 在 “ 开 始 ” ->“ 程 序 ” 中 加 一 个 快 捷 方 式 ， 具 体 实 现 程 序 如 下 ：
function SetupFolders()
NUMBER nResult;
STRING svResult,szCommand;
STRING szName;
begin
szName = "RegPad.exe";
szCommand = TARGETDIR ^ szName ;
LongPathToQuote ( szCommand , TRUE );
AddFolderIcon ( FOLDER_PROGRAMS ^"RegPad1.0Beta","RegPad" ,
szCommand , TARGETDIR , "" , 0 , "" , REPLACE );
4.怎 样 控 制 用 户 序 列 号
在 向 导 生 成 的 框 架 程 序 中 ， 定 义 了 一 个 STRING型 的 全 局 变 量 svSerial， 在 SdRegisterUserEx()结 束 时 将 给 该 值 赋 上 用 户 输 入 的 序 列 号 ， 你 对 该 变 量 进 行 判 断 即 可 。
5.怎 样 控 制 重 新 启 动 计 算 机
只 需 加 入 以 下 语 句
System ( SYS_BOOTWIN );
6.怎 样 给 Autoexec.bat或 Config.sys加 入 语 句
以 下 程 序 给 Autoexec.bat加 入 一 行 语 句
OpenFileMode ( FILE_MODE_APPEND );
OpenFile (nvFileHandle, "C:\\", "Autoexec.bat");
WriteLine ( nvFileHandle , "SET PATH=%PATH%;C:\\ORAWIN95\\BIN" );
7.怎 样 在 安 装 结 束 时 允 许 用 户 选 择 是 否 打 开 Readme文 件
假 定 Readme.txt文 件 已 经 复 制 到 目 标 路 径 ， 以 下 程 序 将 显 示 一 个 复 选 框 ， 如 果 用 户 选 择 了 ， 则 用 记 事 本 打 开 Readme.txt。
function DialogShowSdFinishReboot()
NUMBER nResult, nDefOptions;
STRING szTitle, szMsg1, szMsg2, szOption1, szOption2,szPathls;
NUMBER bOpt1, bOpt2;
begin
if (!BATCH_INSTALL) then
bOpt1 = TRUE;
bOpt2 = FALSE;
szMsg1 = "";
szMsg2 = "";
szOption1 = "阅 读 Readme文 件 ";
szOption2 = "";
nResult = SdFinish( szTitle, szMsg1, szMsg2, szOption1, szOption2, bOpt1, bOpt2 );
if bOpt1 = TRUE then
CopyFile ( "Readme.txt" , "Readme.txt" );
LaunchApp ( WINDIR^"Notepad.exe" , TARGETDIR^"Readme.txt" );
endif;
return 0;
endif;
..........
8.如 何 指 定 默 认 路 径
在 function SetupInstall()中 修 改 以 下 代 码 ， 如 默 认 目 录 改 为 C:\JttMis， 见 以 下 修 改 的 代 码
if (bIs32BitSetup) then
svDir = WINDISK ^ "Jttmis";
else
svDir = WINDISK ^ "Jttmis"; // use short names
endif;
TARGETDIR = svDir;
