插个代码试试

插个代码试试

// 使用EmbeddedWB屏蔽指定内容的网页对话框
function TForm1.EmbeddedWB1ShowMessage(Sender: TObject; HWND: Cardinal;
  lpstrText, lpstrCaption: PWideChar; dwType: Integer;
  lpstrHelpFile: PWideChar; dwHelpContext: Integer;
  var plResult: Integer): HRESULT;
begin
  if lpstrText = '要屏蔽的网页对话框内容' then
  begin
    plResult := IDCANCEL; // IDOK
    Result := S_OK;
  end
  else
    Result := S_FALSE;
end;