Вывод приложения на передний план...

← →
МитяЙ2 © (2003-03-23 10:41) [0]

У меня в программе есть проверка на повторный запуск.
И при этом повторном запуске я хочу вывести на передний
план уже ранее запущенную программу, и не запускать
второй экземпляр приложения.

Мастера подскажите, почему следующий код (в MyProg.dpr) не работает:

my_hwnd:THandle;

my_hwnd:=FindWindow("TfmMyProg", nil);
if my_hwnd<>0 then // сюда мы попадаем, проверял в отладчике (т.е. форму находит этот код)
Begin
ShowWindow(FindWindow("TfmMyProg", nil),SW_SHOW); // это не дает нужного результата!
SetForegroundWindow(my_hwnd); // это работает - заметно, когда окно поверх остальных.
End;

P.S. Прочитал много справок по повторному запуску приложений, но все, что там есть не помоголо!

Заранее, ОЧЕНЬ благодарен!

МитяЙ.

← →
Song © (2003-03-23 11:08) [1]

Вот этой строчкой
ShowWindow(FindWindow("TfmMyProg", nil),SW_SHOW);

Вы пытаетесь восстановить приложение? Из какого состояния? Из минимизированного? если нет, тогда для чего она нужна.
SetForeGroundWindow() достаточно должно быть.

← →
Митяй2 © (2003-03-23 11:37) [2]

1. Ладно ShowWindow убираю, т.к. приложение - restore
2. SetForeGroundWindow не работает, хоть убей!

И в XP и в Windows 98SE

← →
Митяй2 © (2003-03-23 11:41) [3]

Это мистика какая-то!
Может из-за каких-нибудь свойств ФОРМЫ, имеющей тип "TfmMyProg"
или ????????

← →
Anatoly Podgoretsky © (2003-03-23 12:27) [4]

Работает защита от выпрыгунчикоы, которые хотят в самый не подходящий момент выпругнуть на передний план.

← →
Митяй2 © (2003-03-23 12:38) [5]

Анатолий, в системе что-ли?

Если да, то где?

Если прикол - то, где взять ВЛОМЩИК от выпрыгунчиков? :-))))

2Митяй2 © (23.03.03 11:37)
Если приложение - restore, тогда убирать ничего не надо, просто используйте константу SW_RESTORE

Оказывается у меня выше FindWindow("TfmMyProg", nil) стояло (прорабатывало любом случае):

Application.Initialize;
Application.Title := "caption";
Application.CreateForm(TfmMyProg, fmMyProg);

Т.е. в системе было несколько созданных окон типа TfmMyProg.

Извиняйте, кого зря побеспокоил.

Вывод приложения на передний план... Найти похожие ветки