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;