Вторая копия приложения в CodeGear

← →
Urvin (2008-02-01 21:26) [0]

Использую для запрещения запуска второй копи приложения такой код:
program Project1; uses Forms, Windows, // не забудьте эту строчку Unit1 in "Unit1.pas" {Form1}; {$R *.RES} var HM: THandle; function Check: boolean; begin HM := OpenMutex(MUTEX_ALL_ACCESS, false, "MyOwnMutex"); Result := (HM <> 0); if HM = 0 then HM := CreateMutex(nil, false, "MyOwnMutex"); end; begin if Check then Exit; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.

Как при запуске второго приложения (неудачном, есснно), показать работающую форму первой копии?

← →
Игорь Шевченко © (2008-02-01 21:35) [1]

> Как при запуске второго приложения (неудачном, есснно),
> показать работающую форму первой копии?

Обозвать класс формы уникально (не TForm1, а TForm531)

и SetForegroundWindow(FindWindow("TForm531", nil))

← →
easy © (2008-02-01 21:43) [2]

http://delphiworld.narod.ru/base/one_instance8.html
http://delphiworld.narod.ru/base/one_instance10.html

← →
Urvin (2008-02-02 10:35) [3]

Не работает ни по одному из методов

← →
Palladin © (2008-02-02 10:36) [4]

Значит за метлой

← →
Urvin (2008-02-02 10:53) [5]

http://urvin.ifolder.ru/5195176

Внутри два проекта по предложенным схемам.
Один, действительно, не дает запустить вторую копию, но и первую не возвращает.
Воторой вообще мурой занимается =(

← →
Семеныч (2008-02-02 12:46) [6]

> Как при запуске второго приложения... показать
> работающую форму первой копии?

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=904

Вторая копия приложения в CodeGear Найти похожие ветки