InstallShield制作JSP+TOMCAT+JDK+MYSQL(第三篇)

 1.复制文件，并且显示用户的配置信息,显示文件复制进度条

Dlg_ObjDialogs:
    nResult = ShowObjWizardPages(nResult);
    if (nResult = BACK) goto Dlg_SdComponentTree;

Dlg_SdStartCopy:    
    szTitle = "xx系统";  
    szMsg   = "安装信息准备完毕，并且获得安装权限，下一步将进行文件拷贝。";
    listStartCopy = ListCreate( STRINGLIST ); 
 

    ListAddString(listStartCopy,"客户信息：",AFTER);
 ListAddString(listStartCopy,"用户名：" + szName,AFTER);
 ListAddString(listStartCopy,"用户单位：" + szCompany,AFTER);
 ListAddString(listStartCopy,"",AFTER);
 ListAddString(listStartCopy,"程序安装路径：" + szDir,AFTER);
 ListAddString(listStartCopy,"",AFTER);
 //ListAddString(listStartCopy,"程序文件夹：" + szfolder,AFTER);
 ListAddString(listStartCopy,"",AFTER);
 
 switch (nSetupType)
 case TYPICAL : ListAddString(listStartCopy,"安装类型：典型安装",AFTER);
 case COMPACT: ListAddString(listStartCopy,"安装类型：压缩安装",AFTER);
 case CUSTOM: ListAddString(listStartCopy,"安装类型：自定义安装",AFTER);
 endswitch;

    nResult = SdStartCopy( szTitle, szMsg, listStartCopy ); 
    ListDestroy(listStartCopy);       
    if (nResult = BACK) goto Dlg_ObjDialogs;   

    SetStatusWindow(0, "");
    Enable(STATUSEX);
    StatusUpdate(ON, 100); 

    return 0;
end;