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

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

Как работать с таймером? [D7, XP]

Lamer_5 ©   (2007-02-04 21:14:00) 

Всем привет!

Подскажите пожалуйста, как можно реализовать примерно следующий пример:
Программа постоянно сидит в трее. Если запущен документ с именем 1, то программа продолжает сидеть в трее, а если открыт документ с именем 2, то программа должна развернуться. Хотелось бы это проделать с таймером, но проблема в том, что класс окна один и тот же, но имена разные. Что-то не получается.
Помогите пожалуйста!

Вот мой кусок кода:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 if findwindow('IEFrame','1')<>0 then //Если имя окна "1", то все ОК
   begin
   form1.TrayIcon1.HideMainForm end else //Продолжаем сидеть в трее
begin
 if findwindow('IEFrame','2')<>0 then //если имя окна "2" то пора показать
   begin
   form1.TrayIcon1.ShowMainForm; // показать саму форму
end;
end;
end;


---

Lex_!   (2007-02-05 04:35:00) [1]

> Германн ©   (05.02.07 01:01) [2]

Да есть такой в дельфе покрайней мере в 2006 ..
ну и сторонние соответственно бывают..  в трее значек висел чтоб ..

---

Плохиш   (2007-02-05 01:12:00) [2]

> Lamer_5   (04.02.07 21:14)  

Если IEFrame это то, что я подумал, то имена окон "1" и "2" неправильные.

---

Германн   (2007-02-05 01:01:00) [3]

> Lamer_5   (04.02.07 21:14)
...
> Что-то не получается.

А что за компонент такой TrayIcon?

---

FAskerQ   (2007-02-04 23:44:00) [4]

> Lamer_5   (04.02.07 21:14)  


Может просто вот так?

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 if FindWindow('IEFrame', '2') <> 0 then
 begin
   Form1.Show;
   SetForeGroundWindow(Form1.Handle);
 end;
end;

---

Наверх