| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Urvin ©   (2008-02-01 21:26:00) 

Использую для запрещения запуска второй копи приложения такой код:
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-02 12:46:00) [1]

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

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

---

Urvin   (2008-02-02 10:53:00) [2]

http://urvin.ifolder.ru/5195176

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

---

Palladin   (2008-02-02 10:36:00) [3]

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

---

Urvin   (2008-02-02 10:35:00) [4]

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

---

easy   (2008-02-01 21:43:00) [5]

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

---

Игорь Шевченко   (2008-02-01 21:35:00) [6]

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


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

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

---

Наверх