狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

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

    在公司負責打包安裝這份日常工作，同時還負責系統或平臺的升級，鑒于公司產品在升級方面要求的特殊性（在B/S上升級C/S程序），本人經過將近一個月的努力，完成了公司產品從最原始的手動升級到半自動化的升級工作，這其中除了需要自己編寫升級程序之外，同時還需要結合升級包做相應的工作。
    在做安裝包或升級包的過程中，很大一部分工作靠InstallScript腳本完成，在這里作簡單的總結。
    首先，想必接觸過InstallShield的朋友都非常清楚，IS有很多的固定函數，這些函數在安裝的不同階段分別執行，比如OnFirstUIBefore、OnFirstUIAfter、OnEnd等。這里需要強調的是，IS函數的執行順序跟顯示順序是無關的，其執行順序是已經固化的。
    我們可以通過腳本來實現安裝界面的增加或減少，比如我們想去掉許可協議界面，那么可以刪掉或注釋掉OnFirstUIBefore函數中的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;
*/
    關于各個函數的用法，可以查看InstallShield的幫助文檔，亦可以到網上搜索“InstallShield內部庫函數”，這里不作詳述。
    下面，跟大家分享一些本人在做安裝包和升級包過程中所學習或摸索到的一些小技巧。
（1）檢測操作系統是否為Windows Vista
if (SYSINFO.WINNT.bWinVista) then    
     if (SYSINFO.nOSProductType = VER_NT_WORKSTATION) then  
          // 當前操作系統為Windows Vista
     endif;
endif;

（2）注冊表操作
    讀取注冊表采用RegDBGetKeyValueEx (szKey, szNumName, nType, svvalue, nSize )函數，寫入注冊表采用RegDBSetKeyValueEx (szKey, szNumName, nType, szNumValue, nSize)函數，刪除注冊表項采用RegDBDeleteKey ( szSubKey )函數，刪除注冊表項中某一個鍵值采用RegDBDeleteValue ( szSubKey, szValue )函數，等等。所有這些都可以方便地通過InstallShield的幫助文檔找到相應的使用說明。需要說明的是，如果有多個地方需要進行讀注冊表或寫注冊表操作，那么建議將這個方法寫成一個自定義的函數，在需要使用的地方就可以非常方便地調用了。另外，還需要注意的是不要忘了在讀注冊表或寫注冊表等操作之前加上這句RegDBSetDefaultRoot (HKEY_LOCAL_MACHINE)，當然也不用每個地方都加，在一個函數體內只需加一個就夠了，而對于特殊情況當然是特殊處理了。

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

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

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

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

    CloseFile (nvFileHandle); //關閉文件

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

判斷操作系統類型的多種方法

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

方法一：采用注冊表的方式進行判斷，例程如下：
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函數進行處理，請看下面的說明信息：
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的幫助文檔找到更詳細的信息。

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

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

隱藏準備安裝界面