Скачать: CL | DM;

Вторая копия приложения в 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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c