用Delphi编写安装程序

DELPHI乐园

高级硬件知识

网络架站探讨

当前位置：会员服务 > 高级 > DELPHI乐园 > 用Delphi编写安装程序

《用Delphi编写安装程序》

　　当你完成一个应用软件的开发后，那么你还需要为该软件做一个规范化的安装程序，这是程序设计的最后一步，同时也是很重要的一步，因为运行安装程序往往是用户做的第一步操作。

　　很多报刊文章介绍了许多如何利用installshield等工具软件来制作安装程序的方法，这种办法可以很快建立起较常见的安装模式，但用这种办法也有一些不足，如做成的安装程序一般较大；风格较单一；不能灵活的控制启动方式和快捷方式。其实安装程序的的几个运行步骤较固定，我们完全可以自己来编写安装程序。下面就详细介绍如何用DELPHI编写具有自己软件特色的安装程序。

　　安装程序要达到的几个原则，如配置的一次性等，在有关杂志上已有许多文章介绍，就不再累述。这里主要介绍安装程序编写中几个主要过程：

1、将需要安装的程序制作成资源文件
　　Step 1:编写myres.rc资源脚本文件，可用记事本等编写。

　　MYDBSRC mydbsrcfile c:\resdemo\mynbdb.mdb

　　MYDBJET mydbjetfile c:\resdemo\mdac_typ.exe

　　MYDBAPP mydbappfile c:\resdemo\Tnbdemo.exe

　　7001 Icon c:\resdemo\setup.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);

　　　　 except

　　　　　　 MessageBox(getFocus,'创建目录失败!','信息',0);

　　　　　　 Exit;

　　　　 end

　　//　　 else Exit;

　　// ModalResult := mrOK;

　　Step 4：生成主程序配置文件

　　变量：

　　var

　　 setupinfo : TiniFile;

　　//配置当前数据工作路径，选择与自己系统有关的驱动程序。

　　setupinfo:= Tinifile.Create( trim(FrmPathSelect.EdtDir.Text)+'\setup.ini');

