将下面的代码稍加改动,加入工程文件
var
hMutex: THandle;
begin
hMutex := OpenMutex( MUTEX_ALL_ACCESS, FALSE, 'MyMutex' );
if hMutex<>0 then //已存在实例
begin
CloseHandle( hMutex );
end
else
begin
hMutex := CreateMutex( nil, FALSE, 'MyMutex' );
Application.Initialize;
Application.CreateForm(TMainFrm, MainFrm);
...
end
end