當你完成一個應用軟體的開發後，那麼你還需要為該軟體做一個規範化的安裝程序，這是程式設計的最後一步，同時也是很重要的一步，因為運行安裝程式往往是用戶做的第一步操作。
許多報紙文章介紹了許多如何利用installshield等工具軟體來製作安裝程式的方法，這種辦法可以很快建立起較常見的安裝模式，但用這種辦法也有一些不足，如做成的安裝程序一般較大；風格較單一；無法靈活的控制啟動方式和快捷方式。其實安裝程式的幾個運作步驟較固定，我們完全可以自己來寫安裝程式。以下就詳細介紹如何用DELPHI撰寫具有自己軟體特色的安裝程式。
安裝程式要達到的幾個原則，如配置的一次性等，在相關雜誌上已有許多文章介紹，就不再累述。這裡主要介紹安裝程式編寫中幾個主要過程：
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} 語句，這樣在編譯檔案時包含資源檔案。
Step 2: 編寫安裝程式背景介面。
//介面色彩漸層效果是透過用漸層的畫刷刷繪依序相鄰的矩形塊來實現的。
//也可以實現其它特殊效果的安裝介面。
var i,j:Integer;
Dct:TRect;
begin
form1.WindowState:=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);