Delphi 只运行一个实例

 

begin
  CreateMutex(nil, True, '互斥对象');
  if GetLastError <> ERROR_ALREADY_EXISTS then
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end
  else begin
    ShowMessage('只能运行一个实例');
  end;
end.