用Delphi編寫安裝程式(1) (轉)

用Delphi編寫安裝程式(1) (轉)[@more@]
用編寫(1)

[ 作者: 俞文群   新增時間: 2001-5-5 18:01:08 ]


當你完成一個應用的開發後，那麼你還需要為該軟體做一個規範化的安裝程式，這是的最後一步，同時也是很重要的一步，因為執行安裝程式往往是做的第一步操作。

　　很多報刊文章介紹了許多如何利用installshield等工具軟體來製作安裝程式的方法，這種辦法可以很快建立起較常見的安裝，但用這種辦法也有一些不足，如做成的安裝程式一般較大；風格較單一；不能靈活的控制啟動方式和快捷方式。其實安裝程式的的幾個執行步驟較固定，我們完全可以自己來編寫安裝程式。下面就詳細介紹如何用DELPHI編寫具有自己軟體特色的安裝程式。

　　安裝程式要達到的幾個原則，如的一次性等，在有關雜誌上已有許多文章介紹，就不再累述。這裡主要介紹安裝程式編寫中幾個主要過程：

1、將需要安裝的程式製作成資源
　　Step 1:編寫myres.rc資源指令碼檔案，可用記事本等編寫。

　　MYSRC mydbsrcfile c:resdemomynbdb.mdb

　　MYDBJET mydbjetfile c:resdemomdac_typ.exe

　　MYPP mydbappfile c:resdemoTnbdemo.exe

　　7001 Icon c:resdemosetup.ico

　　Step 2:利用BRCC32編譯生成資原始檔myres.res。

　　brcc32.exe myres.rc

2、編寫安裝程式程式碼
　　Step 1: 在setup.dpr檔案中加入{$R mymyres.RES} 語句，這樣在編譯檔案時包含資原始檔。

　　Step 2: 編寫安裝程式背景介面。

　　 //介面色彩漸變效果是透過用漸變的畫刷刷繪依次相鄰的矩形塊實現的。

　　//也可以實現其它特殊效果的安裝介面。

　　var i,j:Integer;

　　Dct:TRect;

　　begin

　　form1.tate:=wsMaximized;

　　j:=form1.width;

　　//獲得表單高度

　　for i:=0 to 255 do

　　//此處設定RGB()中一個顏色值

　　begin

　　Canvas.Brush.Color:=RGB(0,0,255-i);

　　//每次畫矩形的畫刷顏色 (左，上，右，下）

　　//Dct:=Rect(i*2,0,(i+1)*2,j);

　　Dct:=Rect(0,i*2,j,(i+1)*3);

　　//每次刷繪的矩形區域

　　Canvas.FillRect(Dct);

　　Form1.Canvas.TextRect(Dct,30,40,'寧波大學課件管理 v1.0');

　　//填充顏色

　　end;

　　end;

　　Step 3：建立主程式工作目錄

　　//設定目錄環境及配置檔案

　　if not DirectoryExists(EdtDir.Text) then

　　//　　 if MessageBox(getfocus,'該目錄不存在,是否建立該目錄?','詢問',1) = idOK then

　　　　 try

　　　　　　 ForceDirectories(EdtDir.Text);