作成日：

TEdgeBrowserでヒストリーをクリアする

Delphiのバージョンは12.1です。

「戻る」を無効化したい

NavigateやNavigateToStringで表示内容を更新するとコンテキストメニューの「戻る」などの操作で古い内容が表示されてしまいます。

これを防ぐ方法の一つとしてヒストリーのクリアがあります。

ClearBrowsingData

ClearBrowsingDataを使うとヒストリーのクリアができます。

var
  WebView: ICoreWebView2_13;
  Profile: ICoreWebView2Profile;
  Profile2: ICoreWebView2Profile2;
begin
  if Supports(EdgeBrowser1.DefaultInterface, ICoreWebView2_13, WebView) then
    if WebView.Get_Profile(Profile) = S_OK then
      if Supports(Profile, ICoreWebView2Profile2, Profile2) then
        Profile2.ClearBrowsingData(COREWEBVIEW2_BROWSING_DATA_KINDS_BROWSING_HISTORY, nil);
end;

参考リンク