procedure StopRising;
var
  hWindow: HWND;
  lpClassName: array[0..20] of char;
begin
  hWindow := GetWindow(GetForegroundWindow, GW_HWNDFIRST);
  repeat
    GetClassName(hWindow, lpClassName, 20);
    if lpClassName = '#32770' then //判断搜索窗口的类名
      PostMessage(hWindow, WM_COMMAND, 40026, 0); //发送消息
    hWindow := GetWindow(hWindow, GW_HWNDNEXT);
  until
    hWindow = 0;
end;