procedure PressButton(Button : HWND);
 var
   r : TRect;
   p : TPoint;
 begin
   GetWindowRect(Button, r);
   p := Point((r.Left + r.Right) div 2, (r.Top + r.Bottom) div 2);
   SetCursorPos(p.X, p.Y);
   mouse_event(MOUSEEVENTF_LEFTDOWN, p.X, p.Y, 0, 0);
   mouse_event(MOUSEEVENTF_LEFTUP, p.X, p.Y, 0, 0);
 end;