Delphi程序动技术概要.docVIP

Delphi程序启动技术概要 赵晋楠 zhaojinnan@ 上海普华科技发展有限公司 2005-11-14 目录 1检测应用程序的多重实例 2 1.1概述 2 1.2实现目标 2 1.3实现过程 2 1.3.1查找多重实例 2 1.3.2把最初的实例呈现给用户 3 2程序启动画面的实现 6 2.1概述 6 2.2实现目标 6 2.3实现过程 6 2.3.1准备材料 6 2.3.2设计Splash窗体 6 2.3.3添加工程代码 7 2.4程序启动画面的Flash实现 8 2.4.1准备材料 9 2.4.2设计Splash窗体 9 2.4.3添加工程代码 9 2.4.4不足 10 1检测应用程序的多重实例 1.1概述 在Windows中允许多个相同的应用程序实例运行，但我们有时不希望这种多重实例同时运行，特别是当数据源不支持同时多个写入操作时，因为这样有可能会使我们的程序崩溃。 1.2实现目标 关于检测应用程序多重实例的示例也非常多，因此，本文将达到以下目的： 1）只允许运行一个程序的实例 2）当检测到第二个实例时，原实例自动呈现到所有窗体的最前面以提醒用户，即使当前程序是最小化的。 1.3实现过程 该实现过程全部以代码实现，没有可视化编辑的内容。您可以在新建一个工程后，打开Project | View Source查看Delphi IDE自动生成的工程源代码。 program Project1; uses Forms, Unit1 in Unit1.pas {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. 1.3.1查找多重实例 首先，当程序启动时，我们要确认当前运行的进程中是否还有一个实例运行，以进行下一步的动作。 第一种方法：使用API函数FindWindow，当查找到一个指定的窗体时，会返回这个窗体的句柄（句柄可通俗地理解为一个窗体的标识、编号）；否则，如果没有找到，变量hWnd等于0（注意在uses部分加Windows单元，以可以使用该函数）。 var hWnd: THandle; begin hWnd := FindWindow(TForm1, nil); FindVCLWindow() if hWnd = 0 then begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end else begin SetForegroundWindow(hWnd); end; end. 第二种方法，使用互斥var hMutex: THandle; begin HMutex := CreateMutex (nil, False, OneCopyMutex); if WaitForSingleObject (hMutex, 0) wait_TimeOut then begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end; end. 1.3.2把最初的实例呈现给用户 以上两种方法都可以避免应用程序的多重实例，但这显然不够。如果最初的应用程序是最小化的，而我们可爱的用户没有注意到他的存在，他可能会因为每次启动程序失败而大伤胆火，并影响我们的软件产品在他心目中的地位。那我们就把最初的实例呈现给他吧。 这个回调函数很好地列举了当前所有与TForm1类名相同的窗体， function EnumWndProc(hwnd: THandle; Param: Cardinal): Bool; stdcall; var ClassName, WinModuleName: string; WinInstance: THandle; begin Result := True; SetLength(ClassName, 100); GetClassName (hwnd, PChar (ClassName), Length (ClassName)); ClassName := PChar(ClassName); if ClassName = TForm1.ClassName then begin {10 获取目标窗口的模块名 } SetLength(Win