Delphi中避免程序重复运行的方法

1.使用全局atom
program Project1;

uses
windows,
Forms,
Dialogs,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

const
myatom='myatom';
begin
if GlobalFindAtom(myatom)=0 then
begin
GlobalAddAtom(myatom);
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
GlobalDeleteAtom(GlobalFindAtom(myatom));
end
else
showmessage('程序已运行');
end.

2.使用互斥对象

var
mymutex: THandle;
begin
mymutex:=CreateMutex(nil,True,'MyMutx');
if GetLastError<>ERROR_ALREADY_EXISTS then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
showmessage('程序已经运行');
end.

3.使用FindWindow函数，通过查找窗口名称的方式，如果有同样名称的窗口，可能会有问题的，可能还是前面两种方法比较好吧，个人喜欢第一种方法。

var
myhandle: THandle;
begin
myhandle:=FindWindow(nil,'Form1');
if myhandle=0 then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
showmessage('程序已经运行');
end.