Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Help [D5, Win2k]

yuray76 © (2002-11-27 15:38:00)
Как предотвратить запуск приложения, если оно уже открыто?

yuray76 (2002-11-27 16:50:00) [1]
Спасибо, все работает. Просто надо проэкт закривать и запускать экзешник. Ато с делфи приложение видит форму TMainForm и закрывается. Всем спасибо.

F1 (2002-11-27 16:39:00) [2]
Да, забыл сказать, у тебя выскочит
Undeclared identifier: "FindWindow"
Дык ты не расстраивайся, просто сделай
Uses Windows;
:)))

F1 (2002-11-27 16:32:00) [3]
>В код проекта - самое подходящее место!
Это который dpr
Меню Project->View Source
причем до строки
Application.CreateForm(TForm1, Form1);

down (2002-11-27 16:25:00) [4]
Нужно писать в dpr, до создания форм.

yuray76 (2002-11-27 16:24:00) [5]
может я что то не понимаю, но в даном примере Hwnd всегда будет<>0. тоесть это хендел моего приложения. Или не так?

F1 (2002-11-27 16:08:00) [6]
В код проекта - самое подходящее место!

yuray76 (2002-11-27 16:06:00) [7]
А под какое событие это вешать? Цепляю на Form1.Create - неполучается. Спасибо.

@Ujin (2002-11-27 15:40:00) [8]
//Проверка открыт ли?
Hwnd := FindWindow("TMainForm", nil);
if Hwnd <> 0 then begin
ShowMessage("Уже запущена!");
SetForegroundWindow(Hwnd);
goto lExit;
end;

Наверх

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