package body SHDocVw.IShellUIHelper8_Object is

   procedure ResetFirstBootMode
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_ResetFirstBootMode);
   end ResetFirstBootMode;

   procedure ResetSafeMode
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_ResetSafeMode);
   end ResetSafeMode;

   procedure RefreshOfflineDesktop
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_RefreshOfflineDesktop);
   end RefreshOfflineDesktop;

   procedure AddFavorite
     (This  : IShellUIHelper8_Type;
      URL   : GNATCOM.Types.VARIANT;
      Title : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free  : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_AddFavorite,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => Title,
          2 => URL),
         Free);
   end AddFavorite;

   procedure AddChannel
     (This : IShellUIHelper8_Type;
      URL  : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_AddChannel,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => URL),
         Free);
   end AddChannel;

   procedure AddDesktopComponent
     (This   : IShellUIHelper8_Type;
      URL    : GNATCOM.Types.VARIANT;
      uType  : GNATCOM.Types.VARIANT;
      Left   : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Top    : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Width  : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Height : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free   : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_AddDesktopComponent,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => Height,
          2 => Width,
          3 => Top,
          4 => Left,
          5 => uType,
          6 => URL),
         Free);
   end AddDesktopComponent;

   function IsSubscribed
     (This : IShellUIHelper8_Type;
      URL  : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IShellUIHelper8_IsSubscribed,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => URL),
         Free);
   end IsSubscribed;

   procedure NavigateAndFind
     (This           : IShellUIHelper8_Type;
      URL            : GNATCOM.Types.VARIANT;
      strQuery       : GNATCOM.Types.VARIANT;
      varTargetFrame : GNATCOM.Types.VARIANT;
      Free           : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_NavigateAndFind,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => varTargetFrame,
          2 => strQuery,
          3 => URL),
         Free);
   end NavigateAndFind;

   procedure ImportExportFavorites
     (This          : IShellUIHelper8_Type;
      fImport       : GNATCOM.Types.VARIANT;
      strImpExpPath : GNATCOM.Types.VARIANT;
      Free          : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_ImportExportFavorites,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => strImpExpPath,
          2 => fImport),
         Free);
   end ImportExportFavorites;

   procedure AutoCompleteSaveForm
     (This : IShellUIHelper8_Type;
      Form : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_AutoCompleteSaveForm,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => Form),
         Free);
   end AutoCompleteSaveForm;

   procedure AutoScan
     (This            : IShellUIHelper8_Type;
      strSearch       : GNATCOM.Types.VARIANT;
      strFailureUrl   : GNATCOM.Types.VARIANT;
      pvarTargetFrame : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free            : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_AutoScan,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvarTargetFrame,
          2 => strFailureUrl,
          3 => strSearch),
         Free);
   end AutoScan;

   procedure AutoCompleteAttach
     (This     : IShellUIHelper8_Type;
      Reserved : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free     : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_AutoCompleteAttach,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => Reserved),
         Free);
   end AutoCompleteAttach;

   function ShowBrowserUI
     (This     : IShellUIHelper8_Type;
      bstrName : GNATCOM.Types.VARIANT;
      pvarIn   : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IShellUIHelper8_ShowBrowserUI,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvarIn,
          2 => bstrName),
         Free);
   end ShowBrowserUI;

   procedure AddSearchProvider
     (This : IShellUIHelper8_Type;
      URL  : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_AddSearchProvider,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => URL),
         Free);
   end AddSearchProvider;

   procedure RunOnceShown
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_RunOnceShown);
   end RunOnceShown;

   procedure SkipRunOnce
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_SkipRunOnce);
   end SkipRunOnce;

   procedure CustomizeSettings
     (This       : IShellUIHelper8_Type;
      fSQM       : GNATCOM.Types.VARIANT;
      fPhishing  : GNATCOM.Types.VARIANT;
      bstrLocale : GNATCOM.Types.VARIANT;
      Free       : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_CustomizeSettings,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrLocale,
          2 => fPhishing,
          3 => fSQM),
         Free);
   end CustomizeSettings;

   function SqmEnabled
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_SqmEnabled);
   end SqmEnabled;

   function PhishingEnabled
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_PhishingEnabled);
   end PhishingEnabled;

   function BrandImageUri
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_BrandImageUri);
   end BrandImageUri;

   procedure SkipTabsWelcome
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_SkipTabsWelcome);
   end SkipTabsWelcome;

   procedure DiagnoseConnection
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_DiagnoseConnection);
   end DiagnoseConnection;

   procedure CustomizeClearType
     (This : IShellUIHelper8_Type;
      fSet : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_CustomizeClearType,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fSet),
         Free);
   end CustomizeClearType;

   function IsSearchProviderInstalled
     (This : IShellUIHelper8_Type;
      URL  : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IShellUIHelper8_IsSearchProviderInstalled,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => URL),
         Free);
   end IsSearchProviderInstalled;

   function IsSearchMigrated
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_IsSearchMigrated);
   end IsSearchMigrated;

   function DefaultSearchProvider
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_DefaultSearchProvider);
   end DefaultSearchProvider;

   procedure RunOnceRequiredSettingsComplete
     (This      : IShellUIHelper8_Type;
      fComplete : GNATCOM.Types.VARIANT;
      Free      : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_RunOnceRequiredSettingsComplete,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fComplete),
         Free);
   end RunOnceRequiredSettingsComplete;

   function RunOnceHasShown
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_RunOnceHasShown);
   end RunOnceHasShown;

   function SearchGuideUrl
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_SearchGuideUrl);
   end SearchGuideUrl;

   procedure AddService
     (This : IShellUIHelper8_Type;
      URL  : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_AddService,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => URL),
         Free);
   end AddService;

   function IsServiceInstalled
     (This : IShellUIHelper8_Type;
      URL  : GNATCOM.Types.VARIANT;
      Verb : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IShellUIHelper8_IsServiceInstalled,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => Verb,
          2 => URL),
         Free);
   end IsServiceInstalled;

   function InPrivateFilteringEnabled
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_InPrivateFilteringEnabled);
   end InPrivateFilteringEnabled;

   procedure AddToFavoritesBar
     (This  : IShellUIHelper8_Type;
      URL   : GNATCOM.Types.VARIANT;
      Title : GNATCOM.Types.VARIANT;
      uType : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free  : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_AddToFavoritesBar,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => uType,
          2 => Title,
          3 => URL),
         Free);
   end AddToFavoritesBar;

   procedure BuildNewTabPage
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_BuildNewTabPage);
   end BuildNewTabPage;

   procedure SetRecentlyClosedVisible
     (This     : IShellUIHelper8_Type;
      fVisible : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_SetRecentlyClosedVisible,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fVisible),
         Free);
   end SetRecentlyClosedVisible;

   procedure SetActivitiesVisible
     (This     : IShellUIHelper8_Type;
      fVisible : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_SetActivitiesVisible,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fVisible),
         Free);
   end SetActivitiesVisible;

   procedure ContentDiscoveryReset
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_ContentDiscoveryReset);
   end ContentDiscoveryReset;

   function IsSuggestedSitesEnabled
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_IsSuggestedSitesEnabled);
   end IsSuggestedSitesEnabled;

   procedure EnableSuggestedSites
     (This    : IShellUIHelper8_Type;
      fEnable : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_EnableSuggestedSites,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fEnable),
         Free);
   end EnableSuggestedSites;

   procedure NavigateToSuggestedSites
     (This            : IShellUIHelper8_Type;
      bstrRelativeUrl : GNATCOM.Types.VARIANT;
      Free            : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_NavigateToSuggestedSites,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrRelativeUrl),
         Free);
   end NavigateToSuggestedSites;

   procedure ShowTabsHelp
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_ShowTabsHelp);
   end ShowTabsHelp;

   procedure ShowInPrivateHelp
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_ShowInPrivateHelp);
   end ShowInPrivateHelp;

   function msIsSiteMode
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_msIsSiteMode);
   end msIsSiteMode;

   procedure msSiteModeShowThumbBar
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_msSiteModeShowThumbBar);
   end msSiteModeShowThumbBar;

   function msSiteModeAddThumbBarButton
     (This        : IShellUIHelper8_Type;
      bstrIconURL : GNATCOM.Types.VARIANT;
      bstrTooltip : GNATCOM.Types.VARIANT;
      Free        : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IShellUIHelper8_msSiteModeAddThumbBarButton,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrTooltip,
          2 => bstrIconURL),
         Free);
   end msSiteModeAddThumbBarButton;

   procedure msSiteModeUpdateThumbBarButton
     (This     : IShellUIHelper8_Type;
      ButtonID : GNATCOM.Types.VARIANT;
      fEnabled : GNATCOM.Types.VARIANT;
      fVisible : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_msSiteModeUpdateThumbBarButton,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fVisible,
          2 => fEnabled,
          3 => ButtonID),
         Free);
   end msSiteModeUpdateThumbBarButton;

   procedure msSiteModeSetIconOverlay
     (This            : IShellUIHelper8_Type;
      IconUrl         : GNATCOM.Types.VARIANT;
      pvarDescription : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free            : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_msSiteModeSetIconOverlay,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvarDescription,
          2 => IconUrl),
         Free);
   end msSiteModeSetIconOverlay;

   procedure msSiteModeClearIconOverlay
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_msSiteModeClearIconOverlay);
   end msSiteModeClearIconOverlay;

   procedure msAddSiteMode
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_msAddSiteMode);
   end msAddSiteMode;

   procedure msSiteModeCreateJumpList
     (This       : IShellUIHelper8_Type;
      bstrHeader : GNATCOM.Types.VARIANT;
      Free       : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_msSiteModeCreateJumpList,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrHeader),
         Free);
   end msSiteModeCreateJumpList;

   procedure msSiteModeAddJumpListItem
     (This           : IShellUIHelper8_Type;
      bstrName       : GNATCOM.Types.VARIANT;
      bstrActionUri  : GNATCOM.Types.VARIANT;
      bstrIconUri    : GNATCOM.Types.VARIANT;
      pvarWindowType : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free           : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_msSiteModeAddJumpListItem,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvarWindowType,
          2 => bstrIconUri,
          3 => bstrActionUri,
          4 => bstrName),
         Free);
   end msSiteModeAddJumpListItem;

   procedure msSiteModeClearJumpList
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_msSiteModeClearJumpList);
   end msSiteModeClearJumpList;

   procedure msSiteModeShowJumpList
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_msSiteModeShowJumpList);
   end msSiteModeShowJumpList;

   function msSiteModeAddButtonStyle
     (This        : IShellUIHelper8_Type;
      uiButtonID  : GNATCOM.Types.VARIANT;
      bstrIconURL : GNATCOM.Types.VARIANT;
      bstrTooltip : GNATCOM.Types.VARIANT;
      Free        : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IShellUIHelper8_msSiteModeAddButtonStyle,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrTooltip,
          2 => bstrIconURL,
          3 => uiButtonID),
         Free);
   end msSiteModeAddButtonStyle;

   procedure msSiteModeShowButtonStyle
     (This       : IShellUIHelper8_Type;
      uiButtonID : GNATCOM.Types.VARIANT;
      uiStyleID  : GNATCOM.Types.VARIANT;
      Free       : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_msSiteModeShowButtonStyle,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => uiStyleID,
          2 => uiButtonID),
         Free);
   end msSiteModeShowButtonStyle;

   procedure msSiteModeActivate
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_msSiteModeActivate);
   end msSiteModeActivate;

   function msIsSiteModeFirstRun
     (This           : IShellUIHelper8_Type;
      fPreserveState : GNATCOM.Types.VARIANT;
      Free           : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IShellUIHelper8_msIsSiteModeFirstRun,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fPreserveState),
         Free);
   end msIsSiteModeFirstRun;

   procedure msAddTrackingProtectionList
     (This           : IShellUIHelper8_Type;
      URL            : GNATCOM.Types.VARIANT;
      bstrFilterName : GNATCOM.Types.VARIANT;
      Free           : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_msAddTrackingProtectionList,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrFilterName,
          2 => URL),
         Free);
   end msAddTrackingProtectionList;

   function msTrackingProtectionEnabled
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_msTrackingProtectionEnabled);
   end msTrackingProtectionEnabled;

   function msActiveXFilteringEnabled
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_msActiveXFilteringEnabled);
   end msActiveXFilteringEnabled;

   function msProvisionNetworks
     (This                : IShellUIHelper8_Type;
      bstrProvisioningXml : GNATCOM.Types.VARIANT;
      Free                : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IShellUIHelper8_msProvisionNetworks,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrProvisioningXml),
         Free);
   end msProvisionNetworks;

   procedure msReportSafeUrl
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_msReportSafeUrl);
   end msReportSafeUrl;

   procedure msSiteModeRefreshBadge
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_msSiteModeRefreshBadge);
   end msSiteModeRefreshBadge;

   procedure msSiteModeClearBadge
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_msSiteModeClearBadge);
   end msSiteModeClearBadge;

   procedure msDiagnoseConnectionUILess
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_msDiagnoseConnectionUILess);
   end msDiagnoseConnectionUILess;

   procedure msLaunchNetworkClientHelp
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_msLaunchNetworkClientHelp);
   end msLaunchNetworkClientHelp;

   procedure msChangeDefaultBrowser
     (This    : IShellUIHelper8_Type;
      fChange : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_msChangeDefaultBrowser,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fChange),
         Free);
   end msChangeDefaultBrowser;

   procedure msStopPeriodicTileUpdate
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_msStopPeriodicTileUpdate);
   end msStopPeriodicTileUpdate;

   procedure msStartPeriodicTileUpdate
     (This               : IShellUIHelper8_Type;
      pollingUris        : GNATCOM.Types.VARIANT;
      startTime          : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      uiUpdateRecurrence : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free               : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_msStartPeriodicTileUpdate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => uiUpdateRecurrence,
          2 => startTime,
          3 => pollingUris),
         Free);
   end msStartPeriodicTileUpdate;

   procedure msStartPeriodicTileUpdateBatch
     (This               : IShellUIHelper8_Type;
      pollingUris        : GNATCOM.Types.VARIANT;
      startTime          : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      uiUpdateRecurrence : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free               : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_msStartPeriodicTileUpdateBatch,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => uiUpdateRecurrence,
          2 => startTime,
          3 => pollingUris),
         Free);
   end msStartPeriodicTileUpdateBatch;

   procedure msClearTile
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_msClearTile);
   end msClearTile;

   procedure msEnableTileNotificationQueue
     (This    : IShellUIHelper8_Type;
      fChange : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_msEnableTileNotificationQueue,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fChange),
         Free);
   end msEnableTileNotificationQueue;

   function msPinnedSiteState
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_msPinnedSiteState);
   end msPinnedSiteState;

   procedure msEnableTileNotificationQueueForSquare150x150
     (This    : IShellUIHelper8_Type;
      fChange : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_msEnableTileNotificationQueueForSquare150x150,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fChange),
         Free);
   end msEnableTileNotificationQueueForSquare150x150;

   procedure msEnableTileNotificationQueueForWide310x150
     (This    : IShellUIHelper8_Type;
      fChange : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_msEnableTileNotificationQueueForWide310x150,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fChange),
         Free);
   end msEnableTileNotificationQueueForWide310x150;

   procedure msEnableTileNotificationQueueForSquare310x310
     (This    : IShellUIHelper8_Type;
      fChange : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_msEnableTileNotificationQueueForSquare310x310,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fChange),
         Free);
   end msEnableTileNotificationQueueForSquare310x310;

   procedure msScheduledTileNotification
     (This                : IShellUIHelper8_Type;
      bstrNotificationXml : GNATCOM.Types.VARIANT;
      bstrNotificationId  : GNATCOM.Types.VARIANT;
      bstrNotificationTag : GNATCOM.Types.VARIANT;
      startTime           : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      expirationTime      : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free                : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_msScheduledTileNotification,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => expirationTime,
          2 => startTime,
          3 => bstrNotificationTag,
          4 => bstrNotificationId,
          5 => bstrNotificationXml),
         Free);
   end msScheduledTileNotification;

   procedure msRemoveScheduledTileNotification
     (This               : IShellUIHelper8_Type;
      bstrNotificationId : GNATCOM.Types.VARIANT;
      Free               : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_msRemoveScheduledTileNotification,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrNotificationId),
         Free);
   end msRemoveScheduledTileNotification;

   procedure msStartPeriodicBadgeUpdate
     (This               : IShellUIHelper8_Type;
      pollingUri         : GNATCOM.Types.VARIANT;
      startTime          : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      uiUpdateRecurrence : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free               : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_msStartPeriodicBadgeUpdate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => uiUpdateRecurrence,
          2 => startTime,
          3 => pollingUri),
         Free);
   end msStartPeriodicBadgeUpdate;

   procedure msStopPeriodicBadgeUpdate
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_msStopPeriodicBadgeUpdate);
   end msStopPeriodicBadgeUpdate;

   procedure msLaunchInternetOptions
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_msLaunchInternetOptions);
   end msLaunchInternetOptions;

   procedure SetExperimentalFlag
     (This           : IShellUIHelper8_Type;
      bstrFlagString : GNATCOM.Types.VARIANT;
      vfFlag         : GNATCOM.Types.VARIANT;
      Free           : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_SetExperimentalFlag,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => vfFlag,
          2 => bstrFlagString),
         Free);
   end SetExperimentalFlag;

   function GetExperimentalFlag
     (This           : IShellUIHelper8_Type;
      bstrFlagString : GNATCOM.Types.VARIANT;
      Free           : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IShellUIHelper8_GetExperimentalFlag,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrFlagString),
         Free);
   end GetExperimentalFlag;

   procedure SetExperimentalValue
     (This            : IShellUIHelper8_Type;
      bstrValueString : GNATCOM.Types.VARIANT;
      dwValue         : GNATCOM.Types.VARIANT;
      Free            : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_SetExperimentalValue,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => dwValue,
          2 => bstrValueString),
         Free);
   end SetExperimentalValue;

   function GetExperimentalValue
     (This            : IShellUIHelper8_Type;
      bstrValueString : GNATCOM.Types.VARIANT;
      Free            : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IShellUIHelper8_GetExperimentalValue,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrValueString),
         Free);
   end GetExperimentalValue;

   procedure ResetAllExperimentalFlagsAndValues
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_ResetAllExperimentalFlagsAndValues);
   end ResetAllExperimentalFlagsAndValues;

   function GetNeedIEAutoLaunchFlag
     (This    : IShellUIHelper8_Type;
      bstrUrl : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IShellUIHelper8_GetNeedIEAutoLaunchFlag,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrUrl),
         Free);
   end GetNeedIEAutoLaunchFlag;

   procedure SetNeedIEAutoLaunchFlag
     (This    : IShellUIHelper8_Type;
      bstrUrl : GNATCOM.Types.VARIANT;
      flag    : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_SetNeedIEAutoLaunchFlag,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => flag,
          2 => bstrUrl),
         Free);
   end SetNeedIEAutoLaunchFlag;

   function HasNeedIEAutoLaunchFlag
     (This    : IShellUIHelper8_Type;
      bstrUrl : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IShellUIHelper8_HasNeedIEAutoLaunchFlag,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrUrl),
         Free);
   end HasNeedIEAutoLaunchFlag;

   procedure LaunchIE
     (This      : IShellUIHelper8_Type;
      bstrUrl   : GNATCOM.Types.VARIANT;
      automated : GNATCOM.Types.VARIANT;
      Free      : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_LaunchIE,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => automated,
          2 => bstrUrl),
         Free);
   end LaunchIE;

   function GetCVListData
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_GetCVListData);
   end GetCVListData;

   function GetCVListLocalData
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_GetCVListLocalData);
   end GetCVListLocalData;

   function GetEMIEListData
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_GetEMIEListData);
   end GetEMIEListData;

   function GetEMIEListLocalData
     (This : IShellUIHelper8_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IShellUIHelper8_GetEMIEListLocalData);
   end GetEMIEListLocalData;

   procedure OpenFavoritesPane
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_OpenFavoritesPane);
   end OpenFavoritesPane;

   procedure OpenFavoritesSettings
     (This : IShellUIHelper8_Type)
   is
   begin
      Invoke (This, IShellUIHelper8_OpenFavoritesSettings);
   end OpenFavoritesSettings;

   procedure LaunchInHVSI
     (This    : IShellUIHelper8_Type;
      bstrUrl : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         IShellUIHelper8_LaunchInHVSI,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrUrl),
         Free);
   end LaunchInHVSI;

end SHDocVw.IShellUIHelper8_Object;

