Не проверять Mutex если программа запущена с параметром

[Человек_Борща]

Добрый день/ночь!

В общем ситуация:
Пользователи требовали чтобы по их желанию программу можно было запустить n-раз.

Чтобы этоо не допустить я писал такой код:

function CheckMutex(aName: string): Boolean;
var
  HM: Thandle;
begin
  HM := OpenMutex(MUTEX_ALL_ACCESS, false, PAnsiChar(aName));
  Result := (HM <> 0);
    if HM = 0 then
    CreateMutex(nil, false, PAnsiChar(aName));
end;

Но теперь проблема, нужно если в коммандной строке стоит параметр "-nosingle", то мютекс вообще не создавался и не проверялся.

Проверяю это так:

  if not RunParams('nosingle') then
  begin
    if CheckMutex(mYMutex_name) then
    begin
      HLR_MsgBox(RsMsgOnlyOne, MB_OK or MB_ICONWARNING);
      Exit;
    end;
  end;

Проблема такова что, мютекс как-ни крути всеравно создаётся. И последующие копии детектят его и не запускаются.
Как это обойти?

[Stilet]

RunParams('nosingle')

Как устроена?

[Человек_Борща]

просто:

function RunParams(Opt: string): Boolean;
var
  i: SmallInt;
begin
  Result := False;
  for i := 0 to ParamCount - 1 do
    if (LowerCase(ParamStr(i)) = LowerCase('-' + opt)) or
      (LowerCase(ParamStr(i)) = LowerCase('/' + opt)) then
      Result := True;
end;

[Аватар]

Вроде в RunParams все корректно. А в пошаговой трассировке не пробовали?

[Человек_Борща]

Вы не туда смотрите

Дело в том что в данном коде:

  if not RunParams('nosingle') then
  begin
    if CheckMutex(mYMutex_name) then
    begin
      HLR_MsgBox(RsMsgOnlyOne, MB_OK or MB_ICONWARNING);
      Exit;
    end;
  end;

как ни крути а мютекс создаётся ибо:

function CheckMutex(aName: string): Boolean;
var
  HM: Thandle;
begin
  HM := OpenMutex(MUTEX_ALL_ACCESS, false, PAnsiChar(aName));
  Result := (HM <> 0);
    if HM = 0 then
    CreateMutex(nil, false, PAnsiChar(aName));
end;

Как этого избежать? И при параметре -nosingle вообще н создавать и не проверять наличие мютекса?

[Аватар]

Дошло. Я бы сделал так - кто вошел с nosingle пытается создать мьютекс и не зависимо от того, удалось или нет - все равно входит в программу (при выходе - грохают мьютекс только в случае если они его создали), остальные - входят только если удалось создатьЮ Понятно создать с предварительной проверкой на существование

[GunSmoker]

И при параметре -nosingle вообще н создавать и не проверять наличие мютекса?

Так у тебя при -nosingle в эту ветку выполнение не заходит.

А ошибка у тебя в RunParams - при единственном параметре она всегда будет возвращать False.

P.S. Твой RunParams - это стандартная FindCmdLineSwitch.

[Человек_Борща]

Точно ошибка была где указал GunSmoker! Огроменное спасибо!

Заменил на:

function RunParams(Opt: string): Boolean;
begin
  Result := FindCmdLineSwitch(Opt,['-','/'],True);
end;

Все спасибо! всем +.

[Аватар]

Сообщение от GunSmoker

А ошибка у тебя в RunParams - при единственном параметре она всегда будет возвращать False.

А разве в ParamStr(0) не торчит имя exe-шника и ParamCount не равно 1 при отсутсвии параметров?

[GunSmoker]

разве в ParamStr(0) не торчит

Торчит.

ParamCount не равно 1 при отсутсвии параметров?

С чего бы функции, возвращающей количество параметров командной строки, возвращать единицу при отсутствии параметров?