利用InstallScript腳本進行最基本的編程

    在公司負(fù)責(zé)打包安裝這份日常工作，同時還負(fù)責(zé)系統(tǒng)或平臺的升級，鑒于公司產(chǎn)品在升級方面要求的特殊性（在B/S上升級C/S程序），本人經(jīng)過將近一個月的努力，完成了公司產(chǎn)品從最原始的手動升級到半自動化的升級工作，這其中除了需要自己編寫升級程序之外，同時還需要結(jié)合升級包做相應(yīng)的工作。
    在做安裝包或升級包的過程中，很大一部分工作靠InstallScript腳本完成，在這里作簡單的總結(jié)。
    首先，想必接觸過InstallShield的朋友都非常清楚，IS有很多的固定函數(shù)，這些函數(shù)在安裝的不同階段分別執(zhí)行，比如OnFirstUIBefore、OnFirstUIAfter、OnEnd等。這里需要強調(diào)的是，IS函數(shù)的執(zhí)行順序跟顯示順序是無關(guān)的，其執(zhí)行順序是已經(jīng)固化的。
    我們可以通過腳本來實現(xiàn)安裝界面的增加或減少，比如我們想去掉許可協(xié)議界面，那么可以刪掉或注釋掉OnFirstUIBefore函數(shù)中的Dlg_SdLicense2:下的這段代碼：
/*
Dlg_SdLicense2:
    szTitle = "";
    szOpt1 = "";
    szOpt2 = "";
    //{{IS_SCRIPT_TAG(License_File_Path)
    szLicenseFile = SUPPORTDIR ^ "License.rtf";
    //}}IS_SCRIPT_TAG(License_File_Path)
    //{{IS_SCRIPT_TAG(Dlg_SdLicense2)
    nResult = SdLicense2Rtf( szTitle, szOpt1, szOpt2, szLicenseFile, bLicenseAccepted );
    //}}IS_SCRIPT_TAG(Dlg_SdLicense2)
    if (nResult = BACK) then
        goto Dlg_SdWelcome;
    else
        bLicenseAccepted = TRUE;
    endif;
*/
    關(guān)于各個函數(shù)的用法，可以查看InstallShield的幫助文檔，亦可以到網(wǎng)上搜索“InstallShield內(nèi)部庫函數(shù)”，這里不作詳述。
    下面，跟大家分享一些本人在做安裝包和升級包過程中所學(xué)習(xí)或摸索到的一些小技巧。
（1）檢測操作系統(tǒng)是否為Windows Vista
if (SYSINFO.WINNT.bWinVista) then    
     if (SYSINFO.nOSProductType = VER_NT_WORKSTATION) then  
          // 當(dāng)前操作系統(tǒng)為Windows Vista
     endif;
endif;

（2）注冊表操作
    讀取注冊表采用RegDBGetKeyValueEx (szKey, szNumName, nType, svvalue, nSize )函數(shù)，寫入注冊表采用RegDBSetKeyValueEx (szKey, szNumName, nType, szNumValue, nSize)函數(shù)，刪除注冊表項采用RegDBDeleteKey ( szSubKey )函數(shù)，刪除注冊表項中某一個鍵值采用RegDBDeleteValue ( szSubKey, szValue )函數(shù)，等等。所有這些都可以方便地通過InstallShield的幫助文檔找到相應(yīng)的使用說明。需要說明的是，如果有多個地方需要進行讀注冊表或?qū)懽员聿僮?，那么建議將這個方法寫成一個自定義的函數(shù)，在需要使用的地方就可以非常方便地調(diào)用了。另外，還需要注意的是不要忘了在讀注冊表或?qū)懽员淼炔僮髦凹由线@句RegDBSetDefaultRoot (HKEY_LOCAL_MACHINE)，當(dāng)然也不用每個地方都加，在一個函數(shù)體內(nèi)只需加一個就夠了，而對于特殊情況當(dāng)然是特殊處理了。

（3）安裝完成前執(zhí)行指定文件
    通常，在安裝完成之前需要執(zhí)行指定的文件，如為防止某些文件注冊不成功，采用批處理方式進行再一次的注冊，這時可以寫一個批處理文件*.bat，然后通過如下面的語句執(zhí)行一下即可：
sProgramme_name = WINSYSDIR ^"\\myReg.bat"; 
szCmdLine = "";
if LaunchAppAndWait(sProgramme_name, szCmdLine, WAIT) < 0 then; 
endif;

（4）隱藏安裝文件復(fù)制界面
    可以在OnMoving函數(shù)中編寫一行代碼：Disable(STATUSOLD)即可實現(xiàn)。

（5）檢測磁盤空間是否足夠于安裝
    當(dāng)安裝包非常大時，我們通常要考慮目標(biāo)計算機的執(zhí)行磁盤分區(qū)是否有足夠的空間來順利完成安裝，在這里可以通過GetDisk (szDir, svDrive)、GetDiskSpace (svDrive)函數(shù)進行粗略的估算，如下：
