第15章应用程序分发和包装.PDFVIP

第15章 应用程序的分发和包装 应用程序编制完成后的最后一步工作就是应用程序的包装和分发。所谓包装是指：应用 程序的启动界面的制作和美化，应用程序的安全性，应用程序在 Windows 95/98/2000 中的注 册，程序组和图标的建立以及 Windows 帮助文件的建立。程序的分发是指：如何把软件发放 给用户，这需要编程人员设置安装程序，这里特别介绍 Install Shield 制作安装程序。 15.1 应用程序包装技巧 本节介绍一些编写 Windows 3.2 应用程序的方法，即： 计算机的自动关机和重新启动 禁止应用程序的第二实例启动 封面窗口 椭圆窗口 读写 Windows 95 注册文件 创建应用程序组和在程序中添加图标 15.1.1 计算机的关机或重新启动 如果编写 Setup 程序，经常会遇到这样的问题，程序安装完后需要重新启动计算机，这 可以提示用户使用手工操作，如果使用代码又如何实现呢？Windows API 提供了一个 ExitWindowsEx 函数，可以以几种方式关机或重新启动。下面以实例说明它的使用方法。 激活菜单 File/New Application 创建一个新的应用程序工程。在窗体上添加三个 TButton 组件 Button1、Button2 和 Button3，设置它们的Caption 属性为“关机”、“重新启动”和“其 它身份登录”。如图 15-1 所示。 图 15-1 计算机的关机或重新启动 在 Button1、Button2 和 Button3 组件的 OnClick 事件过程中分别输入如下代码： procedure TForm1.Button1Click(Sender: TObject); 第 15 章 应用程序的分发和包装 397 var dwReserved: DWORD; begin ExitWindowsEx(EWX_SHUTDOWN,dwReserved); end; procedure TForm1.Button2Click(Sender: TObject); var dwReserved: DWORD; begin ExitWindowsEx(EWX_REBOOT,dwReserved); end; procedure TForm1.Button3Click(Sender: TObject); var dwReserved: DWORD; begin ExitWindowsEx(EWX_LOGOFF,dwReserved); end; 其中，注意 ExitWindowsEx 中的第一个参数，这个参数确定计算机的动作。 按 F9 键使程序运行，分别可以单击三个按钮测试它们的功能。 15.1.2 禁止应用程序的第二实例启动 对于一个应用程序怎样才能使它只有一个实例在系统中运行？即当应用程序启动时，怎 样防止再启动这个应用程序？实现这一功能需要应用程序的 WinMain 函数和 Windows API 中的FindWindow 函数。 激活菜单“File/New Application ”创建一个新工程。 设置窗体的 Caption 属性为“Exam01 ”，这个值将作为查找窗体的标识。 使用菜单“Project/View Source ”打开工程文件 Project1.pas，在编辑窗口对主程序作如 下修改： begin if (FindWindow(NULL,Exam01) 0) then Application.MessageBox( 已经有一个实例,警告,MB_OK) else Application