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

Help   Найти похожие ветки 

← →
yuray76 ©   (2002-11-27 15:38) [0]

Как предотвратить запуск приложения, если оно уже открыто?

---

← →
@Ujin ©   (2002-11-27 15:40) [1]

//Проверка открыт ли?
Hwnd := FindWindow("TMainForm", nil);
if Hwnd <> 0 then begin
ShowMessage("Уже запущена!");
SetForegroundWindow(Hwnd);
goto lExit;
end;

---

← →
yuray76 ©   (2002-11-27 16:06) [2]

А под какое событие это вешать? Цепляю на Form1.Create - неполучается. Спасибо.

---

← →
F1 ©   (2002-11-27 16:08) [3]

В код проекта - самое подходящее место!

---

← →
yuray76 ©   (2002-11-27 16:24) [4]

может я что то не понимаю, но в даном примере Hwnd всегда будет<>0. тоесть это хендел моего приложения. Или не так?

---

← →
down   (2002-11-27 16:25) [5]

Нужно писать в dpr, до создания форм.

---

← →
F1 ©   (2002-11-27 16:32) [6]

>В код проекта - самое подходящее место!
Это который dpr
Меню Project->View Source
причем до строки
Application.CreateForm(TForm1, Form1);

---

← →
F1 ©   (2002-11-27 16:39) [7]

Да, забыл сказать, у тебя выскочит
Undeclared identifier: "FindWindow"
Дык ты не расстраивайся, просто сделай
Uses Windows;
:)))

---

← →
yuray76 ©   (2002-11-27 16:50) [8]

Спасибо, все работает. Просто надо проэкт закривать и запускать экзешник. Ато с делфи приложение видит форму TMainForm и закрывается. Всем спасибо.

---

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

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



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