用Delphi編寫安裝程序(1)

2019-11-18 18:54:35

字體：大中小

供稿：網(wǎng)友

當(dāng)你完成一個(gè)應(yīng)用軟件的開發(fā)后，那么你還需要為該軟件做一個(gè)規(guī)范化的安裝程序，這是程序設(shè)計(jì)的最后一步，同時(shí)也是很重要的一步，因?yàn)檫\(yùn)行安裝程序往往是用戶做的第一步操作。

　　很多報(bào)刊文章介紹了許多如何利用installshield等工具軟件來制作安裝程序的方法，這種辦法可以很快建立起較常見的安裝模式，但用這種辦法也有一些不足，如做成的安裝程序一般較大；風(fēng)格較單一；不能靈活的控制啟動(dòng)方式和快捷方式。其實(shí)安裝程序的的幾個(gè)運(yùn)行步驟較固定，我們完全可以自己來編寫安裝程序。下面就詳細(xì)介紹如何用DELPHI編寫具有自己軟件特色的安裝程序。

　　安裝程序要達(dá)到的幾個(gè)原則，如配置的一次性等，在有關(guān)雜志上已有許多文章介紹，就不再累述。這里主要介紹安裝程序編寫中幾個(gè)主要過程：

1、將需要安裝的程序制作成資源文件
　　Step 1:編寫myres.rc資源腳本文件，可用記事本等編寫。

　　MYDBSRC mydbsrcfile c: esdemomynbdb.mdb

　　MYDBJET mydbjetfile c: esdemomdac_typ.exe

　　MYDBAPP mydbappfile c: esdemoTnbdemo.exe

　　7001 Icon c: esdemosetup.ico

　　Step 2:利用BRCC32編譯生成資源文件myres.res。

　　brcc32.exe myres.rc

2、編寫安裝程序代碼
　　Step 1: 在setup.dPR文件中加入{$R mymyres.RES} 語句，這樣在編譯文件時(shí)包含資源文件。

　　Step 2: 編寫安裝程序背景界面。

　　 //界面色彩漸變效果是通過用漸變的畫刷刷繪依次相鄰的矩形塊實(shí)現(xiàn)的。

　　//也可以實(shí)現(xiàn)其它特殊效果的安裝界面。

　　var i,j:Integer;

　　Dct:TRect;

　　begin

　　form1.WindowState:=wsMaximized;

　　j:=form1.width;

　　//獲得表單高度

　　for i:=0 to 255 do

　　//此處設(shè)置RGB()中一個(gè)顏色值

　　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);

　　//每次刷繪的矩形區(qū)域

　　Canvas.FillRect(Dct);

　　Form1.Canvas.TextRect(Dct,30,40,'寧波大學(xué)課件管理系統(tǒng) v1.0');

　　//填充顏色

　　end;

　　end;

　　Step 3：創(chuàng)建主程序工作目錄

　　//設(shè)置目錄環(huán)境及配置文件

　　if not DirectoryExists(EdtDir.Text) then

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

　　　　 try

　　　　　　 ForceDirectories(EdtDir.Text);

上一篇：擴(kuò)展Delphi的線程同步對(duì)象(1)

下一篇：在Delphi中編寫控件的基本方法(1)