用delphi編寫安裝程式(1)
當你完成乙個應用軟體的開發後，那麼你還需要為該軟體做乙個規範化的安裝程式，這是程式設計的最後一步，同時也是很重要的一步，因為執行安裝程式往往是使用者做的第一步操作。
很多報刊文章介紹了許多如何利用installshield等工具軟體來製作安裝程式的方法，這種辦法可以很快建立起較常見的安裝模式，但用這種辦法也有一些不足，如做成的安裝程式一般較大；風格較單一；不能靈活的控制啟動方式和快捷方式。其實安裝程式的的幾個執行步驟較固定，我們完全可以自己來編寫安裝程式。下面就詳細介紹如何用delphi編寫具有自己軟體特色的安裝程式。
1、將需要安裝的程式製作成資源檔案
step 1:編寫myres.rc資源指令碼檔案，可用記事本等編寫。
mydbsrc mydbsrcfile c:\resdemo\mynbdb.mdb
mydbjet mydbjetfile c:\resdemo\mdac_typ.exe
7001 icon c:\resdemo\setup.ico
step 2:利用brcc32編譯生成資源檔案myres.res。
brcc32.exe myres.rc
2、編寫安裝程式**
step 1: 在setup.dpr檔案中加入 語句，這樣在編譯檔案時包含資源檔案。
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);
用Delphi編寫郵件特快專遞程式
郵件特快專遞 這個詞現在已經是被廣大的網民所熟知了，它就好比是網路上的ems，能夠直接把郵件送到對方的郵箱中，郵件傳送完畢後，對方就可以立刻收到。foxmail在其最新的4.0版本中也特別新增了該功能，作為一名程式設計愛好者，你是不是也想知道如何程式設計實現該功能呢？那就隨本文一起揭開 郵件特快專遞...
用Delphi編寫Win2000服務程式
一 win2000 服務簡介 服務程式 是一種執行於 winnt 的後台程式，每個服務程式 中可能包含若干個服務 service 每個服務就是其中的乙個執行緒 該服務也可以建立多個子執行緒 採用服務，應用程式可以獲得特殊的許可權，而且不會被使用者通過 win2000 的任務管理器直接結束程式，所以服...
用Delphi編寫點對點傳檔案程式 2
用delphi編寫點對點傳檔案程式 2 end end cs.onread sender tobject socket tcustomwinsocket varstemp string bufsend pointer begin srecv socket.receivetext case srecv...