GetDisk (szDir, svDrive);
lFreeSpace = GetDiskSpace (svDrive);   
if (lFreeSpace < 314572800) then
    MessageBoxEx("警告：本安裝所需磁盤空間最低約為300M，安裝路徑所在的磁盤空間不足！請重新選擇！","警告",WARNING);
    goto Dlg_SdAskDestPath;
endif;
上述代碼一般放到OnFirstUIBefore函數(shù)的Dlg_SdAskDestPath中。

（6）創(chuàng)建并寫數(shù)據(jù)到文件
    有時，為適應(yīng)實際需要，我們需要在安裝過程中創(chuàng)建一個配置文件（如Config.dat），并將一些初始化數(shù)據(jù)寫入該文件中，這時就需要用到CreateFile函數(shù)，例程如下：
    /* 創(chuàng)建配置文件并寫入初始化配置參數(shù) */
    szConfigDir = TARGETDIR ^"\\Test\\Start";
    szConfigPath= TARGETDIR ^"\\Test";
    szConfigFile = "Config.dat";    
    // 以FILE_MODE_APPEND 方式打開文件
    OpenFileMode (FILE_MODE_APPEND);
    // 創(chuàng)建配置文件并打開該文件
    if (CreateFile (nvFileHandle, szConfigDir, szConfigFile) < 0) then
        MessageBox ("創(chuàng)建配置文件失敗，安裝程序?qū)⒔K止！", SEVERE);
        abort;
    else
        // 將配置數(shù)據(jù)寫入配置文件
        szMsg = "[INIT]\n1="+ szConfigPath;
        if (WriteLine(nvFileHandle, szMsg) < 0) then
            MessageBox ("寫入配置參數(shù)失敗，安裝程序?qū)⒔K止！", SEVERE);
            abort;
        endif;
    endif;

    CloseFile (nvFileHandle); //關(guān)閉文件

    以上都是一些最基本的腳本代碼，要寫好InstallScript腳本，需要在實際工作學(xué)習(xí)過程中多鉆研、多去發(fā)現(xiàn)。只要用心，有時候還是可以在InstallShield的技術(shù)社區(qū)找到一些我們想要的東西，并且會時不時地帶給我們一些意外的驚喜。

判斷操作系統(tǒng)類型的多種方法

    用InstallShield制作安裝包時，有時候需要判斷操作系統(tǒng)的類型（如Windows XP或者是Windows Vista等），本人通過上InstallShield的官方社區(qū)（http://community.flexerasoftware.com/）找到了一些解決辦法，現(xiàn)將本人整理過的方法曬出來，與各位一起分享。

方法一：采用注冊表的方式進行判斷，例程如下：
NUMBER nOS,nvResult;
STRING svOS;


nOS = REGDB_NUMBER;
RegDBSetDefaultRoot( HKEY_LOCAL_MACHINE );
RegDBGetKeyValueEx( "SOFTWARE//Microsoft//Windows NT//CurrentVersion","CurrentVersion", nOS, svOS, nvResult);
if (svOS == "6.0") then
    MessageBox("We are on Vista!", INFORMATION);
else
    if (svOS == "5.1") then
        MessageBox("We are on XP!",INFORMATION);
    endif;
endif;

方法二：采用GetSystemInfo函數(shù)進行處理，請看下面的說明信息：
SYSINFO.nWinMajor：
4  The operating system is Windows NT 4.0.  
5  The operating system is Windows Server 2003 R2, Windows Server 2003, Windows   XP,or Windows 2000.  
6  The operating system is Windows Vista or Windows Server 2008.  

SYSINFO.nWinMinor：
0  The operating system is Windows Vista, Windows Server 2008, Windows 2000, or Windows NT 4.0.  
1  The operating system is Windows XP.  
2  The operating system is Windows Server 2003 R2, Windows Server 2003, or Windows XP Professional x64 Edition. 

GetSystemInfo(WINMINOR, nvResult, svResult);
GetSystemInfo(WINMAJOR, nvResult, svResult);

方法二可以通過InstallShield的幫助文檔找到更詳細(xì)的信息。

方法三：通過SYSINFO.WINNT的方法進行判斷，例程如下：
if (SYSINFO.WINNT.bWinVista) then   
     if (SYSINFO.nOSProductType = VER_NT_WORKSTATION) then 
          // 當(dāng)前操作系統(tǒng)為Windows Vista
     endif;
endif;
if (SYSINFO.WINNT.bWinXP) then    
    當(dāng)前操作系統(tǒng)為Windows XP
endif;

上述三種方法是最為常見的解決辦法，當(dāng)然亦可能還有其他的方法可以進行處理。

隱藏準(zhǔn)備安裝界面