请教一个窗口激活的问题！

Question

运行环境：delphi6，win2000 server
   问题描述：如何判断运行的程序被鼠标、键盘或者其他方式激活了，我需要在激活的时候做一点事情。或者能够判断我在任务栏上点了这个程序，这样即使已经打开其他窗口，主窗口无法获得焦点也能执行我要做的事情。
   要求：程序第一次运行的时候不执行我需要在激活的时候要做的事情。
   谢谢！分不多了，见谅！！

Answer 1

procedure FormActivate(var Msg: TMessage); message WM_ACTIVATE;定义这样一个程序，当程序得到或者失去焦点的时候，会进入FormActivate过程

Answer 2

procedure WMActivate(var Msg: TMessage); message WM_ACTIVATE;
procedure TForm1.WMActivate(var Msg: TMessage);
begin
  timer1.Enabled := true ;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   DoSomething;  //做你要做的事情
   timer1.Enabled := false ;
end;