控制程序运行实例的个数

来源：互联网发布：数据库网关编辑：程序博客网时间：2024/06/06 06:44

一、让程序运行一个实例：
　　
　　让程序运行一个实例的方法很多种，比如查找窗体、利用广播消息等，
这些都比较弱智。比较好的方法有建立互斥对象或建立事件对象，这两方法类似，
一个调用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.