用Delphi编写安装程序(1)
2008-04-30 22:28
323 查看
用Delphi编写安装程序(1)
[ 作者: 俞文群 添加时间: 2001-5-5 18:01:08 ]
当你完成一个应用软件的开发后,那么你还需要为该软件做一个规范化的安装程序,这是程序设计的最后一步,同时也是很重要的一步,因为运行安装程序往往是用户做的第一步操作。
很多报刊文章介绍了许多如何利用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);
相关文章推荐
- 用Delphi编写安装程序
- 转 : 用Delphi编写安装程序
- delphi 编写控制IP地址修改程序
- VS2005调用Delphi编写的COM程序
- 利用Delphi编写Socket通信程序
- delphi编写windows服务程序,含托盘
- Delphi编写Android程序中ListView自适应屏幕宽度设置
- 一、Qt Creator的安装和hello world程序的编写
- 利用Delphi编写Socket通信程序2
- Delphi编写系统服务五:在系统服务和桌面程序之间共享内存
- 记录我很久以前登报的一篇文章(用DELPHI编写CCI程序)
- 使用python编写opencv程序(安装及载入图片)
- delphi编写你的第一个com程序
- 利用delphi编写Socket通讯程序
- 图文并茂:delphi 编写你的com程序
- 【转】 DELPHI编写服务程序总结三--代码质量
- 在DELPHI中HOOK程序的编写
- 怎样编写驱动程序安装程序?(英文)
- Delphi编写的Android程序获取Root权限实现(2015.4.15更新,支持Android 4.4)
- 怎样把C#编写的程序变成可以安装的软件