anchor.diff:    LTitle: string;
     LHWND: HWND;
   begin
  -  Result := Unknown;
  +//  Result := Unknown;
   
     LHWND := GetForegroundWindow;
     GetWindowText(LHWND, @LText[0], SizeOf(LText));
  
positive.code:         keybd_event(VK_LCONTROL, $9D, KEYEVENTF_KEYUP, 0); // Release Control
        end;
        else
          Result := 'Other app';
      end;
  
      CodeSite.SendMsg(Result);
    end;
  end;
  
  
negative.code:         SetForegroundWindow(FindWindow(nil, PChar('Skype')));
  
          keybd_event(VK_LCONTROL, $9D,0 , 0); // Press Control
          keybd_event(VK_LSHIFT, $AA,0 , 0); // Press Shift
          keybd_event(Ord('M'), Ord('M'), 0 , 0); // Press M
  
          keybd_event(Ord('M'), Ord('M'), KEYEVENTF_KEYUP , 0); // Release M
  