　　setupinfo.WriteString('access','workdbpath',trim(FrmPathSelect.EdtDir.Text)+'\mynbdb.mdb';

　　setupinfo.WriteString('access','backdbpath',trim(FrmPathSelect.EdtDir.Text)+'\mynbdbbak.mdb');

　　setupinfo.Free;

　　Step 5:从资源文件中还原有关文件。

　　变量：

　　var

　　res:tresourcestream;

　　resname,resnewname:string;

　　RegFile:TRegIniFile;

　　begin

　　//从资源文件中还原数据库文件

　　resnewname:=trim(FrmPathSelect.EdtDir.Text)+'\mynbdb.mdb';

　　 resname:='MYDBSRC';

　　 res:=tresourcestream.Create(hinstance,resname,pchar('mydbsrcfile'));

　　 res.savetofile(resnewname);

　　 res.free;

　　//从资源文件中还原主程序文件

　　resnewname:=trim(FrmPathSelect.EdtDir.Text)+'\Tnbdemo.exe';

　　 resname:='MYDBAPP';

　　 res:=tresourcestream.Create(hinstance,resname,pchar('mydbappfile'));

　　 res.savetofile(resnewname);

　　 res.free;

　　//在注册表中写入主程序路径名及执行文件名的信息，以便在

　　//升级主程序时用到。

　　 RegFile := TRegIniFile.Create;

　　 RegFile.RootKey := HKEY_LOCAL_MACHINE;

　　 RegFile.WriteString('SOFTWARE\mynb','exepath',trim(resnewname));

　　 RegFile.Free;

　　end

　　Step 6：安装数据库驱动（与SETP 4对应）

　　//安装数据库驱动程序

　　var

　　cmdlinepchar:array[0..120] of char;

　　startupinfo:tstartupinfo;

　　processinfo:tprocessinformation;

　　begin

　　 screen.cursor:=crhourglass;

　　 strpcopy(cmdlinepchar,trim(FrmPathSelect.EdtDir.Text)+'\mdac_typ.exe /q');

　　 fillchar(startupinfo,sizeof(startupinfo),#0); //置0

　　 with startupinfo do

　　 begin

　　 cb:=sizeof(startupinfo);

　　 dwflags:=startf_useshowwindow or startf_usestdhandles;

　　 wshowwindow:=sw_hide; //隐藏被调用程序窗口

　　 end;

　　 if createprocess(nil,cmdlinepchar,nil,nil,true,0,nil,nil,startupinfo,processinfo) then

　　 //创建进程

　　 begin

　　 waitforsingleobject(processinfo.HProcess,infinite); //等待进程结束

　　end

　　 else

　　 begin

　　　　 exit;

　　 end;

　　 screen.cursor:=crDEFAULT;

　　DeleteFile(PChar(trim(FrmPathSelect.EdtDir.Text)+'\mdac_typ.exe'));

　　end;

　　Step 7：创建程序组

　　变量：

　　var

　　smacro:string;

　　 szmacro:array[0..254] of char;

　　 sgroupdesc,sgroupname:string;

　　 sprogdesc:string;

　　 sprogicon:string;

　　//创建主程序组

　　　　//打开对话通路

　　 if ddeclientconv1.OpenLink then

　　 begin

　　　　 //建立组群

　　　　 sgroupdesc:='宁波大学课件管理系统 ';

　　　　 sgroupname:='宁波大学课件管理系统 v1.0';

　　　　 //组成宏指令

　　　　 smacro:='[creategroup('+sgroupdesc+','+sgroupname+')]';

　　　　 strpcopy(szmacro,smacro);　　　　　　　　　　 //转成null-term 字串

　　　　 ddeclientconv1.ExecuteMacro(szmacro,false); //执行宏指令

　　　　 //建立ICON图像

　　　　 sprogicon:=trim(FrmPathSelect.EdtDir.Text)+'\Tnbdemo.exe';;

　　　　 sprogdesc:='宁波大学课件管理系统';

　　　　 smacro:='[additem('+sprogicon+','+sprogdesc+')]';

　　　　 strpcopy(szmacro,smacro);

　　　　 ddeclientconv1.ExecuteMacro(szmacro,false);

　　　　 ddeclientconv1.CloseLink;

　　 end;

　　Step 8：创建桌面快捷方式

　　//uses shlobj,comobj,activex;

　　var

　　tmpObject:IUnknown;

　　tmpSLink:IShellLink;

　　tmpPFile:IPersistFile;

　　PIDL:PItemIDList;

　　StartupDirectory : array[0..MAX_PATH] of Char;

　　StartupFilename : String;

　　LinkFilename : WideString;

　　c1:THandle;

　　begin

　　StartupFilename := ''Tnbdemo.exe'';

　　tmpObject := CreateComObject(CLSID_ShellLink);

　　tmpSLink := tmpObject as IShellLink;

　　tmpPFile := tmpObject as IPersistfile;

　　tmpSLink.SetPath(pChar(StartupFilename));

　　tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)));

　　SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,PIDL);

　　SHGetPathFromIDList(PIDL,StartupDirectory);

　　LinkFilename := StartupDirectory + '\mynotepad.lnk';

　　showmessage(linkfilename);

　　tmpPFile.Save(pWChar(LinkFilename),FALSE);

　　c1:=windows.FindWindowEx(windows.FindWindowEx(windows.FindWindow('Progman','Program Manager'),0,'SHELLDLL_DefView',''),0,'SysListView32','');

　　PostMessage(c1,WM_KEYDOWN,VK_F5,0);

　　PostMessage(c1,WM_KEYUP,VK_F5,1 shl 31);

　　end;

　　Step 9：重新启动机器

　　begin

　　 ExitWindowsEx(2,0);

　　end;

　　以上是程序的主要语句部分，从本人的开发系统中剪出来，用到了一些WIN API的调用。在安装过程中的一些提示性界面及每一个步骤大家可以根据自己的需要而制作，这样做出来的安装程序精练，而且风格可以做的很特别。

精华文章先睹为快　　玩转电脑从此简单

本站所有文章的著作权归作者所有

责任编辑