запуск копии программы [Delphi7]

[-Jack-]

Всем доброго времени суток. Столкнулся с таким вопросом, как запретить запуск 2 копий программы, и в том случаи если программа свернута, её развернуть и сделать её окно активным.

var
  hw : HWND;
begin
  Application.Initialize;
  Application.Title := 'My App';
  hw := CreateMutex(nil,False,'1myapp1');
  if GetLastError <> Error_ALREADY_EXISTS then
  begin
    Application.CreateForm(TForm1,Form1);
    Application.Run;
  end
  else
  begin
    Application.Terminate;
    ReleaseMutex(hw);
  end;
end.

Запрет запуска второй копии есть, но вот в чем проблема. Уже не 1 способом пробовал развернуть 1 копию программы и сделать её активной.

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

Попробуй мой вариант

[-Jack-]

По поводу OpenMutex - это я дополнил, спасибо, но вот загвоздка по поводу развернуть окно - осталась

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

Пусть мютектс пытается создасться, и вернет результат. Если успешно, то и вы продолжнаете запуск программы, иначе EPIC FAIL.

[-Jack-]

С этим я разобрался, спасибо ... Вопрос остается в том, как развернуть первую копию приложения

end
else
begin
// сюда бы волшебные команды, которые будут разворачивать уже запущенную копию программы
Application.Terminate;
ReleaseMutex(hw);
end;
end.

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

Никак. Они друг о друге не знают. Вариант без мютексов я вам по ссылке давал.

[-Jack-]

Да здравствуйте, как же никак ...?!

MainWnd:= FindWindow(nil, 'Пример');
showwindow(MainWnd, SW_HIDE);
showwindow(MainWnd, SW_SHOWMAXIMIZED);

Загвоздка в чем: когда использую код ( постом выше ) из своего приложения, то он не работает почему то ... А если из другого, то на ура ...

Возможно искать окно не только по названию, но и по другим каким либо параметрам ?

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

-Jack-, по классу окна. Первый параетр FindWindow.
Интересно, почему вы так к мютексам привязались?

[Прик]

Теоретически есть более простой и широко известный вариант проверки на запуск 2-го экземпляра приложения.
Код в dpr:

const
  MemFileSize = 127;
  MemFileName = 'one_example';

var
  MemHnd: HWND;

begin
  MemHnd := CreateFileMapping(HWND($FFFFFFFF), nil, PAGE_READWRITE, 0,
                              MemFileSize, MemFileName);
  if GetLastError <> ERROR_ALREADY_EXISTS then begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end else begin
    ShowWindow(FindWindow(nil, 'Form1'), SW_RESTORE);
    SetForegroundWindow(FindWindow(nil, 'Form1'));
  end;
  CloseHandle(MemHnd);
end.

Но советовать его для применения язык не поворачивается - после активации окна первого экземпляра приложения кнопка минимизации почему-то не работает, не отвечает на нажатие (в Д7, во всяком случае так).
Этот вариант, где есть и попутная активизация первого экземпляра, основан на поиске нужного окна в системе и его активации. Т.е. мы пытаемся активизировать окно уже "чужого" приложения.

По-другому сделано в варианте, который предлагает Человек_Борща на своем сайте (ссылка в этой теме есть). Там активацию экземпляра приложения делает сам экземпляр приложения (первый который).
А это уже совсем другой результат - при запуске второго экземпляра первый выскакивает поверх всех окон, все его кнопки работосопособны, а второй не запускается.
И пусть этот вариант несколько тяжеловеснее, но работает он так как нам надо, а не винде. Проверено на Д7.

[beegl]

или вот компонент OneInstancesEx