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 и закрывается. Всем спасибо.

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