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