关于DELPHI程序的启动

使程序只运行一个实例的几种方法
    Windows 下一个典型的特征就是多任务，我们可以同时打开多个窗口进行操作，也
可以同时运行程序的多个实例，比如可以打开许多个资源管理器进行文件的移动复制操
作。但有时出於某种考虑（比如安全性），我们要做出一些限制，让程序只能够运行一
个实例。在Delphi编程中，笔者总结出了以下几种方法：    一、 查找窗口法
    这是最为简单的一种方法。在程序运行前用FindWindow函数查找具有相同窗口类名
和标题的窗口，如果找到了，就说明已经存在一个实例。在项目源文件的初始化部分添
加以下代码：
    Program OneApp
    Uses
    Forms,Windows;（这里介绍的几种方法均需在项目源文件中添加Windows单元，以後
不再重复了）
    Var Hwnd:Thandle;
    Begin
     Hwnd:=FindWindow('TForm1'，'SingleApp');
     If Hwnd=0 then
     Begin
     Application.Initialize;
     Application.CreateForm(Tform1, Form1);
     Application.Run;
     End;
    End;    **THandle的Unit为Windows**    FindWindow()函数带两个叁数，其中的一个叁数可以忽略，但笔者强烈建议将两个
叁数都用上，免得凑巧别的程序也在使用相同的类名，就得不到正确的结果了。另外，
如果是在Delphi IDE窗口中运行该程序，将一次都不能运行，因为已经存在相同类名和
标题的窗口：设计时的窗体。    二、使用互斥对像
    如果觉得查找窗口的方法效率不太高的话，可以使用创建互斥对像的方法。尽管互
斥对像通常用於同步连接，但用在这个地方也是非常方便的。仅用了4句代码就轻松搞定
    VAR Mutex:THandle;
    begin
     Mutex:=CreateMutex(NIL,True,'SingleApp');
     IF GetLastError<>ERROR_ALREADY_EXISTS THEN//如果不存在另一实例
     BEGIN
     Application.CreateHandle;
     Application.CreateForm (TExpNoteForm, ExpNoteForm);
     Application.Run;
     END;
     ReleaseMutex(Mutex);
    end.    **THandle的Unit为Windows**    三、全局原子法
    我们也可以利用向系统添加全局原子的方法，来防止多个程序实例的运行。全局原
子由Windows 系统负责维持，它能保证其中的每个原子都是唯一的，管理其引用计数，
并且当该全局原子的引用计数为0时，从内存中清除。我们用GlobalAddAtom 函数向全局
原子添加一个255个字节以内的字符串，用GlobalFindAtom来检查是否已经存在该全局原
子，最後在程序结束时用GlobalDeleteAtom函数删除添加的全局原子。示例如下：    Uses Windows
    const iAtom='SingleApp';
    begin
    if GlobalFindAtom(iAtom)=0 then
    begin
    GlobalAddAtom(iAtom);
    Application.Initialize;
    Application.CreateForm(TForm1,Form1);
    Application.Run;
    GlobalDeleteAtom(GlobalFindAtom(iAtom));
    end
    else
    MessageBox(0,'You can not run a second copy of this App','',mb_OK);
    end.    利用全局原子的引用计数规则，我们还可以判断当前共运行了该程序的多少个实例
：
    var i:Integer;
    begin
    I:=0;
    while GlobalFindAtom(iAtom)<>0 do
    begin
    GlobalDeleteAtom(GlobalFindAtom(iAtom));
    i:=i＋1;
    end;
    ShowMessage(IntToStr(I));
    end;