Ссылка на переменную в главном модуле

[ZvEr_HaCkEr]

Здравствуйте, в общем проблема такая: хочу сделать запрет на повторный запуск приложения, НО так как название окна меняется на имя открытого в данный момент файла, то ничего не получается сделать. У меня в модуле главной формы есть стрингвая переменная, в которой содержится путь до файла, далее с помощью ExtractFilePath извлекаю имя файла и присваиваю его названию приложения, и получаю, допустим, такой caption 1.bmp, а проверка идет только на начальное имя:

if wintext='Default.bmp'  then
 begin
      exitprocess(0);
      end;

А вот теперь вопрос: можно ли в wintext передать значение переменной из Unit1? То есть

if wintext=ExtractFilePath(*/переменная из Unit1\*)  then
 begin
      exitprocess(0);
      end;

P.S код проверки в тексте основного проекта.

[Аватар]

А зачем привязываться к заголовку окна? Как по мне гораздо удобнее для этих целей использовать OpenMutex и CreateMutex

[ZvEr_HaCkEr]

А можно поподробнее?

[Аватар]

Код для .dpr

const srMutexName = 'GLOBAL_ATOM_FOR_12435YYYYFFFF';
var srMutex: THandle;

{$R *.res}

begin
  srMutex:=OpenMutex(SYNCHRONIZE,False,PChar(srMutexName));
  if srMutex<>0 then Exit; //приложение запущено ранее
  srMutex:=CreateMutex(nil,True,PChar(srMutexName));
  if srMutex=0 then begin
    spError('Ошибка запуска приложения!'+#13+'[Не создан мьютекс]',nil); //spError мой аналог ShowMessage (точно не помню)
    Exit;
  end;
  Application.Initialize;
  ....
  try
    Application.Run;
  finally
    ReleaseMutex(srMutex);
  end;
end.

[veniside]

> Код для .dpr

в этом коде есть ненулевая вероятность того, что две копии, запущенные одновременно, сначала не найдут мютекс, а потом одна копия его создаст, а вторая откроет уже созданный. И запустятся 2 копии.

Вот так бы я написал:

var
  f_m: THandle;	// mutex
begin
  f_m := CreateMutex(nil, true, srMutexName);
  if ( (ERROR_ALREADY_EXISTS = GetLastError()) or (ERROR_ACCESS_DENIED  = GetLastError()) ) then begin
    //
    if (0 <> f_m) then CloseHandle(f_m);
    MessageBox('Another instance is already running');
  end
  else try
    //
    Application.Initialize;
    ...
    Application.Run;
    //
  finally
    CloseHandle(f_m);
  end;
end.

[Аватар]

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

>в этом коде есть ненулевая вероятность того, что две копии, запущенные одновременно, сначала не найдут мютекс, а потом одна копия его создаст, а вторая откроет уже созданный. И запустятся 2 копии.

Согласен Если очень быстро дважды вызвать одно и тоже, то вероятность есть. Правда пока не сталкивался. Нужно эксперимент провести

[Пепел Феникса]

если есть вероятность то лучше её исключить сразу.

[ZvEr_HaCkEr]

А srMutexName определяет первоначальное имя приложения, если я все правильно понял?

[Аватар]

Это строковая константа, с любым содержанием, желательно более экстравагантным для обеспечения уникальности ее содержимого, чтобы случайно не совпала с мьютексом другого приложения

[ZvEr_HaCkEr]

Всем спасибо! А как в случае, когда рубится копия приложения вывести первую копию на передний план?
P.S посмотрел здесь, но что-то не получается.