LIST listData;//声明listData
listData = ListCreate(STRINGLIST);//创建一个空的实际字符串或数字列表。
//参数都是在上个界面中赋值,然后在下个或者后续界面中使用,如svName和svCompany等参数。
/*
ListId = ListCreate(nListType)
参数:nListType:
NUMBERLIST:指定一个数字列表
STRINGLIST:指定一个字符串列表
返回值:
ListId:新创建的空的列表的ID
//-------------------------我是分格线--------------------------------------
ListAddString(listID,szString,nPlacementFlag)
参数:
listID:指定一个字符串列表的名称。ListCreate函数初始化。
szString:指定添加到列表中的字符串
nPlacementFlag指定在哪儿放置和当前元素相关的szString。新字符串可以在当前元素之前或之后。在该参数位置传递下列预定义常量之一:
AFTER:将新字符串添加到列表中当前元素之后。
BEFORE:将新字符串添加到列表中当前元素之前。返回值:
0:ListAddString成功添加字符串到列表。
< 0:ListAddString未能添加字符串到列表。注解:
·ListAddString仅工作于字符串列表。*/
ListAddString(listData,"用户安装信息:",AFTER);
ListAddString(listData," 用户名:"+svName,AFTER);
ListAddString(listData," 公司名:"+svCompany,AFTER);
ListAddString(listData,"",AFTER);switch (nResult)
case TYPICAL:
svSetupType = "典型";
case COMPLETE:
svSetupType = "全部";
//case COMPACT:
//svSetupType = "COMPACT: Application will be installed " +
//"with the minimum required options.";
case CUSTOM:
svSetupType = "定制";
default:
MessageBox ("无效的安装类型", SEVERE);
abort;
endswitch;
ListAddString(listData, "安装类型:"+svSetupType, AFTER);
ListAddString(listData, "", AFTER);
Dlg_SdStartCopy:
szTitle = "";
szMsg = "";
nResult = SdStartCopy( szTitle, szMsg,listData );
if (nResult = BACK) then
goto Dlg_SQL;
endif;