Как работать с таймером?

← →
Lamer_5 (2007-02-04 21:14) [0]

Всем привет!

Подскажите пожалуйста, как можно реализовать примерно следующий пример:
Программа постоянно сидит в трее. Если запущен документ с именем 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;

← →
FAskerQ © (2007-02-04 23:44) [1]

> 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;

← →
Германн © (2007-02-05 01:01) [2]

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

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

← →
Плохиш © (2007-02-05 01:12) [3]

> Lamer_5 (04.02.07 21:14)

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

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

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

Как работать с таймером? Найти похожие ветки