控制程序运行实例的个数

一、让程序运行一个实例：
　　
　　让程序运行一个实例的方法很多种，比如查找窗体、利用广播消息等，
这些都比较弱智。比较好的方法有建立互斥对象或建立事件对象，这两方法类似，
一个调用CreateMutex，一个调用CreateEvent，代码类似如下：

const
  OBJECT_NAME='{D515FA80-B31C-4A5A-A722-2AD4431FD68B}';
var
  hObject:THandle;
begin
  hObject:=CreateMutex(nil,False,OBJECT_NAME);
  //或者:hObject:=CreateEvent(nil,False,False,OBJECT_NAME);
  if GetLastError=ERROR_ALREADY_EXISTS then
  begin
    MessageBox(0,'程序已经运行！',MB_ICONINFORMATION);
    Halt;
  end;
end.

二、让程序运行多个实例，并且控制实例个数：

　　方法当然也有多种，其中最简单有效的方法就是建立信号量对象，
然后每运行一次，可用资源计数减1，当可用资源变成0时，则不允许再运行。

const
  SEMAPHORE_NAME='{D515FA80-B31C-4A5A-A722-2AD4431FD68B}';
  INSTANCE_MAX=2;//设定实例个数
var
  hSemaphore:THandle;
begin
  hSemaphore:=OpenSemaphore(EVENT_ALL_ACCESS,False,SEMAPHORE_NAME);
  if hSemaphore=0 then
    hSemaphore:=CreateSemaphore(nil,INSTANCE_MAX,INSTANCE_MAX,SEMAPHORE_NAME);
  if WaitForSingleObject(hSemaphore,100)<>WAIT_OBJECT_0 then
  begin
    MessageBox(0,PChar(Format('程序已经运行了%d个实例！',[INSTANCE_MAX])),'提示',MB_ICONINFORMATION);
    Halt;
  end;
  try
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  finally
    ReleaseSemaphore(hSemaphore,1,nil);
    CloseHandle(hSemaphore);
  end;
end.