保证程序只运行一个实例(delphi)

        许多时候我们希望程序只有一个实例在运行，而不是多个实例同时运行。 其实完成这一功能有很多种方法，我把自己知道的几种方法简单介绍一下。
一  使用全局原子

1. program Project1;
3. uses
4.   windows,
5.   Forms,
6.   Dialogs,
7.   Unit1 in 'Unit1.pas' {Form1};
9. {$R *.res}
11. const
12.   myatom='我的全局原子方法';
13. begin
14.   if GlobalFindAtom(myatom)=0 then
15.   begin
16.     GlobalAddAtom(myatom);
17.     Application.Initialize;
18.     Application.CreateForm(TForm1, Form1);
19.     Application.Run;
20.     GlobalDeleteAtom(GlobalFindAtom(myatom));
21.   end
22.   else
23.     showmessage('已经有一个实例在运行');
24. end.

二 使用互斥对象

1. var
2.   mymutex: THandle;
3. begin
4.   mymutex:=CreateMutex(nil,True,'我的互斥对象');
5.   if GetLastError<>ERROR_ALREADY_EXISTS then
6.   begin
7.     Application.Initialize;
8.     Application.CreateForm(TForm1, Form1);
9.     Application.Run;
10.   end
11.   else
12.     showmessage('已经有一个实例在运行');
13. end.   

三 使用FindWindow函数

1. var
2.   myhandle: THandle;
3. begin
4.   myhandle:=FindWindow(nil,'Form1');
5.   if myhandle=0 then
6.   begin
7.     Application.Initialize;
8.     Application.CreateForm(TForm1, Form1);
9.     Application.Run;
10.   end
11.   else
12.     showmessage('已经有一个实例在运行');
13. end.

        在上面介绍的几种方法中用到的 API函数GlobalFindAtom、GlobalAddAtom 、GlobalDeleteAtom、CreateMutex、GetLastError 、FindWindow 在msdn和delphi自带帮助的windows sdk中都有介绍。