Delphi----怎样保证程序只运行一个实例

在project启动文件编辑以下内容，可保证程序只运行一个实例。

var

  mymutex: THandle;
begin
   mymutex := CreateMutex(nil, True, '营收数据自检系统');
   if GetLastError <> ERROR_ALREADY_EXISTS then
  begin
    Application.Initialize;
    Application.Title := '营收数据自检系统';
    Application.CreateForm(TfrmDM, frmDM);
    Application.CreateForm(TfrmLogin, frmLogin);
    Application.CreateForm(TfrmBaseMainInfo, frmBaseMainInfo);
    Application.CreateForm(TfrmEmailUser, frmEmailUser);
    if (frmLogin.Login) or (frmLogin.ShowModal = mrok) then
    begin
      FreeAndNil(frmLogin);
      Application.CreateForm(TfrmMain, frmMain);
      //frmMain.Hide;
    end;
    Application.Run;
  end
  else
  begin
    com.ShowmsgWar('程序已在运行中.', '营收数据自检系统');
  end;
end.