Активизировать окно

ОГЛАВЛЕНИЕ    HOME  MAIL

Эта программа активизирует то окно, над которым находится мышь.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 50;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  p: TPoint;
begin
  GetCursorPos(p);
  SetForegroundWindow(WindowFromPoint(p));
end;