搖別人視窗是不好的事

var
   hand:HWND;   
   r:TRect;   
   i:integer;
begin 
   hand := GetForegroundWindow;  
   GetWindowRect(hand , r );
    for i := 0 to 4 do  
    begin    
     MoveWindow(hand,r.Left,r.Top -3,r.Right-r.Left,r.Bottom-r.Top,true ); sleep(40);
     MoveWindow(hand,r.Left-3,r.Top ,r.Right-r.Left,r.Bottom-r.Top,true ); sleep(40);
     MoveWindow(hand,r.Left,r.Top +3,r.Right-r.Left,r.Bottom-r.Top,true ); sleep(40);
     MoveWindow(hand,r.Left+3,r.Top ,r.Right-r.Left,r.Bottom-r.Top,true ); sleep(40);
    end;