--  Generated by             : BindCOM
--  Generated on             : 16.08.2017 18:06:47
--  Library Name             : SHDocVw
--  Library Documentation    : Microsoft Internet Controls
--  Library Version          : 1.1
--  Library LIBID            : {EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}
--  Elements in Type Library : 37


with Ada.Unchecked_Conversion;
with Interfaces.C;

with GNATCOM.Types;
with GNATCOM.GUID;

package SHDocVw is

   type IWebBrowser;
   subtype DWebBrowserEvents is GNATCOM.Types.Pointer_To_IDispatch;
   subtype CommandStateChangeConstants is Interfaces.C.long;
   type IWebBrowserApp;
   type IWebBrowser2;
   subtype OLECMDID is Interfaces.C.long;
   subtype OLECMDF is Interfaces.C.long;
   subtype OLECMDEXECOPT is Interfaces.C.long;
   subtype tagREADYSTATE is Interfaces.C.long;
   subtype SecureLockIconConstants is Interfaces.C.long;
   subtype NewProcessCauseConstants is Interfaces.C.long;
   subtype DWebBrowserEvents2 is GNATCOM.Types.Pointer_To_IDispatch;
   subtype ShellWindowTypeConstants is Interfaces.C.long;
   subtype ShellWindowFindWindowOptions is Interfaces.C.long;
   subtype DShellWindowsEvents is GNATCOM.Types.Pointer_To_IDispatch;
   type IShellWindows;
   type IShellUIHelper;
   type IShellUIHelper2;
   type IShellUIHelper3;
   type IShellUIHelper4;
   type IShellUIHelper5;
   type IShellUIHelper6;
   type IShellUIHelper7;
   type IShellUIHelper8;
   subtype DShellNameSpaceEvents is GNATCOM.Types.Pointer_To_IDispatch;
   type IShellFavoritesNameSpace;
   type IShellNameSpace;
   type IScriptErrorList;


   type Pointer_To_IWebBrowser is access all IWebBrowser;
   type Pointer_To_IWebBrowserApp is access all IWebBrowserApp;
   type Pointer_To_IWebBrowser2 is access all IWebBrowser2;
   type Pointer_To_OLECMDF is access all OLECMDF;
   type Pointer_To_tagREADYSTATE is access all tagREADYSTATE;
   type Pointer_To_IShellWindows is access all IShellWindows;
   type Pointer_To_IShellUIHelper is access all IShellUIHelper;
   type Pointer_To_IShellUIHelper2 is access all IShellUIHelper2;
   type Pointer_To_IShellUIHelper3 is access all IShellUIHelper3;
   type Pointer_To_IShellUIHelper4 is access all IShellUIHelper4;
   type Pointer_To_IShellUIHelper5 is access all IShellUIHelper5;
   type Pointer_To_IShellUIHelper6 is access all IShellUIHelper6;
   type Pointer_To_IShellUIHelper7 is access all IShellUIHelper7;
   type Pointer_To_IShellUIHelper8 is access all IShellUIHelper8;
   type Pointer_To_IShellFavoritesNameSpace is access all IShellFavoritesNameSpace;
   type Pointer_To_IShellNameSpace is access all IShellNameSpace;
   type Pointer_To_IScriptErrorList is access all IScriptErrorList;


   LIBID_SHDocVw : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}");


   --  Element Index         : 0
   --  Element Name          : IWebBrowser
   --  Element Documentation : Web Browser interface
   --  Element Type          : Dispatch
   
   IID_IWebBrowser : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}");
   
   type af_IWebBrowser_QueryInterface is access
     function (This   : access IWebBrowser;
               riid   : GNATCOM.Types.Pointer_To_GUID;
               ppvObj : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IWebBrowser_QueryInterface);
   
   type af_IWebBrowser_AddRef is access
     function (This : access IWebBrowser)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IWebBrowser_AddRef);
   
   type af_IWebBrowser_Release is access
     function (This : access IWebBrowser)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IWebBrowser_Release);
   
   type af_IWebBrowser_GetTypeInfoCount is access
     function (This    : access IWebBrowser;
               pctinfo : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IWebBrowser_GetTypeInfoCount);
   
   type af_IWebBrowser_GetTypeInfo is access
     function (This    : access IWebBrowser;
               itinfo  : Interfaces.C.unsigned;
               lcid    : Interfaces.C.unsigned_long;
               pptinfo : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IWebBrowser_GetTypeInfo);
   
   type af_IWebBrowser_GetIDsOfNames is access
     function (This      : access IWebBrowser;
               riid      : GNATCOM.Types.Pointer_To_GUID;
               rgszNames : GNATCOM.Types.Pointer_To_Pointer_To_char;
               cNames    : Interfaces.C.unsigned;
               lcid      : Interfaces.C.unsigned_long;
               rgdispid  : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IWebBrowser_GetIDsOfNames);
   
   type af_IWebBrowser_Invoke is access
     function (This         : access IWebBrowser;
               dispidMember : Interfaces.C.long;
               riid         : GNATCOM.Types.Pointer_To_GUID;
               lcid         : Interfaces.C.unsigned_long;
               wFlags       : Interfaces.C.unsigned_short;
               pdispparams  : GNATCOM.Types.Pointer_To_DISPPARAMS;
               pvarResult   : access GNATCOM.Types.VARIANT;
               pexcepinfo   : GNATCOM.Types.Pointer_To_EXCEPINFO;
               puArgErr     : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IWebBrowser_Invoke);
   
   type af_IWebBrowser_GoBack is access
     function (This : access IWebBrowser)
     return GNATCOM.Types.HRESULT;
   --  Navigates to the previous item in the history list.
   pragma Convention (StdCall, af_IWebBrowser_GoBack);
   
   type af_IWebBrowser_GoForward is access
     function (This : access IWebBrowser)
     return GNATCOM.Types.HRESULT;
   --  Navigates to the next item in the history list.
   pragma Convention (StdCall, af_IWebBrowser_GoForward);
   
   type af_IWebBrowser_GoHome is access
     function (This : access IWebBrowser)
     return GNATCOM.Types.HRESULT;
   --  Go home/start page.
   pragma Convention (StdCall, af_IWebBrowser_GoHome);
   
   type af_IWebBrowser_GoSearch is access
     function (This : access IWebBrowser)
     return GNATCOM.Types.HRESULT;
   --  Go Search Page.
   pragma Convention (StdCall, af_IWebBrowser_GoSearch);
   
   type af_IWebBrowser_Navigate is access
     function (This            : access IWebBrowser;
               URL             : GNATCOM.Types.BSTR;
               Flags           : access GNATCOM.Types.VARIANT;
               TargetFrameName : access GNATCOM.Types.VARIANT;
               PostData        : access GNATCOM.Types.VARIANT;
               Headers         : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   --  Navigates to a URL or file.
   pragma Convention (StdCall, af_IWebBrowser_Navigate);
   
   type af_IWebBrowser_Refresh is access
     function (This : access IWebBrowser)
     return GNATCOM.Types.HRESULT;
   --  Refresh the currently viewed page.
   pragma Convention (StdCall, af_IWebBrowser_Refresh);
   
   type af_IWebBrowser_Refresh2 is access
     function (This  : access IWebBrowser;
               Level : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   --  Refresh the currently viewed page.
   pragma Convention (StdCall, af_IWebBrowser_Refresh2);
   
   type af_IWebBrowser_Stop is access
     function (This : access IWebBrowser)
     return GNATCOM.Types.HRESULT;
   --  Stops opening a file.
   pragma Convention (StdCall, af_IWebBrowser_Stop);
   
   type af_IWebBrowser_Get_Application is access
     function (This   : access IWebBrowser;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  Returns the application automation object if accessible, this automation
   --  object otherwise..
   pragma Convention (StdCall, af_IWebBrowser_Get_Application);
   
   type af_IWebBrowser_Get_Parent is access
     function (This   : access IWebBrowser;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  Returns the automation object of the container/parent if one exists or this
   --  automation object.
   pragma Convention (StdCall, af_IWebBrowser_Get_Parent);
   
   type af_IWebBrowser_Get_Container is access
     function (This   : access IWebBrowser;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  Returns the container/parent automation object, if any.
   pragma Convention (StdCall, af_IWebBrowser_Get_Container);
   
   type af_IWebBrowser_Get_Document is access
     function (This   : access IWebBrowser;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  Returns the active Document automation object, if any.
   pragma Convention (StdCall, af_IWebBrowser_Get_Document);
   
   type af_IWebBrowser_Get_TopLevelContainer is access
     function (This  : access IWebBrowser;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Returns True if this is the top level object.
   pragma Convention (StdCall, af_IWebBrowser_Get_TopLevelContainer);
   
   type af_IWebBrowser_Get_Type is access
     function (This  : access IWebBrowser;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Returns the type of the contained document object.
   pragma Convention (StdCall, af_IWebBrowser_Get_Type);
   
   type af_IWebBrowser_Get_Left is access
     function (This : access IWebBrowser;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   --  The horizontal position (pixels) of the frame window relative to the
   --  screen/container.
   pragma Convention (StdCall, af_IWebBrowser_Get_Left);
   
   type af_IWebBrowser_Put_Left is access
     function (This : access IWebBrowser;
               pl   : Interfaces.C.long)
     return GNATCOM.Types.HRESULT;
   --  The horizontal position (pixels) of the frame window relative to the
   --  screen/container.
   pragma Convention (StdCall, af_IWebBrowser_Put_Left);
   
   type af_IWebBrowser_Get_Top is access
     function (This : access IWebBrowser;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   --  The vertical position (pixels) of the frame window relative to the
   --  screen/container.
   pragma Convention (StdCall, af_IWebBrowser_Get_Top);
   
   type af_IWebBrowser_Put_Top is access
     function (This : access IWebBrowser;
               pl   : Interfaces.C.long)
     return GNATCOM.Types.HRESULT;
   --  The vertical position (pixels) of the frame window relative to the
   --  screen/container.
   pragma Convention (StdCall, af_IWebBrowser_Put_Top);
   
   type af_IWebBrowser_Get_Width is access
     function (This : access IWebBrowser;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   --  The horizontal dimension (pixels) of the frame window/object.
   pragma Convention (StdCall, af_IWebBrowser_Get_Width);
   
   type af_IWebBrowser_Put_Width is access
     function (This : access IWebBrowser;
               pl   : Interfaces.C.long)
     return GNATCOM.Types.HRESULT;
   --  The horizontal dimension (pixels) of the frame window/object.
   pragma Convention (StdCall, af_IWebBrowser_Put_Width);
   
   type af_IWebBrowser_Get_Height is access
     function (This : access IWebBrowser;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   --  The vertical dimension (pixels) of the frame window/object.
   pragma Convention (StdCall, af_IWebBrowser_Get_Height);
   
   type af_IWebBrowser_Put_Height is access
     function (This : access IWebBrowser;
               pl   : Interfaces.C.long)
     return GNATCOM.Types.HRESULT;
   --  The vertical dimension (pixels) of the frame window/object.
   pragma Convention (StdCall, af_IWebBrowser_Put_Height);
   
   type af_IWebBrowser_Get_LocationName is access
     function (This         : access IWebBrowser;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Gets the short (UI-friendly) name of the URL/file currently viewed.
   pragma Convention (StdCall, af_IWebBrowser_Get_LocationName);
   
   type af_IWebBrowser_Get_LocationURL is access
     function (This        : access IWebBrowser;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Gets the full URL/path currently viewed.
   pragma Convention (StdCall, af_IWebBrowser_Get_LocationURL);
   
   type af_IWebBrowser_Get_Busy is access
     function (This  : access IWebBrowser;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Query to see if something is still in progress.
   pragma Convention (StdCall, af_IWebBrowser_Get_Busy);
   
   type IWebBrowserVtbl;
   type Pointer_To_IWebBrowserVtbl is access all IWebBrowserVtbl;
   
   type IWebBrowser is
      record
         Vtbl : Pointer_To_IWebBrowserVtbl;
      end record;
   pragma Convention (C_Pass_By_Copy, IWebBrowser);
   
   type IWebBrowserVtbl is
      record
         QueryInterface        : af_IWebBrowser_QueryInterface;
         AddRef                : af_IWebBrowser_AddRef;
         Release               : af_IWebBrowser_Release;
         GetTypeInfoCount      : af_IWebBrowser_GetTypeInfoCount;
         GetTypeInfo           : af_IWebBrowser_GetTypeInfo;
         GetIDsOfNames         : af_IWebBrowser_GetIDsOfNames;
         Invoke                : af_IWebBrowser_Invoke;
         GoBack                : af_IWebBrowser_GoBack;
         GoForward             : af_IWebBrowser_GoForward;
         GoHome                : af_IWebBrowser_GoHome;
         GoSearch              : af_IWebBrowser_GoSearch;
         Navigate              : af_IWebBrowser_Navigate;
         Refresh               : af_IWebBrowser_Refresh;
         Refresh2              : af_IWebBrowser_Refresh2;
         Stop                  : af_IWebBrowser_Stop;
         Get_Application       : af_IWebBrowser_Get_Application;
         Get_Parent            : af_IWebBrowser_Get_Parent;
         Get_Container         : af_IWebBrowser_Get_Container;
         Get_Document          : af_IWebBrowser_Get_Document;
         Get_TopLevelContainer : af_IWebBrowser_Get_TopLevelContainer;
         Get_Type              : af_IWebBrowser_Get_Type;
         Get_Left              : af_IWebBrowser_Get_Left;
         Put_Left              : af_IWebBrowser_Put_Left;
         Get_Top               : af_IWebBrowser_Get_Top;
         Put_Top               : af_IWebBrowser_Put_Top;
         Get_Width             : af_IWebBrowser_Get_Width;
         Put_Width             : af_IWebBrowser_Put_Width;
         Get_Height            : af_IWebBrowser_Get_Height;
         Put_Height            : af_IWebBrowser_Put_Height;
         Get_LocationName      : af_IWebBrowser_Get_LocationName;
         Get_LocationURL       : af_IWebBrowser_Get_LocationURL;
         Get_Busy              : af_IWebBrowser_Get_Busy;
      end record;
   pragma Convention (C_Pass_By_Copy, IWebBrowserVtbl);
   
   function To_Pointer_To_IWebBrowser is
     new Ada.Unchecked_Conversion
     (GNATCOM.Types.Pointer_To_Void, Pointer_To_IWebBrowser);
   
   

   --  Element Index         : 0
   --  Element Name          : IWebBrowser
   --  Element Documentation : Web Browser interface
   --  Element Type          : Dispatch
   
   IWebBrowser_GoBack                : constant := 100;
   IWebBrowser_GoForward             : constant := 101;
   IWebBrowser_GoHome                : constant := 102;
   IWebBrowser_GoSearch              : constant := 103;
   IWebBrowser_Navigate              : constant := 104;
   IWebBrowser_Refresh               : constant := -550;
   IWebBrowser_Refresh2              : constant := 105;
   IWebBrowser_Stop                  : constant := 106;
   IWebBrowser_Get_Application       : constant := 200;
   IWebBrowser_Get_Parent            : constant := 201;
   IWebBrowser_Get_Container         : constant := 202;
   IWebBrowser_Get_Document          : constant := 203;
   IWebBrowser_Get_TopLevelContainer : constant := 204;
   IWebBrowser_Get_Type              : constant := 205;
   IWebBrowser_Get_Left              : constant := 206;
   IWebBrowser_Put_Left              : constant := 206;
   IWebBrowser_Get_Top               : constant := 207;
   IWebBrowser_Put_Top               : constant := 207;
   IWebBrowser_Get_Width             : constant := 208;
   IWebBrowser_Put_Width             : constant := 208;
   IWebBrowser_Get_Height            : constant := 209;
   IWebBrowser_Put_Height            : constant := 209;
   IWebBrowser_Get_LocationName      : constant := 210;
   IWebBrowser_Get_LocationURL       : constant := 211;
   IWebBrowser_Get_Busy              : constant := 212;
   
   

   --  Element Index         : 1
   --  Element Name          : DWebBrowserEvents
   --  Element Documentation : Web Browser Control Events (old)
   --  Element Type          : Dispatch
   
   IID_DWebBrowserEvents : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}");
   
   
   DWebBrowserEvents_BeforeNavigate        : constant := 100;
   DWebBrowserEvents_NavigateComplete      : constant := 101;
   DWebBrowserEvents_StatusTextChange      : constant := 102;
   DWebBrowserEvents_ProgressChange        : constant := 108;
   DWebBrowserEvents_DownloadComplete      : constant := 104;
   DWebBrowserEvents_CommandStateChange    : constant := 105;
   DWebBrowserEvents_DownloadBegin         : constant := 106;
   DWebBrowserEvents_NewWindow             : constant := 107;
   DWebBrowserEvents_TitleChange           : constant := 113;
   DWebBrowserEvents_FrameBeforeNavigate   : constant := 200;
   DWebBrowserEvents_FrameNavigateComplete : constant := 201;
   DWebBrowserEvents_FrameNewWindow        : constant := 204;
   DWebBrowserEvents_Quit                  : constant := 103;
   DWebBrowserEvents_WindowMove            : constant := 109;
   DWebBrowserEvents_WindowResize          : constant := 110;
   DWebBrowserEvents_WindowActivate        : constant := 111;
   DWebBrowserEvents_PropertyChange        : constant := 112;
   
   
   --  Element Index         : 2
   --  Element Name          : CommandStateChangeConstants
   --  Element Documentation : Constants for WebBrowser CommandStateChange
   --  Element Type          : Enumeration
   
   CSC_UPDATECOMMANDS  : constant := -1;
   --  Command Change
   CSC_NAVIGATEFORWARD : constant := 1;
   --  Navigate Forward
   CSC_NAVIGATEBACK    : constant := 2;
   --  Navigate Back
   

   --  Element Index         : 3
   --  Element Name          : IWebBrowserApp
   --  Element Documentation : Web Browser Application Interface.
   --  Element Type          : Dispatch
   
   IID_IWebBrowserApp : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{0002DF05-0000-0000-C000-000000000046}");
   
   type af_IWebBrowserApp_QueryInterface is access
     function (This   : access IWebBrowserApp;
               riid   : GNATCOM.Types.Pointer_To_GUID;
               ppvObj : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IWebBrowserApp_QueryInterface);
   
   type af_IWebBrowserApp_AddRef is access
     function (This : access IWebBrowserApp)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IWebBrowserApp_AddRef);
   
   type af_IWebBrowserApp_Release is access
     function (This : access IWebBrowserApp)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IWebBrowserApp_Release);
   
   type af_IWebBrowserApp_GetTypeInfoCount is access
     function (This    : access IWebBrowserApp;
               pctinfo : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IWebBrowserApp_GetTypeInfoCount);
   
   type af_IWebBrowserApp_GetTypeInfo is access
     function (This    : access IWebBrowserApp;
               itinfo  : Interfaces.C.unsigned;
               lcid    : Interfaces.C.unsigned_long;
               pptinfo : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IWebBrowserApp_GetTypeInfo);
   
   type af_IWebBrowserApp_GetIDsOfNames is access
     function (This      : access IWebBrowserApp;
               riid      : GNATCOM.Types.Pointer_To_GUID;
               rgszNames : GNATCOM.Types.Pointer_To_Pointer_To_char;
               cNames    : Interfaces.C.unsigned;
               lcid      : Interfaces.C.unsigned_long;
               rgdispid  : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IWebBrowserApp_GetIDsOfNames);
   
   type af_IWebBrowserApp_Invoke is access
     function (This         : access IWebBrowserApp;
               dispidMember : Interfaces.C.long;
               riid         : GNATCOM.Types.Pointer_To_GUID;
               lcid         : Interfaces.C.unsigned_long;
               wFlags       : Interfaces.C.unsigned_short;
               pdispparams  : GNATCOM.Types.Pointer_To_DISPPARAMS;
               pvarResult   : access GNATCOM.Types.VARIANT;
               pexcepinfo   : GNATCOM.Types.Pointer_To_EXCEPINFO;
               puArgErr     : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IWebBrowserApp_Invoke);
   
   type af_IWebBrowserApp_GoBack is access
     function (This : access IWebBrowserApp)
     return GNATCOM.Types.HRESULT;
   --  Navigates to the previous item in the history list.
   pragma Convention (StdCall, af_IWebBrowserApp_GoBack);
   
   type af_IWebBrowserApp_GoForward is access
     function (This : access IWebBrowserApp)
     return GNATCOM.Types.HRESULT;
   --  Navigates to the next item in the history list.
   pragma Convention (StdCall, af_IWebBrowserApp_GoForward);
   
   type af_IWebBrowserApp_GoHome is access
     function (This : access IWebBrowserApp)
     return GNATCOM.Types.HRESULT;
   --  Go home/start page.
   pragma Convention (StdCall, af_IWebBrowserApp_GoHome);
   
   type af_IWebBrowserApp_GoSearch is access
     function (This : access IWebBrowserApp)
     return GNATCOM.Types.HRESULT;
   --  Go Search Page.
   pragma Convention (StdCall, af_IWebBrowserApp_GoSearch);
   
   type af_IWebBrowserApp_Navigate is access
     function (This            : access IWebBrowserApp;
               URL             : GNATCOM.Types.BSTR;
               Flags           : access GNATCOM.Types.VARIANT;
               TargetFrameName : access GNATCOM.Types.VARIANT;
               PostData        : access GNATCOM.Types.VARIANT;
               Headers         : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   --  Navigates to a URL or file.
   pragma Convention (StdCall, af_IWebBrowserApp_Navigate);
   
   type af_IWebBrowserApp_Refresh is access
     function (This : access IWebBrowserApp)
     return GNATCOM.Types.HRESULT;
   --  Refresh the currently viewed page.
   pragma Convention (StdCall, af_IWebBrowserApp_Refresh);
   
   type af_IWebBrowserApp_Refresh2 is access
     function (This  : access IWebBrowserApp;
               Level : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   --  Refresh the currently viewed page.
   pragma Convention (StdCall, af_IWebBrowserApp_Refresh2);
   
   type af_IWebBrowserApp_Stop is access
     function (This : access IWebBrowserApp)
     return GNATCOM.Types.HRESULT;
   --  Stops opening a file.
   pragma Convention (StdCall, af_IWebBrowserApp_Stop);
   
   type af_IWebBrowserApp_Get_Application is access
     function (This   : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  Returns the application automation object if accessible, this automation
   --  object otherwise..
   pragma Convention (StdCall, af_IWebBrowserApp_Get_Application);
   
   type af_IWebBrowserApp_Get_Parent is access
     function (This   : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  Returns the automation object of the container/parent if one exists or this
   --  automation object.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_Parent);
   
   type af_IWebBrowserApp_Get_Container is access
     function (This   : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  Returns the container/parent automation object, if any.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_Container);
   
   type af_IWebBrowserApp_Get_Document is access
     function (This   : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  Returns the active Document automation object, if any.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_Document);
   
   type af_IWebBrowserApp_Get_TopLevelContainer is access
     function (This  : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Returns True if this is the top level object.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_TopLevelContainer);
   
   type af_IWebBrowserApp_Get_Type is access
     function (This  : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Returns the type of the contained document object.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_Type);
   
   type af_IWebBrowserApp_Get_Left is access
     function (This : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   --  The horizontal position (pixels) of the frame window relative to the
   --  screen/container.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_Left);
   
   type af_IWebBrowserApp_Put_Left is access
     function (This : access IWebBrowserApp;
               pl   : Interfaces.C.long)
     return GNATCOM.Types.HRESULT;
   --  The horizontal position (pixels) of the frame window relative to the
   --  screen/container.
   pragma Convention (StdCall, af_IWebBrowserApp_Put_Left);
   
   type af_IWebBrowserApp_Get_Top is access
     function (This : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   --  The vertical position (pixels) of the frame window relative to the
   --  screen/container.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_Top);
   
   type af_IWebBrowserApp_Put_Top is access
     function (This : access IWebBrowserApp;
               pl   : Interfaces.C.long)
     return GNATCOM.Types.HRESULT;
   --  The vertical position (pixels) of the frame window relative to the
   --  screen/container.
   pragma Convention (StdCall, af_IWebBrowserApp_Put_Top);
   
   type af_IWebBrowserApp_Get_Width is access
     function (This : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   --  The horizontal dimension (pixels) of the frame window/object.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_Width);
   
   type af_IWebBrowserApp_Put_Width is access
     function (This : access IWebBrowserApp;
               pl   : Interfaces.C.long)
     return GNATCOM.Types.HRESULT;
   --  The horizontal dimension (pixels) of the frame window/object.
   pragma Convention (StdCall, af_IWebBrowserApp_Put_Width);
   
   type af_IWebBrowserApp_Get_Height is access
     function (This : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   --  The vertical dimension (pixels) of the frame window/object.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_Height);
   
   type af_IWebBrowserApp_Put_Height is access
     function (This : access IWebBrowserApp;
               pl   : Interfaces.C.long)
     return GNATCOM.Types.HRESULT;
   --  The vertical dimension (pixels) of the frame window/object.
   pragma Convention (StdCall, af_IWebBrowserApp_Put_Height);
   
   type af_IWebBrowserApp_Get_LocationName is access
     function (This         : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Gets the short (UI-friendly) name of the URL/file currently viewed.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_LocationName);
   
   type af_IWebBrowserApp_Get_LocationURL is access
     function (This        : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Gets the full URL/path currently viewed.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_LocationURL);
   
   type af_IWebBrowserApp_Get_Busy is access
     function (This  : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Query to see if something is still in progress.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_Busy);
   
   type af_IWebBrowserApp_Quit is access
     function (This : access IWebBrowserApp)
     return GNATCOM.Types.HRESULT;
   --  Exits application and closes the open document.
   pragma Convention (StdCall, af_IWebBrowserApp_Quit);
   
   type af_IWebBrowserApp_ClientToWindow is access
     function (This : access IWebBrowserApp;
               pcx  : GNATCOM.Types.Pointer_To_int;
               pcy  : GNATCOM.Types.Pointer_To_int)
     return GNATCOM.Types.HRESULT;
   --  Converts client sizes into window sizes.
   pragma Convention (StdCall, af_IWebBrowserApp_ClientToWindow);
   
   type af_IWebBrowserApp_PutProperty is access
     function (This     : access IWebBrowserApp;
               Property : GNATCOM.Types.BSTR;
               vtValue  : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   --  Associates vtValue with the name szProperty in the context of the object.
   pragma Convention (StdCall, af_IWebBrowserApp_PutProperty);
   
   type af_IWebBrowserApp_GetProperty is access
     function (This     : access IWebBrowserApp;
               Property : GNATCOM.Types.BSTR;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   --  Retrieve the Associated value for the property vtValue in the context of
   --  the object.
   pragma Convention (StdCall, af_IWebBrowserApp_GetProperty);
   
   type af_IWebBrowserApp_Get_Name is access
     function (This : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Returns name of the application.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_Name);
   
   type af_IWebBrowserApp_Get_HWND is access
     function (This  : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_LONGLONG)
     return GNATCOM.Types.HRESULT;
   --  Returns the HWND of the current IE window.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_HWND);
   
   type af_IWebBrowserApp_Get_FullName is access
     function (This     : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Returns file specification of the application, including path.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_FullName);
   
   type af_IWebBrowserApp_Get_Path is access
     function (This : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Returns the path to the application.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_Path);
   
   type af_IWebBrowserApp_Get_Visible is access
     function (This  : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Determines whether the application is visible or hidden.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_Visible);
   
   type af_IWebBrowserApp_Put_Visible is access
     function (This  : access IWebBrowserApp;
               pBool : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Determines whether the application is visible or hidden.
   pragma Convention (StdCall, af_IWebBrowserApp_Put_Visible);
   
   type af_IWebBrowserApp_Get_StatusBar is access
     function (This  : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Turn on or off the statusbar.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_StatusBar);
   
   type af_IWebBrowserApp_Put_StatusBar is access
     function (This  : access IWebBrowserApp;
               pBool : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Turn on or off the statusbar.
   pragma Convention (StdCall, af_IWebBrowserApp_Put_StatusBar);
   
   type af_IWebBrowserApp_Get_StatusText is access
     function (This       : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Text of Status window.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_StatusText);
   
   type af_IWebBrowserApp_Put_StatusText is access
     function (This       : access IWebBrowserApp;
               StatusText : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   --  Text of Status window.
   pragma Convention (StdCall, af_IWebBrowserApp_Put_StatusText);
   
   type af_IWebBrowserApp_Get_ToolBar is access
     function (This  : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_int)
     return GNATCOM.Types.HRESULT;
   --  Controls which toolbar is shown.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_ToolBar);
   
   type af_IWebBrowserApp_Put_ToolBar is access
     function (This  : access IWebBrowserApp;
               Value : Interfaces.C.int)
     return GNATCOM.Types.HRESULT;
   --  Controls which toolbar is shown.
   pragma Convention (StdCall, af_IWebBrowserApp_Put_ToolBar);
   
   type af_IWebBrowserApp_Get_MenuBar is access
     function (This  : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Controls whether menubar is shown.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_MenuBar);
   
   type af_IWebBrowserApp_Put_MenuBar is access
     function (This  : access IWebBrowserApp;
               Value : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Controls whether menubar is shown.
   pragma Convention (StdCall, af_IWebBrowserApp_Put_MenuBar);
   
   type af_IWebBrowserApp_Get_FullScreen is access
     function (This         : access IWebBrowserApp;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Maximizes window and turns off statusbar, toolbar, menubar, and titlebar.
   pragma Convention (StdCall, af_IWebBrowserApp_Get_FullScreen);
   
   type af_IWebBrowserApp_Put_FullScreen is access
     function (This         : access IWebBrowserApp;
               pbFullScreen : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Maximizes window and turns off statusbar, toolbar, menubar, and titlebar.
   pragma Convention (StdCall, af_IWebBrowserApp_Put_FullScreen);
   
   type IWebBrowserAppVtbl;
   type Pointer_To_IWebBrowserAppVtbl is access all IWebBrowserAppVtbl;
   
   type IWebBrowserApp is
      record
         Vtbl : Pointer_To_IWebBrowserAppVtbl;
      end record;
   pragma Convention (C_Pass_By_Copy, IWebBrowserApp);
   
   type IWebBrowserAppVtbl is
      record
         QueryInterface        : af_IWebBrowserApp_QueryInterface;
         AddRef                : af_IWebBrowserApp_AddRef;
         Release               : af_IWebBrowserApp_Release;
         GetTypeInfoCount      : af_IWebBrowserApp_GetTypeInfoCount;
         GetTypeInfo           : af_IWebBrowserApp_GetTypeInfo;
         GetIDsOfNames         : af_IWebBrowserApp_GetIDsOfNames;
         Invoke                : af_IWebBrowserApp_Invoke;
         GoBack                : af_IWebBrowserApp_GoBack;
         GoForward             : af_IWebBrowserApp_GoForward;
         GoHome                : af_IWebBrowserApp_GoHome;
         GoSearch              : af_IWebBrowserApp_GoSearch;
         Navigate              : af_IWebBrowserApp_Navigate;
         Refresh               : af_IWebBrowserApp_Refresh;
         Refresh2              : af_IWebBrowserApp_Refresh2;
         Stop                  : af_IWebBrowserApp_Stop;
         Get_Application       : af_IWebBrowserApp_Get_Application;
         Get_Parent            : af_IWebBrowserApp_Get_Parent;
         Get_Container         : af_IWebBrowserApp_Get_Container;
         Get_Document          : af_IWebBrowserApp_Get_Document;
         Get_TopLevelContainer : af_IWebBrowserApp_Get_TopLevelContainer;
         Get_Type              : af_IWebBrowserApp_Get_Type;
         Get_Left              : af_IWebBrowserApp_Get_Left;
         Put_Left              : af_IWebBrowserApp_Put_Left;
         Get_Top               : af_IWebBrowserApp_Get_Top;
         Put_Top               : af_IWebBrowserApp_Put_Top;
         Get_Width             : af_IWebBrowserApp_Get_Width;
         Put_Width             : af_IWebBrowserApp_Put_Width;
         Get_Height            : af_IWebBrowserApp_Get_Height;
         Put_Height            : af_IWebBrowserApp_Put_Height;
         Get_LocationName      : af_IWebBrowserApp_Get_LocationName;
         Get_LocationURL       : af_IWebBrowserApp_Get_LocationURL;
         Get_Busy              : af_IWebBrowserApp_Get_Busy;
         Quit                  : af_IWebBrowserApp_Quit;
         ClientToWindow        : af_IWebBrowserApp_ClientToWindow;
         PutProperty           : af_IWebBrowserApp_PutProperty;
         GetProperty           : af_IWebBrowserApp_GetProperty;
         Get_Name              : af_IWebBrowserApp_Get_Name;
         Get_HWND              : af_IWebBrowserApp_Get_HWND;
         Get_FullName          : af_IWebBrowserApp_Get_FullName;
         Get_Path              : af_IWebBrowserApp_Get_Path;
         Get_Visible           : af_IWebBrowserApp_Get_Visible;
         Put_Visible           : af_IWebBrowserApp_Put_Visible;
         Get_StatusBar         : af_IWebBrowserApp_Get_StatusBar;
         Put_StatusBar         : af_IWebBrowserApp_Put_StatusBar;
         Get_StatusText        : af_IWebBrowserApp_Get_StatusText;
         Put_StatusText        : af_IWebBrowserApp_Put_StatusText;
         Get_ToolBar           : af_IWebBrowserApp_Get_ToolBar;
         Put_ToolBar           : af_IWebBrowserApp_Put_ToolBar;
         Get_MenuBar           : af_IWebBrowserApp_Get_MenuBar;
         Put_MenuBar           : af_IWebBrowserApp_Put_MenuBar;
         Get_FullScreen        : af_IWebBrowserApp_Get_FullScreen;
         Put_FullScreen        : af_IWebBrowserApp_Put_FullScreen;
      end record;
   pragma Convention (C_Pass_By_Copy, IWebBrowserAppVtbl);
   
   function To_Pointer_To_IWebBrowserApp is
     new Ada.Unchecked_Conversion
     (GNATCOM.Types.Pointer_To_Void, Pointer_To_IWebBrowserApp);
   
   

   --  Element Index         : 3
   --  Element Name          : IWebBrowserApp
   --  Element Documentation : Web Browser Application Interface.
   --  Element Type          : Dispatch
   
   IWebBrowserApp_GoBack                : constant := 100;
   IWebBrowserApp_GoForward             : constant := 101;
   IWebBrowserApp_GoHome                : constant := 102;
   IWebBrowserApp_GoSearch              : constant := 103;
   IWebBrowserApp_Navigate              : constant := 104;
   IWebBrowserApp_Refresh               : constant := -550;
   IWebBrowserApp_Refresh2              : constant := 105;
   IWebBrowserApp_Stop                  : constant := 106;
   IWebBrowserApp_Get_Application       : constant := 200;
   IWebBrowserApp_Get_Parent            : constant := 201;
   IWebBrowserApp_Get_Container         : constant := 202;
   IWebBrowserApp_Get_Document          : constant := 203;
   IWebBrowserApp_Get_TopLevelContainer : constant := 204;
   IWebBrowserApp_Get_Type              : constant := 205;
   IWebBrowserApp_Get_Left              : constant := 206;
   IWebBrowserApp_Put_Left              : constant := 206;
   IWebBrowserApp_Get_Top               : constant := 207;
   IWebBrowserApp_Put_Top               : constant := 207;
   IWebBrowserApp_Get_Width             : constant := 208;
   IWebBrowserApp_Put_Width             : constant := 208;
   IWebBrowserApp_Get_Height            : constant := 209;
   IWebBrowserApp_Put_Height            : constant := 209;
   IWebBrowserApp_Get_LocationName      : constant := 210;
   IWebBrowserApp_Get_LocationURL       : constant := 211;
   IWebBrowserApp_Get_Busy              : constant := 212;
   IWebBrowserApp_Quit                  : constant := 300;
   IWebBrowserApp_ClientToWindow        : constant := 301;
   IWebBrowserApp_PutProperty           : constant := 302;
   IWebBrowserApp_GetProperty           : constant := 303;
   IWebBrowserApp_Get_Name              : constant := 0;
   IWebBrowserApp_Get_HWND              : constant := -515;
   IWebBrowserApp_Get_FullName          : constant := 400;
   IWebBrowserApp_Get_Path              : constant := 401;
   IWebBrowserApp_Get_Visible           : constant := 402;
   IWebBrowserApp_Put_Visible           : constant := 402;
   IWebBrowserApp_Get_StatusBar         : constant := 403;
   IWebBrowserApp_Put_StatusBar         : constant := 403;
   IWebBrowserApp_Get_StatusText        : constant := 404;
   IWebBrowserApp_Put_StatusText        : constant := 404;
   IWebBrowserApp_Get_ToolBar           : constant := 405;
   IWebBrowserApp_Put_ToolBar           : constant := 405;
   IWebBrowserApp_Get_MenuBar           : constant := 406;
   IWebBrowserApp_Put_MenuBar           : constant := 406;
   IWebBrowserApp_Get_FullScreen        : constant := 407;
   IWebBrowserApp_Put_FullScreen        : constant := 407;
   
   
   --  Element Index         : 5
   --  Element Name          : OLECMDID
   --  Element Type          : Enumeration
   
   OLECMDID_OPEN                           : constant := 1;
   OLECMDID_NEW                            : constant := 2;
   OLECMDID_SAVE                           : constant := 3;
   OLECMDID_SAVEAS                         : constant := 4;
   OLECMDID_SAVECOPYAS                     : constant := 5;
   OLECMDID_PRINT                          : constant := 6;
   OLECMDID_PRINTPREVIEW                   : constant := 7;
   OLECMDID_PAGESETUP                      : constant := 8;
   OLECMDID_SPELL                          : constant := 9;
   OLECMDID_PROPERTIES                     : constant := 10;
   OLECMDID_CUT                            : constant := 11;
   OLECMDID_COPY                           : constant := 12;
   OLECMDID_PASTE                          : constant := 13;
   OLECMDID_PASTESPECIAL                   : constant := 14;
   OLECMDID_UNDO                           : constant := 15;
   OLECMDID_REDO                           : constant := 16;
   OLECMDID_SELECTALL                      : constant := 17;
   OLECMDID_CLEARSELECTION                 : constant := 18;
   OLECMDID_ZOOM                           : constant := 19;
   OLECMDID_GETZOOMRANGE                   : constant := 20;
   OLECMDID_UPDATECOMMANDS                 : constant := 21;
   OLECMDID_REFRESH                        : constant := 22;
   OLECMDID_STOP                           : constant := 23;
   OLECMDID_HIDETOOLBARS                   : constant := 24;
   OLECMDID_SETPROGRESSMAX                 : constant := 25;
   OLECMDID_SETPROGRESSPOS                 : constant := 26;
   OLECMDID_SETPROGRESSTEXT                : constant := 27;
   OLECMDID_SETTITLE                       : constant := 28;
   OLECMDID_SETDOWNLOADSTATE               : constant := 29;
   OLECMDID_STOPDOWNLOAD                   : constant := 30;
   OLECMDID_ONTOOLBARACTIVATED             : constant := 31;
   OLECMDID_FIND                           : constant := 32;
   OLECMDID_DELETE                         : constant := 33;
   OLECMDID_HTTPEQUIV                      : constant := 34;
   OLECMDID_HTTPEQUIV_DONE                 : constant := 35;
   OLECMDID_ENABLE_INTERACTION             : constant := 36;
   OLECMDID_ONUNLOAD                       : constant := 37;
   OLECMDID_PROPERTYBAG2                   : constant := 38;
   OLECMDID_PREREFRESH                     : constant := 39;
   OLECMDID_SHOWSCRIPTERROR                : constant := 40;
   OLECMDID_SHOWMESSAGE                    : constant := 41;
   OLECMDID_SHOWFIND                       : constant := 42;
   OLECMDID_SHOWPAGESETUP                  : constant := 43;
   OLECMDID_SHOWPRINT                      : constant := 44;
   OLECMDID_CLOSE                          : constant := 45;
   OLECMDID_ALLOWUILESSSAVEAS              : constant := 46;
   OLECMDID_DONTDOWNLOADCSS                : constant := 47;
   OLECMDID_UPDATEPAGESTATUS               : constant := 48;
   OLECMDID_PRINT2                         : constant := 49;
   OLECMDID_PRINTPREVIEW2                  : constant := 50;
   OLECMDID_SETPRINTTEMPLATE               : constant := 51;
   OLECMDID_GETPRINTTEMPLATE               : constant := 52;
   OLECMDID_PAGEACTIONBLOCKED              : constant := 55;
   OLECMDID_PAGEACTIONUIQUERY              : constant := 56;
   OLECMDID_FOCUSVIEWCONTROLS              : constant := 57;
   OLECMDID_FOCUSVIEWCONTROLSQUERY         : constant := 58;
   OLECMDID_SHOWPAGEACTIONMENU             : constant := 59;
   OLECMDID_ADDTRAVELENTRY                 : constant := 60;
   OLECMDID_UPDATETRAVELENTRY              : constant := 61;
   OLECMDID_UPDATEBACKFORWARDSTATE         : constant := 62;
   OLECMDID_OPTICAL_ZOOM                   : constant := 63;
   OLECMDID_OPTICAL_GETZOOMRANGE           : constant := 64;
   OLECMDID_WINDOWSTATECHANGED             : constant := 65;
   OLECMDID_ACTIVEXINSTALLSCOPE            : constant := 66;
   OLECMDID_UPDATETRAVELENTRY_DATARECOVERY : constant := 67;
   OLECMDID_SHOWTASKDLG                    : constant := 68;
   OLECMDID_POPSTATEEVENT                  : constant := 69;
   OLECMDID_VIEWPORT_MODE                  : constant := 70;
   OLECMDID_LAYOUT_VIEWPORT_WIDTH          : constant := 71;
   OLECMDID_VISUAL_VIEWPORT_EXCLUDE_BOTTOM : constant := 72;
   OLECMDID_USER_OPTICAL_ZOOM              : constant := 73;
   OLECMDID_PAGEAVAILABLE                  : constant := 74;
   OLECMDID_GETUSERSCALABLE                : constant := 75;
   OLECMDID_UPDATE_CARET                   : constant := 76;
   OLECMDID_ENABLE_VISIBILITY              : constant := 77;
   OLECMDID_MEDIA_PLAYBACK                 : constant := 78;
   OLECMDID_SETFAVICON                     : constant := 79;
   OLECMDID_SET_HOST_FULLSCREENMODE        : constant := 80;
   OLECMDID_EXITFULLSCREEN                 : constant := 81;
   OLECMDID_SCROLLCOMPLETE                 : constant := 82;
   OLECMDID_ONBEFOREUNLOAD                 : constant := 83;
   OLECMDID_SHOWMESSAGE_BLOCKABLE          : constant := 84;
   OLECMDID_SHOWTASKDLG_BLOCKABLE          : constant := 85;
   
   --  Element Index         : 6
   --  Element Name          : OLECMDF
   --  Element Type          : Enumeration
   
   OLECMDF_SUPPORTED         : constant := 1;
   OLECMDF_ENABLED           : constant := 2;
   OLECMDF_LATCHED           : constant := 4;
   OLECMDF_NINCHED           : constant := 8;
   OLECMDF_INVISIBLE         : constant := 16;
   OLECMDF_DEFHIDEONCTXTMENU : constant := 32;
   
   --  Element Index         : 7
   --  Element Name          : OLECMDEXECOPT
   --  Element Type          : Enumeration
   
   OLECMDEXECOPT_DODEFAULT      : constant := 0;
   OLECMDEXECOPT_PROMPTUSER     : constant := 1;
   OLECMDEXECOPT_DONTPROMPTUSER : constant := 2;
   OLECMDEXECOPT_SHOWHELP       : constant := 3;
   
   --  Element Index         : 8
   --  Element Name          : tagREADYSTATE
   --  Element Type          : Enumeration
   
   READYSTATE_UNINITIALIZED : constant := 0;
   READYSTATE_LOADING       : constant := 1;
   READYSTATE_LOADED        : constant := 2;
   READYSTATE_INTERACTIVE   : constant := 3;
   READYSTATE_COMPLETE      : constant := 4;
   

   --  Element Index         : 4
   --  Element Name          : IWebBrowser2
   --  Element Documentation : Web Browser Interface for IE4.
   --  Element Type          : Dispatch
   
   IID_IWebBrowser2 : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}");
   
   type af_IWebBrowser2_QueryInterface is access
     function (This   : access IWebBrowser2;
               riid   : GNATCOM.Types.Pointer_To_GUID;
               ppvObj : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IWebBrowser2_QueryInterface);
   
   type af_IWebBrowser2_AddRef is access
     function (This : access IWebBrowser2)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IWebBrowser2_AddRef);
   
   type af_IWebBrowser2_Release is access
     function (This : access IWebBrowser2)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IWebBrowser2_Release);
   
   type af_IWebBrowser2_GetTypeInfoCount is access
     function (This    : access IWebBrowser2;
               pctinfo : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IWebBrowser2_GetTypeInfoCount);
   
   type af_IWebBrowser2_GetTypeInfo is access
     function (This    : access IWebBrowser2;
               itinfo  : Interfaces.C.unsigned;
               lcid    : Interfaces.C.unsigned_long;
               pptinfo : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IWebBrowser2_GetTypeInfo);
   
   type af_IWebBrowser2_GetIDsOfNames is access
     function (This      : access IWebBrowser2;
               riid      : GNATCOM.Types.Pointer_To_GUID;
               rgszNames : GNATCOM.Types.Pointer_To_Pointer_To_char;
               cNames    : Interfaces.C.unsigned;
               lcid      : Interfaces.C.unsigned_long;
               rgdispid  : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IWebBrowser2_GetIDsOfNames);
   
   type af_IWebBrowser2_Invoke is access
     function (This         : access IWebBrowser2;
               dispidMember : Interfaces.C.long;
               riid         : GNATCOM.Types.Pointer_To_GUID;
               lcid         : Interfaces.C.unsigned_long;
               wFlags       : Interfaces.C.unsigned_short;
               pdispparams  : GNATCOM.Types.Pointer_To_DISPPARAMS;
               pvarResult   : access GNATCOM.Types.VARIANT;
               pexcepinfo   : GNATCOM.Types.Pointer_To_EXCEPINFO;
               puArgErr     : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IWebBrowser2_Invoke);
   
   type af_IWebBrowser2_GoBack is access
     function (This : access IWebBrowser2)
     return GNATCOM.Types.HRESULT;
   --  Navigates to the previous item in the history list.
   pragma Convention (StdCall, af_IWebBrowser2_GoBack);
   
   type af_IWebBrowser2_GoForward is access
     function (This : access IWebBrowser2)
     return GNATCOM.Types.HRESULT;
   --  Navigates to the next item in the history list.
   pragma Convention (StdCall, af_IWebBrowser2_GoForward);
   
   type af_IWebBrowser2_GoHome is access
     function (This : access IWebBrowser2)
     return GNATCOM.Types.HRESULT;
   --  Go home/start page.
   pragma Convention (StdCall, af_IWebBrowser2_GoHome);
   
   type af_IWebBrowser2_GoSearch is access
     function (This : access IWebBrowser2)
     return GNATCOM.Types.HRESULT;
   --  Go Search Page.
   pragma Convention (StdCall, af_IWebBrowser2_GoSearch);
   
   type af_IWebBrowser2_Navigate is access
     function (This            : access IWebBrowser2;
               URL             : GNATCOM.Types.BSTR;
               Flags           : access GNATCOM.Types.VARIANT;
               TargetFrameName : access GNATCOM.Types.VARIANT;
               PostData        : access GNATCOM.Types.VARIANT;
               Headers         : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   --  Navigates to a URL or file.
   pragma Convention (StdCall, af_IWebBrowser2_Navigate);
   
   type af_IWebBrowser2_Refresh is access
     function (This : access IWebBrowser2)
     return GNATCOM.Types.HRESULT;
   --  Refresh the currently viewed page.
   pragma Convention (StdCall, af_IWebBrowser2_Refresh);
   
   type af_IWebBrowser2_Refresh2 is access
     function (This  : access IWebBrowser2;
               Level : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   --  Refresh the currently viewed page.
   pragma Convention (StdCall, af_IWebBrowser2_Refresh2);
   
   type af_IWebBrowser2_Stop is access
     function (This : access IWebBrowser2)
     return GNATCOM.Types.HRESULT;
   --  Stops opening a file.
   pragma Convention (StdCall, af_IWebBrowser2_Stop);
   
   type af_IWebBrowser2_Get_Application is access
     function (This   : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  Returns the application automation object if accessible, this automation
   --  object otherwise..
   pragma Convention (StdCall, af_IWebBrowser2_Get_Application);
   
   type af_IWebBrowser2_Get_Parent is access
     function (This   : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  Returns the automation object of the container/parent if one exists or this
   --  automation object.
   pragma Convention (StdCall, af_IWebBrowser2_Get_Parent);
   
   type af_IWebBrowser2_Get_Container is access
     function (This   : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  Returns the container/parent automation object, if any.
   pragma Convention (StdCall, af_IWebBrowser2_Get_Container);
   
   type af_IWebBrowser2_Get_Document is access
     function (This   : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  Returns the active Document automation object, if any.
   pragma Convention (StdCall, af_IWebBrowser2_Get_Document);
   
   type af_IWebBrowser2_Get_TopLevelContainer is access
     function (This  : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Returns True if this is the top level object.
   pragma Convention (StdCall, af_IWebBrowser2_Get_TopLevelContainer);
   
   type af_IWebBrowser2_Get_Type is access
     function (This  : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Returns the type of the contained document object.
   pragma Convention (StdCall, af_IWebBrowser2_Get_Type);
   
   type af_IWebBrowser2_Get_Left is access
     function (This : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   --  The horizontal position (pixels) of the frame window relative to the
   --  screen/container.
   pragma Convention (StdCall, af_IWebBrowser2_Get_Left);
   
   type af_IWebBrowser2_Put_Left is access
     function (This : access IWebBrowser2;
               pl   : Interfaces.C.long)
     return GNATCOM.Types.HRESULT;
   --  The horizontal position (pixels) of the frame window relative to the
   --  screen/container.
   pragma Convention (StdCall, af_IWebBrowser2_Put_Left);
   
   type af_IWebBrowser2_Get_Top is access
     function (This : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   --  The vertical position (pixels) of the frame window relative to the
   --  screen/container.
   pragma Convention (StdCall, af_IWebBrowser2_Get_Top);
   
   type af_IWebBrowser2_Put_Top is access
     function (This : access IWebBrowser2;
               pl   : Interfaces.C.long)
     return GNATCOM.Types.HRESULT;
   --  The vertical position (pixels) of the frame window relative to the
   --  screen/container.
   pragma Convention (StdCall, af_IWebBrowser2_Put_Top);
   
   type af_IWebBrowser2_Get_Width is access
     function (This : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   --  The horizontal dimension (pixels) of the frame window/object.
   pragma Convention (StdCall, af_IWebBrowser2_Get_Width);
   
   type af_IWebBrowser2_Put_Width is access
     function (This : access IWebBrowser2;
               pl   : Interfaces.C.long)
     return GNATCOM.Types.HRESULT;
   --  The horizontal dimension (pixels) of the frame window/object.
   pragma Convention (StdCall, af_IWebBrowser2_Put_Width);
   
   type af_IWebBrowser2_Get_Height is access
     function (This : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   --  The vertical dimension (pixels) of the frame window/object.
   pragma Convention (StdCall, af_IWebBrowser2_Get_Height);
   
   type af_IWebBrowser2_Put_Height is access
     function (This : access IWebBrowser2;
               pl   : Interfaces.C.long)
     return GNATCOM.Types.HRESULT;
   --  The vertical dimension (pixels) of the frame window/object.
   pragma Convention (StdCall, af_IWebBrowser2_Put_Height);
   
   type af_IWebBrowser2_Get_LocationName is access
     function (This         : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Gets the short (UI-friendly) name of the URL/file currently viewed.
   pragma Convention (StdCall, af_IWebBrowser2_Get_LocationName);
   
   type af_IWebBrowser2_Get_LocationURL is access
     function (This        : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Gets the full URL/path currently viewed.
   pragma Convention (StdCall, af_IWebBrowser2_Get_LocationURL);
   
   type af_IWebBrowser2_Get_Busy is access
     function (This  : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Query to see if something is still in progress.
   pragma Convention (StdCall, af_IWebBrowser2_Get_Busy);
   
   type af_IWebBrowser2_Quit is access
     function (This : access IWebBrowser2)
     return GNATCOM.Types.HRESULT;
   --  Exits application and closes the open document.
   pragma Convention (StdCall, af_IWebBrowser2_Quit);
   
   type af_IWebBrowser2_ClientToWindow is access
     function (This : access IWebBrowser2;
               pcx  : GNATCOM.Types.Pointer_To_int;
               pcy  : GNATCOM.Types.Pointer_To_int)
     return GNATCOM.Types.HRESULT;
   --  Converts client sizes into window sizes.
   pragma Convention (StdCall, af_IWebBrowser2_ClientToWindow);
   
   type af_IWebBrowser2_PutProperty is access
     function (This     : access IWebBrowser2;
               Property : GNATCOM.Types.BSTR;
               vtValue  : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   --  Associates vtValue with the name szProperty in the context of the object.
   pragma Convention (StdCall, af_IWebBrowser2_PutProperty);
   
   type af_IWebBrowser2_GetProperty is access
     function (This     : access IWebBrowser2;
               Property : GNATCOM.Types.BSTR;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   --  Retrieve the Associated value for the property vtValue in the context of
   --  the object.
   pragma Convention (StdCall, af_IWebBrowser2_GetProperty);
   
   type af_IWebBrowser2_Get_Name is access
     function (This : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Returns name of the application.
   pragma Convention (StdCall, af_IWebBrowser2_Get_Name);
   
   type af_IWebBrowser2_Get_HWND is access
     function (This  : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_LONGLONG)
     return GNATCOM.Types.HRESULT;
   --  Returns the HWND of the current IE window.
   pragma Convention (StdCall, af_IWebBrowser2_Get_HWND);
   
   type af_IWebBrowser2_Get_FullName is access
     function (This     : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Returns file specification of the application, including path.
   pragma Convention (StdCall, af_IWebBrowser2_Get_FullName);
   
   type af_IWebBrowser2_Get_Path is access
     function (This : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Returns the path to the application.
   pragma Convention (StdCall, af_IWebBrowser2_Get_Path);
   
   type af_IWebBrowser2_Get_Visible is access
     function (This  : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Determines whether the application is visible or hidden.
   pragma Convention (StdCall, af_IWebBrowser2_Get_Visible);
   
   type af_IWebBrowser2_Put_Visible is access
     function (This  : access IWebBrowser2;
               pBool : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Determines whether the application is visible or hidden.
   pragma Convention (StdCall, af_IWebBrowser2_Put_Visible);
   
   type af_IWebBrowser2_Get_StatusBar is access
     function (This  : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Turn on or off the statusbar.
   pragma Convention (StdCall, af_IWebBrowser2_Get_StatusBar);
   
   type af_IWebBrowser2_Put_StatusBar is access
     function (This  : access IWebBrowser2;
               pBool : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Turn on or off the statusbar.
   pragma Convention (StdCall, af_IWebBrowser2_Put_StatusBar);
   
   type af_IWebBrowser2_Get_StatusText is access
     function (This       : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   --  Text of Status window.
   pragma Convention (StdCall, af_IWebBrowser2_Get_StatusText);
   
   type af_IWebBrowser2_Put_StatusText is access
     function (This       : access IWebBrowser2;
               StatusText : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   --  Text of Status window.
   pragma Convention (StdCall, af_IWebBrowser2_Put_StatusText);
   
   type af_IWebBrowser2_Get_ToolBar is access
     function (This  : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_int)
     return GNATCOM.Types.HRESULT;
   --  Controls which toolbar is shown.
   pragma Convention (StdCall, af_IWebBrowser2_Get_ToolBar);
   
   type af_IWebBrowser2_Put_ToolBar is access
     function (This  : access IWebBrowser2;
               Value : Interfaces.C.int)
     return GNATCOM.Types.HRESULT;
   --  Controls which toolbar is shown.
   pragma Convention (StdCall, af_IWebBrowser2_Put_ToolBar);
   
   type af_IWebBrowser2_Get_MenuBar is access
     function (This  : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Controls whether menubar is shown.
   pragma Convention (StdCall, af_IWebBrowser2_Get_MenuBar);
   
   type af_IWebBrowser2_Put_MenuBar is access
     function (This  : access IWebBrowser2;
               Value : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Controls whether menubar is shown.
   pragma Convention (StdCall, af_IWebBrowser2_Put_MenuBar);
   
   type af_IWebBrowser2_Get_FullScreen is access
     function (This         : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Maximizes window and turns off statusbar, toolbar, menubar, and titlebar.
   pragma Convention (StdCall, af_IWebBrowser2_Get_FullScreen);
   
   type af_IWebBrowser2_Put_FullScreen is access
     function (This         : access IWebBrowser2;
               pbFullScreen : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Maximizes window and turns off statusbar, toolbar, menubar, and titlebar.
   pragma Convention (StdCall, af_IWebBrowser2_Put_FullScreen);
   
   type af_IWebBrowser2_Navigate2 is access
     function (This            : access IWebBrowser2;
               URL             : access GNATCOM.Types.VARIANT;
               Flags           : access GNATCOM.Types.VARIANT;
               TargetFrameName : access GNATCOM.Types.VARIANT;
               PostData        : access GNATCOM.Types.VARIANT;
               Headers         : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   --  Navigates to a URL or file or pidl.
   pragma Convention (StdCall, af_IWebBrowser2_Navigate2);
   
   type af_IWebBrowser2_QueryStatusWB is access
     function (This  : access IWebBrowser2;
               cmdID : OLECMDID;
               RetVal : Pointer_To_OLECMDF)
     return GNATCOM.Types.HRESULT;
   --  IOleCommandTarget::QueryStatus
   pragma Convention (StdCall, af_IWebBrowser2_QueryStatusWB);
   
   type af_IWebBrowser2_ExecWB is access
     function (This       : access IWebBrowser2;
               cmdID      : OLECMDID;
               cmdexecopt : OLECMDEXECOPT;
               pvaIn      : access GNATCOM.Types.VARIANT;
               pvaOut     : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   --  IOleCommandTarget::Exec
   pragma Convention (StdCall, af_IWebBrowser2_ExecWB);
   
   type af_IWebBrowser2_ShowBrowserBar is access
     function (This     : access IWebBrowser2;
               pvaClsid : access GNATCOM.Types.VARIANT;
               pvarShow : access GNATCOM.Types.VARIANT;
               pvarSize : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   --  Set BrowserBar to Clsid
   pragma Convention (StdCall, af_IWebBrowser2_ShowBrowserBar);
   
   type af_IWebBrowser2_Get_ReadyState is access
     function (This         : access IWebBrowser2;
               RetVal : Pointer_To_tagREADYSTATE)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IWebBrowser2_Get_ReadyState);
   
   type af_IWebBrowser2_Get_Offline is access
     function (This      : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Controls if the frame is offline (read from cache)
   pragma Convention (StdCall, af_IWebBrowser2_Get_Offline);
   
   type af_IWebBrowser2_Put_Offline is access
     function (This      : access IWebBrowser2;
               pbOffline : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Controls if the frame is offline (read from cache)
   pragma Convention (StdCall, af_IWebBrowser2_Put_Offline);
   
   type af_IWebBrowser2_Get_Silent is access
     function (This     : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Controls if any dialog boxes can be shown
   pragma Convention (StdCall, af_IWebBrowser2_Get_Silent);
   
   type af_IWebBrowser2_Put_Silent is access
     function (This     : access IWebBrowser2;
               pbSilent : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Controls if any dialog boxes can be shown
   pragma Convention (StdCall, af_IWebBrowser2_Put_Silent);
   
   type af_IWebBrowser2_Get_RegisterAsBrowser is access
     function (This       : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Registers OC as a top-level browser (for target name resolution)
   pragma Convention (StdCall, af_IWebBrowser2_Get_RegisterAsBrowser);
   
   type af_IWebBrowser2_Put_RegisterAsBrowser is access
     function (This       : access IWebBrowser2;
               pbRegister : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Registers OC as a top-level browser (for target name resolution)
   pragma Convention (StdCall, af_IWebBrowser2_Put_RegisterAsBrowser);
   
   type af_IWebBrowser2_Get_RegisterAsDropTarget is access
     function (This       : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Registers OC as a drop target for navigation
   pragma Convention (StdCall, af_IWebBrowser2_Get_RegisterAsDropTarget);
   
   type af_IWebBrowser2_Put_RegisterAsDropTarget is access
     function (This       : access IWebBrowser2;
               pbRegister : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Registers OC as a drop target for navigation
   pragma Convention (StdCall, af_IWebBrowser2_Put_RegisterAsDropTarget);
   
   type af_IWebBrowser2_Get_TheaterMode is access
     function (This       : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Controls if the browser is in theater mode
   pragma Convention (StdCall, af_IWebBrowser2_Get_TheaterMode);
   
   type af_IWebBrowser2_Put_TheaterMode is access
     function (This       : access IWebBrowser2;
               pbRegister : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Controls if the browser is in theater mode
   pragma Convention (StdCall, af_IWebBrowser2_Put_TheaterMode);
   
   type af_IWebBrowser2_Get_AddressBar is access
     function (This  : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Controls whether address bar is shown
   pragma Convention (StdCall, af_IWebBrowser2_Get_AddressBar);
   
   type af_IWebBrowser2_Put_AddressBar is access
     function (This  : access IWebBrowser2;
               Value : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Controls whether address bar is shown
   pragma Convention (StdCall, af_IWebBrowser2_Put_AddressBar);
   
   type af_IWebBrowser2_Get_Resizable is access
     function (This  : access IWebBrowser2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Controls whether the window is resizable
   pragma Convention (StdCall, af_IWebBrowser2_Get_Resizable);
   
   type af_IWebBrowser2_Put_Resizable is access
     function (This  : access IWebBrowser2;
               Value : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Controls whether the window is resizable
   pragma Convention (StdCall, af_IWebBrowser2_Put_Resizable);
   
   type IWebBrowser2Vtbl;
   type Pointer_To_IWebBrowser2Vtbl is access all IWebBrowser2Vtbl;
   
   type IWebBrowser2 is
      record
         Vtbl : Pointer_To_IWebBrowser2Vtbl;
      end record;
   pragma Convention (C_Pass_By_Copy, IWebBrowser2);
   
   type IWebBrowser2Vtbl is
      record
         QueryInterface           : af_IWebBrowser2_QueryInterface;
         AddRef                   : af_IWebBrowser2_AddRef;
         Release                  : af_IWebBrowser2_Release;
         GetTypeInfoCount         : af_IWebBrowser2_GetTypeInfoCount;
         GetTypeInfo              : af_IWebBrowser2_GetTypeInfo;
         GetIDsOfNames            : af_IWebBrowser2_GetIDsOfNames;
         Invoke                   : af_IWebBrowser2_Invoke;
         GoBack                   : af_IWebBrowser2_GoBack;
         GoForward                : af_IWebBrowser2_GoForward;
         GoHome                   : af_IWebBrowser2_GoHome;
         GoSearch                 : af_IWebBrowser2_GoSearch;
         Navigate                 : af_IWebBrowser2_Navigate;
         Refresh                  : af_IWebBrowser2_Refresh;
         Refresh2                 : af_IWebBrowser2_Refresh2;
         Stop                     : af_IWebBrowser2_Stop;
         Get_Application          : af_IWebBrowser2_Get_Application;
         Get_Parent               : af_IWebBrowser2_Get_Parent;
         Get_Container            : af_IWebBrowser2_Get_Container;
         Get_Document             : af_IWebBrowser2_Get_Document;
         Get_TopLevelContainer    : af_IWebBrowser2_Get_TopLevelContainer;
         Get_Type                 : af_IWebBrowser2_Get_Type;
         Get_Left                 : af_IWebBrowser2_Get_Left;
         Put_Left                 : af_IWebBrowser2_Put_Left;
         Get_Top                  : af_IWebBrowser2_Get_Top;
         Put_Top                  : af_IWebBrowser2_Put_Top;
         Get_Width                : af_IWebBrowser2_Get_Width;
         Put_Width                : af_IWebBrowser2_Put_Width;
         Get_Height               : af_IWebBrowser2_Get_Height;
         Put_Height               : af_IWebBrowser2_Put_Height;
         Get_LocationName         : af_IWebBrowser2_Get_LocationName;
         Get_LocationURL          : af_IWebBrowser2_Get_LocationURL;
         Get_Busy                 : af_IWebBrowser2_Get_Busy;
         Quit                     : af_IWebBrowser2_Quit;
         ClientToWindow           : af_IWebBrowser2_ClientToWindow;
         PutProperty              : af_IWebBrowser2_PutProperty;
         GetProperty              : af_IWebBrowser2_GetProperty;
         Get_Name                 : af_IWebBrowser2_Get_Name;
         Get_HWND                 : af_IWebBrowser2_Get_HWND;
         Get_FullName             : af_IWebBrowser2_Get_FullName;
         Get_Path                 : af_IWebBrowser2_Get_Path;
         Get_Visible              : af_IWebBrowser2_Get_Visible;
         Put_Visible              : af_IWebBrowser2_Put_Visible;
         Get_StatusBar            : af_IWebBrowser2_Get_StatusBar;
         Put_StatusBar            : af_IWebBrowser2_Put_StatusBar;
         Get_StatusText           : af_IWebBrowser2_Get_StatusText;
         Put_StatusText           : af_IWebBrowser2_Put_StatusText;
         Get_ToolBar              : af_IWebBrowser2_Get_ToolBar;
         Put_ToolBar              : af_IWebBrowser2_Put_ToolBar;
         Get_MenuBar              : af_IWebBrowser2_Get_MenuBar;
         Put_MenuBar              : af_IWebBrowser2_Put_MenuBar;
         Get_FullScreen           : af_IWebBrowser2_Get_FullScreen;
         Put_FullScreen           : af_IWebBrowser2_Put_FullScreen;
         Navigate2                : af_IWebBrowser2_Navigate2;
         QueryStatusWB            : af_IWebBrowser2_QueryStatusWB;
         ExecWB                   : af_IWebBrowser2_ExecWB;
         ShowBrowserBar           : af_IWebBrowser2_ShowBrowserBar;
         Get_ReadyState           : af_IWebBrowser2_Get_ReadyState;
         Get_Offline              : af_IWebBrowser2_Get_Offline;
         Put_Offline              : af_IWebBrowser2_Put_Offline;
         Get_Silent               : af_IWebBrowser2_Get_Silent;
         Put_Silent               : af_IWebBrowser2_Put_Silent;
         Get_RegisterAsBrowser    : af_IWebBrowser2_Get_RegisterAsBrowser;
         Put_RegisterAsBrowser    : af_IWebBrowser2_Put_RegisterAsBrowser;
         Get_RegisterAsDropTarget : af_IWebBrowser2_Get_RegisterAsDropTarget;
         Put_RegisterAsDropTarget : af_IWebBrowser2_Put_RegisterAsDropTarget;
         Get_TheaterMode          : af_IWebBrowser2_Get_TheaterMode;
         Put_TheaterMode          : af_IWebBrowser2_Put_TheaterMode;
         Get_AddressBar           : af_IWebBrowser2_Get_AddressBar;
         Put_AddressBar           : af_IWebBrowser2_Put_AddressBar;
         Get_Resizable            : af_IWebBrowser2_Get_Resizable;
         Put_Resizable            : af_IWebBrowser2_Put_Resizable;
      end record;
   pragma Convention (C_Pass_By_Copy, IWebBrowser2Vtbl);
   
   function To_Pointer_To_IWebBrowser2 is
     new Ada.Unchecked_Conversion
     (GNATCOM.Types.Pointer_To_Void, Pointer_To_IWebBrowser2);
   
   

   --  Element Index         : 4
   --  Element Name          : IWebBrowser2
   --  Element Documentation : Web Browser Interface for IE4.
   --  Element Type          : Dispatch
   
   IWebBrowser2_GoBack                   : constant := 100;
   IWebBrowser2_GoForward                : constant := 101;
   IWebBrowser2_GoHome                   : constant := 102;
   IWebBrowser2_GoSearch                 : constant := 103;
   IWebBrowser2_Navigate                 : constant := 104;
   IWebBrowser2_Refresh                  : constant := -550;
   IWebBrowser2_Refresh2                 : constant := 105;
   IWebBrowser2_Stop                     : constant := 106;
   IWebBrowser2_Get_Application          : constant := 200;
   IWebBrowser2_Get_Parent               : constant := 201;
   IWebBrowser2_Get_Container            : constant := 202;
   IWebBrowser2_Get_Document             : constant := 203;
   IWebBrowser2_Get_TopLevelContainer    : constant := 204;
   IWebBrowser2_Get_Type                 : constant := 205;
   IWebBrowser2_Get_Left                 : constant := 206;
   IWebBrowser2_Put_Left                 : constant := 206;
   IWebBrowser2_Get_Top                  : constant := 207;
   IWebBrowser2_Put_Top                  : constant := 207;
   IWebBrowser2_Get_Width                : constant := 208;
   IWebBrowser2_Put_Width                : constant := 208;
   IWebBrowser2_Get_Height               : constant := 209;
   IWebBrowser2_Put_Height               : constant := 209;
   IWebBrowser2_Get_LocationName         : constant := 210;
   IWebBrowser2_Get_LocationURL          : constant := 211;
   IWebBrowser2_Get_Busy                 : constant := 212;
   IWebBrowser2_Quit                     : constant := 300;
   IWebBrowser2_ClientToWindow           : constant := 301;
   IWebBrowser2_PutProperty              : constant := 302;
   IWebBrowser2_GetProperty              : constant := 303;
   IWebBrowser2_Get_Name                 : constant := 0;
   IWebBrowser2_Get_HWND                 : constant := -515;
   IWebBrowser2_Get_FullName             : constant := 400;
   IWebBrowser2_Get_Path                 : constant := 401;
   IWebBrowser2_Get_Visible              : constant := 402;
   IWebBrowser2_Put_Visible              : constant := 402;
   IWebBrowser2_Get_StatusBar            : constant := 403;
   IWebBrowser2_Put_StatusBar            : constant := 403;
   IWebBrowser2_Get_StatusText           : constant := 404;
   IWebBrowser2_Put_StatusText           : constant := 404;
   IWebBrowser2_Get_ToolBar              : constant := 405;
   IWebBrowser2_Put_ToolBar              : constant := 405;
   IWebBrowser2_Get_MenuBar              : constant := 406;
   IWebBrowser2_Put_MenuBar              : constant := 406;
   IWebBrowser2_Get_FullScreen           : constant := 407;
   IWebBrowser2_Put_FullScreen           : constant := 407;
   IWebBrowser2_Navigate2                : constant := 500;
   IWebBrowser2_QueryStatusWB            : constant := 501;
   IWebBrowser2_ExecWB                   : constant := 502;
   IWebBrowser2_ShowBrowserBar           : constant := 503;
   IWebBrowser2_Get_ReadyState           : constant := -525;
   IWebBrowser2_Get_Offline              : constant := 550;
   IWebBrowser2_Put_Offline              : constant := 550;
   IWebBrowser2_Get_Silent               : constant := 551;
   IWebBrowser2_Put_Silent               : constant := 551;
   IWebBrowser2_Get_RegisterAsBrowser    : constant := 552;
   IWebBrowser2_Put_RegisterAsBrowser    : constant := 552;
   IWebBrowser2_Get_RegisterAsDropTarget : constant := 553;
   IWebBrowser2_Put_RegisterAsDropTarget : constant := 553;
   IWebBrowser2_Get_TheaterMode          : constant := 554;
   IWebBrowser2_Put_TheaterMode          : constant := 554;
   IWebBrowser2_Get_AddressBar           : constant := 555;
   IWebBrowser2_Put_AddressBar           : constant := 555;
   IWebBrowser2_Get_Resizable            : constant := 556;
   IWebBrowser2_Put_Resizable            : constant := 556;
   
   
   --  Element Index         : 9
   --  Element Name          : SecureLockIconConstants
   --  Element Documentation : Constants for WebBrowser security icon notification
   --  Element Type          : Enumeration
   
   secureLockIconUnsecure          : constant := 0;
   secureLockIconMixed             : constant := 1;
   secureLockIconSecureUnknownBits : constant := 2;
   secureLockIconSecure40Bit       : constant := 3;
   secureLockIconSecure56Bit       : constant := 4;
   secureLockIconSecureFortezza    : constant := 5;
   secureLockIconSecure128Bit      : constant := 6;
   
   --  Element Index         : 10
   --  Element Name          : NewProcessCauseConstants
   --  Element Documentation : Constants for WebBrowser NewProcess notification
   --  Element Type          : Enumeration
   
   ProtectedModeRedirect : constant := 1;
   

   --  Element Index         : 11
   --  Element Name          : DWebBrowserEvents2
   --  Element Documentation : Web Browser Control events interface
   --  Element Type          : Dispatch
   
   IID_DWebBrowserEvents2 : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{34A715A0-6587-11D0-924A-0020AFC7AC4D}");
   
   
   DWebBrowserEvents2_StatusTextChange           : constant := 102;
   DWebBrowserEvents2_ProgressChange             : constant := 108;
   DWebBrowserEvents2_CommandStateChange         : constant := 105;
   DWebBrowserEvents2_DownloadBegin              : constant := 106;
   DWebBrowserEvents2_DownloadComplete           : constant := 104;
   DWebBrowserEvents2_TitleChange                : constant := 113;
   DWebBrowserEvents2_PropertyChange             : constant := 112;
   DWebBrowserEvents2_BeforeNavigate2            : constant := 250;
   DWebBrowserEvents2_NewWindow2                 : constant := 251;
   DWebBrowserEvents2_NavigateComplete2          : constant := 252;
   DWebBrowserEvents2_DocumentComplete           : constant := 259;
   DWebBrowserEvents2_OnQuit                     : constant := 253;
   DWebBrowserEvents2_OnVisible                  : constant := 254;
   DWebBrowserEvents2_OnToolBar                  : constant := 255;
   DWebBrowserEvents2_OnMenuBar                  : constant := 256;
   DWebBrowserEvents2_OnStatusBar                : constant := 257;
   DWebBrowserEvents2_OnFullScreen               : constant := 258;
   DWebBrowserEvents2_OnTheaterMode              : constant := 260;
   DWebBrowserEvents2_WindowSetResizable         : constant := 262;
   DWebBrowserEvents2_WindowSetLeft              : constant := 264;
   DWebBrowserEvents2_WindowSetTop               : constant := 265;
   DWebBrowserEvents2_WindowSetWidth             : constant := 266;
   DWebBrowserEvents2_WindowSetHeight            : constant := 267;
   DWebBrowserEvents2_WindowClosing              : constant := 263;
   DWebBrowserEvents2_ClientToHostWindow         : constant := 268;
   DWebBrowserEvents2_SetSecureLockIcon          : constant := 269;
   DWebBrowserEvents2_FileDownload               : constant := 270;
   DWebBrowserEvents2_NavigateError              : constant := 271;
   DWebBrowserEvents2_PrintTemplateInstantiation : constant := 225;
   DWebBrowserEvents2_PrintTemplateTeardown      : constant := 226;
   DWebBrowserEvents2_UpdatePageStatus           : constant := 227;
   DWebBrowserEvents2_PrivacyImpactedStateChange : constant := 272;
   DWebBrowserEvents2_NewWindow3                 : constant := 273;
   DWebBrowserEvents2_SetPhishingFilterStatus    : constant := 282;
   DWebBrowserEvents2_WindowStateChanged         : constant := 283;
   DWebBrowserEvents2_NewProcess                 : constant := 284;
   DWebBrowserEvents2_ThirdPartyUrlBlocked       : constant := 285;
   DWebBrowserEvents2_RedirectXDomainBlocked     : constant := 286;
   DWebBrowserEvents2_BeforeScriptExecute        : constant := 290;
   DWebBrowserEvents2_WebWorkerStarted           : constant := 288;
   DWebBrowserEvents2_WebWorkerFinsihed          : constant := 289;
   
   
   --  Element Index         : 12
   --  Element Name          : WebBrowser_V1
   --  Element Documentation : WebBrowser Control
   --  Element Type          : CoClass

   CLSID_WebBrowser_V1 : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B}");


   --  Element Index         : 13
   --  Element Name          : WebBrowser
   --  Element Documentation : WebBrowser Control
   --  Element Type          : CoClass

   CLSID_WebBrowser : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{8856F961-340A-11D0-A96B-00C04FD705A2}");


   --  Element Index         : 14
   --  Element Name          : InternetExplorer
   --  Element Documentation : Internet Explorer Application.
   --  Element Type          : CoClass

   CLSID_InternetExplorer : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{0002DF01-0000-0000-C000-000000000046}");


   --  Element Index         : 15
   --  Element Name          : InternetExplorerMedium
   --  Element Documentation : Internet Explorer Application with default
   --  integrity of Medium
   --  Element Type          : CoClass

   CLSID_InternetExplorerMedium : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{D5E8041D-920F-45E9-B8FB-B1DEB82C6E5E}");


   --  Element Index         : 16
   --  Element Name          : ShellBrowserWindow
   --  Element Documentation : Shell Browser Window.
   --  Element Type          : CoClass

   CLSID_ShellBrowserWindow : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{C08AFD90-F2A1-11D1-8455-00A0C91F3880}");


   --  Element Index         : 17
   --  Element Name          : ShellWindowTypeConstants
   --  Element Documentation : Constants for ShellWindows registration
   --  Element Type          : Enumeration
   
   SWC_EXPLORER : constant := 0;
   --  Explorer
   SWC_BROWSER  : constant := 1;
   --  Various Browsing Windows
   SWC_3RDPARTY : constant := 2;
   --  3rd Party Browsers
   SWC_CALLBACK : constant := 4;
   --  Creation Callback
   SWC_DESKTOP  : constant := 8;
   --  The Windows Desktop
   
   --  Element Index         : 18
   --  Element Name          : ShellWindowFindWindowOptions
   --  Element Documentation : Options for ShellWindows FindWindow
   --  Element Type          : Enumeration
   
   SWFO_NEEDDISPATCH   : constant := 1;
   --  Need Dispatch
   SWFO_INCLUDEPENDING : constant := 2;
   --  Include Pending
   SWFO_COOKIEPASSED   : constant := 4;
   --  Cookie Passed
   

   --  Element Index         : 19
   --  Element Name          : DShellWindowsEvents
   --  Element Documentation : Event interface for IShellWindows
   --  Element Type          : Dispatch
   
   IID_DShellWindowsEvents : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{FE4106E0-399A-11D0-A48C-00A0C90A8F39}");
   
   
   DShellWindowsEvents_WindowRegistered : constant := 200;
   DShellWindowsEvents_WindowRevoked    : constant := 201;
   
   

   --  Element Index         : 20
   --  Element Name          : IShellWindows
   --  Element Documentation : Definition of interface IShellWindows
   --  Element Type          : Dispatch
   
   IID_IShellWindows : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{85CB6900-4D95-11CF-960C-0080C7F4EE85}");
   
   type af_IShellWindows_QueryInterface is access
     function (This   : access IShellWindows;
               riid   : GNATCOM.Types.Pointer_To_GUID;
               ppvObj : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellWindows_QueryInterface);
   
   type af_IShellWindows_AddRef is access
     function (This : access IShellWindows)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellWindows_AddRef);
   
   type af_IShellWindows_Release is access
     function (This : access IShellWindows)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellWindows_Release);
   
   type af_IShellWindows_GetTypeInfoCount is access
     function (This    : access IShellWindows;
               pctinfo : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellWindows_GetTypeInfoCount);
   
   type af_IShellWindows_GetTypeInfo is access
     function (This    : access IShellWindows;
               itinfo  : Interfaces.C.unsigned;
               lcid    : Interfaces.C.unsigned_long;
               pptinfo : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellWindows_GetTypeInfo);
   
   type af_IShellWindows_GetIDsOfNames is access
     function (This      : access IShellWindows;
               riid      : GNATCOM.Types.Pointer_To_GUID;
               rgszNames : GNATCOM.Types.Pointer_To_Pointer_To_char;
               cNames    : Interfaces.C.unsigned;
               lcid      : Interfaces.C.unsigned_long;
               rgdispid  : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellWindows_GetIDsOfNames);
   
   type af_IShellWindows_Invoke is access
     function (This         : access IShellWindows;
               dispidMember : Interfaces.C.long;
               riid         : GNATCOM.Types.Pointer_To_GUID;
               lcid         : Interfaces.C.unsigned_long;
               wFlags       : Interfaces.C.unsigned_short;
               pdispparams  : GNATCOM.Types.Pointer_To_DISPPARAMS;
               pvarResult   : access GNATCOM.Types.VARIANT;
               pexcepinfo   : GNATCOM.Types.Pointer_To_EXCEPINFO;
               puArgErr     : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellWindows_Invoke);
   
   type af_IShellWindows_Get_Count is access
     function (This  : access IShellWindows;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   --  Get count of open Shell windows
   pragma Convention (StdCall, af_IShellWindows_Get_Count);
   
   type af_IShellWindows_Item is access
     function (This   : access IShellWindows;
               index  : GNATCOM.Types.VARIANT;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  Return the shell window for the given index
   pragma Convention (StdCall, af_IShellWindows_Item);
   
   type af_IShellWindows_uNewEnum is access
     function (This  : access IShellWindows;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IUnknown)
     return GNATCOM.Types.HRESULT;
   --  Enumerates the figures
   pragma Convention (StdCall, af_IShellWindows_uNewEnum);
   
   type af_IShellWindows_Register is access
     function (This     : access IShellWindows;
               pid      : GNATCOM.Types.Pointer_To_IDispatch;
               HWND     : Interfaces.C.long;
               swClass  : Interfaces.C.int;
               plCookie : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   --  Register a window with the list
   pragma Convention (StdCall, af_IShellWindows_Register);
   
   type af_IShellWindows_RegisterPending is access
     function (This        : access IShellWindows;
               lThreadId   : Interfaces.C.long;
               pvarloc     : access GNATCOM.Types.VARIANT;
               pvarlocRoot : access GNATCOM.Types.VARIANT;
               swClass     : Interfaces.C.int;
               plCookie    : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   --  Register a pending open with the list
   pragma Convention (StdCall, af_IShellWindows_RegisterPending);
   
   type af_IShellWindows_Revoke is access
     function (This    : access IShellWindows;
               lCookie : Interfaces.C.long)
     return GNATCOM.Types.HRESULT;
   --  Remove a window from the list
   pragma Convention (StdCall, af_IShellWindows_Revoke);
   
   type af_IShellWindows_OnNavigate is access
     function (This    : access IShellWindows;
               lCookie : Interfaces.C.long;
               pvarloc : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   --  Notifies the new location
   pragma Convention (StdCall, af_IShellWindows_OnNavigate);
   
   type af_IShellWindows_OnActivated is access
     function (This    : access IShellWindows;
               lCookie : Interfaces.C.long;
               fActive : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Notifies the activation
   pragma Convention (StdCall, af_IShellWindows_OnActivated);
   
   type af_IShellWindows_FindWindowSW is access
     function (This        : access IShellWindows;
               pvarloc     : access GNATCOM.Types.VARIANT;
               pvarlocRoot : access GNATCOM.Types.VARIANT;
               swClass     : Interfaces.C.int;
               pHWND       : GNATCOM.Types.Pointer_To_long;
               swfwOptions : Interfaces.C.int;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  Find the window based on the location
   pragma Convention (StdCall, af_IShellWindows_FindWindowSW);
   
   type af_IShellWindows_OnCreated is access
     function (This    : access IShellWindows;
               lCookie : Interfaces.C.long;
               punk    : GNATCOM.Types.Pointer_To_IUnknown)
     return GNATCOM.Types.HRESULT;
   --  Notifies on creation and frame name set
   pragma Convention (StdCall, af_IShellWindows_OnCreated);
   
   type af_IShellWindows_ProcessAttachDetach is access
     function (This    : access IShellWindows;
               fAttach : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Used by IExplore to register different processes
   pragma Convention (StdCall, af_IShellWindows_ProcessAttachDetach);
   
   type IShellWindowsVtbl;
   type Pointer_To_IShellWindowsVtbl is access all IShellWindowsVtbl;
   
   type IShellWindows is
      record
         Vtbl : Pointer_To_IShellWindowsVtbl;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellWindows);
   
   type IShellWindowsVtbl is
      record
         QueryInterface      : af_IShellWindows_QueryInterface;
         AddRef              : af_IShellWindows_AddRef;
         Release             : af_IShellWindows_Release;
         GetTypeInfoCount    : af_IShellWindows_GetTypeInfoCount;
         GetTypeInfo         : af_IShellWindows_GetTypeInfo;
         GetIDsOfNames       : af_IShellWindows_GetIDsOfNames;
         Invoke              : af_IShellWindows_Invoke;
         Get_Count           : af_IShellWindows_Get_Count;
         Item                : af_IShellWindows_Item;
         uNewEnum            : af_IShellWindows_uNewEnum;
         Register            : af_IShellWindows_Register;
         RegisterPending     : af_IShellWindows_RegisterPending;
         Revoke              : af_IShellWindows_Revoke;
         OnNavigate          : af_IShellWindows_OnNavigate;
         OnActivated         : af_IShellWindows_OnActivated;
         FindWindowSW        : af_IShellWindows_FindWindowSW;
         OnCreated           : af_IShellWindows_OnCreated;
         ProcessAttachDetach : af_IShellWindows_ProcessAttachDetach;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellWindowsVtbl);
   
   function To_Pointer_To_IShellWindows is
     new Ada.Unchecked_Conversion
     (GNATCOM.Types.Pointer_To_Void, Pointer_To_IShellWindows);
   
   

   --  Element Index         : 20
   --  Element Name          : IShellWindows
   --  Element Documentation : Definition of interface IShellWindows
   --  Element Type          : Dispatch
   
   IShellWindows_Get_Count           : constant := 1610743808;
   IShellWindows_Item                : constant := 0;
   IShellWindows_uNewEnum            : constant := -4;
   IShellWindows_Register            : constant := 1610743811;
   IShellWindows_RegisterPending     : constant := 1610743812;
   IShellWindows_Revoke              : constant := 1610743813;
   IShellWindows_OnNavigate          : constant := 1610743814;
   IShellWindows_OnActivated         : constant := 1610743815;
   IShellWindows_FindWindowSW        : constant := 1610743816;
   IShellWindows_OnCreated           : constant := 1610743817;
   IShellWindows_ProcessAttachDetach : constant := 1610743818;
   
   
   --  Element Index         : 21
   --  Element Name          : ShellWindows
   --  Element Documentation : ShellDispatch Load in Shell Context
   --  Element Type          : CoClass

   CLSID_ShellWindows : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{9BA05972-F6A8-11CF-A442-00A0C90A8F39}");


   --  Element Index         : 22
   --  Element Name          : IShellUIHelper
   --  Element Documentation : Shell UI Helper Control Interface
   --  Element Type          : Dispatch
   
   IID_IShellUIHelper : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}");
   
   type af_IShellUIHelper_QueryInterface is access
     function (This   : access IShellUIHelper;
               riid   : GNATCOM.Types.Pointer_To_GUID;
               ppvObj : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_QueryInterface);
   
   type af_IShellUIHelper_AddRef is access
     function (This : access IShellUIHelper)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellUIHelper_AddRef);
   
   type af_IShellUIHelper_Release is access
     function (This : access IShellUIHelper)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellUIHelper_Release);
   
   type af_IShellUIHelper_GetTypeInfoCount is access
     function (This    : access IShellUIHelper;
               pctinfo : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_GetTypeInfoCount);
   
   type af_IShellUIHelper_GetTypeInfo is access
     function (This    : access IShellUIHelper;
               itinfo  : Interfaces.C.unsigned;
               lcid    : Interfaces.C.unsigned_long;
               pptinfo : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_GetTypeInfo);
   
   type af_IShellUIHelper_GetIDsOfNames is access
     function (This      : access IShellUIHelper;
               riid      : GNATCOM.Types.Pointer_To_GUID;
               rgszNames : GNATCOM.Types.Pointer_To_Pointer_To_char;
               cNames    : Interfaces.C.unsigned;
               lcid      : Interfaces.C.unsigned_long;
               rgdispid  : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_GetIDsOfNames);
   
   type af_IShellUIHelper_Invoke is access
     function (This         : access IShellUIHelper;
               dispidMember : Interfaces.C.long;
               riid         : GNATCOM.Types.Pointer_To_GUID;
               lcid         : Interfaces.C.unsigned_long;
               wFlags       : Interfaces.C.unsigned_short;
               pdispparams  : GNATCOM.Types.Pointer_To_DISPPARAMS;
               pvarResult   : access GNATCOM.Types.VARIANT;
               pexcepinfo   : GNATCOM.Types.Pointer_To_EXCEPINFO;
               puArgErr     : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_Invoke);
   
   type af_IShellUIHelper_ResetFirstBootMode is access
     function (This : access IShellUIHelper)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_ResetFirstBootMode);
   
   type af_IShellUIHelper_ResetSafeMode is access
     function (This : access IShellUIHelper)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_ResetSafeMode);
   
   type af_IShellUIHelper_RefreshOfflineDesktop is access
     function (This : access IShellUIHelper)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_RefreshOfflineDesktop);
   
   type af_IShellUIHelper_AddFavorite is access
     function (This  : access IShellUIHelper;
               URL   : GNATCOM.Types.BSTR;
               Title : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_AddFavorite);
   
   type af_IShellUIHelper_AddChannel is access
     function (This : access IShellUIHelper;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_AddChannel);
   
   type af_IShellUIHelper_AddDesktopComponent is access
     function (This   : access IShellUIHelper;
               URL    : GNATCOM.Types.BSTR;
               uType  : GNATCOM.Types.BSTR;
               Left   : access GNATCOM.Types.VARIANT;
               Top    : access GNATCOM.Types.VARIANT;
               Width  : access GNATCOM.Types.VARIANT;
               Height : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_AddDesktopComponent);
   
   type af_IShellUIHelper_IsSubscribed is access
     function (This  : access IShellUIHelper;
               URL   : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_IsSubscribed);
   
   type af_IShellUIHelper_NavigateAndFind is access
     function (This           : access IShellUIHelper;
               URL            : GNATCOM.Types.BSTR;
               strQuery       : GNATCOM.Types.BSTR;
               varTargetFrame : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_NavigateAndFind);
   
   type af_IShellUIHelper_ImportExportFavorites is access
     function (This          : access IShellUIHelper;
               fImport       : GNATCOM.Types.VARIANT_BOOL;
               strImpExpPath : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_ImportExportFavorites);
   
   type af_IShellUIHelper_AutoCompleteSaveForm is access
     function (This : access IShellUIHelper;
               Form : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_AutoCompleteSaveForm);
   
   type af_IShellUIHelper_AutoScan is access
     function (This            : access IShellUIHelper;
               strSearch       : GNATCOM.Types.BSTR;
               strFailureUrl   : GNATCOM.Types.BSTR;
               pvarTargetFrame : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_AutoScan);
   
   type af_IShellUIHelper_AutoCompleteAttach is access
     function (This     : access IShellUIHelper;
               Reserved : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_AutoCompleteAttach);
   
   type af_IShellUIHelper_ShowBrowserUI is access
     function (This     : access IShellUIHelper;
               bstrName : GNATCOM.Types.BSTR;
               pvarIn   : access GNATCOM.Types.VARIANT;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper_ShowBrowserUI);
   
   type IShellUIHelperVtbl;
   type Pointer_To_IShellUIHelperVtbl is access all IShellUIHelperVtbl;
   
   type IShellUIHelper is
      record
         Vtbl : Pointer_To_IShellUIHelperVtbl;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellUIHelper);
   
   type IShellUIHelperVtbl is
      record
         QueryInterface        : af_IShellUIHelper_QueryInterface;
         AddRef                : af_IShellUIHelper_AddRef;
         Release               : af_IShellUIHelper_Release;
         GetTypeInfoCount      : af_IShellUIHelper_GetTypeInfoCount;
         GetTypeInfo           : af_IShellUIHelper_GetTypeInfo;
         GetIDsOfNames         : af_IShellUIHelper_GetIDsOfNames;
         Invoke                : af_IShellUIHelper_Invoke;
         ResetFirstBootMode    : af_IShellUIHelper_ResetFirstBootMode;
         ResetSafeMode         : af_IShellUIHelper_ResetSafeMode;
         RefreshOfflineDesktop : af_IShellUIHelper_RefreshOfflineDesktop;
         AddFavorite           : af_IShellUIHelper_AddFavorite;
         AddChannel            : af_IShellUIHelper_AddChannel;
         AddDesktopComponent   : af_IShellUIHelper_AddDesktopComponent;
         IsSubscribed          : af_IShellUIHelper_IsSubscribed;
         NavigateAndFind       : af_IShellUIHelper_NavigateAndFind;
         ImportExportFavorites : af_IShellUIHelper_ImportExportFavorites;
         AutoCompleteSaveForm  : af_IShellUIHelper_AutoCompleteSaveForm;
         AutoScan              : af_IShellUIHelper_AutoScan;
         AutoCompleteAttach    : af_IShellUIHelper_AutoCompleteAttach;
         ShowBrowserUI         : af_IShellUIHelper_ShowBrowserUI;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellUIHelperVtbl);
   
   function To_Pointer_To_IShellUIHelper is
     new Ada.Unchecked_Conversion
     (GNATCOM.Types.Pointer_To_Void, Pointer_To_IShellUIHelper);
   
   

   --  Element Index         : 22
   --  Element Name          : IShellUIHelper
   --  Element Documentation : Shell UI Helper Control Interface
   --  Element Type          : Dispatch
   
   IShellUIHelper_ResetFirstBootMode    : constant := 1;
   IShellUIHelper_ResetSafeMode         : constant := 2;
   IShellUIHelper_RefreshOfflineDesktop : constant := 3;
   IShellUIHelper_AddFavorite           : constant := 4;
   IShellUIHelper_AddChannel            : constant := 5;
   IShellUIHelper_AddDesktopComponent   : constant := 6;
   IShellUIHelper_IsSubscribed          : constant := 7;
   IShellUIHelper_NavigateAndFind       : constant := 8;
   IShellUIHelper_ImportExportFavorites : constant := 9;
   IShellUIHelper_AutoCompleteSaveForm  : constant := 10;
   IShellUIHelper_AutoScan              : constant := 11;
   IShellUIHelper_AutoCompleteAttach    : constant := 12;
   IShellUIHelper_ShowBrowserUI         : constant := 13;
   
   

   --  Element Index         : 23
   --  Element Name          : IShellUIHelper2
   --  Element Documentation : Shell UI Helper Control Interface 2
   --  Element Type          : Dispatch
   
   IID_IShellUIHelper2 : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{A7FE6EDA-1932-4281-B881-87B31B8BC52C}");
   
   type af_IShellUIHelper2_QueryInterface is access
     function (This   : access IShellUIHelper2;
               riid   : GNATCOM.Types.Pointer_To_GUID;
               ppvObj : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_QueryInterface);
   
   type af_IShellUIHelper2_AddRef is access
     function (This : access IShellUIHelper2)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellUIHelper2_AddRef);
   
   type af_IShellUIHelper2_Release is access
     function (This : access IShellUIHelper2)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellUIHelper2_Release);
   
   type af_IShellUIHelper2_GetTypeInfoCount is access
     function (This    : access IShellUIHelper2;
               pctinfo : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_GetTypeInfoCount);
   
   type af_IShellUIHelper2_GetTypeInfo is access
     function (This    : access IShellUIHelper2;
               itinfo  : Interfaces.C.unsigned;
               lcid    : Interfaces.C.unsigned_long;
               pptinfo : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_GetTypeInfo);
   
   type af_IShellUIHelper2_GetIDsOfNames is access
     function (This      : access IShellUIHelper2;
               riid      : GNATCOM.Types.Pointer_To_GUID;
               rgszNames : GNATCOM.Types.Pointer_To_Pointer_To_char;
               cNames    : Interfaces.C.unsigned;
               lcid      : Interfaces.C.unsigned_long;
               rgdispid  : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_GetIDsOfNames);
   
   type af_IShellUIHelper2_Invoke is access
     function (This         : access IShellUIHelper2;
               dispidMember : Interfaces.C.long;
               riid         : GNATCOM.Types.Pointer_To_GUID;
               lcid         : Interfaces.C.unsigned_long;
               wFlags       : Interfaces.C.unsigned_short;
               pdispparams  : GNATCOM.Types.Pointer_To_DISPPARAMS;
               pvarResult   : access GNATCOM.Types.VARIANT;
               pexcepinfo   : GNATCOM.Types.Pointer_To_EXCEPINFO;
               puArgErr     : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_Invoke);
   
   type af_IShellUIHelper2_ResetFirstBootMode is access
     function (This : access IShellUIHelper2)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_ResetFirstBootMode);
   
   type af_IShellUIHelper2_ResetSafeMode is access
     function (This : access IShellUIHelper2)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_ResetSafeMode);
   
   type af_IShellUIHelper2_RefreshOfflineDesktop is access
     function (This : access IShellUIHelper2)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_RefreshOfflineDesktop);
   
   type af_IShellUIHelper2_AddFavorite is access
     function (This  : access IShellUIHelper2;
               URL   : GNATCOM.Types.BSTR;
               Title : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_AddFavorite);
   
   type af_IShellUIHelper2_AddChannel is access
     function (This : access IShellUIHelper2;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_AddChannel);
   
   type af_IShellUIHelper2_AddDesktopComponent is access
     function (This   : access IShellUIHelper2;
               URL    : GNATCOM.Types.BSTR;
               uType  : GNATCOM.Types.BSTR;
               Left   : access GNATCOM.Types.VARIANT;
               Top    : access GNATCOM.Types.VARIANT;
               Width  : access GNATCOM.Types.VARIANT;
               Height : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_AddDesktopComponent);
   
   type af_IShellUIHelper2_IsSubscribed is access
     function (This  : access IShellUIHelper2;
               URL   : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_IsSubscribed);
   
   type af_IShellUIHelper2_NavigateAndFind is access
     function (This           : access IShellUIHelper2;
               URL            : GNATCOM.Types.BSTR;
               strQuery       : GNATCOM.Types.BSTR;
               varTargetFrame : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_NavigateAndFind);
   
   type af_IShellUIHelper2_ImportExportFavorites is access
     function (This          : access IShellUIHelper2;
               fImport       : GNATCOM.Types.VARIANT_BOOL;
               strImpExpPath : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_ImportExportFavorites);
   
   type af_IShellUIHelper2_AutoCompleteSaveForm is access
     function (This : access IShellUIHelper2;
               Form : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_AutoCompleteSaveForm);
   
   type af_IShellUIHelper2_AutoScan is access
     function (This            : access IShellUIHelper2;
               strSearch       : GNATCOM.Types.BSTR;
               strFailureUrl   : GNATCOM.Types.BSTR;
               pvarTargetFrame : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_AutoScan);
   
   type af_IShellUIHelper2_AutoCompleteAttach is access
     function (This     : access IShellUIHelper2;
               Reserved : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_AutoCompleteAttach);
   
   type af_IShellUIHelper2_ShowBrowserUI is access
     function (This     : access IShellUIHelper2;
               bstrName : GNATCOM.Types.BSTR;
               pvarIn   : access GNATCOM.Types.VARIANT;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_ShowBrowserUI);
   
   type af_IShellUIHelper2_AddSearchProvider is access
     function (This : access IShellUIHelper2;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_AddSearchProvider);
   
   type af_IShellUIHelper2_RunOnceShown is access
     function (This : access IShellUIHelper2)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_RunOnceShown);
   
   type af_IShellUIHelper2_SkipRunOnce is access
     function (This : access IShellUIHelper2)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_SkipRunOnce);
   
   type af_IShellUIHelper2_CustomizeSettings is access
     function (This       : access IShellUIHelper2;
               fSQM       : GNATCOM.Types.VARIANT_BOOL;
               fPhishing  : GNATCOM.Types.VARIANT_BOOL;
               bstrLocale : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_CustomizeSettings);
   
   type af_IShellUIHelper2_SqmEnabled is access
     function (This      : access IShellUIHelper2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_SqmEnabled);
   
   type af_IShellUIHelper2_PhishingEnabled is access
     function (This      : access IShellUIHelper2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_PhishingEnabled);
   
   type af_IShellUIHelper2_BrandImageUri is access
     function (This     : access IShellUIHelper2;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_BrandImageUri);
   
   type af_IShellUIHelper2_SkipTabsWelcome is access
     function (This : access IShellUIHelper2)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_SkipTabsWelcome);
   
   type af_IShellUIHelper2_DiagnoseConnection is access
     function (This : access IShellUIHelper2)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_DiagnoseConnection);
   
   type af_IShellUIHelper2_CustomizeClearType is access
     function (This : access IShellUIHelper2;
               fSet : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_CustomizeClearType);
   
   type af_IShellUIHelper2_IsSearchProviderInstalled is access
     function (This      : access IShellUIHelper2;
               URL       : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_IsSearchProviderInstalled);
   
   type af_IShellUIHelper2_IsSearchMigrated is access
     function (This       : access IShellUIHelper2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_IsSearchMigrated);
   
   type af_IShellUIHelper2_DefaultSearchProvider is access
     function (This      : access IShellUIHelper2;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_DefaultSearchProvider);
   
   type af_IShellUIHelper2_RunOnceRequiredSettingsComplete is access
     function (This      : access IShellUIHelper2;
               fComplete : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_RunOnceRequiredSettingsComplete);
   
   type af_IShellUIHelper2_RunOnceHasShown is access
     function (This    : access IShellUIHelper2;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_RunOnceHasShown);
   
   type af_IShellUIHelper2_SearchGuideUrl is access
     function (This     : access IShellUIHelper2;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper2_SearchGuideUrl);
   
   type IShellUIHelper2Vtbl;
   type Pointer_To_IShellUIHelper2Vtbl is access all IShellUIHelper2Vtbl;
   
   type IShellUIHelper2 is
      record
         Vtbl : Pointer_To_IShellUIHelper2Vtbl;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellUIHelper2);
   
   type IShellUIHelper2Vtbl is
      record
         QueryInterface                  : af_IShellUIHelper2_QueryInterface;
         AddRef                          : af_IShellUIHelper2_AddRef;
         Release                         : af_IShellUIHelper2_Release;
         GetTypeInfoCount                : af_IShellUIHelper2_GetTypeInfoCount;
         GetTypeInfo                     : af_IShellUIHelper2_GetTypeInfo;
         GetIDsOfNames                   : af_IShellUIHelper2_GetIDsOfNames;
         Invoke                          : af_IShellUIHelper2_Invoke;
         ResetFirstBootMode              : af_IShellUIHelper2_ResetFirstBootMode;
         ResetSafeMode                   : af_IShellUIHelper2_ResetSafeMode;
         RefreshOfflineDesktop           : af_IShellUIHelper2_RefreshOfflineDesktop;
         AddFavorite                     : af_IShellUIHelper2_AddFavorite;
         AddChannel                      : af_IShellUIHelper2_AddChannel;
         AddDesktopComponent             : af_IShellUIHelper2_AddDesktopComponent;
         IsSubscribed                    : af_IShellUIHelper2_IsSubscribed;
         NavigateAndFind                 : af_IShellUIHelper2_NavigateAndFind;
         ImportExportFavorites           : af_IShellUIHelper2_ImportExportFavorites;
         AutoCompleteSaveForm            : af_IShellUIHelper2_AutoCompleteSaveForm;
         AutoScan                        : af_IShellUIHelper2_AutoScan;
         AutoCompleteAttach              : af_IShellUIHelper2_AutoCompleteAttach;
         ShowBrowserUI                   : af_IShellUIHelper2_ShowBrowserUI;
         AddSearchProvider               : af_IShellUIHelper2_AddSearchProvider;
         RunOnceShown                    : af_IShellUIHelper2_RunOnceShown;
         SkipRunOnce                     : af_IShellUIHelper2_SkipRunOnce;
         CustomizeSettings               : af_IShellUIHelper2_CustomizeSettings;
         SqmEnabled                      : af_IShellUIHelper2_SqmEnabled;
         PhishingEnabled                 : af_IShellUIHelper2_PhishingEnabled;
         BrandImageUri                   : af_IShellUIHelper2_BrandImageUri;
         SkipTabsWelcome                 : af_IShellUIHelper2_SkipTabsWelcome;
         DiagnoseConnection              : af_IShellUIHelper2_DiagnoseConnection;
         CustomizeClearType              : af_IShellUIHelper2_CustomizeClearType;
         IsSearchProviderInstalled       : af_IShellUIHelper2_IsSearchProviderInstalled;
         IsSearchMigrated                : af_IShellUIHelper2_IsSearchMigrated;
         DefaultSearchProvider           : af_IShellUIHelper2_DefaultSearchProvider;
         RunOnceRequiredSettingsComplete : af_IShellUIHelper2_RunOnceRequiredSettingsComplete;
         RunOnceHasShown                 : af_IShellUIHelper2_RunOnceHasShown;
         SearchGuideUrl                  : af_IShellUIHelper2_SearchGuideUrl;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellUIHelper2Vtbl);
   
   function To_Pointer_To_IShellUIHelper2 is
     new Ada.Unchecked_Conversion
     (GNATCOM.Types.Pointer_To_Void, Pointer_To_IShellUIHelper2);
   
   

   --  Element Index         : 23
   --  Element Name          : IShellUIHelper2
   --  Element Documentation : Shell UI Helper Control Interface 2
   --  Element Type          : Dispatch
   
   IShellUIHelper2_ResetFirstBootMode              : constant := 1;
   IShellUIHelper2_ResetSafeMode                   : constant := 2;
   IShellUIHelper2_RefreshOfflineDesktop           : constant := 3;
   IShellUIHelper2_AddFavorite                     : constant := 4;
   IShellUIHelper2_AddChannel                      : constant := 5;
   IShellUIHelper2_AddDesktopComponent             : constant := 6;
   IShellUIHelper2_IsSubscribed                    : constant := 7;
   IShellUIHelper2_NavigateAndFind                 : constant := 8;
   IShellUIHelper2_ImportExportFavorites           : constant := 9;
   IShellUIHelper2_AutoCompleteSaveForm            : constant := 10;
   IShellUIHelper2_AutoScan                        : constant := 11;
   IShellUIHelper2_AutoCompleteAttach              : constant := 12;
   IShellUIHelper2_ShowBrowserUI                   : constant := 13;
   IShellUIHelper2_AddSearchProvider               : constant := 14;
   IShellUIHelper2_RunOnceShown                    : constant := 15;
   IShellUIHelper2_SkipRunOnce                     : constant := 16;
   IShellUIHelper2_CustomizeSettings               : constant := 17;
   IShellUIHelper2_SqmEnabled                      : constant := 18;
   IShellUIHelper2_PhishingEnabled                 : constant := 19;
   IShellUIHelper2_BrandImageUri                   : constant := 20;
   IShellUIHelper2_SkipTabsWelcome                 : constant := 21;
   IShellUIHelper2_DiagnoseConnection              : constant := 22;
   IShellUIHelper2_CustomizeClearType              : constant := 23;
   IShellUIHelper2_IsSearchProviderInstalled       : constant := 24;
   IShellUIHelper2_IsSearchMigrated                : constant := 25;
   IShellUIHelper2_DefaultSearchProvider           : constant := 26;
   IShellUIHelper2_RunOnceRequiredSettingsComplete : constant := 27;
   IShellUIHelper2_RunOnceHasShown                 : constant := 28;
   IShellUIHelper2_SearchGuideUrl                  : constant := 29;
   
   

   --  Element Index         : 24
   --  Element Name          : IShellUIHelper3
   --  Element Documentation : Shell UI Helper Control Interface 3
   --  Element Type          : Dispatch
   
   IID_IShellUIHelper3 : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{528DF2EC-D419-40BC-9B6D-DCDBF9C1B25D}");
   
   type af_IShellUIHelper3_QueryInterface is access
     function (This   : access IShellUIHelper3;
               riid   : GNATCOM.Types.Pointer_To_GUID;
               ppvObj : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_QueryInterface);
   
   type af_IShellUIHelper3_AddRef is access
     function (This : access IShellUIHelper3)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellUIHelper3_AddRef);
   
   type af_IShellUIHelper3_Release is access
     function (This : access IShellUIHelper3)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellUIHelper3_Release);
   
   type af_IShellUIHelper3_GetTypeInfoCount is access
     function (This    : access IShellUIHelper3;
               pctinfo : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_GetTypeInfoCount);
   
   type af_IShellUIHelper3_GetTypeInfo is access
     function (This    : access IShellUIHelper3;
               itinfo  : Interfaces.C.unsigned;
               lcid    : Interfaces.C.unsigned_long;
               pptinfo : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_GetTypeInfo);
   
   type af_IShellUIHelper3_GetIDsOfNames is access
     function (This      : access IShellUIHelper3;
               riid      : GNATCOM.Types.Pointer_To_GUID;
               rgszNames : GNATCOM.Types.Pointer_To_Pointer_To_char;
               cNames    : Interfaces.C.unsigned;
               lcid      : Interfaces.C.unsigned_long;
               rgdispid  : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_GetIDsOfNames);
   
   type af_IShellUIHelper3_Invoke is access
     function (This         : access IShellUIHelper3;
               dispidMember : Interfaces.C.long;
               riid         : GNATCOM.Types.Pointer_To_GUID;
               lcid         : Interfaces.C.unsigned_long;
               wFlags       : Interfaces.C.unsigned_short;
               pdispparams  : GNATCOM.Types.Pointer_To_DISPPARAMS;
               pvarResult   : access GNATCOM.Types.VARIANT;
               pexcepinfo   : GNATCOM.Types.Pointer_To_EXCEPINFO;
               puArgErr     : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_Invoke);
   
   type af_IShellUIHelper3_ResetFirstBootMode is access
     function (This : access IShellUIHelper3)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_ResetFirstBootMode);
   
   type af_IShellUIHelper3_ResetSafeMode is access
     function (This : access IShellUIHelper3)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_ResetSafeMode);
   
   type af_IShellUIHelper3_RefreshOfflineDesktop is access
     function (This : access IShellUIHelper3)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_RefreshOfflineDesktop);
   
   type af_IShellUIHelper3_AddFavorite is access
     function (This  : access IShellUIHelper3;
               URL   : GNATCOM.Types.BSTR;
               Title : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_AddFavorite);
   
   type af_IShellUIHelper3_AddChannel is access
     function (This : access IShellUIHelper3;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_AddChannel);
   
   type af_IShellUIHelper3_AddDesktopComponent is access
     function (This   : access IShellUIHelper3;
               URL    : GNATCOM.Types.BSTR;
               uType  : GNATCOM.Types.BSTR;
               Left   : access GNATCOM.Types.VARIANT;
               Top    : access GNATCOM.Types.VARIANT;
               Width  : access GNATCOM.Types.VARIANT;
               Height : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_AddDesktopComponent);
   
   type af_IShellUIHelper3_IsSubscribed is access
     function (This  : access IShellUIHelper3;
               URL   : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_IsSubscribed);
   
   type af_IShellUIHelper3_NavigateAndFind is access
     function (This           : access IShellUIHelper3;
               URL            : GNATCOM.Types.BSTR;
               strQuery       : GNATCOM.Types.BSTR;
               varTargetFrame : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_NavigateAndFind);
   
   type af_IShellUIHelper3_ImportExportFavorites is access
     function (This          : access IShellUIHelper3;
               fImport       : GNATCOM.Types.VARIANT_BOOL;
               strImpExpPath : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_ImportExportFavorites);
   
   type af_IShellUIHelper3_AutoCompleteSaveForm is access
     function (This : access IShellUIHelper3;
               Form : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_AutoCompleteSaveForm);
   
   type af_IShellUIHelper3_AutoScan is access
     function (This            : access IShellUIHelper3;
               strSearch       : GNATCOM.Types.BSTR;
               strFailureUrl   : GNATCOM.Types.BSTR;
               pvarTargetFrame : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_AutoScan);
   
   type af_IShellUIHelper3_AutoCompleteAttach is access
     function (This     : access IShellUIHelper3;
               Reserved : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_AutoCompleteAttach);
   
   type af_IShellUIHelper3_ShowBrowserUI is access
     function (This     : access IShellUIHelper3;
               bstrName : GNATCOM.Types.BSTR;
               pvarIn   : access GNATCOM.Types.VARIANT;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_ShowBrowserUI);
   
   type af_IShellUIHelper3_AddSearchProvider is access
     function (This : access IShellUIHelper3;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_AddSearchProvider);
   
   type af_IShellUIHelper3_RunOnceShown is access
     function (This : access IShellUIHelper3)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_RunOnceShown);
   
   type af_IShellUIHelper3_SkipRunOnce is access
     function (This : access IShellUIHelper3)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_SkipRunOnce);
   
   type af_IShellUIHelper3_CustomizeSettings is access
     function (This       : access IShellUIHelper3;
               fSQM       : GNATCOM.Types.VARIANT_BOOL;
               fPhishing  : GNATCOM.Types.VARIANT_BOOL;
               bstrLocale : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_CustomizeSettings);
   
   type af_IShellUIHelper3_SqmEnabled is access
     function (This      : access IShellUIHelper3;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_SqmEnabled);
   
   type af_IShellUIHelper3_PhishingEnabled is access
     function (This      : access IShellUIHelper3;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_PhishingEnabled);
   
   type af_IShellUIHelper3_BrandImageUri is access
     function (This     : access IShellUIHelper3;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_BrandImageUri);
   
   type af_IShellUIHelper3_SkipTabsWelcome is access
     function (This : access IShellUIHelper3)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_SkipTabsWelcome);
   
   type af_IShellUIHelper3_DiagnoseConnection is access
     function (This : access IShellUIHelper3)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_DiagnoseConnection);
   
   type af_IShellUIHelper3_CustomizeClearType is access
     function (This : access IShellUIHelper3;
               fSet : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_CustomizeClearType);
   
   type af_IShellUIHelper3_IsSearchProviderInstalled is access
     function (This      : access IShellUIHelper3;
               URL       : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_IsSearchProviderInstalled);
   
   type af_IShellUIHelper3_IsSearchMigrated is access
     function (This       : access IShellUIHelper3;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_IsSearchMigrated);
   
   type af_IShellUIHelper3_DefaultSearchProvider is access
     function (This      : access IShellUIHelper3;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_DefaultSearchProvider);
   
   type af_IShellUIHelper3_RunOnceRequiredSettingsComplete is access
     function (This      : access IShellUIHelper3;
               fComplete : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_RunOnceRequiredSettingsComplete);
   
   type af_IShellUIHelper3_RunOnceHasShown is access
     function (This    : access IShellUIHelper3;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_RunOnceHasShown);
   
   type af_IShellUIHelper3_SearchGuideUrl is access
     function (This     : access IShellUIHelper3;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_SearchGuideUrl);
   
   type af_IShellUIHelper3_AddService is access
     function (This : access IShellUIHelper3;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_AddService);
   
   type af_IShellUIHelper3_IsServiceInstalled is access
     function (This      : access IShellUIHelper3;
               URL       : GNATCOM.Types.BSTR;
               Verb      : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_IsServiceInstalled);
   
   type af_IShellUIHelper3_InPrivateFilteringEnabled is access
     function (This      : access IShellUIHelper3;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_InPrivateFilteringEnabled);
   
   type af_IShellUIHelper3_AddToFavoritesBar is access
     function (This  : access IShellUIHelper3;
               URL   : GNATCOM.Types.BSTR;
               Title : GNATCOM.Types.BSTR;
               uType : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_AddToFavoritesBar);
   
   type af_IShellUIHelper3_BuildNewTabPage is access
     function (This : access IShellUIHelper3)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_BuildNewTabPage);
   
   type af_IShellUIHelper3_SetRecentlyClosedVisible is access
     function (This     : access IShellUIHelper3;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_SetRecentlyClosedVisible);
   
   type af_IShellUIHelper3_SetActivitiesVisible is access
     function (This     : access IShellUIHelper3;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_SetActivitiesVisible);
   
   type af_IShellUIHelper3_ContentDiscoveryReset is access
     function (This : access IShellUIHelper3)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_ContentDiscoveryReset);
   
   type af_IShellUIHelper3_IsSuggestedSitesEnabled is access
     function (This      : access IShellUIHelper3;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_IsSuggestedSitesEnabled);
   
   type af_IShellUIHelper3_EnableSuggestedSites is access
     function (This    : access IShellUIHelper3;
               fEnable : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_EnableSuggestedSites);
   
   type af_IShellUIHelper3_NavigateToSuggestedSites is access
     function (This            : access IShellUIHelper3;
               bstrRelativeUrl : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_NavigateToSuggestedSites);
   
   type af_IShellUIHelper3_ShowTabsHelp is access
     function (This : access IShellUIHelper3)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_ShowTabsHelp);
   
   type af_IShellUIHelper3_ShowInPrivateHelp is access
     function (This : access IShellUIHelper3)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper3_ShowInPrivateHelp);
   
   type IShellUIHelper3Vtbl;
   type Pointer_To_IShellUIHelper3Vtbl is access all IShellUIHelper3Vtbl;
   
   type IShellUIHelper3 is
      record
         Vtbl : Pointer_To_IShellUIHelper3Vtbl;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellUIHelper3);
   
   type IShellUIHelper3Vtbl is
      record
         QueryInterface                  : af_IShellUIHelper3_QueryInterface;
         AddRef                          : af_IShellUIHelper3_AddRef;
         Release                         : af_IShellUIHelper3_Release;
         GetTypeInfoCount                : af_IShellUIHelper3_GetTypeInfoCount;
         GetTypeInfo                     : af_IShellUIHelper3_GetTypeInfo;
         GetIDsOfNames                   : af_IShellUIHelper3_GetIDsOfNames;
         Invoke                          : af_IShellUIHelper3_Invoke;
         ResetFirstBootMode              : af_IShellUIHelper3_ResetFirstBootMode;
         ResetSafeMode                   : af_IShellUIHelper3_ResetSafeMode;
         RefreshOfflineDesktop           : af_IShellUIHelper3_RefreshOfflineDesktop;
         AddFavorite                     : af_IShellUIHelper3_AddFavorite;
         AddChannel                      : af_IShellUIHelper3_AddChannel;
         AddDesktopComponent             : af_IShellUIHelper3_AddDesktopComponent;
         IsSubscribed                    : af_IShellUIHelper3_IsSubscribed;
         NavigateAndFind                 : af_IShellUIHelper3_NavigateAndFind;
         ImportExportFavorites           : af_IShellUIHelper3_ImportExportFavorites;
         AutoCompleteSaveForm            : af_IShellUIHelper3_AutoCompleteSaveForm;
         AutoScan                        : af_IShellUIHelper3_AutoScan;
         AutoCompleteAttach              : af_IShellUIHelper3_AutoCompleteAttach;
         ShowBrowserUI                   : af_IShellUIHelper3_ShowBrowserUI;
         AddSearchProvider               : af_IShellUIHelper3_AddSearchProvider;
         RunOnceShown                    : af_IShellUIHelper3_RunOnceShown;
         SkipRunOnce                     : af_IShellUIHelper3_SkipRunOnce;
         CustomizeSettings               : af_IShellUIHelper3_CustomizeSettings;
         SqmEnabled                      : af_IShellUIHelper3_SqmEnabled;
         PhishingEnabled                 : af_IShellUIHelper3_PhishingEnabled;
         BrandImageUri                   : af_IShellUIHelper3_BrandImageUri;
         SkipTabsWelcome                 : af_IShellUIHelper3_SkipTabsWelcome;
         DiagnoseConnection              : af_IShellUIHelper3_DiagnoseConnection;
         CustomizeClearType              : af_IShellUIHelper3_CustomizeClearType;
         IsSearchProviderInstalled       : af_IShellUIHelper3_IsSearchProviderInstalled;
         IsSearchMigrated                : af_IShellUIHelper3_IsSearchMigrated;
         DefaultSearchProvider           : af_IShellUIHelper3_DefaultSearchProvider;
         RunOnceRequiredSettingsComplete : af_IShellUIHelper3_RunOnceRequiredSettingsComplete;
         RunOnceHasShown                 : af_IShellUIHelper3_RunOnceHasShown;
         SearchGuideUrl                  : af_IShellUIHelper3_SearchGuideUrl;
         AddService                      : af_IShellUIHelper3_AddService;
         IsServiceInstalled              : af_IShellUIHelper3_IsServiceInstalled;
         InPrivateFilteringEnabled       : af_IShellUIHelper3_InPrivateFilteringEnabled;
         AddToFavoritesBar               : af_IShellUIHelper3_AddToFavoritesBar;
         BuildNewTabPage                 : af_IShellUIHelper3_BuildNewTabPage;
         SetRecentlyClosedVisible        : af_IShellUIHelper3_SetRecentlyClosedVisible;
         SetActivitiesVisible            : af_IShellUIHelper3_SetActivitiesVisible;
         ContentDiscoveryReset           : af_IShellUIHelper3_ContentDiscoveryReset;
         IsSuggestedSitesEnabled         : af_IShellUIHelper3_IsSuggestedSitesEnabled;
         EnableSuggestedSites            : af_IShellUIHelper3_EnableSuggestedSites;
         NavigateToSuggestedSites        : af_IShellUIHelper3_NavigateToSuggestedSites;
         ShowTabsHelp                    : af_IShellUIHelper3_ShowTabsHelp;
         ShowInPrivateHelp               : af_IShellUIHelper3_ShowInPrivateHelp;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellUIHelper3Vtbl);
   
   function To_Pointer_To_IShellUIHelper3 is
     new Ada.Unchecked_Conversion
     (GNATCOM.Types.Pointer_To_Void, Pointer_To_IShellUIHelper3);
   
   

   --  Element Index         : 24
   --  Element Name          : IShellUIHelper3
   --  Element Documentation : Shell UI Helper Control Interface 3
   --  Element Type          : Dispatch
   
   IShellUIHelper3_ResetFirstBootMode              : constant := 1;
   IShellUIHelper3_ResetSafeMode                   : constant := 2;
   IShellUIHelper3_RefreshOfflineDesktop           : constant := 3;
   IShellUIHelper3_AddFavorite                     : constant := 4;
   IShellUIHelper3_AddChannel                      : constant := 5;
   IShellUIHelper3_AddDesktopComponent             : constant := 6;
   IShellUIHelper3_IsSubscribed                    : constant := 7;
   IShellUIHelper3_NavigateAndFind                 : constant := 8;
   IShellUIHelper3_ImportExportFavorites           : constant := 9;
   IShellUIHelper3_AutoCompleteSaveForm            : constant := 10;
   IShellUIHelper3_AutoScan                        : constant := 11;
   IShellUIHelper3_AutoCompleteAttach              : constant := 12;
   IShellUIHelper3_ShowBrowserUI                   : constant := 13;
   IShellUIHelper3_AddSearchProvider               : constant := 14;
   IShellUIHelper3_RunOnceShown                    : constant := 15;
   IShellUIHelper3_SkipRunOnce                     : constant := 16;
   IShellUIHelper3_CustomizeSettings               : constant := 17;
   IShellUIHelper3_SqmEnabled                      : constant := 18;
   IShellUIHelper3_PhishingEnabled                 : constant := 19;
   IShellUIHelper3_BrandImageUri                   : constant := 20;
   IShellUIHelper3_SkipTabsWelcome                 : constant := 21;
   IShellUIHelper3_DiagnoseConnection              : constant := 22;
   IShellUIHelper3_CustomizeClearType              : constant := 23;
   IShellUIHelper3_IsSearchProviderInstalled       : constant := 24;
   IShellUIHelper3_IsSearchMigrated                : constant := 25;
   IShellUIHelper3_DefaultSearchProvider           : constant := 26;
   IShellUIHelper3_RunOnceRequiredSettingsComplete : constant := 27;
   IShellUIHelper3_RunOnceHasShown                 : constant := 28;
   IShellUIHelper3_SearchGuideUrl                  : constant := 29;
   IShellUIHelper3_AddService                      : constant := 30;
   IShellUIHelper3_IsServiceInstalled              : constant := 31;
   IShellUIHelper3_InPrivateFilteringEnabled       : constant := 37;
   IShellUIHelper3_AddToFavoritesBar               : constant := 32;
   IShellUIHelper3_BuildNewTabPage                 : constant := 33;
   IShellUIHelper3_SetRecentlyClosedVisible        : constant := 34;
   IShellUIHelper3_SetActivitiesVisible            : constant := 35;
   IShellUIHelper3_ContentDiscoveryReset           : constant := 36;
   IShellUIHelper3_IsSuggestedSitesEnabled         : constant := 38;
   IShellUIHelper3_EnableSuggestedSites            : constant := 39;
   IShellUIHelper3_NavigateToSuggestedSites        : constant := 40;
   IShellUIHelper3_ShowTabsHelp                    : constant := 41;
   IShellUIHelper3_ShowInPrivateHelp               : constant := 42;
   
   

   --  Element Index         : 25
   --  Element Name          : IShellUIHelper4
   --  Element Documentation : Shell UI Helper Control Interface 4
   --  Element Type          : Dispatch
   
   IID_IShellUIHelper4 : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{B36E6A53-8073-499E-824C-D776330A333E}");
   
   type af_IShellUIHelper4_QueryInterface is access
     function (This   : access IShellUIHelper4;
               riid   : GNATCOM.Types.Pointer_To_GUID;
               ppvObj : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_QueryInterface);
   
   type af_IShellUIHelper4_AddRef is access
     function (This : access IShellUIHelper4)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellUIHelper4_AddRef);
   
   type af_IShellUIHelper4_Release is access
     function (This : access IShellUIHelper4)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellUIHelper4_Release);
   
   type af_IShellUIHelper4_GetTypeInfoCount is access
     function (This    : access IShellUIHelper4;
               pctinfo : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_GetTypeInfoCount);
   
   type af_IShellUIHelper4_GetTypeInfo is access
     function (This    : access IShellUIHelper4;
               itinfo  : Interfaces.C.unsigned;
               lcid    : Interfaces.C.unsigned_long;
               pptinfo : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_GetTypeInfo);
   
   type af_IShellUIHelper4_GetIDsOfNames is access
     function (This      : access IShellUIHelper4;
               riid      : GNATCOM.Types.Pointer_To_GUID;
               rgszNames : GNATCOM.Types.Pointer_To_Pointer_To_char;
               cNames    : Interfaces.C.unsigned;
               lcid      : Interfaces.C.unsigned_long;
               rgdispid  : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_GetIDsOfNames);
   
   type af_IShellUIHelper4_Invoke is access
     function (This         : access IShellUIHelper4;
               dispidMember : Interfaces.C.long;
               riid         : GNATCOM.Types.Pointer_To_GUID;
               lcid         : Interfaces.C.unsigned_long;
               wFlags       : Interfaces.C.unsigned_short;
               pdispparams  : GNATCOM.Types.Pointer_To_DISPPARAMS;
               pvarResult   : access GNATCOM.Types.VARIANT;
               pexcepinfo   : GNATCOM.Types.Pointer_To_EXCEPINFO;
               puArgErr     : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_Invoke);
   
   type af_IShellUIHelper4_ResetFirstBootMode is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_ResetFirstBootMode);
   
   type af_IShellUIHelper4_ResetSafeMode is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_ResetSafeMode);
   
   type af_IShellUIHelper4_RefreshOfflineDesktop is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_RefreshOfflineDesktop);
   
   type af_IShellUIHelper4_AddFavorite is access
     function (This  : access IShellUIHelper4;
               URL   : GNATCOM.Types.BSTR;
               Title : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_AddFavorite);
   
   type af_IShellUIHelper4_AddChannel is access
     function (This : access IShellUIHelper4;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_AddChannel);
   
   type af_IShellUIHelper4_AddDesktopComponent is access
     function (This   : access IShellUIHelper4;
               URL    : GNATCOM.Types.BSTR;
               uType  : GNATCOM.Types.BSTR;
               Left   : access GNATCOM.Types.VARIANT;
               Top    : access GNATCOM.Types.VARIANT;
               Width  : access GNATCOM.Types.VARIANT;
               Height : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_AddDesktopComponent);
   
   type af_IShellUIHelper4_IsSubscribed is access
     function (This  : access IShellUIHelper4;
               URL   : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_IsSubscribed);
   
   type af_IShellUIHelper4_NavigateAndFind is access
     function (This           : access IShellUIHelper4;
               URL            : GNATCOM.Types.BSTR;
               strQuery       : GNATCOM.Types.BSTR;
               varTargetFrame : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_NavigateAndFind);
   
   type af_IShellUIHelper4_ImportExportFavorites is access
     function (This          : access IShellUIHelper4;
               fImport       : GNATCOM.Types.VARIANT_BOOL;
               strImpExpPath : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_ImportExportFavorites);
   
   type af_IShellUIHelper4_AutoCompleteSaveForm is access
     function (This : access IShellUIHelper4;
               Form : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_AutoCompleteSaveForm);
   
   type af_IShellUIHelper4_AutoScan is access
     function (This            : access IShellUIHelper4;
               strSearch       : GNATCOM.Types.BSTR;
               strFailureUrl   : GNATCOM.Types.BSTR;
               pvarTargetFrame : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_AutoScan);
   
   type af_IShellUIHelper4_AutoCompleteAttach is access
     function (This     : access IShellUIHelper4;
               Reserved : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_AutoCompleteAttach);
   
   type af_IShellUIHelper4_ShowBrowserUI is access
     function (This     : access IShellUIHelper4;
               bstrName : GNATCOM.Types.BSTR;
               pvarIn   : access GNATCOM.Types.VARIANT;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_ShowBrowserUI);
   
   type af_IShellUIHelper4_AddSearchProvider is access
     function (This : access IShellUIHelper4;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_AddSearchProvider);
   
   type af_IShellUIHelper4_RunOnceShown is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_RunOnceShown);
   
   type af_IShellUIHelper4_SkipRunOnce is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_SkipRunOnce);
   
   type af_IShellUIHelper4_CustomizeSettings is access
     function (This       : access IShellUIHelper4;
               fSQM       : GNATCOM.Types.VARIANT_BOOL;
               fPhishing  : GNATCOM.Types.VARIANT_BOOL;
               bstrLocale : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_CustomizeSettings);
   
   type af_IShellUIHelper4_SqmEnabled is access
     function (This      : access IShellUIHelper4;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_SqmEnabled);
   
   type af_IShellUIHelper4_PhishingEnabled is access
     function (This      : access IShellUIHelper4;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_PhishingEnabled);
   
   type af_IShellUIHelper4_BrandImageUri is access
     function (This     : access IShellUIHelper4;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_BrandImageUri);
   
   type af_IShellUIHelper4_SkipTabsWelcome is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_SkipTabsWelcome);
   
   type af_IShellUIHelper4_DiagnoseConnection is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_DiagnoseConnection);
   
   type af_IShellUIHelper4_CustomizeClearType is access
     function (This : access IShellUIHelper4;
               fSet : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_CustomizeClearType);
   
   type af_IShellUIHelper4_IsSearchProviderInstalled is access
     function (This      : access IShellUIHelper4;
               URL       : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_IsSearchProviderInstalled);
   
   type af_IShellUIHelper4_IsSearchMigrated is access
     function (This       : access IShellUIHelper4;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_IsSearchMigrated);
   
   type af_IShellUIHelper4_DefaultSearchProvider is access
     function (This      : access IShellUIHelper4;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_DefaultSearchProvider);
   
   type af_IShellUIHelper4_RunOnceRequiredSettingsComplete is access
     function (This      : access IShellUIHelper4;
               fComplete : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_RunOnceRequiredSettingsComplete);
   
   type af_IShellUIHelper4_RunOnceHasShown is access
     function (This    : access IShellUIHelper4;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_RunOnceHasShown);
   
   type af_IShellUIHelper4_SearchGuideUrl is access
     function (This     : access IShellUIHelper4;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_SearchGuideUrl);
   
   type af_IShellUIHelper4_AddService is access
     function (This : access IShellUIHelper4;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_AddService);
   
   type af_IShellUIHelper4_IsServiceInstalled is access
     function (This      : access IShellUIHelper4;
               URL       : GNATCOM.Types.BSTR;
               Verb      : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_IsServiceInstalled);
   
   type af_IShellUIHelper4_InPrivateFilteringEnabled is access
     function (This      : access IShellUIHelper4;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_InPrivateFilteringEnabled);
   
   type af_IShellUIHelper4_AddToFavoritesBar is access
     function (This  : access IShellUIHelper4;
               URL   : GNATCOM.Types.BSTR;
               Title : GNATCOM.Types.BSTR;
               uType : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_AddToFavoritesBar);
   
   type af_IShellUIHelper4_BuildNewTabPage is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_BuildNewTabPage);
   
   type af_IShellUIHelper4_SetRecentlyClosedVisible is access
     function (This     : access IShellUIHelper4;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_SetRecentlyClosedVisible);
   
   type af_IShellUIHelper4_SetActivitiesVisible is access
     function (This     : access IShellUIHelper4;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_SetActivitiesVisible);
   
   type af_IShellUIHelper4_ContentDiscoveryReset is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_ContentDiscoveryReset);
   
   type af_IShellUIHelper4_IsSuggestedSitesEnabled is access
     function (This      : access IShellUIHelper4;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_IsSuggestedSitesEnabled);
   
   type af_IShellUIHelper4_EnableSuggestedSites is access
     function (This    : access IShellUIHelper4;
               fEnable : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_EnableSuggestedSites);
   
   type af_IShellUIHelper4_NavigateToSuggestedSites is access
     function (This            : access IShellUIHelper4;
               bstrRelativeUrl : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_NavigateToSuggestedSites);
   
   type af_IShellUIHelper4_ShowTabsHelp is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_ShowTabsHelp);
   
   type af_IShellUIHelper4_ShowInPrivateHelp is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_ShowInPrivateHelp);
   
   type af_IShellUIHelper4_msIsSiteMode is access
     function (This       : access IShellUIHelper4;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msIsSiteMode);
   
   type af_IShellUIHelper4_msSiteModeShowThumbBar is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msSiteModeShowThumbBar);
   
   type af_IShellUIHelper4_msSiteModeAddThumbBarButton is access
     function (This         : access IShellUIHelper4;
               bstrIconURL  : GNATCOM.Types.BSTR;
               bstrTooltip  : GNATCOM.Types.BSTR;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msSiteModeAddThumbBarButton);
   
   type af_IShellUIHelper4_msSiteModeUpdateThumbBarButton is access
     function (This     : access IShellUIHelper4;
               ButtonID : GNATCOM.Types.VARIANT;
               fEnabled : GNATCOM.Types.VARIANT_BOOL;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msSiteModeUpdateThumbBarButton);
   
   type af_IShellUIHelper4_msSiteModeSetIconOverlay is access
     function (This            : access IShellUIHelper4;
               IconUrl         : GNATCOM.Types.BSTR;
               pvarDescription : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msSiteModeSetIconOverlay);
   
   type af_IShellUIHelper4_msSiteModeClearIconOverlay is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msSiteModeClearIconOverlay);
   
   type af_IShellUIHelper4_msAddSiteMode is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msAddSiteMode);
   
   type af_IShellUIHelper4_msSiteModeCreateJumpList is access
     function (This       : access IShellUIHelper4;
               bstrHeader : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msSiteModeCreateJumpList);
   
   type af_IShellUIHelper4_msSiteModeAddJumpListItem is access
     function (This           : access IShellUIHelper4;
               bstrName       : GNATCOM.Types.BSTR;
               bstrActionUri  : GNATCOM.Types.BSTR;
               bstrIconUri    : GNATCOM.Types.BSTR;
               pvarWindowType : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msSiteModeAddJumpListItem);
   
   type af_IShellUIHelper4_msSiteModeClearJumpList is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msSiteModeClearJumpList);
   
   type af_IShellUIHelper4_msSiteModeShowJumpList is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msSiteModeShowJumpList);
   
   type af_IShellUIHelper4_msSiteModeAddButtonStyle is access
     function (This        : access IShellUIHelper4;
               uiButtonID  : GNATCOM.Types.VARIANT;
               bstrIconURL : GNATCOM.Types.BSTR;
               bstrTooltip : GNATCOM.Types.BSTR;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msSiteModeAddButtonStyle);
   
   type af_IShellUIHelper4_msSiteModeShowButtonStyle is access
     function (This       : access IShellUIHelper4;
               uiButtonID : GNATCOM.Types.VARIANT;
               uiStyleID  : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msSiteModeShowButtonStyle);
   
   type af_IShellUIHelper4_msSiteModeActivate is access
     function (This : access IShellUIHelper4)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msSiteModeActivate);
   
   type af_IShellUIHelper4_msIsSiteModeFirstRun is access
     function (This           : access IShellUIHelper4;
               fPreserveState : GNATCOM.Types.VARIANT_BOOL;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msIsSiteModeFirstRun);
   
   type af_IShellUIHelper4_msAddTrackingProtectionList is access
     function (This           : access IShellUIHelper4;
               URL            : GNATCOM.Types.BSTR;
               bstrFilterName : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msAddTrackingProtectionList);
   
   type af_IShellUIHelper4_msTrackingProtectionEnabled is access
     function (This      : access IShellUIHelper4;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msTrackingProtectionEnabled);
   
   type af_IShellUIHelper4_msActiveXFilteringEnabled is access
     function (This      : access IShellUIHelper4;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper4_msActiveXFilteringEnabled);
   
   type IShellUIHelper4Vtbl;
   type Pointer_To_IShellUIHelper4Vtbl is access all IShellUIHelper4Vtbl;
   
   type IShellUIHelper4 is
      record
         Vtbl : Pointer_To_IShellUIHelper4Vtbl;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellUIHelper4);
   
   type IShellUIHelper4Vtbl is
      record
         QueryInterface                  : af_IShellUIHelper4_QueryInterface;
         AddRef                          : af_IShellUIHelper4_AddRef;
         Release                         : af_IShellUIHelper4_Release;
         GetTypeInfoCount                : af_IShellUIHelper4_GetTypeInfoCount;
         GetTypeInfo                     : af_IShellUIHelper4_GetTypeInfo;
         GetIDsOfNames                   : af_IShellUIHelper4_GetIDsOfNames;
         Invoke                          : af_IShellUIHelper4_Invoke;
         ResetFirstBootMode              : af_IShellUIHelper4_ResetFirstBootMode;
         ResetSafeMode                   : af_IShellUIHelper4_ResetSafeMode;
         RefreshOfflineDesktop           : af_IShellUIHelper4_RefreshOfflineDesktop;
         AddFavorite                     : af_IShellUIHelper4_AddFavorite;
         AddChannel                      : af_IShellUIHelper4_AddChannel;
         AddDesktopComponent             : af_IShellUIHelper4_AddDesktopComponent;
         IsSubscribed                    : af_IShellUIHelper4_IsSubscribed;
         NavigateAndFind                 : af_IShellUIHelper4_NavigateAndFind;
         ImportExportFavorites           : af_IShellUIHelper4_ImportExportFavorites;
         AutoCompleteSaveForm            : af_IShellUIHelper4_AutoCompleteSaveForm;
         AutoScan                        : af_IShellUIHelper4_AutoScan;
         AutoCompleteAttach              : af_IShellUIHelper4_AutoCompleteAttach;
         ShowBrowserUI                   : af_IShellUIHelper4_ShowBrowserUI;
         AddSearchProvider               : af_IShellUIHelper4_AddSearchProvider;
         RunOnceShown                    : af_IShellUIHelper4_RunOnceShown;
         SkipRunOnce                     : af_IShellUIHelper4_SkipRunOnce;
         CustomizeSettings               : af_IShellUIHelper4_CustomizeSettings;
         SqmEnabled                      : af_IShellUIHelper4_SqmEnabled;
         PhishingEnabled                 : af_IShellUIHelper4_PhishingEnabled;
         BrandImageUri                   : af_IShellUIHelper4_BrandImageUri;
         SkipTabsWelcome                 : af_IShellUIHelper4_SkipTabsWelcome;
         DiagnoseConnection              : af_IShellUIHelper4_DiagnoseConnection;
         CustomizeClearType              : af_IShellUIHelper4_CustomizeClearType;
         IsSearchProviderInstalled       : af_IShellUIHelper4_IsSearchProviderInstalled;
         IsSearchMigrated                : af_IShellUIHelper4_IsSearchMigrated;
         DefaultSearchProvider           : af_IShellUIHelper4_DefaultSearchProvider;
         RunOnceRequiredSettingsComplete : af_IShellUIHelper4_RunOnceRequiredSettingsComplete;
         RunOnceHasShown                 : af_IShellUIHelper4_RunOnceHasShown;
         SearchGuideUrl                  : af_IShellUIHelper4_SearchGuideUrl;
         AddService                      : af_IShellUIHelper4_AddService;
         IsServiceInstalled              : af_IShellUIHelper4_IsServiceInstalled;
         InPrivateFilteringEnabled       : af_IShellUIHelper4_InPrivateFilteringEnabled;
         AddToFavoritesBar               : af_IShellUIHelper4_AddToFavoritesBar;
         BuildNewTabPage                 : af_IShellUIHelper4_BuildNewTabPage;
         SetRecentlyClosedVisible        : af_IShellUIHelper4_SetRecentlyClosedVisible;
         SetActivitiesVisible            : af_IShellUIHelper4_SetActivitiesVisible;
         ContentDiscoveryReset           : af_IShellUIHelper4_ContentDiscoveryReset;
         IsSuggestedSitesEnabled         : af_IShellUIHelper4_IsSuggestedSitesEnabled;
         EnableSuggestedSites            : af_IShellUIHelper4_EnableSuggestedSites;
         NavigateToSuggestedSites        : af_IShellUIHelper4_NavigateToSuggestedSites;
         ShowTabsHelp                    : af_IShellUIHelper4_ShowTabsHelp;
         ShowInPrivateHelp               : af_IShellUIHelper4_ShowInPrivateHelp;
         msIsSiteMode                    : af_IShellUIHelper4_msIsSiteMode;
         msSiteModeShowThumbBar          : af_IShellUIHelper4_msSiteModeShowThumbBar;
         msSiteModeAddThumbBarButton     : af_IShellUIHelper4_msSiteModeAddThumbBarButton;
         msSiteModeUpdateThumbBarButton  : af_IShellUIHelper4_msSiteModeUpdateThumbBarButton;
         msSiteModeSetIconOverlay        : af_IShellUIHelper4_msSiteModeSetIconOverlay;
         msSiteModeClearIconOverlay      : af_IShellUIHelper4_msSiteModeClearIconOverlay;
         msAddSiteMode                   : af_IShellUIHelper4_msAddSiteMode;
         msSiteModeCreateJumpList        : af_IShellUIHelper4_msSiteModeCreateJumpList;
         msSiteModeAddJumpListItem       : af_IShellUIHelper4_msSiteModeAddJumpListItem;
         msSiteModeClearJumpList         : af_IShellUIHelper4_msSiteModeClearJumpList;
         msSiteModeShowJumpList          : af_IShellUIHelper4_msSiteModeShowJumpList;
         msSiteModeAddButtonStyle        : af_IShellUIHelper4_msSiteModeAddButtonStyle;
         msSiteModeShowButtonStyle       : af_IShellUIHelper4_msSiteModeShowButtonStyle;
         msSiteModeActivate              : af_IShellUIHelper4_msSiteModeActivate;
         msIsSiteModeFirstRun            : af_IShellUIHelper4_msIsSiteModeFirstRun;
         msAddTrackingProtectionList     : af_IShellUIHelper4_msAddTrackingProtectionList;
         msTrackingProtectionEnabled     : af_IShellUIHelper4_msTrackingProtectionEnabled;
         msActiveXFilteringEnabled       : af_IShellUIHelper4_msActiveXFilteringEnabled;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellUIHelper4Vtbl);
   
   function To_Pointer_To_IShellUIHelper4 is
     new Ada.Unchecked_Conversion
     (GNATCOM.Types.Pointer_To_Void, Pointer_To_IShellUIHelper4);
   
   

   --  Element Index         : 25
   --  Element Name          : IShellUIHelper4
   --  Element Documentation : Shell UI Helper Control Interface 4
   --  Element Type          : Dispatch
   
   IShellUIHelper4_ResetFirstBootMode              : constant := 1;
   IShellUIHelper4_ResetSafeMode                   : constant := 2;
   IShellUIHelper4_RefreshOfflineDesktop           : constant := 3;
   IShellUIHelper4_AddFavorite                     : constant := 4;
   IShellUIHelper4_AddChannel                      : constant := 5;
   IShellUIHelper4_AddDesktopComponent             : constant := 6;
   IShellUIHelper4_IsSubscribed                    : constant := 7;
   IShellUIHelper4_NavigateAndFind                 : constant := 8;
   IShellUIHelper4_ImportExportFavorites           : constant := 9;
   IShellUIHelper4_AutoCompleteSaveForm            : constant := 10;
   IShellUIHelper4_AutoScan                        : constant := 11;
   IShellUIHelper4_AutoCompleteAttach              : constant := 12;
   IShellUIHelper4_ShowBrowserUI                   : constant := 13;
   IShellUIHelper4_AddSearchProvider               : constant := 14;
   IShellUIHelper4_RunOnceShown                    : constant := 15;
   IShellUIHelper4_SkipRunOnce                     : constant := 16;
   IShellUIHelper4_CustomizeSettings               : constant := 17;
   IShellUIHelper4_SqmEnabled                      : constant := 18;
   IShellUIHelper4_PhishingEnabled                 : constant := 19;
   IShellUIHelper4_BrandImageUri                   : constant := 20;
   IShellUIHelper4_SkipTabsWelcome                 : constant := 21;
   IShellUIHelper4_DiagnoseConnection              : constant := 22;
   IShellUIHelper4_CustomizeClearType              : constant := 23;
   IShellUIHelper4_IsSearchProviderInstalled       : constant := 24;
   IShellUIHelper4_IsSearchMigrated                : constant := 25;
   IShellUIHelper4_DefaultSearchProvider           : constant := 26;
   IShellUIHelper4_RunOnceRequiredSettingsComplete : constant := 27;
   IShellUIHelper4_RunOnceHasShown                 : constant := 28;
   IShellUIHelper4_SearchGuideUrl                  : constant := 29;
   IShellUIHelper4_AddService                      : constant := 30;
   IShellUIHelper4_IsServiceInstalled              : constant := 31;
   IShellUIHelper4_InPrivateFilteringEnabled       : constant := 37;
   IShellUIHelper4_AddToFavoritesBar               : constant := 32;
   IShellUIHelper4_BuildNewTabPage                 : constant := 33;
   IShellUIHelper4_SetRecentlyClosedVisible        : constant := 34;
   IShellUIHelper4_SetActivitiesVisible            : constant := 35;
   IShellUIHelper4_ContentDiscoveryReset           : constant := 36;
   IShellUIHelper4_IsSuggestedSitesEnabled         : constant := 38;
   IShellUIHelper4_EnableSuggestedSites            : constant := 39;
   IShellUIHelper4_NavigateToSuggestedSites        : constant := 40;
   IShellUIHelper4_ShowTabsHelp                    : constant := 41;
   IShellUIHelper4_ShowInPrivateHelp               : constant := 42;
   IShellUIHelper4_msIsSiteMode                    : constant := 43;
   IShellUIHelper4_msSiteModeShowThumbBar          : constant := 47;
   IShellUIHelper4_msSiteModeAddThumbBarButton     : constant := 48;
   IShellUIHelper4_msSiteModeUpdateThumbBarButton  : constant := 46;
   IShellUIHelper4_msSiteModeSetIconOverlay        : constant := 44;
   IShellUIHelper4_msSiteModeClearIconOverlay      : constant := 45;
   IShellUIHelper4_msAddSiteMode                   : constant := 49;
   IShellUIHelper4_msSiteModeCreateJumpList        : constant := 51;
   IShellUIHelper4_msSiteModeAddJumpListItem       : constant := 52;
   IShellUIHelper4_msSiteModeClearJumpList         : constant := 53;
   IShellUIHelper4_msSiteModeShowJumpList          : constant := 56;
   IShellUIHelper4_msSiteModeAddButtonStyle        : constant := 54;
   IShellUIHelper4_msSiteModeShowButtonStyle       : constant := 55;
   IShellUIHelper4_msSiteModeActivate              : constant := 58;
   IShellUIHelper4_msIsSiteModeFirstRun            : constant := 59;
   IShellUIHelper4_msAddTrackingProtectionList     : constant := 57;
   IShellUIHelper4_msTrackingProtectionEnabled     : constant := 60;
   IShellUIHelper4_msActiveXFilteringEnabled       : constant := 61;
   
   

   --  Element Index         : 26
   --  Element Name          : IShellUIHelper5
   --  Element Documentation : Shell UI Helper Control Interface 5
   --  Element Type          : Dispatch
   
   IID_IShellUIHelper5 : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{A2A08B09-103D-4D3F-B91C-EA455CA82EFA}");
   
   type af_IShellUIHelper5_QueryInterface is access
     function (This   : access IShellUIHelper5;
               riid   : GNATCOM.Types.Pointer_To_GUID;
               ppvObj : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_QueryInterface);
   
   type af_IShellUIHelper5_AddRef is access
     function (This : access IShellUIHelper5)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellUIHelper5_AddRef);
   
   type af_IShellUIHelper5_Release is access
     function (This : access IShellUIHelper5)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellUIHelper5_Release);
   
   type af_IShellUIHelper5_GetTypeInfoCount is access
     function (This    : access IShellUIHelper5;
               pctinfo : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_GetTypeInfoCount);
   
   type af_IShellUIHelper5_GetTypeInfo is access
     function (This    : access IShellUIHelper5;
               itinfo  : Interfaces.C.unsigned;
               lcid    : Interfaces.C.unsigned_long;
               pptinfo : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_GetTypeInfo);
   
   type af_IShellUIHelper5_GetIDsOfNames is access
     function (This      : access IShellUIHelper5;
               riid      : GNATCOM.Types.Pointer_To_GUID;
               rgszNames : GNATCOM.Types.Pointer_To_Pointer_To_char;
               cNames    : Interfaces.C.unsigned;
               lcid      : Interfaces.C.unsigned_long;
               rgdispid  : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_GetIDsOfNames);
   
   type af_IShellUIHelper5_Invoke is access
     function (This         : access IShellUIHelper5;
               dispidMember : Interfaces.C.long;
               riid         : GNATCOM.Types.Pointer_To_GUID;
               lcid         : Interfaces.C.unsigned_long;
               wFlags       : Interfaces.C.unsigned_short;
               pdispparams  : GNATCOM.Types.Pointer_To_DISPPARAMS;
               pvarResult   : access GNATCOM.Types.VARIANT;
               pexcepinfo   : GNATCOM.Types.Pointer_To_EXCEPINFO;
               puArgErr     : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_Invoke);
   
   type af_IShellUIHelper5_ResetFirstBootMode is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_ResetFirstBootMode);
   
   type af_IShellUIHelper5_ResetSafeMode is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_ResetSafeMode);
   
   type af_IShellUIHelper5_RefreshOfflineDesktop is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_RefreshOfflineDesktop);
   
   type af_IShellUIHelper5_AddFavorite is access
     function (This  : access IShellUIHelper5;
               URL   : GNATCOM.Types.BSTR;
               Title : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_AddFavorite);
   
   type af_IShellUIHelper5_AddChannel is access
     function (This : access IShellUIHelper5;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_AddChannel);
   
   type af_IShellUIHelper5_AddDesktopComponent is access
     function (This   : access IShellUIHelper5;
               URL    : GNATCOM.Types.BSTR;
               uType  : GNATCOM.Types.BSTR;
               Left   : access GNATCOM.Types.VARIANT;
               Top    : access GNATCOM.Types.VARIANT;
               Width  : access GNATCOM.Types.VARIANT;
               Height : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_AddDesktopComponent);
   
   type af_IShellUIHelper5_IsSubscribed is access
     function (This  : access IShellUIHelper5;
               URL   : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_IsSubscribed);
   
   type af_IShellUIHelper5_NavigateAndFind is access
     function (This           : access IShellUIHelper5;
               URL            : GNATCOM.Types.BSTR;
               strQuery       : GNATCOM.Types.BSTR;
               varTargetFrame : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_NavigateAndFind);
   
   type af_IShellUIHelper5_ImportExportFavorites is access
     function (This          : access IShellUIHelper5;
               fImport       : GNATCOM.Types.VARIANT_BOOL;
               strImpExpPath : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_ImportExportFavorites);
   
   type af_IShellUIHelper5_AutoCompleteSaveForm is access
     function (This : access IShellUIHelper5;
               Form : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_AutoCompleteSaveForm);
   
   type af_IShellUIHelper5_AutoScan is access
     function (This            : access IShellUIHelper5;
               strSearch       : GNATCOM.Types.BSTR;
               strFailureUrl   : GNATCOM.Types.BSTR;
               pvarTargetFrame : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_AutoScan);
   
   type af_IShellUIHelper5_AutoCompleteAttach is access
     function (This     : access IShellUIHelper5;
               Reserved : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_AutoCompleteAttach);
   
   type af_IShellUIHelper5_ShowBrowserUI is access
     function (This     : access IShellUIHelper5;
               bstrName : GNATCOM.Types.BSTR;
               pvarIn   : access GNATCOM.Types.VARIANT;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_ShowBrowserUI);
   
   type af_IShellUIHelper5_AddSearchProvider is access
     function (This : access IShellUIHelper5;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_AddSearchProvider);
   
   type af_IShellUIHelper5_RunOnceShown is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_RunOnceShown);
   
   type af_IShellUIHelper5_SkipRunOnce is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_SkipRunOnce);
   
   type af_IShellUIHelper5_CustomizeSettings is access
     function (This       : access IShellUIHelper5;
               fSQM       : GNATCOM.Types.VARIANT_BOOL;
               fPhishing  : GNATCOM.Types.VARIANT_BOOL;
               bstrLocale : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_CustomizeSettings);
   
   type af_IShellUIHelper5_SqmEnabled is access
     function (This      : access IShellUIHelper5;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_SqmEnabled);
   
   type af_IShellUIHelper5_PhishingEnabled is access
     function (This      : access IShellUIHelper5;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_PhishingEnabled);
   
   type af_IShellUIHelper5_BrandImageUri is access
     function (This     : access IShellUIHelper5;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_BrandImageUri);
   
   type af_IShellUIHelper5_SkipTabsWelcome is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_SkipTabsWelcome);
   
   type af_IShellUIHelper5_DiagnoseConnection is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_DiagnoseConnection);
   
   type af_IShellUIHelper5_CustomizeClearType is access
     function (This : access IShellUIHelper5;
               fSet : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_CustomizeClearType);
   
   type af_IShellUIHelper5_IsSearchProviderInstalled is access
     function (This      : access IShellUIHelper5;
               URL       : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_IsSearchProviderInstalled);
   
   type af_IShellUIHelper5_IsSearchMigrated is access
     function (This       : access IShellUIHelper5;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_IsSearchMigrated);
   
   type af_IShellUIHelper5_DefaultSearchProvider is access
     function (This      : access IShellUIHelper5;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_DefaultSearchProvider);
   
   type af_IShellUIHelper5_RunOnceRequiredSettingsComplete is access
     function (This      : access IShellUIHelper5;
               fComplete : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_RunOnceRequiredSettingsComplete);
   
   type af_IShellUIHelper5_RunOnceHasShown is access
     function (This    : access IShellUIHelper5;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_RunOnceHasShown);
   
   type af_IShellUIHelper5_SearchGuideUrl is access
     function (This     : access IShellUIHelper5;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_SearchGuideUrl);
   
   type af_IShellUIHelper5_AddService is access
     function (This : access IShellUIHelper5;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_AddService);
   
   type af_IShellUIHelper5_IsServiceInstalled is access
     function (This      : access IShellUIHelper5;
               URL       : GNATCOM.Types.BSTR;
               Verb      : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_IsServiceInstalled);
   
   type af_IShellUIHelper5_InPrivateFilteringEnabled is access
     function (This      : access IShellUIHelper5;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_InPrivateFilteringEnabled);
   
   type af_IShellUIHelper5_AddToFavoritesBar is access
     function (This  : access IShellUIHelper5;
               URL   : GNATCOM.Types.BSTR;
               Title : GNATCOM.Types.BSTR;
               uType : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_AddToFavoritesBar);
   
   type af_IShellUIHelper5_BuildNewTabPage is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_BuildNewTabPage);
   
   type af_IShellUIHelper5_SetRecentlyClosedVisible is access
     function (This     : access IShellUIHelper5;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_SetRecentlyClosedVisible);
   
   type af_IShellUIHelper5_SetActivitiesVisible is access
     function (This     : access IShellUIHelper5;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_SetActivitiesVisible);
   
   type af_IShellUIHelper5_ContentDiscoveryReset is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_ContentDiscoveryReset);
   
   type af_IShellUIHelper5_IsSuggestedSitesEnabled is access
     function (This      : access IShellUIHelper5;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_IsSuggestedSitesEnabled);
   
   type af_IShellUIHelper5_EnableSuggestedSites is access
     function (This    : access IShellUIHelper5;
               fEnable : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_EnableSuggestedSites);
   
   type af_IShellUIHelper5_NavigateToSuggestedSites is access
     function (This            : access IShellUIHelper5;
               bstrRelativeUrl : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_NavigateToSuggestedSites);
   
   type af_IShellUIHelper5_ShowTabsHelp is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_ShowTabsHelp);
   
   type af_IShellUIHelper5_ShowInPrivateHelp is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_ShowInPrivateHelp);
   
   type af_IShellUIHelper5_msIsSiteMode is access
     function (This       : access IShellUIHelper5;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msIsSiteMode);
   
   type af_IShellUIHelper5_msSiteModeShowThumbBar is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msSiteModeShowThumbBar);
   
   type af_IShellUIHelper5_msSiteModeAddThumbBarButton is access
     function (This         : access IShellUIHelper5;
               bstrIconURL  : GNATCOM.Types.BSTR;
               bstrTooltip  : GNATCOM.Types.BSTR;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msSiteModeAddThumbBarButton);
   
   type af_IShellUIHelper5_msSiteModeUpdateThumbBarButton is access
     function (This     : access IShellUIHelper5;
               ButtonID : GNATCOM.Types.VARIANT;
               fEnabled : GNATCOM.Types.VARIANT_BOOL;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msSiteModeUpdateThumbBarButton);
   
   type af_IShellUIHelper5_msSiteModeSetIconOverlay is access
     function (This            : access IShellUIHelper5;
               IconUrl         : GNATCOM.Types.BSTR;
               pvarDescription : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msSiteModeSetIconOverlay);
   
   type af_IShellUIHelper5_msSiteModeClearIconOverlay is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msSiteModeClearIconOverlay);
   
   type af_IShellUIHelper5_msAddSiteMode is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msAddSiteMode);
   
   type af_IShellUIHelper5_msSiteModeCreateJumpList is access
     function (This       : access IShellUIHelper5;
               bstrHeader : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msSiteModeCreateJumpList);
   
   type af_IShellUIHelper5_msSiteModeAddJumpListItem is access
     function (This           : access IShellUIHelper5;
               bstrName       : GNATCOM.Types.BSTR;
               bstrActionUri  : GNATCOM.Types.BSTR;
               bstrIconUri    : GNATCOM.Types.BSTR;
               pvarWindowType : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msSiteModeAddJumpListItem);
   
   type af_IShellUIHelper5_msSiteModeClearJumpList is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msSiteModeClearJumpList);
   
   type af_IShellUIHelper5_msSiteModeShowJumpList is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msSiteModeShowJumpList);
   
   type af_IShellUIHelper5_msSiteModeAddButtonStyle is access
     function (This        : access IShellUIHelper5;
               uiButtonID  : GNATCOM.Types.VARIANT;
               bstrIconURL : GNATCOM.Types.BSTR;
               bstrTooltip : GNATCOM.Types.BSTR;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msSiteModeAddButtonStyle);
   
   type af_IShellUIHelper5_msSiteModeShowButtonStyle is access
     function (This       : access IShellUIHelper5;
               uiButtonID : GNATCOM.Types.VARIANT;
               uiStyleID  : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msSiteModeShowButtonStyle);
   
   type af_IShellUIHelper5_msSiteModeActivate is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msSiteModeActivate);
   
   type af_IShellUIHelper5_msIsSiteModeFirstRun is access
     function (This           : access IShellUIHelper5;
               fPreserveState : GNATCOM.Types.VARIANT_BOOL;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msIsSiteModeFirstRun);
   
   type af_IShellUIHelper5_msAddTrackingProtectionList is access
     function (This           : access IShellUIHelper5;
               URL            : GNATCOM.Types.BSTR;
               bstrFilterName : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msAddTrackingProtectionList);
   
   type af_IShellUIHelper5_msTrackingProtectionEnabled is access
     function (This      : access IShellUIHelper5;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msTrackingProtectionEnabled);
   
   type af_IShellUIHelper5_msActiveXFilteringEnabled is access
     function (This      : access IShellUIHelper5;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msActiveXFilteringEnabled);
   
   type af_IShellUIHelper5_msProvisionNetworks is access
     function (This                : access IShellUIHelper5;
               bstrProvisioningXml : GNATCOM.Types.BSTR;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msProvisionNetworks);
   
   type af_IShellUIHelper5_msReportSafeUrl is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msReportSafeUrl);
   
   type af_IShellUIHelper5_msSiteModeRefreshBadge is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msSiteModeRefreshBadge);
   
   type af_IShellUIHelper5_msSiteModeClearBadge is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msSiteModeClearBadge);
   
   type af_IShellUIHelper5_msDiagnoseConnectionUILess is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msDiagnoseConnectionUILess);
   
   type af_IShellUIHelper5_msLaunchNetworkClientHelp is access
     function (This : access IShellUIHelper5)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msLaunchNetworkClientHelp);
   
   type af_IShellUIHelper5_msChangeDefaultBrowser is access
     function (This    : access IShellUIHelper5;
               fChange : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper5_msChangeDefaultBrowser);
   
   type IShellUIHelper5Vtbl;
   type Pointer_To_IShellUIHelper5Vtbl is access all IShellUIHelper5Vtbl;
   
   type IShellUIHelper5 is
      record
         Vtbl : Pointer_To_IShellUIHelper5Vtbl;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellUIHelper5);
   
   type IShellUIHelper5Vtbl is
      record
         QueryInterface                  : af_IShellUIHelper5_QueryInterface;
         AddRef                          : af_IShellUIHelper5_AddRef;
         Release                         : af_IShellUIHelper5_Release;
         GetTypeInfoCount                : af_IShellUIHelper5_GetTypeInfoCount;
         GetTypeInfo                     : af_IShellUIHelper5_GetTypeInfo;
         GetIDsOfNames                   : af_IShellUIHelper5_GetIDsOfNames;
         Invoke                          : af_IShellUIHelper5_Invoke;
         ResetFirstBootMode              : af_IShellUIHelper5_ResetFirstBootMode;
         ResetSafeMode                   : af_IShellUIHelper5_ResetSafeMode;
         RefreshOfflineDesktop           : af_IShellUIHelper5_RefreshOfflineDesktop;
         AddFavorite                     : af_IShellUIHelper5_AddFavorite;
         AddChannel                      : af_IShellUIHelper5_AddChannel;
         AddDesktopComponent             : af_IShellUIHelper5_AddDesktopComponent;
         IsSubscribed                    : af_IShellUIHelper5_IsSubscribed;
         NavigateAndFind                 : af_IShellUIHelper5_NavigateAndFind;
         ImportExportFavorites           : af_IShellUIHelper5_ImportExportFavorites;
         AutoCompleteSaveForm            : af_IShellUIHelper5_AutoCompleteSaveForm;
         AutoScan                        : af_IShellUIHelper5_AutoScan;
         AutoCompleteAttach              : af_IShellUIHelper5_AutoCompleteAttach;
         ShowBrowserUI                   : af_IShellUIHelper5_ShowBrowserUI;
         AddSearchProvider               : af_IShellUIHelper5_AddSearchProvider;
         RunOnceShown                    : af_IShellUIHelper5_RunOnceShown;
         SkipRunOnce                     : af_IShellUIHelper5_SkipRunOnce;
         CustomizeSettings               : af_IShellUIHelper5_CustomizeSettings;
         SqmEnabled                      : af_IShellUIHelper5_SqmEnabled;
         PhishingEnabled                 : af_IShellUIHelper5_PhishingEnabled;
         BrandImageUri                   : af_IShellUIHelper5_BrandImageUri;
         SkipTabsWelcome                 : af_IShellUIHelper5_SkipTabsWelcome;
         DiagnoseConnection              : af_IShellUIHelper5_DiagnoseConnection;
         CustomizeClearType              : af_IShellUIHelper5_CustomizeClearType;
         IsSearchProviderInstalled       : af_IShellUIHelper5_IsSearchProviderInstalled;
         IsSearchMigrated                : af_IShellUIHelper5_IsSearchMigrated;
         DefaultSearchProvider           : af_IShellUIHelper5_DefaultSearchProvider;
         RunOnceRequiredSettingsComplete : af_IShellUIHelper5_RunOnceRequiredSettingsComplete;
         RunOnceHasShown                 : af_IShellUIHelper5_RunOnceHasShown;
         SearchGuideUrl                  : af_IShellUIHelper5_SearchGuideUrl;
         AddService                      : af_IShellUIHelper5_AddService;
         IsServiceInstalled              : af_IShellUIHelper5_IsServiceInstalled;
         InPrivateFilteringEnabled       : af_IShellUIHelper5_InPrivateFilteringEnabled;
         AddToFavoritesBar               : af_IShellUIHelper5_AddToFavoritesBar;
         BuildNewTabPage                 : af_IShellUIHelper5_BuildNewTabPage;
         SetRecentlyClosedVisible        : af_IShellUIHelper5_SetRecentlyClosedVisible;
         SetActivitiesVisible            : af_IShellUIHelper5_SetActivitiesVisible;
         ContentDiscoveryReset           : af_IShellUIHelper5_ContentDiscoveryReset;
         IsSuggestedSitesEnabled         : af_IShellUIHelper5_IsSuggestedSitesEnabled;
         EnableSuggestedSites            : af_IShellUIHelper5_EnableSuggestedSites;
         NavigateToSuggestedSites        : af_IShellUIHelper5_NavigateToSuggestedSites;
         ShowTabsHelp                    : af_IShellUIHelper5_ShowTabsHelp;
         ShowInPrivateHelp               : af_IShellUIHelper5_ShowInPrivateHelp;
         msIsSiteMode                    : af_IShellUIHelper5_msIsSiteMode;
         msSiteModeShowThumbBar          : af_IShellUIHelper5_msSiteModeShowThumbBar;
         msSiteModeAddThumbBarButton     : af_IShellUIHelper5_msSiteModeAddThumbBarButton;
         msSiteModeUpdateThumbBarButton  : af_IShellUIHelper5_msSiteModeUpdateThumbBarButton;
         msSiteModeSetIconOverlay        : af_IShellUIHelper5_msSiteModeSetIconOverlay;
         msSiteModeClearIconOverlay      : af_IShellUIHelper5_msSiteModeClearIconOverlay;
         msAddSiteMode                   : af_IShellUIHelper5_msAddSiteMode;
         msSiteModeCreateJumpList        : af_IShellUIHelper5_msSiteModeCreateJumpList;
         msSiteModeAddJumpListItem       : af_IShellUIHelper5_msSiteModeAddJumpListItem;
         msSiteModeClearJumpList         : af_IShellUIHelper5_msSiteModeClearJumpList;
         msSiteModeShowJumpList          : af_IShellUIHelper5_msSiteModeShowJumpList;
         msSiteModeAddButtonStyle        : af_IShellUIHelper5_msSiteModeAddButtonStyle;
         msSiteModeShowButtonStyle       : af_IShellUIHelper5_msSiteModeShowButtonStyle;
         msSiteModeActivate              : af_IShellUIHelper5_msSiteModeActivate;
         msIsSiteModeFirstRun            : af_IShellUIHelper5_msIsSiteModeFirstRun;
         msAddTrackingProtectionList     : af_IShellUIHelper5_msAddTrackingProtectionList;
         msTrackingProtectionEnabled     : af_IShellUIHelper5_msTrackingProtectionEnabled;
         msActiveXFilteringEnabled       : af_IShellUIHelper5_msActiveXFilteringEnabled;
         msProvisionNetworks             : af_IShellUIHelper5_msProvisionNetworks;
         msReportSafeUrl                 : af_IShellUIHelper5_msReportSafeUrl;
         msSiteModeRefreshBadge          : af_IShellUIHelper5_msSiteModeRefreshBadge;
         msSiteModeClearBadge            : af_IShellUIHelper5_msSiteModeClearBadge;
         msDiagnoseConnectionUILess      : af_IShellUIHelper5_msDiagnoseConnectionUILess;
         msLaunchNetworkClientHelp       : af_IShellUIHelper5_msLaunchNetworkClientHelp;
         msChangeDefaultBrowser          : af_IShellUIHelper5_msChangeDefaultBrowser;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellUIHelper5Vtbl);
   
   function To_Pointer_To_IShellUIHelper5 is
     new Ada.Unchecked_Conversion
     (GNATCOM.Types.Pointer_To_Void, Pointer_To_IShellUIHelper5);
   
   

   --  Element Index         : 26
   --  Element Name          : IShellUIHelper5
   --  Element Documentation : Shell UI Helper Control Interface 5
   --  Element Type          : Dispatch
   
   IShellUIHelper5_ResetFirstBootMode              : constant := 1;
   IShellUIHelper5_ResetSafeMode                   : constant := 2;
   IShellUIHelper5_RefreshOfflineDesktop           : constant := 3;
   IShellUIHelper5_AddFavorite                     : constant := 4;
   IShellUIHelper5_AddChannel                      : constant := 5;
   IShellUIHelper5_AddDesktopComponent             : constant := 6;
   IShellUIHelper5_IsSubscribed                    : constant := 7;
   IShellUIHelper5_NavigateAndFind                 : constant := 8;
   IShellUIHelper5_ImportExportFavorites           : constant := 9;
   IShellUIHelper5_AutoCompleteSaveForm            : constant := 10;
   IShellUIHelper5_AutoScan                        : constant := 11;
   IShellUIHelper5_AutoCompleteAttach              : constant := 12;
   IShellUIHelper5_ShowBrowserUI                   : constant := 13;
   IShellUIHelper5_AddSearchProvider               : constant := 14;
   IShellUIHelper5_RunOnceShown                    : constant := 15;
   IShellUIHelper5_SkipRunOnce                     : constant := 16;
   IShellUIHelper5_CustomizeSettings               : constant := 17;
   IShellUIHelper5_SqmEnabled                      : constant := 18;
   IShellUIHelper5_PhishingEnabled                 : constant := 19;
   IShellUIHelper5_BrandImageUri                   : constant := 20;
   IShellUIHelper5_SkipTabsWelcome                 : constant := 21;
   IShellUIHelper5_DiagnoseConnection              : constant := 22;
   IShellUIHelper5_CustomizeClearType              : constant := 23;
   IShellUIHelper5_IsSearchProviderInstalled       : constant := 24;
   IShellUIHelper5_IsSearchMigrated                : constant := 25;
   IShellUIHelper5_DefaultSearchProvider           : constant := 26;
   IShellUIHelper5_RunOnceRequiredSettingsComplete : constant := 27;
   IShellUIHelper5_RunOnceHasShown                 : constant := 28;
   IShellUIHelper5_SearchGuideUrl                  : constant := 29;
   IShellUIHelper5_AddService                      : constant := 30;
   IShellUIHelper5_IsServiceInstalled              : constant := 31;
   IShellUIHelper5_InPrivateFilteringEnabled       : constant := 37;
   IShellUIHelper5_AddToFavoritesBar               : constant := 32;
   IShellUIHelper5_BuildNewTabPage                 : constant := 33;
   IShellUIHelper5_SetRecentlyClosedVisible        : constant := 34;
   IShellUIHelper5_SetActivitiesVisible            : constant := 35;
   IShellUIHelper5_ContentDiscoveryReset           : constant := 36;
   IShellUIHelper5_IsSuggestedSitesEnabled         : constant := 38;
   IShellUIHelper5_EnableSuggestedSites            : constant := 39;
   IShellUIHelper5_NavigateToSuggestedSites        : constant := 40;
   IShellUIHelper5_ShowTabsHelp                    : constant := 41;
   IShellUIHelper5_ShowInPrivateHelp               : constant := 42;
   IShellUIHelper5_msIsSiteMode                    : constant := 43;
   IShellUIHelper5_msSiteModeShowThumbBar          : constant := 47;
   IShellUIHelper5_msSiteModeAddThumbBarButton     : constant := 48;
   IShellUIHelper5_msSiteModeUpdateThumbBarButton  : constant := 46;
   IShellUIHelper5_msSiteModeSetIconOverlay        : constant := 44;
   IShellUIHelper5_msSiteModeClearIconOverlay      : constant := 45;
   IShellUIHelper5_msAddSiteMode                   : constant := 49;
   IShellUIHelper5_msSiteModeCreateJumpList        : constant := 51;
   IShellUIHelper5_msSiteModeAddJumpListItem       : constant := 52;
   IShellUIHelper5_msSiteModeClearJumpList         : constant := 53;
   IShellUIHelper5_msSiteModeShowJumpList          : constant := 56;
   IShellUIHelper5_msSiteModeAddButtonStyle        : constant := 54;
   IShellUIHelper5_msSiteModeShowButtonStyle       : constant := 55;
   IShellUIHelper5_msSiteModeActivate              : constant := 58;
   IShellUIHelper5_msIsSiteModeFirstRun            : constant := 59;
   IShellUIHelper5_msAddTrackingProtectionList     : constant := 57;
   IShellUIHelper5_msTrackingProtectionEnabled     : constant := 60;
   IShellUIHelper5_msActiveXFilteringEnabled       : constant := 61;
   IShellUIHelper5_msProvisionNetworks             : constant := 62;
   IShellUIHelper5_msReportSafeUrl                 : constant := 63;
   IShellUIHelper5_msSiteModeRefreshBadge          : constant := 64;
   IShellUIHelper5_msSiteModeClearBadge            : constant := 65;
   IShellUIHelper5_msDiagnoseConnectionUILess      : constant := 66;
   IShellUIHelper5_msLaunchNetworkClientHelp       : constant := 67;
   IShellUIHelper5_msChangeDefaultBrowser          : constant := 68;
   
   

   --  Element Index         : 27
   --  Element Name          : IShellUIHelper6
   --  Element Documentation : Shell UI Helper Control Interface 6
   --  Element Type          : Dispatch
   
   IID_IShellUIHelper6 : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{987A573E-46EE-4E89-96AB-DDF7F8FDC98C}");
   
   type af_IShellUIHelper6_QueryInterface is access
     function (This   : access IShellUIHelper6;
               riid   : GNATCOM.Types.Pointer_To_GUID;
               ppvObj : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_QueryInterface);
   
   type af_IShellUIHelper6_AddRef is access
     function (This : access IShellUIHelper6)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellUIHelper6_AddRef);
   
   type af_IShellUIHelper6_Release is access
     function (This : access IShellUIHelper6)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellUIHelper6_Release);
   
   type af_IShellUIHelper6_GetTypeInfoCount is access
     function (This    : access IShellUIHelper6;
               pctinfo : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_GetTypeInfoCount);
   
   type af_IShellUIHelper6_GetTypeInfo is access
     function (This    : access IShellUIHelper6;
               itinfo  : Interfaces.C.unsigned;
               lcid    : Interfaces.C.unsigned_long;
               pptinfo : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_GetTypeInfo);
   
   type af_IShellUIHelper6_GetIDsOfNames is access
     function (This      : access IShellUIHelper6;
               riid      : GNATCOM.Types.Pointer_To_GUID;
               rgszNames : GNATCOM.Types.Pointer_To_Pointer_To_char;
               cNames    : Interfaces.C.unsigned;
               lcid      : Interfaces.C.unsigned_long;
               rgdispid  : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_GetIDsOfNames);
   
   type af_IShellUIHelper6_Invoke is access
     function (This         : access IShellUIHelper6;
               dispidMember : Interfaces.C.long;
               riid         : GNATCOM.Types.Pointer_To_GUID;
               lcid         : Interfaces.C.unsigned_long;
               wFlags       : Interfaces.C.unsigned_short;
               pdispparams  : GNATCOM.Types.Pointer_To_DISPPARAMS;
               pvarResult   : access GNATCOM.Types.VARIANT;
               pexcepinfo   : GNATCOM.Types.Pointer_To_EXCEPINFO;
               puArgErr     : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_Invoke);
   
   type af_IShellUIHelper6_ResetFirstBootMode is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_ResetFirstBootMode);
   
   type af_IShellUIHelper6_ResetSafeMode is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_ResetSafeMode);
   
   type af_IShellUIHelper6_RefreshOfflineDesktop is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_RefreshOfflineDesktop);
   
   type af_IShellUIHelper6_AddFavorite is access
     function (This  : access IShellUIHelper6;
               URL   : GNATCOM.Types.BSTR;
               Title : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_AddFavorite);
   
   type af_IShellUIHelper6_AddChannel is access
     function (This : access IShellUIHelper6;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_AddChannel);
   
   type af_IShellUIHelper6_AddDesktopComponent is access
     function (This   : access IShellUIHelper6;
               URL    : GNATCOM.Types.BSTR;
               uType  : GNATCOM.Types.BSTR;
               Left   : access GNATCOM.Types.VARIANT;
               Top    : access GNATCOM.Types.VARIANT;
               Width  : access GNATCOM.Types.VARIANT;
               Height : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_AddDesktopComponent);
   
   type af_IShellUIHelper6_IsSubscribed is access
     function (This  : access IShellUIHelper6;
               URL   : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_IsSubscribed);
   
   type af_IShellUIHelper6_NavigateAndFind is access
     function (This           : access IShellUIHelper6;
               URL            : GNATCOM.Types.BSTR;
               strQuery       : GNATCOM.Types.BSTR;
               varTargetFrame : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_NavigateAndFind);
   
   type af_IShellUIHelper6_ImportExportFavorites is access
     function (This          : access IShellUIHelper6;
               fImport       : GNATCOM.Types.VARIANT_BOOL;
               strImpExpPath : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_ImportExportFavorites);
   
   type af_IShellUIHelper6_AutoCompleteSaveForm is access
     function (This : access IShellUIHelper6;
               Form : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_AutoCompleteSaveForm);
   
   type af_IShellUIHelper6_AutoScan is access
     function (This            : access IShellUIHelper6;
               strSearch       : GNATCOM.Types.BSTR;
               strFailureUrl   : GNATCOM.Types.BSTR;
               pvarTargetFrame : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_AutoScan);
   
   type af_IShellUIHelper6_AutoCompleteAttach is access
     function (This     : access IShellUIHelper6;
               Reserved : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_AutoCompleteAttach);
   
   type af_IShellUIHelper6_ShowBrowserUI is access
     function (This     : access IShellUIHelper6;
               bstrName : GNATCOM.Types.BSTR;
               pvarIn   : access GNATCOM.Types.VARIANT;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_ShowBrowserUI);
   
   type af_IShellUIHelper6_AddSearchProvider is access
     function (This : access IShellUIHelper6;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_AddSearchProvider);
   
   type af_IShellUIHelper6_RunOnceShown is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_RunOnceShown);
   
   type af_IShellUIHelper6_SkipRunOnce is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_SkipRunOnce);
   
   type af_IShellUIHelper6_CustomizeSettings is access
     function (This       : access IShellUIHelper6;
               fSQM       : GNATCOM.Types.VARIANT_BOOL;
               fPhishing  : GNATCOM.Types.VARIANT_BOOL;
               bstrLocale : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_CustomizeSettings);
   
   type af_IShellUIHelper6_SqmEnabled is access
     function (This      : access IShellUIHelper6;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_SqmEnabled);
   
   type af_IShellUIHelper6_PhishingEnabled is access
     function (This      : access IShellUIHelper6;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_PhishingEnabled);
   
   type af_IShellUIHelper6_BrandImageUri is access
     function (This     : access IShellUIHelper6;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_BrandImageUri);
   
   type af_IShellUIHelper6_SkipTabsWelcome is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_SkipTabsWelcome);
   
   type af_IShellUIHelper6_DiagnoseConnection is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_DiagnoseConnection);
   
   type af_IShellUIHelper6_CustomizeClearType is access
     function (This : access IShellUIHelper6;
               fSet : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_CustomizeClearType);
   
   type af_IShellUIHelper6_IsSearchProviderInstalled is access
     function (This      : access IShellUIHelper6;
               URL       : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_IsSearchProviderInstalled);
   
   type af_IShellUIHelper6_IsSearchMigrated is access
     function (This       : access IShellUIHelper6;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_IsSearchMigrated);
   
   type af_IShellUIHelper6_DefaultSearchProvider is access
     function (This      : access IShellUIHelper6;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_DefaultSearchProvider);
   
   type af_IShellUIHelper6_RunOnceRequiredSettingsComplete is access
     function (This      : access IShellUIHelper6;
               fComplete : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_RunOnceRequiredSettingsComplete);
   
   type af_IShellUIHelper6_RunOnceHasShown is access
     function (This    : access IShellUIHelper6;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_RunOnceHasShown);
   
   type af_IShellUIHelper6_SearchGuideUrl is access
     function (This     : access IShellUIHelper6;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_SearchGuideUrl);
   
   type af_IShellUIHelper6_AddService is access
     function (This : access IShellUIHelper6;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_AddService);
   
   type af_IShellUIHelper6_IsServiceInstalled is access
     function (This      : access IShellUIHelper6;
               URL       : GNATCOM.Types.BSTR;
               Verb      : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_IsServiceInstalled);
   
   type af_IShellUIHelper6_InPrivateFilteringEnabled is access
     function (This      : access IShellUIHelper6;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_InPrivateFilteringEnabled);
   
   type af_IShellUIHelper6_AddToFavoritesBar is access
     function (This  : access IShellUIHelper6;
               URL   : GNATCOM.Types.BSTR;
               Title : GNATCOM.Types.BSTR;
               uType : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_AddToFavoritesBar);
   
   type af_IShellUIHelper6_BuildNewTabPage is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_BuildNewTabPage);
   
   type af_IShellUIHelper6_SetRecentlyClosedVisible is access
     function (This     : access IShellUIHelper6;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_SetRecentlyClosedVisible);
   
   type af_IShellUIHelper6_SetActivitiesVisible is access
     function (This     : access IShellUIHelper6;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_SetActivitiesVisible);
   
   type af_IShellUIHelper6_ContentDiscoveryReset is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_ContentDiscoveryReset);
   
   type af_IShellUIHelper6_IsSuggestedSitesEnabled is access
     function (This      : access IShellUIHelper6;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_IsSuggestedSitesEnabled);
   
   type af_IShellUIHelper6_EnableSuggestedSites is access
     function (This    : access IShellUIHelper6;
               fEnable : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_EnableSuggestedSites);
   
   type af_IShellUIHelper6_NavigateToSuggestedSites is access
     function (This            : access IShellUIHelper6;
               bstrRelativeUrl : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_NavigateToSuggestedSites);
   
   type af_IShellUIHelper6_ShowTabsHelp is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_ShowTabsHelp);
   
   type af_IShellUIHelper6_ShowInPrivateHelp is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_ShowInPrivateHelp);
   
   type af_IShellUIHelper6_msIsSiteMode is access
     function (This       : access IShellUIHelper6;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msIsSiteMode);
   
   type af_IShellUIHelper6_msSiteModeShowThumbBar is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msSiteModeShowThumbBar);
   
   type af_IShellUIHelper6_msSiteModeAddThumbBarButton is access
     function (This         : access IShellUIHelper6;
               bstrIconURL  : GNATCOM.Types.BSTR;
               bstrTooltip  : GNATCOM.Types.BSTR;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msSiteModeAddThumbBarButton);
   
   type af_IShellUIHelper6_msSiteModeUpdateThumbBarButton is access
     function (This     : access IShellUIHelper6;
               ButtonID : GNATCOM.Types.VARIANT;
               fEnabled : GNATCOM.Types.VARIANT_BOOL;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msSiteModeUpdateThumbBarButton);
   
   type af_IShellUIHelper6_msSiteModeSetIconOverlay is access
     function (This            : access IShellUIHelper6;
               IconUrl         : GNATCOM.Types.BSTR;
               pvarDescription : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msSiteModeSetIconOverlay);
   
   type af_IShellUIHelper6_msSiteModeClearIconOverlay is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msSiteModeClearIconOverlay);
   
   type af_IShellUIHelper6_msAddSiteMode is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msAddSiteMode);
   
   type af_IShellUIHelper6_msSiteModeCreateJumpList is access
     function (This       : access IShellUIHelper6;
               bstrHeader : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msSiteModeCreateJumpList);
   
   type af_IShellUIHelper6_msSiteModeAddJumpListItem is access
     function (This           : access IShellUIHelper6;
               bstrName       : GNATCOM.Types.BSTR;
               bstrActionUri  : GNATCOM.Types.BSTR;
               bstrIconUri    : GNATCOM.Types.BSTR;
               pvarWindowType : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msSiteModeAddJumpListItem);
   
   type af_IShellUIHelper6_msSiteModeClearJumpList is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msSiteModeClearJumpList);
   
   type af_IShellUIHelper6_msSiteModeShowJumpList is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msSiteModeShowJumpList);
   
   type af_IShellUIHelper6_msSiteModeAddButtonStyle is access
     function (This        : access IShellUIHelper6;
               uiButtonID  : GNATCOM.Types.VARIANT;
               bstrIconURL : GNATCOM.Types.BSTR;
               bstrTooltip : GNATCOM.Types.BSTR;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msSiteModeAddButtonStyle);
   
   type af_IShellUIHelper6_msSiteModeShowButtonStyle is access
     function (This       : access IShellUIHelper6;
               uiButtonID : GNATCOM.Types.VARIANT;
               uiStyleID  : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msSiteModeShowButtonStyle);
   
   type af_IShellUIHelper6_msSiteModeActivate is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msSiteModeActivate);
   
   type af_IShellUIHelper6_msIsSiteModeFirstRun is access
     function (This           : access IShellUIHelper6;
               fPreserveState : GNATCOM.Types.VARIANT_BOOL;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msIsSiteModeFirstRun);
   
   type af_IShellUIHelper6_msAddTrackingProtectionList is access
     function (This           : access IShellUIHelper6;
               URL            : GNATCOM.Types.BSTR;
               bstrFilterName : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msAddTrackingProtectionList);
   
   type af_IShellUIHelper6_msTrackingProtectionEnabled is access
     function (This      : access IShellUIHelper6;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msTrackingProtectionEnabled);
   
   type af_IShellUIHelper6_msActiveXFilteringEnabled is access
     function (This      : access IShellUIHelper6;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msActiveXFilteringEnabled);
   
   type af_IShellUIHelper6_msProvisionNetworks is access
     function (This                : access IShellUIHelper6;
               bstrProvisioningXml : GNATCOM.Types.BSTR;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msProvisionNetworks);
   
   type af_IShellUIHelper6_msReportSafeUrl is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msReportSafeUrl);
   
   type af_IShellUIHelper6_msSiteModeRefreshBadge is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msSiteModeRefreshBadge);
   
   type af_IShellUIHelper6_msSiteModeClearBadge is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msSiteModeClearBadge);
   
   type af_IShellUIHelper6_msDiagnoseConnectionUILess is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msDiagnoseConnectionUILess);
   
   type af_IShellUIHelper6_msLaunchNetworkClientHelp is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msLaunchNetworkClientHelp);
   
   type af_IShellUIHelper6_msChangeDefaultBrowser is access
     function (This    : access IShellUIHelper6;
               fChange : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msChangeDefaultBrowser);
   
   type af_IShellUIHelper6_msStopPeriodicTileUpdate is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msStopPeriodicTileUpdate);
   
   type af_IShellUIHelper6_msStartPeriodicTileUpdate is access
     function (This               : access IShellUIHelper6;
               pollingUris        : GNATCOM.Types.VARIANT;
               startTime          : GNATCOM.Types.VARIANT;
               uiUpdateRecurrence : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msStartPeriodicTileUpdate);
   
   type af_IShellUIHelper6_msStartPeriodicTileUpdateBatch is access
     function (This               : access IShellUIHelper6;
               pollingUris        : GNATCOM.Types.VARIANT;
               startTime          : GNATCOM.Types.VARIANT;
               uiUpdateRecurrence : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msStartPeriodicTileUpdateBatch);
   
   type af_IShellUIHelper6_msClearTile is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msClearTile);
   
   type af_IShellUIHelper6_msEnableTileNotificationQueue is access
     function (This    : access IShellUIHelper6;
               fChange : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msEnableTileNotificationQueue);
   
   type af_IShellUIHelper6_msPinnedSiteState is access
     function (This          : access IShellUIHelper6;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msPinnedSiteState);
   
   type af_IShellUIHelper6_msEnableTileNotificationQueueForSquare150x150 is access
     function (This    : access IShellUIHelper6;
               fChange : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msEnableTileNotificationQueueForSquare150x150);
   
   type af_IShellUIHelper6_msEnableTileNotificationQueueForWide310x150 is access
     function (This    : access IShellUIHelper6;
               fChange : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msEnableTileNotificationQueueForWide310x150);
   
   type af_IShellUIHelper6_msEnableTileNotificationQueueForSquare310x310 is access
     function (This    : access IShellUIHelper6;
               fChange : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msEnableTileNotificationQueueForSquare310x310);
   
   type af_IShellUIHelper6_msScheduledTileNotification is access
     function (This                : access IShellUIHelper6;
               bstrNotificationXml : GNATCOM.Types.BSTR;
               bstrNotificationId  : GNATCOM.Types.BSTR;
               bstrNotificationTag : GNATCOM.Types.BSTR;
               startTime           : GNATCOM.Types.VARIANT;
               expirationTime      : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msScheduledTileNotification);
   
   type af_IShellUIHelper6_msRemoveScheduledTileNotification is access
     function (This               : access IShellUIHelper6;
               bstrNotificationId : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msRemoveScheduledTileNotification);
   
   type af_IShellUIHelper6_msStartPeriodicBadgeUpdate is access
     function (This               : access IShellUIHelper6;
               pollingUri         : GNATCOM.Types.BSTR;
               startTime          : GNATCOM.Types.VARIANT;
               uiUpdateRecurrence : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msStartPeriodicBadgeUpdate);
   
   type af_IShellUIHelper6_msStopPeriodicBadgeUpdate is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msStopPeriodicBadgeUpdate);
   
   type af_IShellUIHelper6_msLaunchInternetOptions is access
     function (This : access IShellUIHelper6)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper6_msLaunchInternetOptions);
   
   type IShellUIHelper6Vtbl;
   type Pointer_To_IShellUIHelper6Vtbl is access all IShellUIHelper6Vtbl;
   
   type IShellUIHelper6 is
      record
         Vtbl : Pointer_To_IShellUIHelper6Vtbl;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellUIHelper6);
   
   type IShellUIHelper6Vtbl is
      record
         QueryInterface                                : af_IShellUIHelper6_QueryInterface;
         AddRef                                        : af_IShellUIHelper6_AddRef;
         Release                                       : af_IShellUIHelper6_Release;
         GetTypeInfoCount                              : af_IShellUIHelper6_GetTypeInfoCount;
         GetTypeInfo                                   : af_IShellUIHelper6_GetTypeInfo;
         GetIDsOfNames                                 : af_IShellUIHelper6_GetIDsOfNames;
         Invoke                                        : af_IShellUIHelper6_Invoke;
         ResetFirstBootMode                            : af_IShellUIHelper6_ResetFirstBootMode;
         ResetSafeMode                                 : af_IShellUIHelper6_ResetSafeMode;
         RefreshOfflineDesktop                         : af_IShellUIHelper6_RefreshOfflineDesktop;
         AddFavorite                                   : af_IShellUIHelper6_AddFavorite;
         AddChannel                                    : af_IShellUIHelper6_AddChannel;
         AddDesktopComponent                           : af_IShellUIHelper6_AddDesktopComponent;
         IsSubscribed                                  : af_IShellUIHelper6_IsSubscribed;
         NavigateAndFind                               : af_IShellUIHelper6_NavigateAndFind;
         ImportExportFavorites                         : af_IShellUIHelper6_ImportExportFavorites;
         AutoCompleteSaveForm                          : af_IShellUIHelper6_AutoCompleteSaveForm;
         AutoScan                                      : af_IShellUIHelper6_AutoScan;
         AutoCompleteAttach                            : af_IShellUIHelper6_AutoCompleteAttach;
         ShowBrowserUI                                 : af_IShellUIHelper6_ShowBrowserUI;
         AddSearchProvider                             : af_IShellUIHelper6_AddSearchProvider;
         RunOnceShown                                  : af_IShellUIHelper6_RunOnceShown;
         SkipRunOnce                                   : af_IShellUIHelper6_SkipRunOnce;
         CustomizeSettings                             : af_IShellUIHelper6_CustomizeSettings;
         SqmEnabled                                    : af_IShellUIHelper6_SqmEnabled;
         PhishingEnabled                               : af_IShellUIHelper6_PhishingEnabled;
         BrandImageUri                                 : af_IShellUIHelper6_BrandImageUri;
         SkipTabsWelcome                               : af_IShellUIHelper6_SkipTabsWelcome;
         DiagnoseConnection                            : af_IShellUIHelper6_DiagnoseConnection;
         CustomizeClearType                            : af_IShellUIHelper6_CustomizeClearType;
         IsSearchProviderInstalled                     : af_IShellUIHelper6_IsSearchProviderInstalled;
         IsSearchMigrated                              : af_IShellUIHelper6_IsSearchMigrated;
         DefaultSearchProvider                         : af_IShellUIHelper6_DefaultSearchProvider;
         RunOnceRequiredSettingsComplete               : af_IShellUIHelper6_RunOnceRequiredSettingsComplete;
         RunOnceHasShown                               : af_IShellUIHelper6_RunOnceHasShown;
         SearchGuideUrl                                : af_IShellUIHelper6_SearchGuideUrl;
         AddService                                    : af_IShellUIHelper6_AddService;
         IsServiceInstalled                            : af_IShellUIHelper6_IsServiceInstalled;
         InPrivateFilteringEnabled                     : af_IShellUIHelper6_InPrivateFilteringEnabled;
         AddToFavoritesBar                             : af_IShellUIHelper6_AddToFavoritesBar;
         BuildNewTabPage                               : af_IShellUIHelper6_BuildNewTabPage;
         SetRecentlyClosedVisible                      : af_IShellUIHelper6_SetRecentlyClosedVisible;
         SetActivitiesVisible                          : af_IShellUIHelper6_SetActivitiesVisible;
         ContentDiscoveryReset                         : af_IShellUIHelper6_ContentDiscoveryReset;
         IsSuggestedSitesEnabled                       : af_IShellUIHelper6_IsSuggestedSitesEnabled;
         EnableSuggestedSites                          : af_IShellUIHelper6_EnableSuggestedSites;
         NavigateToSuggestedSites                      : af_IShellUIHelper6_NavigateToSuggestedSites;
         ShowTabsHelp                                  : af_IShellUIHelper6_ShowTabsHelp;
         ShowInPrivateHelp                             : af_IShellUIHelper6_ShowInPrivateHelp;
         msIsSiteMode                                  : af_IShellUIHelper6_msIsSiteMode;
         msSiteModeShowThumbBar                        : af_IShellUIHelper6_msSiteModeShowThumbBar;
         msSiteModeAddThumbBarButton                   : af_IShellUIHelper6_msSiteModeAddThumbBarButton;
         msSiteModeUpdateThumbBarButton                : af_IShellUIHelper6_msSiteModeUpdateThumbBarButton;
         msSiteModeSetIconOverlay                      : af_IShellUIHelper6_msSiteModeSetIconOverlay;
         msSiteModeClearIconOverlay                    : af_IShellUIHelper6_msSiteModeClearIconOverlay;
         msAddSiteMode                                 : af_IShellUIHelper6_msAddSiteMode;
         msSiteModeCreateJumpList                      : af_IShellUIHelper6_msSiteModeCreateJumpList;
         msSiteModeAddJumpListItem                     : af_IShellUIHelper6_msSiteModeAddJumpListItem;
         msSiteModeClearJumpList                       : af_IShellUIHelper6_msSiteModeClearJumpList;
         msSiteModeShowJumpList                        : af_IShellUIHelper6_msSiteModeShowJumpList;
         msSiteModeAddButtonStyle                      : af_IShellUIHelper6_msSiteModeAddButtonStyle;
         msSiteModeShowButtonStyle                     : af_IShellUIHelper6_msSiteModeShowButtonStyle;
         msSiteModeActivate                            : af_IShellUIHelper6_msSiteModeActivate;
         msIsSiteModeFirstRun                          : af_IShellUIHelper6_msIsSiteModeFirstRun;
         msAddTrackingProtectionList                   : af_IShellUIHelper6_msAddTrackingProtectionList;
         msTrackingProtectionEnabled                   : af_IShellUIHelper6_msTrackingProtectionEnabled;
         msActiveXFilteringEnabled                     : af_IShellUIHelper6_msActiveXFilteringEnabled;
         msProvisionNetworks                           : af_IShellUIHelper6_msProvisionNetworks;
         msReportSafeUrl                               : af_IShellUIHelper6_msReportSafeUrl;
         msSiteModeRefreshBadge                        : af_IShellUIHelper6_msSiteModeRefreshBadge;
         msSiteModeClearBadge                          : af_IShellUIHelper6_msSiteModeClearBadge;
         msDiagnoseConnectionUILess                    : af_IShellUIHelper6_msDiagnoseConnectionUILess;
         msLaunchNetworkClientHelp                     : af_IShellUIHelper6_msLaunchNetworkClientHelp;
         msChangeDefaultBrowser                        : af_IShellUIHelper6_msChangeDefaultBrowser;
         msStopPeriodicTileUpdate                      : af_IShellUIHelper6_msStopPeriodicTileUpdate;
         msStartPeriodicTileUpdate                     : af_IShellUIHelper6_msStartPeriodicTileUpdate;
         msStartPeriodicTileUpdateBatch                : af_IShellUIHelper6_msStartPeriodicTileUpdateBatch;
         msClearTile                                   : af_IShellUIHelper6_msClearTile;
         msEnableTileNotificationQueue                 : af_IShellUIHelper6_msEnableTileNotificationQueue;
         msPinnedSiteState                             : af_IShellUIHelper6_msPinnedSiteState;
         msEnableTileNotificationQueueForSquare150x150 : af_IShellUIHelper6_msEnableTileNotificationQueueForSquare150x150;
         msEnableTileNotificationQueueForWide310x150   : af_IShellUIHelper6_msEnableTileNotificationQueueForWide310x150;
         msEnableTileNotificationQueueForSquare310x310 : af_IShellUIHelper6_msEnableTileNotificationQueueForSquare310x310;
         msScheduledTileNotification                   : af_IShellUIHelper6_msScheduledTileNotification;
         msRemoveScheduledTileNotification             : af_IShellUIHelper6_msRemoveScheduledTileNotification;
         msStartPeriodicBadgeUpdate                    : af_IShellUIHelper6_msStartPeriodicBadgeUpdate;
         msStopPeriodicBadgeUpdate                     : af_IShellUIHelper6_msStopPeriodicBadgeUpdate;
         msLaunchInternetOptions                       : af_IShellUIHelper6_msLaunchInternetOptions;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellUIHelper6Vtbl);
   
   function To_Pointer_To_IShellUIHelper6 is
     new Ada.Unchecked_Conversion
     (GNATCOM.Types.Pointer_To_Void, Pointer_To_IShellUIHelper6);
   
   

   --  Element Index         : 27
   --  Element Name          : IShellUIHelper6
   --  Element Documentation : Shell UI Helper Control Interface 6
   --  Element Type          : Dispatch
   
   IShellUIHelper6_ResetFirstBootMode                            : constant := 1;
   IShellUIHelper6_ResetSafeMode                                 : constant := 2;
   IShellUIHelper6_RefreshOfflineDesktop                         : constant := 3;
   IShellUIHelper6_AddFavorite                                   : constant := 4;
   IShellUIHelper6_AddChannel                                    : constant := 5;
   IShellUIHelper6_AddDesktopComponent                           : constant := 6;
   IShellUIHelper6_IsSubscribed                                  : constant := 7;
   IShellUIHelper6_NavigateAndFind                               : constant := 8;
   IShellUIHelper6_ImportExportFavorites                         : constant := 9;
   IShellUIHelper6_AutoCompleteSaveForm                          : constant := 10;
   IShellUIHelper6_AutoScan                                      : constant := 11;
   IShellUIHelper6_AutoCompleteAttach                            : constant := 12;
   IShellUIHelper6_ShowBrowserUI                                 : constant := 13;
   IShellUIHelper6_AddSearchProvider                             : constant := 14;
   IShellUIHelper6_RunOnceShown                                  : constant := 15;
   IShellUIHelper6_SkipRunOnce                                   : constant := 16;
   IShellUIHelper6_CustomizeSettings                             : constant := 17;
   IShellUIHelper6_SqmEnabled                                    : constant := 18;
   IShellUIHelper6_PhishingEnabled                               : constant := 19;
   IShellUIHelper6_BrandImageUri                                 : constant := 20;
   IShellUIHelper6_SkipTabsWelcome                               : constant := 21;
   IShellUIHelper6_DiagnoseConnection                            : constant := 22;
   IShellUIHelper6_CustomizeClearType                            : constant := 23;
   IShellUIHelper6_IsSearchProviderInstalled                     : constant := 24;
   IShellUIHelper6_IsSearchMigrated                              : constant := 25;
   IShellUIHelper6_DefaultSearchProvider                         : constant := 26;
   IShellUIHelper6_RunOnceRequiredSettingsComplete               : constant := 27;
   IShellUIHelper6_RunOnceHasShown                               : constant := 28;
   IShellUIHelper6_SearchGuideUrl                                : constant := 29;
   IShellUIHelper6_AddService                                    : constant := 30;
   IShellUIHelper6_IsServiceInstalled                            : constant := 31;
   IShellUIHelper6_InPrivateFilteringEnabled                     : constant := 37;
   IShellUIHelper6_AddToFavoritesBar                             : constant := 32;
   IShellUIHelper6_BuildNewTabPage                               : constant := 33;
   IShellUIHelper6_SetRecentlyClosedVisible                      : constant := 34;
   IShellUIHelper6_SetActivitiesVisible                          : constant := 35;
   IShellUIHelper6_ContentDiscoveryReset                         : constant := 36;
   IShellUIHelper6_IsSuggestedSitesEnabled                       : constant := 38;
   IShellUIHelper6_EnableSuggestedSites                          : constant := 39;
   IShellUIHelper6_NavigateToSuggestedSites                      : constant := 40;
   IShellUIHelper6_ShowTabsHelp                                  : constant := 41;
   IShellUIHelper6_ShowInPrivateHelp                             : constant := 42;
   IShellUIHelper6_msIsSiteMode                                  : constant := 43;
   IShellUIHelper6_msSiteModeShowThumbBar                        : constant := 47;
   IShellUIHelper6_msSiteModeAddThumbBarButton                   : constant := 48;
   IShellUIHelper6_msSiteModeUpdateThumbBarButton                : constant := 46;
   IShellUIHelper6_msSiteModeSetIconOverlay                      : constant := 44;
   IShellUIHelper6_msSiteModeClearIconOverlay                    : constant := 45;
   IShellUIHelper6_msAddSiteMode                                 : constant := 49;
   IShellUIHelper6_msSiteModeCreateJumpList                      : constant := 51;
   IShellUIHelper6_msSiteModeAddJumpListItem                     : constant := 52;
   IShellUIHelper6_msSiteModeClearJumpList                       : constant := 53;
   IShellUIHelper6_msSiteModeShowJumpList                        : constant := 56;
   IShellUIHelper6_msSiteModeAddButtonStyle                      : constant := 54;
   IShellUIHelper6_msSiteModeShowButtonStyle                     : constant := 55;
   IShellUIHelper6_msSiteModeActivate                            : constant := 58;
   IShellUIHelper6_msIsSiteModeFirstRun                          : constant := 59;
   IShellUIHelper6_msAddTrackingProtectionList                   : constant := 57;
   IShellUIHelper6_msTrackingProtectionEnabled                   : constant := 60;
   IShellUIHelper6_msActiveXFilteringEnabled                     : constant := 61;
   IShellUIHelper6_msProvisionNetworks                           : constant := 62;
   IShellUIHelper6_msReportSafeUrl                               : constant := 63;
   IShellUIHelper6_msSiteModeRefreshBadge                        : constant := 64;
   IShellUIHelper6_msSiteModeClearBadge                          : constant := 65;
   IShellUIHelper6_msDiagnoseConnectionUILess                    : constant := 66;
   IShellUIHelper6_msLaunchNetworkClientHelp                     : constant := 67;
   IShellUIHelper6_msChangeDefaultBrowser                        : constant := 68;
   IShellUIHelper6_msStopPeriodicTileUpdate                      : constant := 69;
   IShellUIHelper6_msStartPeriodicTileUpdate                     : constant := 70;
   IShellUIHelper6_msStartPeriodicTileUpdateBatch                : constant := 75;
   IShellUIHelper6_msClearTile                                   : constant := 71;
   IShellUIHelper6_msEnableTileNotificationQueue                 : constant := 72;
   IShellUIHelper6_msPinnedSiteState                             : constant := 73;
   IShellUIHelper6_msEnableTileNotificationQueueForSquare150x150 : constant := 76;
   IShellUIHelper6_msEnableTileNotificationQueueForWide310x150   : constant := 77;
   IShellUIHelper6_msEnableTileNotificationQueueForSquare310x310 : constant := 78;
   IShellUIHelper6_msScheduledTileNotification                   : constant := 79;
   IShellUIHelper6_msRemoveScheduledTileNotification             : constant := 80;
   IShellUIHelper6_msStartPeriodicBadgeUpdate                    : constant := 81;
   IShellUIHelper6_msStopPeriodicBadgeUpdate                     : constant := 82;
   IShellUIHelper6_msLaunchInternetOptions                       : constant := 74;
   
   

   --  Element Index         : 28
   --  Element Name          : IShellUIHelper7
   --  Element Documentation : Shell UI Helper Control Interface 7
   --  Element Type          : Dispatch
   
   IID_IShellUIHelper7 : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{60E567C8-9573-4AB2-A264-637C6C161CB1}");
   
   type af_IShellUIHelper7_QueryInterface is access
     function (This   : access IShellUIHelper7;
               riid   : GNATCOM.Types.Pointer_To_GUID;
               ppvObj : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_QueryInterface);
   
   type af_IShellUIHelper7_AddRef is access
     function (This : access IShellUIHelper7)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellUIHelper7_AddRef);
   
   type af_IShellUIHelper7_Release is access
     function (This : access IShellUIHelper7)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellUIHelper7_Release);
   
   type af_IShellUIHelper7_GetTypeInfoCount is access
     function (This    : access IShellUIHelper7;
               pctinfo : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_GetTypeInfoCount);
   
   type af_IShellUIHelper7_GetTypeInfo is access
     function (This    : access IShellUIHelper7;
               itinfo  : Interfaces.C.unsigned;
               lcid    : Interfaces.C.unsigned_long;
               pptinfo : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_GetTypeInfo);
   
   type af_IShellUIHelper7_GetIDsOfNames is access
     function (This      : access IShellUIHelper7;
               riid      : GNATCOM.Types.Pointer_To_GUID;
               rgszNames : GNATCOM.Types.Pointer_To_Pointer_To_char;
               cNames    : Interfaces.C.unsigned;
               lcid      : Interfaces.C.unsigned_long;
               rgdispid  : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_GetIDsOfNames);
   
   type af_IShellUIHelper7_Invoke is access
     function (This         : access IShellUIHelper7;
               dispidMember : Interfaces.C.long;
               riid         : GNATCOM.Types.Pointer_To_GUID;
               lcid         : Interfaces.C.unsigned_long;
               wFlags       : Interfaces.C.unsigned_short;
               pdispparams  : GNATCOM.Types.Pointer_To_DISPPARAMS;
               pvarResult   : access GNATCOM.Types.VARIANT;
               pexcepinfo   : GNATCOM.Types.Pointer_To_EXCEPINFO;
               puArgErr     : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_Invoke);
   
   type af_IShellUIHelper7_ResetFirstBootMode is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_ResetFirstBootMode);
   
   type af_IShellUIHelper7_ResetSafeMode is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_ResetSafeMode);
   
   type af_IShellUIHelper7_RefreshOfflineDesktop is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_RefreshOfflineDesktop);
   
   type af_IShellUIHelper7_AddFavorite is access
     function (This  : access IShellUIHelper7;
               URL   : GNATCOM.Types.BSTR;
               Title : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_AddFavorite);
   
   type af_IShellUIHelper7_AddChannel is access
     function (This : access IShellUIHelper7;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_AddChannel);
   
   type af_IShellUIHelper7_AddDesktopComponent is access
     function (This   : access IShellUIHelper7;
               URL    : GNATCOM.Types.BSTR;
               uType  : GNATCOM.Types.BSTR;
               Left   : access GNATCOM.Types.VARIANT;
               Top    : access GNATCOM.Types.VARIANT;
               Width  : access GNATCOM.Types.VARIANT;
               Height : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_AddDesktopComponent);
   
   type af_IShellUIHelper7_IsSubscribed is access
     function (This  : access IShellUIHelper7;
               URL   : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_IsSubscribed);
   
   type af_IShellUIHelper7_NavigateAndFind is access
     function (This           : access IShellUIHelper7;
               URL            : GNATCOM.Types.BSTR;
               strQuery       : GNATCOM.Types.BSTR;
               varTargetFrame : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_NavigateAndFind);
   
   type af_IShellUIHelper7_ImportExportFavorites is access
     function (This          : access IShellUIHelper7;
               fImport       : GNATCOM.Types.VARIANT_BOOL;
               strImpExpPath : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_ImportExportFavorites);
   
   type af_IShellUIHelper7_AutoCompleteSaveForm is access
     function (This : access IShellUIHelper7;
               Form : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_AutoCompleteSaveForm);
   
   type af_IShellUIHelper7_AutoScan is access
     function (This            : access IShellUIHelper7;
               strSearch       : GNATCOM.Types.BSTR;
               strFailureUrl   : GNATCOM.Types.BSTR;
               pvarTargetFrame : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_AutoScan);
   
   type af_IShellUIHelper7_AutoCompleteAttach is access
     function (This     : access IShellUIHelper7;
               Reserved : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_AutoCompleteAttach);
   
   type af_IShellUIHelper7_ShowBrowserUI is access
     function (This     : access IShellUIHelper7;
               bstrName : GNATCOM.Types.BSTR;
               pvarIn   : access GNATCOM.Types.VARIANT;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_ShowBrowserUI);
   
   type af_IShellUIHelper7_AddSearchProvider is access
     function (This : access IShellUIHelper7;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_AddSearchProvider);
   
   type af_IShellUIHelper7_RunOnceShown is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_RunOnceShown);
   
   type af_IShellUIHelper7_SkipRunOnce is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_SkipRunOnce);
   
   type af_IShellUIHelper7_CustomizeSettings is access
     function (This       : access IShellUIHelper7;
               fSQM       : GNATCOM.Types.VARIANT_BOOL;
               fPhishing  : GNATCOM.Types.VARIANT_BOOL;
               bstrLocale : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_CustomizeSettings);
   
   type af_IShellUIHelper7_SqmEnabled is access
     function (This      : access IShellUIHelper7;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_SqmEnabled);
   
   type af_IShellUIHelper7_PhishingEnabled is access
     function (This      : access IShellUIHelper7;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_PhishingEnabled);
   
   type af_IShellUIHelper7_BrandImageUri is access
     function (This     : access IShellUIHelper7;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_BrandImageUri);
   
   type af_IShellUIHelper7_SkipTabsWelcome is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_SkipTabsWelcome);
   
   type af_IShellUIHelper7_DiagnoseConnection is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_DiagnoseConnection);
   
   type af_IShellUIHelper7_CustomizeClearType is access
     function (This : access IShellUIHelper7;
               fSet : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_CustomizeClearType);
   
   type af_IShellUIHelper7_IsSearchProviderInstalled is access
     function (This      : access IShellUIHelper7;
               URL       : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_IsSearchProviderInstalled);
   
   type af_IShellUIHelper7_IsSearchMigrated is access
     function (This       : access IShellUIHelper7;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_IsSearchMigrated);
   
   type af_IShellUIHelper7_DefaultSearchProvider is access
     function (This      : access IShellUIHelper7;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_DefaultSearchProvider);
   
   type af_IShellUIHelper7_RunOnceRequiredSettingsComplete is access
     function (This      : access IShellUIHelper7;
               fComplete : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_RunOnceRequiredSettingsComplete);
   
   type af_IShellUIHelper7_RunOnceHasShown is access
     function (This    : access IShellUIHelper7;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_RunOnceHasShown);
   
   type af_IShellUIHelper7_SearchGuideUrl is access
     function (This     : access IShellUIHelper7;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_SearchGuideUrl);
   
   type af_IShellUIHelper7_AddService is access
     function (This : access IShellUIHelper7;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_AddService);
   
   type af_IShellUIHelper7_IsServiceInstalled is access
     function (This      : access IShellUIHelper7;
               URL       : GNATCOM.Types.BSTR;
               Verb      : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_IsServiceInstalled);
   
   type af_IShellUIHelper7_InPrivateFilteringEnabled is access
     function (This      : access IShellUIHelper7;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_InPrivateFilteringEnabled);
   
   type af_IShellUIHelper7_AddToFavoritesBar is access
     function (This  : access IShellUIHelper7;
               URL   : GNATCOM.Types.BSTR;
               Title : GNATCOM.Types.BSTR;
               uType : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_AddToFavoritesBar);
   
   type af_IShellUIHelper7_BuildNewTabPage is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_BuildNewTabPage);
   
   type af_IShellUIHelper7_SetRecentlyClosedVisible is access
     function (This     : access IShellUIHelper7;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_SetRecentlyClosedVisible);
   
   type af_IShellUIHelper7_SetActivitiesVisible is access
     function (This     : access IShellUIHelper7;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_SetActivitiesVisible);
   
   type af_IShellUIHelper7_ContentDiscoveryReset is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_ContentDiscoveryReset);
   
   type af_IShellUIHelper7_IsSuggestedSitesEnabled is access
     function (This      : access IShellUIHelper7;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_IsSuggestedSitesEnabled);
   
   type af_IShellUIHelper7_EnableSuggestedSites is access
     function (This    : access IShellUIHelper7;
               fEnable : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_EnableSuggestedSites);
   
   type af_IShellUIHelper7_NavigateToSuggestedSites is access
     function (This            : access IShellUIHelper7;
               bstrRelativeUrl : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_NavigateToSuggestedSites);
   
   type af_IShellUIHelper7_ShowTabsHelp is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_ShowTabsHelp);
   
   type af_IShellUIHelper7_ShowInPrivateHelp is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_ShowInPrivateHelp);
   
   type af_IShellUIHelper7_msIsSiteMode is access
     function (This       : access IShellUIHelper7;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msIsSiteMode);
   
   type af_IShellUIHelper7_msSiteModeShowThumbBar is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msSiteModeShowThumbBar);
   
   type af_IShellUIHelper7_msSiteModeAddThumbBarButton is access
     function (This         : access IShellUIHelper7;
               bstrIconURL  : GNATCOM.Types.BSTR;
               bstrTooltip  : GNATCOM.Types.BSTR;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msSiteModeAddThumbBarButton);
   
   type af_IShellUIHelper7_msSiteModeUpdateThumbBarButton is access
     function (This     : access IShellUIHelper7;
               ButtonID : GNATCOM.Types.VARIANT;
               fEnabled : GNATCOM.Types.VARIANT_BOOL;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msSiteModeUpdateThumbBarButton);
   
   type af_IShellUIHelper7_msSiteModeSetIconOverlay is access
     function (This            : access IShellUIHelper7;
               IconUrl         : GNATCOM.Types.BSTR;
               pvarDescription : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msSiteModeSetIconOverlay);
   
   type af_IShellUIHelper7_msSiteModeClearIconOverlay is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msSiteModeClearIconOverlay);
   
   type af_IShellUIHelper7_msAddSiteMode is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msAddSiteMode);
   
   type af_IShellUIHelper7_msSiteModeCreateJumpList is access
     function (This       : access IShellUIHelper7;
               bstrHeader : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msSiteModeCreateJumpList);
   
   type af_IShellUIHelper7_msSiteModeAddJumpListItem is access
     function (This           : access IShellUIHelper7;
               bstrName       : GNATCOM.Types.BSTR;
               bstrActionUri  : GNATCOM.Types.BSTR;
               bstrIconUri    : GNATCOM.Types.BSTR;
               pvarWindowType : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msSiteModeAddJumpListItem);
   
   type af_IShellUIHelper7_msSiteModeClearJumpList is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msSiteModeClearJumpList);
   
   type af_IShellUIHelper7_msSiteModeShowJumpList is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msSiteModeShowJumpList);
   
   type af_IShellUIHelper7_msSiteModeAddButtonStyle is access
     function (This        : access IShellUIHelper7;
               uiButtonID  : GNATCOM.Types.VARIANT;
               bstrIconURL : GNATCOM.Types.BSTR;
               bstrTooltip : GNATCOM.Types.BSTR;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msSiteModeAddButtonStyle);
   
   type af_IShellUIHelper7_msSiteModeShowButtonStyle is access
     function (This       : access IShellUIHelper7;
               uiButtonID : GNATCOM.Types.VARIANT;
               uiStyleID  : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msSiteModeShowButtonStyle);
   
   type af_IShellUIHelper7_msSiteModeActivate is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msSiteModeActivate);
   
   type af_IShellUIHelper7_msIsSiteModeFirstRun is access
     function (This           : access IShellUIHelper7;
               fPreserveState : GNATCOM.Types.VARIANT_BOOL;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msIsSiteModeFirstRun);
   
   type af_IShellUIHelper7_msAddTrackingProtectionList is access
     function (This           : access IShellUIHelper7;
               URL            : GNATCOM.Types.BSTR;
               bstrFilterName : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msAddTrackingProtectionList);
   
   type af_IShellUIHelper7_msTrackingProtectionEnabled is access
     function (This      : access IShellUIHelper7;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msTrackingProtectionEnabled);
   
   type af_IShellUIHelper7_msActiveXFilteringEnabled is access
     function (This      : access IShellUIHelper7;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msActiveXFilteringEnabled);
   
   type af_IShellUIHelper7_msProvisionNetworks is access
     function (This                : access IShellUIHelper7;
               bstrProvisioningXml : GNATCOM.Types.BSTR;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msProvisionNetworks);
   
   type af_IShellUIHelper7_msReportSafeUrl is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msReportSafeUrl);
   
   type af_IShellUIHelper7_msSiteModeRefreshBadge is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msSiteModeRefreshBadge);
   
   type af_IShellUIHelper7_msSiteModeClearBadge is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msSiteModeClearBadge);
   
   type af_IShellUIHelper7_msDiagnoseConnectionUILess is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msDiagnoseConnectionUILess);
   
   type af_IShellUIHelper7_msLaunchNetworkClientHelp is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msLaunchNetworkClientHelp);
   
   type af_IShellUIHelper7_msChangeDefaultBrowser is access
     function (This    : access IShellUIHelper7;
               fChange : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msChangeDefaultBrowser);
   
   type af_IShellUIHelper7_msStopPeriodicTileUpdate is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msStopPeriodicTileUpdate);
   
   type af_IShellUIHelper7_msStartPeriodicTileUpdate is access
     function (This               : access IShellUIHelper7;
               pollingUris        : GNATCOM.Types.VARIANT;
               startTime          : GNATCOM.Types.VARIANT;
               uiUpdateRecurrence : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msStartPeriodicTileUpdate);
   
   type af_IShellUIHelper7_msStartPeriodicTileUpdateBatch is access
     function (This               : access IShellUIHelper7;
               pollingUris        : GNATCOM.Types.VARIANT;
               startTime          : GNATCOM.Types.VARIANT;
               uiUpdateRecurrence : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msStartPeriodicTileUpdateBatch);
   
   type af_IShellUIHelper7_msClearTile is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msClearTile);
   
   type af_IShellUIHelper7_msEnableTileNotificationQueue is access
     function (This    : access IShellUIHelper7;
               fChange : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msEnableTileNotificationQueue);
   
   type af_IShellUIHelper7_msPinnedSiteState is access
     function (This          : access IShellUIHelper7;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msPinnedSiteState);
   
   type af_IShellUIHelper7_msEnableTileNotificationQueueForSquare150x150 is access
     function (This    : access IShellUIHelper7;
               fChange : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msEnableTileNotificationQueueForSquare150x150);
   
   type af_IShellUIHelper7_msEnableTileNotificationQueueForWide310x150 is access
     function (This    : access IShellUIHelper7;
               fChange : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msEnableTileNotificationQueueForWide310x150);
   
   type af_IShellUIHelper7_msEnableTileNotificationQueueForSquare310x310 is access
     function (This    : access IShellUIHelper7;
               fChange : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msEnableTileNotificationQueueForSquare310x310);
   
   type af_IShellUIHelper7_msScheduledTileNotification is access
     function (This                : access IShellUIHelper7;
               bstrNotificationXml : GNATCOM.Types.BSTR;
               bstrNotificationId  : GNATCOM.Types.BSTR;
               bstrNotificationTag : GNATCOM.Types.BSTR;
               startTime           : GNATCOM.Types.VARIANT;
               expirationTime      : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msScheduledTileNotification);
   
   type af_IShellUIHelper7_msRemoveScheduledTileNotification is access
     function (This               : access IShellUIHelper7;
               bstrNotificationId : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msRemoveScheduledTileNotification);
   
   type af_IShellUIHelper7_msStartPeriodicBadgeUpdate is access
     function (This               : access IShellUIHelper7;
               pollingUri         : GNATCOM.Types.BSTR;
               startTime          : GNATCOM.Types.VARIANT;
               uiUpdateRecurrence : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msStartPeriodicBadgeUpdate);
   
   type af_IShellUIHelper7_msStopPeriodicBadgeUpdate is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msStopPeriodicBadgeUpdate);
   
   type af_IShellUIHelper7_msLaunchInternetOptions is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_msLaunchInternetOptions);
   
   type af_IShellUIHelper7_SetExperimentalFlag is access
     function (This           : access IShellUIHelper7;
               bstrFlagString : GNATCOM.Types.BSTR;
               vfFlag         : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_SetExperimentalFlag);
   
   type af_IShellUIHelper7_GetExperimentalFlag is access
     function (This           : access IShellUIHelper7;
               bstrFlagString : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_GetExperimentalFlag);
   
   type af_IShellUIHelper7_SetExperimentalValue is access
     function (This            : access IShellUIHelper7;
               bstrValueString : GNATCOM.Types.BSTR;
               dwValue         : Interfaces.C.unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_SetExperimentalValue);
   
   type af_IShellUIHelper7_GetExperimentalValue is access
     function (This            : access IShellUIHelper7;
               bstrValueString : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_GetExperimentalValue);
   
   type af_IShellUIHelper7_ResetAllExperimentalFlagsAndValues is access
     function (This : access IShellUIHelper7)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_ResetAllExperimentalFlagsAndValues);
   
   type af_IShellUIHelper7_GetNeedIEAutoLaunchFlag is access
     function (This    : access IShellUIHelper7;
               bstrUrl : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_GetNeedIEAutoLaunchFlag);
   
   type af_IShellUIHelper7_SetNeedIEAutoLaunchFlag is access
     function (This    : access IShellUIHelper7;
               bstrUrl : GNATCOM.Types.BSTR;
               flag    : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_SetNeedIEAutoLaunchFlag);
   
   type af_IShellUIHelper7_HasNeedIEAutoLaunchFlag is access
     function (This    : access IShellUIHelper7;
               bstrUrl : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_HasNeedIEAutoLaunchFlag);
   
   type af_IShellUIHelper7_LaunchIE is access
     function (This      : access IShellUIHelper7;
               bstrUrl   : GNATCOM.Types.BSTR;
               automated : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper7_LaunchIE);
   
   type IShellUIHelper7Vtbl;
   type Pointer_To_IShellUIHelper7Vtbl is access all IShellUIHelper7Vtbl;
   
   type IShellUIHelper7 is
      record
         Vtbl : Pointer_To_IShellUIHelper7Vtbl;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellUIHelper7);
   
   type IShellUIHelper7Vtbl is
      record
         QueryInterface                                : af_IShellUIHelper7_QueryInterface;
         AddRef                                        : af_IShellUIHelper7_AddRef;
         Release                                       : af_IShellUIHelper7_Release;
         GetTypeInfoCount                              : af_IShellUIHelper7_GetTypeInfoCount;
         GetTypeInfo                                   : af_IShellUIHelper7_GetTypeInfo;
         GetIDsOfNames                                 : af_IShellUIHelper7_GetIDsOfNames;
         Invoke                                        : af_IShellUIHelper7_Invoke;
         ResetFirstBootMode                            : af_IShellUIHelper7_ResetFirstBootMode;
         ResetSafeMode                                 : af_IShellUIHelper7_ResetSafeMode;
         RefreshOfflineDesktop                         : af_IShellUIHelper7_RefreshOfflineDesktop;
         AddFavorite                                   : af_IShellUIHelper7_AddFavorite;
         AddChannel                                    : af_IShellUIHelper7_AddChannel;
         AddDesktopComponent                           : af_IShellUIHelper7_AddDesktopComponent;
         IsSubscribed                                  : af_IShellUIHelper7_IsSubscribed;
         NavigateAndFind                               : af_IShellUIHelper7_NavigateAndFind;
         ImportExportFavorites                         : af_IShellUIHelper7_ImportExportFavorites;
         AutoCompleteSaveForm                          : af_IShellUIHelper7_AutoCompleteSaveForm;
         AutoScan                                      : af_IShellUIHelper7_AutoScan;
         AutoCompleteAttach                            : af_IShellUIHelper7_AutoCompleteAttach;
         ShowBrowserUI                                 : af_IShellUIHelper7_ShowBrowserUI;
         AddSearchProvider                             : af_IShellUIHelper7_AddSearchProvider;
         RunOnceShown                                  : af_IShellUIHelper7_RunOnceShown;
         SkipRunOnce                                   : af_IShellUIHelper7_SkipRunOnce;
         CustomizeSettings                             : af_IShellUIHelper7_CustomizeSettings;
         SqmEnabled                                    : af_IShellUIHelper7_SqmEnabled;
         PhishingEnabled                               : af_IShellUIHelper7_PhishingEnabled;
         BrandImageUri                                 : af_IShellUIHelper7_BrandImageUri;
         SkipTabsWelcome                               : af_IShellUIHelper7_SkipTabsWelcome;
         DiagnoseConnection                            : af_IShellUIHelper7_DiagnoseConnection;
         CustomizeClearType                            : af_IShellUIHelper7_CustomizeClearType;
         IsSearchProviderInstalled                     : af_IShellUIHelper7_IsSearchProviderInstalled;
         IsSearchMigrated                              : af_IShellUIHelper7_IsSearchMigrated;
         DefaultSearchProvider                         : af_IShellUIHelper7_DefaultSearchProvider;
         RunOnceRequiredSettingsComplete               : af_IShellUIHelper7_RunOnceRequiredSettingsComplete;
         RunOnceHasShown                               : af_IShellUIHelper7_RunOnceHasShown;
         SearchGuideUrl                                : af_IShellUIHelper7_SearchGuideUrl;
         AddService                                    : af_IShellUIHelper7_AddService;
         IsServiceInstalled                            : af_IShellUIHelper7_IsServiceInstalled;
         InPrivateFilteringEnabled                     : af_IShellUIHelper7_InPrivateFilteringEnabled;
         AddToFavoritesBar                             : af_IShellUIHelper7_AddToFavoritesBar;
         BuildNewTabPage                               : af_IShellUIHelper7_BuildNewTabPage;
         SetRecentlyClosedVisible                      : af_IShellUIHelper7_SetRecentlyClosedVisible;
         SetActivitiesVisible                          : af_IShellUIHelper7_SetActivitiesVisible;
         ContentDiscoveryReset                         : af_IShellUIHelper7_ContentDiscoveryReset;
         IsSuggestedSitesEnabled                       : af_IShellUIHelper7_IsSuggestedSitesEnabled;
         EnableSuggestedSites                          : af_IShellUIHelper7_EnableSuggestedSites;
         NavigateToSuggestedSites                      : af_IShellUIHelper7_NavigateToSuggestedSites;
         ShowTabsHelp                                  : af_IShellUIHelper7_ShowTabsHelp;
         ShowInPrivateHelp                             : af_IShellUIHelper7_ShowInPrivateHelp;
         msIsSiteMode                                  : af_IShellUIHelper7_msIsSiteMode;
         msSiteModeShowThumbBar                        : af_IShellUIHelper7_msSiteModeShowThumbBar;
         msSiteModeAddThumbBarButton                   : af_IShellUIHelper7_msSiteModeAddThumbBarButton;
         msSiteModeUpdateThumbBarButton                : af_IShellUIHelper7_msSiteModeUpdateThumbBarButton;
         msSiteModeSetIconOverlay                      : af_IShellUIHelper7_msSiteModeSetIconOverlay;
         msSiteModeClearIconOverlay                    : af_IShellUIHelper7_msSiteModeClearIconOverlay;
         msAddSiteMode                                 : af_IShellUIHelper7_msAddSiteMode;
         msSiteModeCreateJumpList                      : af_IShellUIHelper7_msSiteModeCreateJumpList;
         msSiteModeAddJumpListItem                     : af_IShellUIHelper7_msSiteModeAddJumpListItem;
         msSiteModeClearJumpList                       : af_IShellUIHelper7_msSiteModeClearJumpList;
         msSiteModeShowJumpList                        : af_IShellUIHelper7_msSiteModeShowJumpList;
         msSiteModeAddButtonStyle                      : af_IShellUIHelper7_msSiteModeAddButtonStyle;
         msSiteModeShowButtonStyle                     : af_IShellUIHelper7_msSiteModeShowButtonStyle;
         msSiteModeActivate                            : af_IShellUIHelper7_msSiteModeActivate;
         msIsSiteModeFirstRun                          : af_IShellUIHelper7_msIsSiteModeFirstRun;
         msAddTrackingProtectionList                   : af_IShellUIHelper7_msAddTrackingProtectionList;
         msTrackingProtectionEnabled                   : af_IShellUIHelper7_msTrackingProtectionEnabled;
         msActiveXFilteringEnabled                     : af_IShellUIHelper7_msActiveXFilteringEnabled;
         msProvisionNetworks                           : af_IShellUIHelper7_msProvisionNetworks;
         msReportSafeUrl                               : af_IShellUIHelper7_msReportSafeUrl;
         msSiteModeRefreshBadge                        : af_IShellUIHelper7_msSiteModeRefreshBadge;
         msSiteModeClearBadge                          : af_IShellUIHelper7_msSiteModeClearBadge;
         msDiagnoseConnectionUILess                    : af_IShellUIHelper7_msDiagnoseConnectionUILess;
         msLaunchNetworkClientHelp                     : af_IShellUIHelper7_msLaunchNetworkClientHelp;
         msChangeDefaultBrowser                        : af_IShellUIHelper7_msChangeDefaultBrowser;
         msStopPeriodicTileUpdate                      : af_IShellUIHelper7_msStopPeriodicTileUpdate;
         msStartPeriodicTileUpdate                     : af_IShellUIHelper7_msStartPeriodicTileUpdate;
         msStartPeriodicTileUpdateBatch                : af_IShellUIHelper7_msStartPeriodicTileUpdateBatch;
         msClearTile                                   : af_IShellUIHelper7_msClearTile;
         msEnableTileNotificationQueue                 : af_IShellUIHelper7_msEnableTileNotificationQueue;
         msPinnedSiteState                             : af_IShellUIHelper7_msPinnedSiteState;
         msEnableTileNotificationQueueForSquare150x150 : af_IShellUIHelper7_msEnableTileNotificationQueueForSquare150x150;
         msEnableTileNotificationQueueForWide310x150   : af_IShellUIHelper7_msEnableTileNotificationQueueForWide310x150;
         msEnableTileNotificationQueueForSquare310x310 : af_IShellUIHelper7_msEnableTileNotificationQueueForSquare310x310;
         msScheduledTileNotification                   : af_IShellUIHelper7_msScheduledTileNotification;
         msRemoveScheduledTileNotification             : af_IShellUIHelper7_msRemoveScheduledTileNotification;
         msStartPeriodicBadgeUpdate                    : af_IShellUIHelper7_msStartPeriodicBadgeUpdate;
         msStopPeriodicBadgeUpdate                     : af_IShellUIHelper7_msStopPeriodicBadgeUpdate;
         msLaunchInternetOptions                       : af_IShellUIHelper7_msLaunchInternetOptions;
         SetExperimentalFlag                           : af_IShellUIHelper7_SetExperimentalFlag;
         GetExperimentalFlag                           : af_IShellUIHelper7_GetExperimentalFlag;
         SetExperimentalValue                          : af_IShellUIHelper7_SetExperimentalValue;
         GetExperimentalValue                          : af_IShellUIHelper7_GetExperimentalValue;
         ResetAllExperimentalFlagsAndValues            : af_IShellUIHelper7_ResetAllExperimentalFlagsAndValues;
         GetNeedIEAutoLaunchFlag                       : af_IShellUIHelper7_GetNeedIEAutoLaunchFlag;
         SetNeedIEAutoLaunchFlag                       : af_IShellUIHelper7_SetNeedIEAutoLaunchFlag;
         HasNeedIEAutoLaunchFlag                       : af_IShellUIHelper7_HasNeedIEAutoLaunchFlag;
         LaunchIE                                      : af_IShellUIHelper7_LaunchIE;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellUIHelper7Vtbl);
   
   function To_Pointer_To_IShellUIHelper7 is
     new Ada.Unchecked_Conversion
     (GNATCOM.Types.Pointer_To_Void, Pointer_To_IShellUIHelper7);
   
   

   --  Element Index         : 28
   --  Element Name          : IShellUIHelper7
   --  Element Documentation : Shell UI Helper Control Interface 7
   --  Element Type          : Dispatch
   
   IShellUIHelper7_ResetFirstBootMode                            : constant := 1;
   IShellUIHelper7_ResetSafeMode                                 : constant := 2;
   IShellUIHelper7_RefreshOfflineDesktop                         : constant := 3;
   IShellUIHelper7_AddFavorite                                   : constant := 4;
   IShellUIHelper7_AddChannel                                    : constant := 5;
   IShellUIHelper7_AddDesktopComponent                           : constant := 6;
   IShellUIHelper7_IsSubscribed                                  : constant := 7;
   IShellUIHelper7_NavigateAndFind                               : constant := 8;
   IShellUIHelper7_ImportExportFavorites                         : constant := 9;
   IShellUIHelper7_AutoCompleteSaveForm                          : constant := 10;
   IShellUIHelper7_AutoScan                                      : constant := 11;
   IShellUIHelper7_AutoCompleteAttach                            : constant := 12;
   IShellUIHelper7_ShowBrowserUI                                 : constant := 13;
   IShellUIHelper7_AddSearchProvider                             : constant := 14;
   IShellUIHelper7_RunOnceShown                                  : constant := 15;
   IShellUIHelper7_SkipRunOnce                                   : constant := 16;
   IShellUIHelper7_CustomizeSettings                             : constant := 17;
   IShellUIHelper7_SqmEnabled                                    : constant := 18;
   IShellUIHelper7_PhishingEnabled                               : constant := 19;
   IShellUIHelper7_BrandImageUri                                 : constant := 20;
   IShellUIHelper7_SkipTabsWelcome                               : constant := 21;
   IShellUIHelper7_DiagnoseConnection                            : constant := 22;
   IShellUIHelper7_CustomizeClearType                            : constant := 23;
   IShellUIHelper7_IsSearchProviderInstalled                     : constant := 24;
   IShellUIHelper7_IsSearchMigrated                              : constant := 25;
   IShellUIHelper7_DefaultSearchProvider                         : constant := 26;
   IShellUIHelper7_RunOnceRequiredSettingsComplete               : constant := 27;
   IShellUIHelper7_RunOnceHasShown                               : constant := 28;
   IShellUIHelper7_SearchGuideUrl                                : constant := 29;
   IShellUIHelper7_AddService                                    : constant := 30;
   IShellUIHelper7_IsServiceInstalled                            : constant := 31;
   IShellUIHelper7_InPrivateFilteringEnabled                     : constant := 37;
   IShellUIHelper7_AddToFavoritesBar                             : constant := 32;
   IShellUIHelper7_BuildNewTabPage                               : constant := 33;
   IShellUIHelper7_SetRecentlyClosedVisible                      : constant := 34;
   IShellUIHelper7_SetActivitiesVisible                          : constant := 35;
   IShellUIHelper7_ContentDiscoveryReset                         : constant := 36;
   IShellUIHelper7_IsSuggestedSitesEnabled                       : constant := 38;
   IShellUIHelper7_EnableSuggestedSites                          : constant := 39;
   IShellUIHelper7_NavigateToSuggestedSites                      : constant := 40;
   IShellUIHelper7_ShowTabsHelp                                  : constant := 41;
   IShellUIHelper7_ShowInPrivateHelp                             : constant := 42;
   IShellUIHelper7_msIsSiteMode                                  : constant := 43;
   IShellUIHelper7_msSiteModeShowThumbBar                        : constant := 47;
   IShellUIHelper7_msSiteModeAddThumbBarButton                   : constant := 48;
   IShellUIHelper7_msSiteModeUpdateThumbBarButton                : constant := 46;
   IShellUIHelper7_msSiteModeSetIconOverlay                      : constant := 44;
   IShellUIHelper7_msSiteModeClearIconOverlay                    : constant := 45;
   IShellUIHelper7_msAddSiteMode                                 : constant := 49;
   IShellUIHelper7_msSiteModeCreateJumpList                      : constant := 51;
   IShellUIHelper7_msSiteModeAddJumpListItem                     : constant := 52;
   IShellUIHelper7_msSiteModeClearJumpList                       : constant := 53;
   IShellUIHelper7_msSiteModeShowJumpList                        : constant := 56;
   IShellUIHelper7_msSiteModeAddButtonStyle                      : constant := 54;
   IShellUIHelper7_msSiteModeShowButtonStyle                     : constant := 55;
   IShellUIHelper7_msSiteModeActivate                            : constant := 58;
   IShellUIHelper7_msIsSiteModeFirstRun                          : constant := 59;
   IShellUIHelper7_msAddTrackingProtectionList                   : constant := 57;
   IShellUIHelper7_msTrackingProtectionEnabled                   : constant := 60;
   IShellUIHelper7_msActiveXFilteringEnabled                     : constant := 61;
   IShellUIHelper7_msProvisionNetworks                           : constant := 62;
   IShellUIHelper7_msReportSafeUrl                               : constant := 63;
   IShellUIHelper7_msSiteModeRefreshBadge                        : constant := 64;
   IShellUIHelper7_msSiteModeClearBadge                          : constant := 65;
   IShellUIHelper7_msDiagnoseConnectionUILess                    : constant := 66;
   IShellUIHelper7_msLaunchNetworkClientHelp                     : constant := 67;
   IShellUIHelper7_msChangeDefaultBrowser                        : constant := 68;
   IShellUIHelper7_msStopPeriodicTileUpdate                      : constant := 69;
   IShellUIHelper7_msStartPeriodicTileUpdate                     : constant := 70;
   IShellUIHelper7_msStartPeriodicTileUpdateBatch                : constant := 75;
   IShellUIHelper7_msClearTile                                   : constant := 71;
   IShellUIHelper7_msEnableTileNotificationQueue                 : constant := 72;
   IShellUIHelper7_msPinnedSiteState                             : constant := 73;
   IShellUIHelper7_msEnableTileNotificationQueueForSquare150x150 : constant := 76;
   IShellUIHelper7_msEnableTileNotificationQueueForWide310x150   : constant := 77;
   IShellUIHelper7_msEnableTileNotificationQueueForSquare310x310 : constant := 78;
   IShellUIHelper7_msScheduledTileNotification                   : constant := 79;
   IShellUIHelper7_msRemoveScheduledTileNotification             : constant := 80;
   IShellUIHelper7_msStartPeriodicBadgeUpdate                    : constant := 81;
   IShellUIHelper7_msStopPeriodicBadgeUpdate                     : constant := 82;
   IShellUIHelper7_msLaunchInternetOptions                       : constant := 74;
   IShellUIHelper7_SetExperimentalFlag                           : constant := 85;
   IShellUIHelper7_GetExperimentalFlag                           : constant := 84;
   IShellUIHelper7_SetExperimentalValue                          : constant := 86;
   IShellUIHelper7_GetExperimentalValue                          : constant := 87;
   IShellUIHelper7_ResetAllExperimentalFlagsAndValues            : constant := 92;
   IShellUIHelper7_GetNeedIEAutoLaunchFlag                       : constant := 89;
   IShellUIHelper7_SetNeedIEAutoLaunchFlag                       : constant := 90;
   IShellUIHelper7_HasNeedIEAutoLaunchFlag                       : constant := 88;
   IShellUIHelper7_LaunchIE                                      : constant := 91;
   
   

   --  Element Index         : 29
   --  Element Name          : IShellUIHelper8
   --  Element Documentation : Shell UI Helper Control Interface 8
   --  Element Type          : Dispatch
   
   IID_IShellUIHelper8 : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{66DEBCF2-05B0-4F07-B49B-B96241A65DB2}");
   
   type af_IShellUIHelper8_QueryInterface is access
     function (This   : access IShellUIHelper8;
               riid   : GNATCOM.Types.Pointer_To_GUID;
               ppvObj : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_QueryInterface);
   
   type af_IShellUIHelper8_AddRef is access
     function (This : access IShellUIHelper8)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellUIHelper8_AddRef);
   
   type af_IShellUIHelper8_Release is access
     function (This : access IShellUIHelper8)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellUIHelper8_Release);
   
   type af_IShellUIHelper8_GetTypeInfoCount is access
     function (This    : access IShellUIHelper8;
               pctinfo : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_GetTypeInfoCount);
   
   type af_IShellUIHelper8_GetTypeInfo is access
     function (This    : access IShellUIHelper8;
               itinfo  : Interfaces.C.unsigned;
               lcid    : Interfaces.C.unsigned_long;
               pptinfo : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_GetTypeInfo);
   
   type af_IShellUIHelper8_GetIDsOfNames is access
     function (This      : access IShellUIHelper8;
               riid      : GNATCOM.Types.Pointer_To_GUID;
               rgszNames : GNATCOM.Types.Pointer_To_Pointer_To_char;
               cNames    : Interfaces.C.unsigned;
               lcid      : Interfaces.C.unsigned_long;
               rgdispid  : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_GetIDsOfNames);
   
   type af_IShellUIHelper8_Invoke is access
     function (This         : access IShellUIHelper8;
               dispidMember : Interfaces.C.long;
               riid         : GNATCOM.Types.Pointer_To_GUID;
               lcid         : Interfaces.C.unsigned_long;
               wFlags       : Interfaces.C.unsigned_short;
               pdispparams  : GNATCOM.Types.Pointer_To_DISPPARAMS;
               pvarResult   : access GNATCOM.Types.VARIANT;
               pexcepinfo   : GNATCOM.Types.Pointer_To_EXCEPINFO;
               puArgErr     : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_Invoke);
   
   type af_IShellUIHelper8_ResetFirstBootMode is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_ResetFirstBootMode);
   
   type af_IShellUIHelper8_ResetSafeMode is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_ResetSafeMode);
   
   type af_IShellUIHelper8_RefreshOfflineDesktop is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_RefreshOfflineDesktop);
   
   type af_IShellUIHelper8_AddFavorite is access
     function (This  : access IShellUIHelper8;
               URL   : GNATCOM.Types.BSTR;
               Title : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_AddFavorite);
   
   type af_IShellUIHelper8_AddChannel is access
     function (This : access IShellUIHelper8;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_AddChannel);
   
   type af_IShellUIHelper8_AddDesktopComponent is access
     function (This   : access IShellUIHelper8;
               URL    : GNATCOM.Types.BSTR;
               uType  : GNATCOM.Types.BSTR;
               Left   : access GNATCOM.Types.VARIANT;
               Top    : access GNATCOM.Types.VARIANT;
               Width  : access GNATCOM.Types.VARIANT;
               Height : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_AddDesktopComponent);
   
   type af_IShellUIHelper8_IsSubscribed is access
     function (This  : access IShellUIHelper8;
               URL   : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_IsSubscribed);
   
   type af_IShellUIHelper8_NavigateAndFind is access
     function (This           : access IShellUIHelper8;
               URL            : GNATCOM.Types.BSTR;
               strQuery       : GNATCOM.Types.BSTR;
               varTargetFrame : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_NavigateAndFind);
   
   type af_IShellUIHelper8_ImportExportFavorites is access
     function (This          : access IShellUIHelper8;
               fImport       : GNATCOM.Types.VARIANT_BOOL;
               strImpExpPath : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_ImportExportFavorites);
   
   type af_IShellUIHelper8_AutoCompleteSaveForm is access
     function (This : access IShellUIHelper8;
               Form : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_AutoCompleteSaveForm);
   
   type af_IShellUIHelper8_AutoScan is access
     function (This            : access IShellUIHelper8;
               strSearch       : GNATCOM.Types.BSTR;
               strFailureUrl   : GNATCOM.Types.BSTR;
               pvarTargetFrame : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_AutoScan);
   
   type af_IShellUIHelper8_AutoCompleteAttach is access
     function (This     : access IShellUIHelper8;
               Reserved : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_AutoCompleteAttach);
   
   type af_IShellUIHelper8_ShowBrowserUI is access
     function (This     : access IShellUIHelper8;
               bstrName : GNATCOM.Types.BSTR;
               pvarIn   : access GNATCOM.Types.VARIANT;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_ShowBrowserUI);
   
   type af_IShellUIHelper8_AddSearchProvider is access
     function (This : access IShellUIHelper8;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_AddSearchProvider);
   
   type af_IShellUIHelper8_RunOnceShown is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_RunOnceShown);
   
   type af_IShellUIHelper8_SkipRunOnce is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_SkipRunOnce);
   
   type af_IShellUIHelper8_CustomizeSettings is access
     function (This       : access IShellUIHelper8;
               fSQM       : GNATCOM.Types.VARIANT_BOOL;
               fPhishing  : GNATCOM.Types.VARIANT_BOOL;
               bstrLocale : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_CustomizeSettings);
   
   type af_IShellUIHelper8_SqmEnabled is access
     function (This      : access IShellUIHelper8;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_SqmEnabled);
   
   type af_IShellUIHelper8_PhishingEnabled is access
     function (This      : access IShellUIHelper8;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_PhishingEnabled);
   
   type af_IShellUIHelper8_BrandImageUri is access
     function (This     : access IShellUIHelper8;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_BrandImageUri);
   
   type af_IShellUIHelper8_SkipTabsWelcome is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_SkipTabsWelcome);
   
   type af_IShellUIHelper8_DiagnoseConnection is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_DiagnoseConnection);
   
   type af_IShellUIHelper8_CustomizeClearType is access
     function (This : access IShellUIHelper8;
               fSet : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_CustomizeClearType);
   
   type af_IShellUIHelper8_IsSearchProviderInstalled is access
     function (This      : access IShellUIHelper8;
               URL       : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_IsSearchProviderInstalled);
   
   type af_IShellUIHelper8_IsSearchMigrated is access
     function (This       : access IShellUIHelper8;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_IsSearchMigrated);
   
   type af_IShellUIHelper8_DefaultSearchProvider is access
     function (This      : access IShellUIHelper8;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_DefaultSearchProvider);
   
   type af_IShellUIHelper8_RunOnceRequiredSettingsComplete is access
     function (This      : access IShellUIHelper8;
               fComplete : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_RunOnceRequiredSettingsComplete);
   
   type af_IShellUIHelper8_RunOnceHasShown is access
     function (This    : access IShellUIHelper8;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_RunOnceHasShown);
   
   type af_IShellUIHelper8_SearchGuideUrl is access
     function (This     : access IShellUIHelper8;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_SearchGuideUrl);
   
   type af_IShellUIHelper8_AddService is access
     function (This : access IShellUIHelper8;
               URL  : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_AddService);
   
   type af_IShellUIHelper8_IsServiceInstalled is access
     function (This      : access IShellUIHelper8;
               URL       : GNATCOM.Types.BSTR;
               Verb      : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_IsServiceInstalled);
   
   type af_IShellUIHelper8_InPrivateFilteringEnabled is access
     function (This      : access IShellUIHelper8;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_InPrivateFilteringEnabled);
   
   type af_IShellUIHelper8_AddToFavoritesBar is access
     function (This  : access IShellUIHelper8;
               URL   : GNATCOM.Types.BSTR;
               Title : GNATCOM.Types.BSTR;
               uType : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_AddToFavoritesBar);
   
   type af_IShellUIHelper8_BuildNewTabPage is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_BuildNewTabPage);
   
   type af_IShellUIHelper8_SetRecentlyClosedVisible is access
     function (This     : access IShellUIHelper8;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_SetRecentlyClosedVisible);
   
   type af_IShellUIHelper8_SetActivitiesVisible is access
     function (This     : access IShellUIHelper8;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_SetActivitiesVisible);
   
   type af_IShellUIHelper8_ContentDiscoveryReset is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_ContentDiscoveryReset);
   
   type af_IShellUIHelper8_IsSuggestedSitesEnabled is access
     function (This      : access IShellUIHelper8;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_IsSuggestedSitesEnabled);
   
   type af_IShellUIHelper8_EnableSuggestedSites is access
     function (This    : access IShellUIHelper8;
               fEnable : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_EnableSuggestedSites);
   
   type af_IShellUIHelper8_NavigateToSuggestedSites is access
     function (This            : access IShellUIHelper8;
               bstrRelativeUrl : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_NavigateToSuggestedSites);
   
   type af_IShellUIHelper8_ShowTabsHelp is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_ShowTabsHelp);
   
   type af_IShellUIHelper8_ShowInPrivateHelp is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_ShowInPrivateHelp);
   
   type af_IShellUIHelper8_msIsSiteMode is access
     function (This       : access IShellUIHelper8;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msIsSiteMode);
   
   type af_IShellUIHelper8_msSiteModeShowThumbBar is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msSiteModeShowThumbBar);
   
   type af_IShellUIHelper8_msSiteModeAddThumbBarButton is access
     function (This         : access IShellUIHelper8;
               bstrIconURL  : GNATCOM.Types.BSTR;
               bstrTooltip  : GNATCOM.Types.BSTR;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msSiteModeAddThumbBarButton);
   
   type af_IShellUIHelper8_msSiteModeUpdateThumbBarButton is access
     function (This     : access IShellUIHelper8;
               ButtonID : GNATCOM.Types.VARIANT;
               fEnabled : GNATCOM.Types.VARIANT_BOOL;
               fVisible : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msSiteModeUpdateThumbBarButton);
   
   type af_IShellUIHelper8_msSiteModeSetIconOverlay is access
     function (This            : access IShellUIHelper8;
               IconUrl         : GNATCOM.Types.BSTR;
               pvarDescription : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msSiteModeSetIconOverlay);
   
   type af_IShellUIHelper8_msSiteModeClearIconOverlay is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msSiteModeClearIconOverlay);
   
   type af_IShellUIHelper8_msAddSiteMode is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msAddSiteMode);
   
   type af_IShellUIHelper8_msSiteModeCreateJumpList is access
     function (This       : access IShellUIHelper8;
               bstrHeader : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msSiteModeCreateJumpList);
   
   type af_IShellUIHelper8_msSiteModeAddJumpListItem is access
     function (This           : access IShellUIHelper8;
               bstrName       : GNATCOM.Types.BSTR;
               bstrActionUri  : GNATCOM.Types.BSTR;
               bstrIconUri    : GNATCOM.Types.BSTR;
               pvarWindowType : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msSiteModeAddJumpListItem);
   
   type af_IShellUIHelper8_msSiteModeClearJumpList is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msSiteModeClearJumpList);
   
   type af_IShellUIHelper8_msSiteModeShowJumpList is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msSiteModeShowJumpList);
   
   type af_IShellUIHelper8_msSiteModeAddButtonStyle is access
     function (This        : access IShellUIHelper8;
               uiButtonID  : GNATCOM.Types.VARIANT;
               bstrIconURL : GNATCOM.Types.BSTR;
               bstrTooltip : GNATCOM.Types.BSTR;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msSiteModeAddButtonStyle);
   
   type af_IShellUIHelper8_msSiteModeShowButtonStyle is access
     function (This       : access IShellUIHelper8;
               uiButtonID : GNATCOM.Types.VARIANT;
               uiStyleID  : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msSiteModeShowButtonStyle);
   
   type af_IShellUIHelper8_msSiteModeActivate is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msSiteModeActivate);
   
   type af_IShellUIHelper8_msIsSiteModeFirstRun is access
     function (This           : access IShellUIHelper8;
               fPreserveState : GNATCOM.Types.VARIANT_BOOL;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msIsSiteModeFirstRun);
   
   type af_IShellUIHelper8_msAddTrackingProtectionList is access
     function (This           : access IShellUIHelper8;
               URL            : GNATCOM.Types.BSTR;
               bstrFilterName : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msAddTrackingProtectionList);
   
   type af_IShellUIHelper8_msTrackingProtectionEnabled is access
     function (This      : access IShellUIHelper8;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msTrackingProtectionEnabled);
   
   type af_IShellUIHelper8_msActiveXFilteringEnabled is access
     function (This      : access IShellUIHelper8;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msActiveXFilteringEnabled);
   
   type af_IShellUIHelper8_msProvisionNetworks is access
     function (This                : access IShellUIHelper8;
               bstrProvisioningXml : GNATCOM.Types.BSTR;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msProvisionNetworks);
   
   type af_IShellUIHelper8_msReportSafeUrl is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msReportSafeUrl);
   
   type af_IShellUIHelper8_msSiteModeRefreshBadge is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msSiteModeRefreshBadge);
   
   type af_IShellUIHelper8_msSiteModeClearBadge is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msSiteModeClearBadge);
   
   type af_IShellUIHelper8_msDiagnoseConnectionUILess is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msDiagnoseConnectionUILess);
   
   type af_IShellUIHelper8_msLaunchNetworkClientHelp is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msLaunchNetworkClientHelp);
   
   type af_IShellUIHelper8_msChangeDefaultBrowser is access
     function (This    : access IShellUIHelper8;
               fChange : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msChangeDefaultBrowser);
   
   type af_IShellUIHelper8_msStopPeriodicTileUpdate is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msStopPeriodicTileUpdate);
   
   type af_IShellUIHelper8_msStartPeriodicTileUpdate is access
     function (This               : access IShellUIHelper8;
               pollingUris        : GNATCOM.Types.VARIANT;
               startTime          : GNATCOM.Types.VARIANT;
               uiUpdateRecurrence : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msStartPeriodicTileUpdate);
   
   type af_IShellUIHelper8_msStartPeriodicTileUpdateBatch is access
     function (This               : access IShellUIHelper8;
               pollingUris        : GNATCOM.Types.VARIANT;
               startTime          : GNATCOM.Types.VARIANT;
               uiUpdateRecurrence : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msStartPeriodicTileUpdateBatch);
   
   type af_IShellUIHelper8_msClearTile is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msClearTile);
   
   type af_IShellUIHelper8_msEnableTileNotificationQueue is access
     function (This    : access IShellUIHelper8;
               fChange : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msEnableTileNotificationQueue);
   
   type af_IShellUIHelper8_msPinnedSiteState is access
     function (This          : access IShellUIHelper8;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msPinnedSiteState);
   
   type af_IShellUIHelper8_msEnableTileNotificationQueueForSquare150x150 is access
     function (This    : access IShellUIHelper8;
               fChange : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msEnableTileNotificationQueueForSquare150x150);
   
   type af_IShellUIHelper8_msEnableTileNotificationQueueForWide310x150 is access
     function (This    : access IShellUIHelper8;
               fChange : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msEnableTileNotificationQueueForWide310x150);
   
   type af_IShellUIHelper8_msEnableTileNotificationQueueForSquare310x310 is access
     function (This    : access IShellUIHelper8;
               fChange : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msEnableTileNotificationQueueForSquare310x310);
   
   type af_IShellUIHelper8_msScheduledTileNotification is access
     function (This                : access IShellUIHelper8;
               bstrNotificationXml : GNATCOM.Types.BSTR;
               bstrNotificationId  : GNATCOM.Types.BSTR;
               bstrNotificationTag : GNATCOM.Types.BSTR;
               startTime           : GNATCOM.Types.VARIANT;
               expirationTime      : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msScheduledTileNotification);
   
   type af_IShellUIHelper8_msRemoveScheduledTileNotification is access
     function (This               : access IShellUIHelper8;
               bstrNotificationId : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msRemoveScheduledTileNotification);
   
   type af_IShellUIHelper8_msStartPeriodicBadgeUpdate is access
     function (This               : access IShellUIHelper8;
               pollingUri         : GNATCOM.Types.BSTR;
               startTime          : GNATCOM.Types.VARIANT;
               uiUpdateRecurrence : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msStartPeriodicBadgeUpdate);
   
   type af_IShellUIHelper8_msStopPeriodicBadgeUpdate is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msStopPeriodicBadgeUpdate);
   
   type af_IShellUIHelper8_msLaunchInternetOptions is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_msLaunchInternetOptions);
   
   type af_IShellUIHelper8_SetExperimentalFlag is access
     function (This           : access IShellUIHelper8;
               bstrFlagString : GNATCOM.Types.BSTR;
               vfFlag         : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_SetExperimentalFlag);
   
   type af_IShellUIHelper8_GetExperimentalFlag is access
     function (This           : access IShellUIHelper8;
               bstrFlagString : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_GetExperimentalFlag);
   
   type af_IShellUIHelper8_SetExperimentalValue is access
     function (This            : access IShellUIHelper8;
               bstrValueString : GNATCOM.Types.BSTR;
               dwValue         : Interfaces.C.unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_SetExperimentalValue);
   
   type af_IShellUIHelper8_GetExperimentalValue is access
     function (This            : access IShellUIHelper8;
               bstrValueString : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_GetExperimentalValue);
   
   type af_IShellUIHelper8_ResetAllExperimentalFlagsAndValues is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_ResetAllExperimentalFlagsAndValues);
   
   type af_IShellUIHelper8_GetNeedIEAutoLaunchFlag is access
     function (This    : access IShellUIHelper8;
               bstrUrl : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_GetNeedIEAutoLaunchFlag);
   
   type af_IShellUIHelper8_SetNeedIEAutoLaunchFlag is access
     function (This    : access IShellUIHelper8;
               bstrUrl : GNATCOM.Types.BSTR;
               flag    : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_SetNeedIEAutoLaunchFlag);
   
   type af_IShellUIHelper8_HasNeedIEAutoLaunchFlag is access
     function (This    : access IShellUIHelper8;
               bstrUrl : GNATCOM.Types.BSTR;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_HasNeedIEAutoLaunchFlag);
   
   type af_IShellUIHelper8_LaunchIE is access
     function (This      : access IShellUIHelper8;
               bstrUrl   : GNATCOM.Types.BSTR;
               automated : GNATCOM.Types.VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_LaunchIE);
   
   type af_IShellUIHelper8_GetCVListData is access
     function (This        : access IShellUIHelper8;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_GetCVListData);
   
   type af_IShellUIHelper8_GetCVListLocalData is access
     function (This        : access IShellUIHelper8;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_GetCVListLocalData);
   
   type af_IShellUIHelper8_GetEMIEListData is access
     function (This        : access IShellUIHelper8;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_GetEMIEListData);
   
   type af_IShellUIHelper8_GetEMIEListLocalData is access
     function (This        : access IShellUIHelper8;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_GetEMIEListLocalData);
   
   type af_IShellUIHelper8_OpenFavoritesPane is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_OpenFavoritesPane);
   
   type af_IShellUIHelper8_OpenFavoritesSettings is access
     function (This : access IShellUIHelper8)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_OpenFavoritesSettings);
   
   type af_IShellUIHelper8_LaunchInHVSI is access
     function (This    : access IShellUIHelper8;
               bstrUrl : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellUIHelper8_LaunchInHVSI);
   
   type IShellUIHelper8Vtbl;
   type Pointer_To_IShellUIHelper8Vtbl is access all IShellUIHelper8Vtbl;
   
   type IShellUIHelper8 is
      record
         Vtbl : Pointer_To_IShellUIHelper8Vtbl;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellUIHelper8);
   
   type IShellUIHelper8Vtbl is
      record
         QueryInterface                                : af_IShellUIHelper8_QueryInterface;
         AddRef                                        : af_IShellUIHelper8_AddRef;
         Release                                       : af_IShellUIHelper8_Release;
         GetTypeInfoCount                              : af_IShellUIHelper8_GetTypeInfoCount;
         GetTypeInfo                                   : af_IShellUIHelper8_GetTypeInfo;
         GetIDsOfNames                                 : af_IShellUIHelper8_GetIDsOfNames;
         Invoke                                        : af_IShellUIHelper8_Invoke;
         ResetFirstBootMode                            : af_IShellUIHelper8_ResetFirstBootMode;
         ResetSafeMode                                 : af_IShellUIHelper8_ResetSafeMode;
         RefreshOfflineDesktop                         : af_IShellUIHelper8_RefreshOfflineDesktop;
         AddFavorite                                   : af_IShellUIHelper8_AddFavorite;
         AddChannel                                    : af_IShellUIHelper8_AddChannel;
         AddDesktopComponent                           : af_IShellUIHelper8_AddDesktopComponent;
         IsSubscribed                                  : af_IShellUIHelper8_IsSubscribed;
         NavigateAndFind                               : af_IShellUIHelper8_NavigateAndFind;
         ImportExportFavorites                         : af_IShellUIHelper8_ImportExportFavorites;
         AutoCompleteSaveForm                          : af_IShellUIHelper8_AutoCompleteSaveForm;
         AutoScan                                      : af_IShellUIHelper8_AutoScan;
         AutoCompleteAttach                            : af_IShellUIHelper8_AutoCompleteAttach;
         ShowBrowserUI                                 : af_IShellUIHelper8_ShowBrowserUI;
         AddSearchProvider                             : af_IShellUIHelper8_AddSearchProvider;
         RunOnceShown                                  : af_IShellUIHelper8_RunOnceShown;
         SkipRunOnce                                   : af_IShellUIHelper8_SkipRunOnce;
         CustomizeSettings                             : af_IShellUIHelper8_CustomizeSettings;
         SqmEnabled                                    : af_IShellUIHelper8_SqmEnabled;
         PhishingEnabled                               : af_IShellUIHelper8_PhishingEnabled;
         BrandImageUri                                 : af_IShellUIHelper8_BrandImageUri;
         SkipTabsWelcome                               : af_IShellUIHelper8_SkipTabsWelcome;
         DiagnoseConnection                            : af_IShellUIHelper8_DiagnoseConnection;
         CustomizeClearType                            : af_IShellUIHelper8_CustomizeClearType;
         IsSearchProviderInstalled                     : af_IShellUIHelper8_IsSearchProviderInstalled;
         IsSearchMigrated                              : af_IShellUIHelper8_IsSearchMigrated;
         DefaultSearchProvider                         : af_IShellUIHelper8_DefaultSearchProvider;
         RunOnceRequiredSettingsComplete               : af_IShellUIHelper8_RunOnceRequiredSettingsComplete;
         RunOnceHasShown                               : af_IShellUIHelper8_RunOnceHasShown;
         SearchGuideUrl                                : af_IShellUIHelper8_SearchGuideUrl;
         AddService                                    : af_IShellUIHelper8_AddService;
         IsServiceInstalled                            : af_IShellUIHelper8_IsServiceInstalled;
         InPrivateFilteringEnabled                     : af_IShellUIHelper8_InPrivateFilteringEnabled;
         AddToFavoritesBar                             : af_IShellUIHelper8_AddToFavoritesBar;
         BuildNewTabPage                               : af_IShellUIHelper8_BuildNewTabPage;
         SetRecentlyClosedVisible                      : af_IShellUIHelper8_SetRecentlyClosedVisible;
         SetActivitiesVisible                          : af_IShellUIHelper8_SetActivitiesVisible;
         ContentDiscoveryReset                         : af_IShellUIHelper8_ContentDiscoveryReset;
         IsSuggestedSitesEnabled                       : af_IShellUIHelper8_IsSuggestedSitesEnabled;
         EnableSuggestedSites                          : af_IShellUIHelper8_EnableSuggestedSites;
         NavigateToSuggestedSites                      : af_IShellUIHelper8_NavigateToSuggestedSites;
         ShowTabsHelp                                  : af_IShellUIHelper8_ShowTabsHelp;
         ShowInPrivateHelp                             : af_IShellUIHelper8_ShowInPrivateHelp;
         msIsSiteMode                                  : af_IShellUIHelper8_msIsSiteMode;
         msSiteModeShowThumbBar                        : af_IShellUIHelper8_msSiteModeShowThumbBar;
         msSiteModeAddThumbBarButton                   : af_IShellUIHelper8_msSiteModeAddThumbBarButton;
         msSiteModeUpdateThumbBarButton                : af_IShellUIHelper8_msSiteModeUpdateThumbBarButton;
         msSiteModeSetIconOverlay                      : af_IShellUIHelper8_msSiteModeSetIconOverlay;
         msSiteModeClearIconOverlay                    : af_IShellUIHelper8_msSiteModeClearIconOverlay;
         msAddSiteMode                                 : af_IShellUIHelper8_msAddSiteMode;
         msSiteModeCreateJumpList                      : af_IShellUIHelper8_msSiteModeCreateJumpList;
         msSiteModeAddJumpListItem                     : af_IShellUIHelper8_msSiteModeAddJumpListItem;
         msSiteModeClearJumpList                       : af_IShellUIHelper8_msSiteModeClearJumpList;
         msSiteModeShowJumpList                        : af_IShellUIHelper8_msSiteModeShowJumpList;
         msSiteModeAddButtonStyle                      : af_IShellUIHelper8_msSiteModeAddButtonStyle;
         msSiteModeShowButtonStyle                     : af_IShellUIHelper8_msSiteModeShowButtonStyle;
         msSiteModeActivate                            : af_IShellUIHelper8_msSiteModeActivate;
         msIsSiteModeFirstRun                          : af_IShellUIHelper8_msIsSiteModeFirstRun;
         msAddTrackingProtectionList                   : af_IShellUIHelper8_msAddTrackingProtectionList;
         msTrackingProtectionEnabled                   : af_IShellUIHelper8_msTrackingProtectionEnabled;
         msActiveXFilteringEnabled                     : af_IShellUIHelper8_msActiveXFilteringEnabled;
         msProvisionNetworks                           : af_IShellUIHelper8_msProvisionNetworks;
         msReportSafeUrl                               : af_IShellUIHelper8_msReportSafeUrl;
         msSiteModeRefreshBadge                        : af_IShellUIHelper8_msSiteModeRefreshBadge;
         msSiteModeClearBadge                          : af_IShellUIHelper8_msSiteModeClearBadge;
         msDiagnoseConnectionUILess                    : af_IShellUIHelper8_msDiagnoseConnectionUILess;
         msLaunchNetworkClientHelp                     : af_IShellUIHelper8_msLaunchNetworkClientHelp;
         msChangeDefaultBrowser                        : af_IShellUIHelper8_msChangeDefaultBrowser;
         msStopPeriodicTileUpdate                      : af_IShellUIHelper8_msStopPeriodicTileUpdate;
         msStartPeriodicTileUpdate                     : af_IShellUIHelper8_msStartPeriodicTileUpdate;
         msStartPeriodicTileUpdateBatch                : af_IShellUIHelper8_msStartPeriodicTileUpdateBatch;
         msClearTile                                   : af_IShellUIHelper8_msClearTile;
         msEnableTileNotificationQueue                 : af_IShellUIHelper8_msEnableTileNotificationQueue;
         msPinnedSiteState                             : af_IShellUIHelper8_msPinnedSiteState;
         msEnableTileNotificationQueueForSquare150x150 : af_IShellUIHelper8_msEnableTileNotificationQueueForSquare150x150;
         msEnableTileNotificationQueueForWide310x150   : af_IShellUIHelper8_msEnableTileNotificationQueueForWide310x150;
         msEnableTileNotificationQueueForSquare310x310 : af_IShellUIHelper8_msEnableTileNotificationQueueForSquare310x310;
         msScheduledTileNotification                   : af_IShellUIHelper8_msScheduledTileNotification;
         msRemoveScheduledTileNotification             : af_IShellUIHelper8_msRemoveScheduledTileNotification;
         msStartPeriodicBadgeUpdate                    : af_IShellUIHelper8_msStartPeriodicBadgeUpdate;
         msStopPeriodicBadgeUpdate                     : af_IShellUIHelper8_msStopPeriodicBadgeUpdate;
         msLaunchInternetOptions                       : af_IShellUIHelper8_msLaunchInternetOptions;
         SetExperimentalFlag                           : af_IShellUIHelper8_SetExperimentalFlag;
         GetExperimentalFlag                           : af_IShellUIHelper8_GetExperimentalFlag;
         SetExperimentalValue                          : af_IShellUIHelper8_SetExperimentalValue;
         GetExperimentalValue                          : af_IShellUIHelper8_GetExperimentalValue;
         ResetAllExperimentalFlagsAndValues            : af_IShellUIHelper8_ResetAllExperimentalFlagsAndValues;
         GetNeedIEAutoLaunchFlag                       : af_IShellUIHelper8_GetNeedIEAutoLaunchFlag;
         SetNeedIEAutoLaunchFlag                       : af_IShellUIHelper8_SetNeedIEAutoLaunchFlag;
         HasNeedIEAutoLaunchFlag                       : af_IShellUIHelper8_HasNeedIEAutoLaunchFlag;
         LaunchIE                                      : af_IShellUIHelper8_LaunchIE;
         GetCVListData                                 : af_IShellUIHelper8_GetCVListData;
         GetCVListLocalData                            : af_IShellUIHelper8_GetCVListLocalData;
         GetEMIEListData                               : af_IShellUIHelper8_GetEMIEListData;
         GetEMIEListLocalData                          : af_IShellUIHelper8_GetEMIEListLocalData;
         OpenFavoritesPane                             : af_IShellUIHelper8_OpenFavoritesPane;
         OpenFavoritesSettings                         : af_IShellUIHelper8_OpenFavoritesSettings;
         LaunchInHVSI                                  : af_IShellUIHelper8_LaunchInHVSI;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellUIHelper8Vtbl);
   
   function To_Pointer_To_IShellUIHelper8 is
     new Ada.Unchecked_Conversion
     (GNATCOM.Types.Pointer_To_Void, Pointer_To_IShellUIHelper8);
   
   

   --  Element Index         : 29
   --  Element Name          : IShellUIHelper8
   --  Element Documentation : Shell UI Helper Control Interface 8
   --  Element Type          : Dispatch
   
   IShellUIHelper8_ResetFirstBootMode                            : constant := 1;
   IShellUIHelper8_ResetSafeMode                                 : constant := 2;
   IShellUIHelper8_RefreshOfflineDesktop                         : constant := 3;
   IShellUIHelper8_AddFavorite                                   : constant := 4;
   IShellUIHelper8_AddChannel                                    : constant := 5;
   IShellUIHelper8_AddDesktopComponent                           : constant := 6;
   IShellUIHelper8_IsSubscribed                                  : constant := 7;
   IShellUIHelper8_NavigateAndFind                               : constant := 8;
   IShellUIHelper8_ImportExportFavorites                         : constant := 9;
   IShellUIHelper8_AutoCompleteSaveForm                          : constant := 10;
   IShellUIHelper8_AutoScan                                      : constant := 11;
   IShellUIHelper8_AutoCompleteAttach                            : constant := 12;
   IShellUIHelper8_ShowBrowserUI                                 : constant := 13;
   IShellUIHelper8_AddSearchProvider                             : constant := 14;
   IShellUIHelper8_RunOnceShown                                  : constant := 15;
   IShellUIHelper8_SkipRunOnce                                   : constant := 16;
   IShellUIHelper8_CustomizeSettings                             : constant := 17;
   IShellUIHelper8_SqmEnabled                                    : constant := 18;
   IShellUIHelper8_PhishingEnabled                               : constant := 19;
   IShellUIHelper8_BrandImageUri                                 : constant := 20;
   IShellUIHelper8_SkipTabsWelcome                               : constant := 21;
   IShellUIHelper8_DiagnoseConnection                            : constant := 22;
   IShellUIHelper8_CustomizeClearType                            : constant := 23;
   IShellUIHelper8_IsSearchProviderInstalled                     : constant := 24;
   IShellUIHelper8_IsSearchMigrated                              : constant := 25;
   IShellUIHelper8_DefaultSearchProvider                         : constant := 26;
   IShellUIHelper8_RunOnceRequiredSettingsComplete               : constant := 27;
   IShellUIHelper8_RunOnceHasShown                               : constant := 28;
   IShellUIHelper8_SearchGuideUrl                                : constant := 29;
   IShellUIHelper8_AddService                                    : constant := 30;
   IShellUIHelper8_IsServiceInstalled                            : constant := 31;
   IShellUIHelper8_InPrivateFilteringEnabled                     : constant := 37;
   IShellUIHelper8_AddToFavoritesBar                             : constant := 32;
   IShellUIHelper8_BuildNewTabPage                               : constant := 33;
   IShellUIHelper8_SetRecentlyClosedVisible                      : constant := 34;
   IShellUIHelper8_SetActivitiesVisible                          : constant := 35;
   IShellUIHelper8_ContentDiscoveryReset                         : constant := 36;
   IShellUIHelper8_IsSuggestedSitesEnabled                       : constant := 38;
   IShellUIHelper8_EnableSuggestedSites                          : constant := 39;
   IShellUIHelper8_NavigateToSuggestedSites                      : constant := 40;
   IShellUIHelper8_ShowTabsHelp                                  : constant := 41;
   IShellUIHelper8_ShowInPrivateHelp                             : constant := 42;
   IShellUIHelper8_msIsSiteMode                                  : constant := 43;
   IShellUIHelper8_msSiteModeShowThumbBar                        : constant := 47;
   IShellUIHelper8_msSiteModeAddThumbBarButton                   : constant := 48;
   IShellUIHelper8_msSiteModeUpdateThumbBarButton                : constant := 46;
   IShellUIHelper8_msSiteModeSetIconOverlay                      : constant := 44;
   IShellUIHelper8_msSiteModeClearIconOverlay                    : constant := 45;
   IShellUIHelper8_msAddSiteMode                                 : constant := 49;
   IShellUIHelper8_msSiteModeCreateJumpList                      : constant := 51;
   IShellUIHelper8_msSiteModeAddJumpListItem                     : constant := 52;
   IShellUIHelper8_msSiteModeClearJumpList                       : constant := 53;
   IShellUIHelper8_msSiteModeShowJumpList                        : constant := 56;
   IShellUIHelper8_msSiteModeAddButtonStyle                      : constant := 54;
   IShellUIHelper8_msSiteModeShowButtonStyle                     : constant := 55;
   IShellUIHelper8_msSiteModeActivate                            : constant := 58;
   IShellUIHelper8_msIsSiteModeFirstRun                          : constant := 59;
   IShellUIHelper8_msAddTrackingProtectionList                   : constant := 57;
   IShellUIHelper8_msTrackingProtectionEnabled                   : constant := 60;
   IShellUIHelper8_msActiveXFilteringEnabled                     : constant := 61;
   IShellUIHelper8_msProvisionNetworks                           : constant := 62;
   IShellUIHelper8_msReportSafeUrl                               : constant := 63;
   IShellUIHelper8_msSiteModeRefreshBadge                        : constant := 64;
   IShellUIHelper8_msSiteModeClearBadge                          : constant := 65;
   IShellUIHelper8_msDiagnoseConnectionUILess                    : constant := 66;
   IShellUIHelper8_msLaunchNetworkClientHelp                     : constant := 67;
   IShellUIHelper8_msChangeDefaultBrowser                        : constant := 68;
   IShellUIHelper8_msStopPeriodicTileUpdate                      : constant := 69;
   IShellUIHelper8_msStartPeriodicTileUpdate                     : constant := 70;
   IShellUIHelper8_msStartPeriodicTileUpdateBatch                : constant := 75;
   IShellUIHelper8_msClearTile                                   : constant := 71;
   IShellUIHelper8_msEnableTileNotificationQueue                 : constant := 72;
   IShellUIHelper8_msPinnedSiteState                             : constant := 73;
   IShellUIHelper8_msEnableTileNotificationQueueForSquare150x150 : constant := 76;
   IShellUIHelper8_msEnableTileNotificationQueueForWide310x150   : constant := 77;
   IShellUIHelper8_msEnableTileNotificationQueueForSquare310x310 : constant := 78;
   IShellUIHelper8_msScheduledTileNotification                   : constant := 79;
   IShellUIHelper8_msRemoveScheduledTileNotification             : constant := 80;
   IShellUIHelper8_msStartPeriodicBadgeUpdate                    : constant := 81;
   IShellUIHelper8_msStopPeriodicBadgeUpdate                     : constant := 82;
   IShellUIHelper8_msLaunchInternetOptions                       : constant := 74;
   IShellUIHelper8_SetExperimentalFlag                           : constant := 85;
   IShellUIHelper8_GetExperimentalFlag                           : constant := 84;
   IShellUIHelper8_SetExperimentalValue                          : constant := 86;
   IShellUIHelper8_GetExperimentalValue                          : constant := 87;
   IShellUIHelper8_ResetAllExperimentalFlagsAndValues            : constant := 92;
   IShellUIHelper8_GetNeedIEAutoLaunchFlag                       : constant := 89;
   IShellUIHelper8_SetNeedIEAutoLaunchFlag                       : constant := 90;
   IShellUIHelper8_HasNeedIEAutoLaunchFlag                       : constant := 88;
   IShellUIHelper8_LaunchIE                                      : constant := 91;
   IShellUIHelper8_GetCVListData                                 : constant := 93;
   IShellUIHelper8_GetCVListLocalData                            : constant := 94;
   IShellUIHelper8_GetEMIEListData                               : constant := 95;
   IShellUIHelper8_GetEMIEListLocalData                          : constant := 96;
   IShellUIHelper8_OpenFavoritesPane                             : constant := 97;
   IShellUIHelper8_OpenFavoritesSettings                         : constant := 98;
   IShellUIHelper8_LaunchInHVSI                                  : constant := 99;
   
   
   --  Element Index         : 30
   --  Element Name          : ShellUIHelper
   --  Element Type          : CoClass

   CLSID_ShellUIHelper : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}");

   --  Element Index         : 31
   --  Element Name          : DShellNameSpaceEvents
   --  Element Type          : Dispatch
   
   IID_DShellNameSpaceEvents : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{55136806-B2DE-11D1-B9F2-00A0C98BC547}");
   
   
   DShellNameSpaceEvents_FavoritesSelectionChange : constant := 1;
   DShellNameSpaceEvents_SelectionChange          : constant := 2;
   DShellNameSpaceEvents_DoubleClick              : constant := 3;
   DShellNameSpaceEvents_Initialized              : constant := 4;
   
   

   --  Element Index         : 32
   --  Element Name          : IShellFavoritesNameSpace
   --  Element Documentation : IShellFavoritesNameSpace Interface
   --  Element Type          : Dispatch
   
   IID_IShellFavoritesNameSpace : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{55136804-B2DE-11D1-B9F2-00A0C98BC547}");
   
   type af_IShellFavoritesNameSpace_QueryInterface is access
     function (This   : access IShellFavoritesNameSpace;
               riid   : GNATCOM.Types.Pointer_To_GUID;
               ppvObj : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_QueryInterface);
   
   type af_IShellFavoritesNameSpace_AddRef is access
     function (This : access IShellFavoritesNameSpace)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_AddRef);
   
   type af_IShellFavoritesNameSpace_Release is access
     function (This : access IShellFavoritesNameSpace)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_Release);
   
   type af_IShellFavoritesNameSpace_GetTypeInfoCount is access
     function (This    : access IShellFavoritesNameSpace;
               pctinfo : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_GetTypeInfoCount);
   
   type af_IShellFavoritesNameSpace_GetTypeInfo is access
     function (This    : access IShellFavoritesNameSpace;
               itinfo  : Interfaces.C.unsigned;
               lcid    : Interfaces.C.unsigned_long;
               pptinfo : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_GetTypeInfo);
   
   type af_IShellFavoritesNameSpace_GetIDsOfNames is access
     function (This      : access IShellFavoritesNameSpace;
               riid      : GNATCOM.Types.Pointer_To_GUID;
               rgszNames : GNATCOM.Types.Pointer_To_Pointer_To_char;
               cNames    : Interfaces.C.unsigned;
               lcid      : Interfaces.C.unsigned_long;
               rgdispid  : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_GetIDsOfNames);
   
   type af_IShellFavoritesNameSpace_Invoke is access
     function (This         : access IShellFavoritesNameSpace;
               dispidMember : Interfaces.C.long;
               riid         : GNATCOM.Types.Pointer_To_GUID;
               lcid         : Interfaces.C.unsigned_long;
               wFlags       : Interfaces.C.unsigned_short;
               pdispparams  : GNATCOM.Types.Pointer_To_DISPPARAMS;
               pvarResult   : access GNATCOM.Types.VARIANT;
               pexcepinfo   : GNATCOM.Types.Pointer_To_EXCEPINFO;
               puArgErr     : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_Invoke);
   
   type af_IShellFavoritesNameSpace_MoveSelectionUp is access
     function (This : access IShellFavoritesNameSpace)
     return GNATCOM.Types.HRESULT;
   --  method MoveSelectionUp
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_MoveSelectionUp);
   
   type af_IShellFavoritesNameSpace_MoveSelectionDown is access
     function (This : access IShellFavoritesNameSpace)
     return GNATCOM.Types.HRESULT;
   --  method MoveSelectionDown
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_MoveSelectionDown);
   
   type af_IShellFavoritesNameSpace_ResetSort is access
     function (This : access IShellFavoritesNameSpace)
     return GNATCOM.Types.HRESULT;
   --  method ResetSort
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_ResetSort);
   
   type af_IShellFavoritesNameSpace_NewFolder is access
     function (This : access IShellFavoritesNameSpace)
     return GNATCOM.Types.HRESULT;
   --  method NewFolder
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_NewFolder);
   
   type af_IShellFavoritesNameSpace_Synchronize is access
     function (This : access IShellFavoritesNameSpace)
     return GNATCOM.Types.HRESULT;
   --  method Synchronize
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_Synchronize);
   
   type af_IShellFavoritesNameSpace_Import is access
     function (This : access IShellFavoritesNameSpace)
     return GNATCOM.Types.HRESULT;
   --  method Import
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_Import);
   
   type af_IShellFavoritesNameSpace_Export is access
     function (This : access IShellFavoritesNameSpace)
     return GNATCOM.Types.HRESULT;
   --  method Export
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_Export);
   
   type af_IShellFavoritesNameSpace_InvokeContextMenuCommand is access
     function (This       : access IShellFavoritesNameSpace;
               strCommand : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   --  method InvokeContextMenuCommand
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_InvokeContextMenuCommand);
   
   type af_IShellFavoritesNameSpace_MoveSelectionTo is access
     function (This : access IShellFavoritesNameSpace)
     return GNATCOM.Types.HRESULT;
   --  method MoveSelectionTo
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_MoveSelectionTo);
   
   type af_IShellFavoritesNameSpace_Get_SubscriptionsEnabled is access
     function (This  : access IShellFavoritesNameSpace;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Query to see if subscriptions are enabled
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_Get_SubscriptionsEnabled);
   
   type af_IShellFavoritesNameSpace_CreateSubscriptionForSelection is access
     function (This  : access IShellFavoritesNameSpace;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  method CreateSubscriptionForSelection
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_CreateSubscriptionForSelection);
   
   type af_IShellFavoritesNameSpace_DeleteSubscriptionForSelection is access
     function (This  : access IShellFavoritesNameSpace;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  method DeleteSubscriptionForSelection
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_DeleteSubscriptionForSelection);
   
   type af_IShellFavoritesNameSpace_SetRoot is access
     function (This         : access IShellFavoritesNameSpace;
               bstrFullPath : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   --  old, use put_Root() instead
   pragma Convention (StdCall, af_IShellFavoritesNameSpace_SetRoot);
   
   type IShellFavoritesNameSpaceVtbl;
   type Pointer_To_IShellFavoritesNameSpaceVtbl is access all IShellFavoritesNameSpaceVtbl;
   
   type IShellFavoritesNameSpace is
      record
         Vtbl : Pointer_To_IShellFavoritesNameSpaceVtbl;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellFavoritesNameSpace);
   
   type IShellFavoritesNameSpaceVtbl is
      record
         QueryInterface                 : af_IShellFavoritesNameSpace_QueryInterface;
         AddRef                         : af_IShellFavoritesNameSpace_AddRef;
         Release                        : af_IShellFavoritesNameSpace_Release;
         GetTypeInfoCount               : af_IShellFavoritesNameSpace_GetTypeInfoCount;
         GetTypeInfo                    : af_IShellFavoritesNameSpace_GetTypeInfo;
         GetIDsOfNames                  : af_IShellFavoritesNameSpace_GetIDsOfNames;
         Invoke                         : af_IShellFavoritesNameSpace_Invoke;
         MoveSelectionUp                : af_IShellFavoritesNameSpace_MoveSelectionUp;
         MoveSelectionDown              : af_IShellFavoritesNameSpace_MoveSelectionDown;
         ResetSort                      : af_IShellFavoritesNameSpace_ResetSort;
         NewFolder                      : af_IShellFavoritesNameSpace_NewFolder;
         Synchronize                    : af_IShellFavoritesNameSpace_Synchronize;
         Import                         : af_IShellFavoritesNameSpace_Import;
         Export                         : af_IShellFavoritesNameSpace_Export;
         InvokeContextMenuCommand       : af_IShellFavoritesNameSpace_InvokeContextMenuCommand;
         MoveSelectionTo                : af_IShellFavoritesNameSpace_MoveSelectionTo;
         Get_SubscriptionsEnabled       : af_IShellFavoritesNameSpace_Get_SubscriptionsEnabled;
         CreateSubscriptionForSelection : af_IShellFavoritesNameSpace_CreateSubscriptionForSelection;
         DeleteSubscriptionForSelection : af_IShellFavoritesNameSpace_DeleteSubscriptionForSelection;
         SetRoot                        : af_IShellFavoritesNameSpace_SetRoot;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellFavoritesNameSpaceVtbl);
   
   function To_Pointer_To_IShellFavoritesNameSpace is
     new Ada.Unchecked_Conversion
     (GNATCOM.Types.Pointer_To_Void, Pointer_To_IShellFavoritesNameSpace);
   
   

   --  Element Index         : 32
   --  Element Name          : IShellFavoritesNameSpace
   --  Element Documentation : IShellFavoritesNameSpace Interface
   --  Element Type          : Dispatch
   
   IShellFavoritesNameSpace_MoveSelectionUp                : constant := 1;
   IShellFavoritesNameSpace_MoveSelectionDown              : constant := 2;
   IShellFavoritesNameSpace_ResetSort                      : constant := 3;
   IShellFavoritesNameSpace_NewFolder                      : constant := 4;
   IShellFavoritesNameSpace_Synchronize                    : constant := 5;
   IShellFavoritesNameSpace_Import                         : constant := 6;
   IShellFavoritesNameSpace_Export                         : constant := 7;
   IShellFavoritesNameSpace_InvokeContextMenuCommand       : constant := 8;
   IShellFavoritesNameSpace_MoveSelectionTo                : constant := 9;
   IShellFavoritesNameSpace_Get_SubscriptionsEnabled       : constant := 10;
   IShellFavoritesNameSpace_CreateSubscriptionForSelection : constant := 11;
   IShellFavoritesNameSpace_DeleteSubscriptionForSelection : constant := 12;
   IShellFavoritesNameSpace_SetRoot                        : constant := 13;
   
   

   --  Element Index         : 33
   --  Element Name          : IShellNameSpace
   --  Element Documentation : IShellNameSpace Interface
   --  Element Type          : Dispatch
   
   IID_IShellNameSpace : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{E572D3C9-37BE-4AE2-825D-D521763E3108}");
   
   type af_IShellNameSpace_QueryInterface is access
     function (This   : access IShellNameSpace;
               riid   : GNATCOM.Types.Pointer_To_GUID;
               ppvObj : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellNameSpace_QueryInterface);
   
   type af_IShellNameSpace_AddRef is access
     function (This : access IShellNameSpace)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellNameSpace_AddRef);
   
   type af_IShellNameSpace_Release is access
     function (This : access IShellNameSpace)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IShellNameSpace_Release);
   
   type af_IShellNameSpace_GetTypeInfoCount is access
     function (This    : access IShellNameSpace;
               pctinfo : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellNameSpace_GetTypeInfoCount);
   
   type af_IShellNameSpace_GetTypeInfo is access
     function (This    : access IShellNameSpace;
               itinfo  : Interfaces.C.unsigned;
               lcid    : Interfaces.C.unsigned_long;
               pptinfo : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellNameSpace_GetTypeInfo);
   
   type af_IShellNameSpace_GetIDsOfNames is access
     function (This      : access IShellNameSpace;
               riid      : GNATCOM.Types.Pointer_To_GUID;
               rgszNames : GNATCOM.Types.Pointer_To_Pointer_To_char;
               cNames    : Interfaces.C.unsigned;
               lcid      : Interfaces.C.unsigned_long;
               rgdispid  : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellNameSpace_GetIDsOfNames);
   
   type af_IShellNameSpace_Invoke is access
     function (This         : access IShellNameSpace;
               dispidMember : Interfaces.C.long;
               riid         : GNATCOM.Types.Pointer_To_GUID;
               lcid         : Interfaces.C.unsigned_long;
               wFlags       : Interfaces.C.unsigned_short;
               pdispparams  : GNATCOM.Types.Pointer_To_DISPPARAMS;
               pvarResult   : access GNATCOM.Types.VARIANT;
               pexcepinfo   : GNATCOM.Types.Pointer_To_EXCEPINFO;
               puArgErr     : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellNameSpace_Invoke);
   
   type af_IShellNameSpace_MoveSelectionUp is access
     function (This : access IShellNameSpace)
     return GNATCOM.Types.HRESULT;
   --  method MoveSelectionUp
   pragma Convention (StdCall, af_IShellNameSpace_MoveSelectionUp);
   
   type af_IShellNameSpace_MoveSelectionDown is access
     function (This : access IShellNameSpace)
     return GNATCOM.Types.HRESULT;
   --  method MoveSelectionDown
   pragma Convention (StdCall, af_IShellNameSpace_MoveSelectionDown);
   
   type af_IShellNameSpace_ResetSort is access
     function (This : access IShellNameSpace)
     return GNATCOM.Types.HRESULT;
   --  method ResetSort
   pragma Convention (StdCall, af_IShellNameSpace_ResetSort);
   
   type af_IShellNameSpace_NewFolder is access
     function (This : access IShellNameSpace)
     return GNATCOM.Types.HRESULT;
   --  method NewFolder
   pragma Convention (StdCall, af_IShellNameSpace_NewFolder);
   
   type af_IShellNameSpace_Synchronize is access
     function (This : access IShellNameSpace)
     return GNATCOM.Types.HRESULT;
   --  method Synchronize
   pragma Convention (StdCall, af_IShellNameSpace_Synchronize);
   
   type af_IShellNameSpace_Import is access
     function (This : access IShellNameSpace)
     return GNATCOM.Types.HRESULT;
   --  method Import
   pragma Convention (StdCall, af_IShellNameSpace_Import);
   
   type af_IShellNameSpace_Export is access
     function (This : access IShellNameSpace)
     return GNATCOM.Types.HRESULT;
   --  method Export
   pragma Convention (StdCall, af_IShellNameSpace_Export);
   
   type af_IShellNameSpace_InvokeContextMenuCommand is access
     function (This       : access IShellNameSpace;
               strCommand : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   --  method InvokeContextMenuCommand
   pragma Convention (StdCall, af_IShellNameSpace_InvokeContextMenuCommand);
   
   type af_IShellNameSpace_MoveSelectionTo is access
     function (This : access IShellNameSpace)
     return GNATCOM.Types.HRESULT;
   --  method MoveSelectionTo
   pragma Convention (StdCall, af_IShellNameSpace_MoveSelectionTo);
   
   type af_IShellNameSpace_Get_SubscriptionsEnabled is access
     function (This  : access IShellNameSpace;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  Query to see if subscriptions are enabled
   pragma Convention (StdCall, af_IShellNameSpace_Get_SubscriptionsEnabled);
   
   type af_IShellNameSpace_CreateSubscriptionForSelection is access
     function (This  : access IShellNameSpace;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  method CreateSubscriptionForSelection
   pragma Convention (StdCall, af_IShellNameSpace_CreateSubscriptionForSelection);
   
   type af_IShellNameSpace_DeleteSubscriptionForSelection is access
     function (This  : access IShellNameSpace;
               RetVal : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
     return GNATCOM.Types.HRESULT;
   --  method DeleteSubscriptionForSelection
   pragma Convention (StdCall, af_IShellNameSpace_DeleteSubscriptionForSelection);
   
   type af_IShellNameSpace_SetRoot is access
     function (This         : access IShellNameSpace;
               bstrFullPath : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   --  old, use put_Root() instead
   pragma Convention (StdCall, af_IShellNameSpace_SetRoot);
   
   type af_IShellNameSpace_Get_EnumOptions is access
     function (This          : access IShellNameSpace;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   --  options 
   pragma Convention (StdCall, af_IShellNameSpace_Get_EnumOptions);
   
   type af_IShellNameSpace_Put_EnumOptions is access
     function (This          : access IShellNameSpace;
               pgrfEnumFlags : Interfaces.C.long)
     return GNATCOM.Types.HRESULT;
   --  options 
   pragma Convention (StdCall, af_IShellNameSpace_Put_EnumOptions);
   
   type af_IShellNameSpace_Get_SelectedItem is access
     function (This  : access IShellNameSpace;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  get the selected item
   pragma Convention (StdCall, af_IShellNameSpace_Get_SelectedItem);
   
   type af_IShellNameSpace_Put_SelectedItem is access
     function (This  : access IShellNameSpace;
               pItem : GNATCOM.Types.Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  get the selected item
   pragma Convention (StdCall, af_IShellNameSpace_Put_SelectedItem);
   
   type af_IShellNameSpace_Get_Root is access
     function (This : access IShellNameSpace;
               RetVal : access GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   --  get the root item
   pragma Convention (StdCall, af_IShellNameSpace_Get_Root);
   
   type af_IShellNameSpace_Put_Root is access
     function (This : access IShellNameSpace;
               pvar : GNATCOM.Types.VARIANT)
     return GNATCOM.Types.HRESULT;
   --  get the root item
   pragma Convention (StdCall, af_IShellNameSpace_Put_Root);
   
   type af_IShellNameSpace_Get_Depth is access
     function (This    : access IShellNameSpace;
               RetVal : GNATCOM.Types.Pointer_To_int)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellNameSpace_Get_Depth);
   
   type af_IShellNameSpace_Put_Depth is access
     function (This    : access IShellNameSpace;
               piDepth : Interfaces.C.int)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellNameSpace_Put_Depth);
   
   type af_IShellNameSpace_Get_Mode is access
     function (This   : access IShellNameSpace;
               RetVal : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellNameSpace_Get_Mode);
   
   type af_IShellNameSpace_Put_Mode is access
     function (This   : access IShellNameSpace;
               puMode : Interfaces.C.unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellNameSpace_Put_Mode);
   
   type af_IShellNameSpace_Get_Flags is access
     function (This     : access IShellNameSpace;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellNameSpace_Get_Flags);
   
   type af_IShellNameSpace_Put_Flags is access
     function (This     : access IShellNameSpace;
               pdwFlags : Interfaces.C.unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellNameSpace_Put_Flags);
   
   type af_IShellNameSpace_Put_TVFlags is access
     function (This    : access IShellNameSpace;
               dwFlags : Interfaces.C.unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellNameSpace_Put_TVFlags);
   
   type af_IShellNameSpace_Get_TVFlags is access
     function (This    : access IShellNameSpace;
               RetVal : GNATCOM.Types.Pointer_To_unsigned_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellNameSpace_Get_TVFlags);
   
   type af_IShellNameSpace_Get_Columns is access
     function (This        : access IShellNameSpace;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellNameSpace_Get_Columns);
   
   type af_IShellNameSpace_Put_Columns is access
     function (This        : access IShellNameSpace;
               bstrColumns : GNATCOM.Types.BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IShellNameSpace_Put_Columns);
   
   type af_IShellNameSpace_Get_CountViewTypes is access
     function (This    : access IShellNameSpace;
               RetVal : GNATCOM.Types.Pointer_To_int)
     return GNATCOM.Types.HRESULT;
   --  number of view types
   pragma Convention (StdCall, af_IShellNameSpace_Get_CountViewTypes);
   
   type af_IShellNameSpace_SetViewType is access
     function (This  : access IShellNameSpace;
               iType : Interfaces.C.int)
     return GNATCOM.Types.HRESULT;
   --  set view type
   pragma Convention (StdCall, af_IShellNameSpace_SetViewType);
   
   type af_IShellNameSpace_SelectedItems is access
     function (This : access IShellNameSpace;
               RetVal : GNATCOM.Types.Pointer_To_Pointer_To_IDispatch)
     return GNATCOM.Types.HRESULT;
   --  collection of selected items
   pragma Convention (StdCall, af_IShellNameSpace_SelectedItems);
   
   type af_IShellNameSpace_Expand is access
     function (This   : access IShellNameSpace;
               var    : GNATCOM.Types.VARIANT;
               iDepth : Interfaces.C.int)
     return GNATCOM.Types.HRESULT;
   --  expands item specified depth
   pragma Convention (StdCall, af_IShellNameSpace_Expand);
   
   type af_IShellNameSpace_UnselectAll is access
     function (This : access IShellNameSpace)
     return GNATCOM.Types.HRESULT;
   --  unselects all items
   pragma Convention (StdCall, af_IShellNameSpace_UnselectAll);
   
   type IShellNameSpaceVtbl;
   type Pointer_To_IShellNameSpaceVtbl is access all IShellNameSpaceVtbl;
   
   type IShellNameSpace is
      record
         Vtbl : Pointer_To_IShellNameSpaceVtbl;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellNameSpace);
   
   type IShellNameSpaceVtbl is
      record
         QueryInterface                 : af_IShellNameSpace_QueryInterface;
         AddRef                         : af_IShellNameSpace_AddRef;
         Release                        : af_IShellNameSpace_Release;
         GetTypeInfoCount               : af_IShellNameSpace_GetTypeInfoCount;
         GetTypeInfo                    : af_IShellNameSpace_GetTypeInfo;
         GetIDsOfNames                  : af_IShellNameSpace_GetIDsOfNames;
         Invoke                         : af_IShellNameSpace_Invoke;
         MoveSelectionUp                : af_IShellNameSpace_MoveSelectionUp;
         MoveSelectionDown              : af_IShellNameSpace_MoveSelectionDown;
         ResetSort                      : af_IShellNameSpace_ResetSort;
         NewFolder                      : af_IShellNameSpace_NewFolder;
         Synchronize                    : af_IShellNameSpace_Synchronize;
         Import                         : af_IShellNameSpace_Import;
         Export                         : af_IShellNameSpace_Export;
         InvokeContextMenuCommand       : af_IShellNameSpace_InvokeContextMenuCommand;
         MoveSelectionTo                : af_IShellNameSpace_MoveSelectionTo;
         Get_SubscriptionsEnabled       : af_IShellNameSpace_Get_SubscriptionsEnabled;
         CreateSubscriptionForSelection : af_IShellNameSpace_CreateSubscriptionForSelection;
         DeleteSubscriptionForSelection : af_IShellNameSpace_DeleteSubscriptionForSelection;
         SetRoot                        : af_IShellNameSpace_SetRoot;
         Get_EnumOptions                : af_IShellNameSpace_Get_EnumOptions;
         Put_EnumOptions                : af_IShellNameSpace_Put_EnumOptions;
         Get_SelectedItem               : af_IShellNameSpace_Get_SelectedItem;
         Put_SelectedItem               : af_IShellNameSpace_Put_SelectedItem;
         Get_Root                       : af_IShellNameSpace_Get_Root;
         Put_Root                       : af_IShellNameSpace_Put_Root;
         Get_Depth                      : af_IShellNameSpace_Get_Depth;
         Put_Depth                      : af_IShellNameSpace_Put_Depth;
         Get_Mode                       : af_IShellNameSpace_Get_Mode;
         Put_Mode                       : af_IShellNameSpace_Put_Mode;
         Get_Flags                      : af_IShellNameSpace_Get_Flags;
         Put_Flags                      : af_IShellNameSpace_Put_Flags;
         Put_TVFlags                    : af_IShellNameSpace_Put_TVFlags;
         Get_TVFlags                    : af_IShellNameSpace_Get_TVFlags;
         Get_Columns                    : af_IShellNameSpace_Get_Columns;
         Put_Columns                    : af_IShellNameSpace_Put_Columns;
         Get_CountViewTypes             : af_IShellNameSpace_Get_CountViewTypes;
         SetViewType                    : af_IShellNameSpace_SetViewType;
         SelectedItems                  : af_IShellNameSpace_SelectedItems;
         Expand                         : af_IShellNameSpace_Expand;
         UnselectAll                    : af_IShellNameSpace_UnselectAll;
      end record;
   pragma Convention (C_Pass_By_Copy, IShellNameSpaceVtbl);
   
   function To_Pointer_To_IShellNameSpace is
     new Ada.Unchecked_Conversion
     (GNATCOM.Types.Pointer_To_Void, Pointer_To_IShellNameSpace);
   
   

   --  Element Index         : 33
   --  Element Name          : IShellNameSpace
   --  Element Documentation : IShellNameSpace Interface
   --  Element Type          : Dispatch
   
   IShellNameSpace_MoveSelectionUp                : constant := 1;
   IShellNameSpace_MoveSelectionDown              : constant := 2;
   IShellNameSpace_ResetSort                      : constant := 3;
   IShellNameSpace_NewFolder                      : constant := 4;
   IShellNameSpace_Synchronize                    : constant := 5;
   IShellNameSpace_Import                         : constant := 6;
   IShellNameSpace_Export                         : constant := 7;
   IShellNameSpace_InvokeContextMenuCommand       : constant := 8;
   IShellNameSpace_MoveSelectionTo                : constant := 9;
   IShellNameSpace_Get_SubscriptionsEnabled       : constant := 10;
   IShellNameSpace_CreateSubscriptionForSelection : constant := 11;
   IShellNameSpace_DeleteSubscriptionForSelection : constant := 12;
   IShellNameSpace_SetRoot                        : constant := 13;
   IShellNameSpace_Get_EnumOptions                : constant := 14;
   IShellNameSpace_Put_EnumOptions                : constant := 14;
   IShellNameSpace_Get_SelectedItem               : constant := 15;
   IShellNameSpace_Put_SelectedItem               : constant := 15;
   IShellNameSpace_Get_Root                       : constant := 16;
   IShellNameSpace_Put_Root                       : constant := 16;
   IShellNameSpace_Get_Depth                      : constant := 17;
   IShellNameSpace_Put_Depth                      : constant := 17;
   IShellNameSpace_Get_Mode                       : constant := 18;
   IShellNameSpace_Put_Mode                       : constant := 18;
   IShellNameSpace_Get_Flags                      : constant := 19;
   IShellNameSpace_Put_Flags                      : constant := 19;
   IShellNameSpace_Put_TVFlags                    : constant := 20;
   IShellNameSpace_Get_TVFlags                    : constant := 20;
   IShellNameSpace_Get_Columns                    : constant := 21;
   IShellNameSpace_Put_Columns                    : constant := 21;
   IShellNameSpace_Get_CountViewTypes             : constant := 22;
   IShellNameSpace_SetViewType                    : constant := 23;
   IShellNameSpace_SelectedItems                  : constant := 24;
   IShellNameSpace_Expand                         : constant := 25;
   IShellNameSpace_UnselectAll                    : constant := 26;
   
   
   --  Element Index         : 34
   --  Element Name          : ShellNameSpace
   --  Element Type          : CoClass

   CLSID_ShellNameSpace : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{55136805-B2DE-11D1-B9F2-00A0C98BC547}");


   --  Element Index         : 35
   --  Element Name          : IScriptErrorList
   --  Element Documentation : Script Error List Interface
   --  Element Type          : Dispatch
   
   IID_IScriptErrorList : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}");
   
   type af_IScriptErrorList_QueryInterface is access
     function (This   : access IScriptErrorList;
               riid   : GNATCOM.Types.Pointer_To_GUID;
               ppvObj : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_QueryInterface);
   
   type af_IScriptErrorList_AddRef is access
     function (This : access IScriptErrorList)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IScriptErrorList_AddRef);
   
   type af_IScriptErrorList_Release is access
     function (This : access IScriptErrorList)
     return Interfaces.C.unsigned_long;
   pragma Convention (StdCall, af_IScriptErrorList_Release);
   
   type af_IScriptErrorList_GetTypeInfoCount is access
     function (This    : access IScriptErrorList;
               pctinfo : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_GetTypeInfoCount);
   
   type af_IScriptErrorList_GetTypeInfo is access
     function (This    : access IScriptErrorList;
               itinfo  : Interfaces.C.unsigned;
               lcid    : Interfaces.C.unsigned_long;
               pptinfo : GNATCOM.Types.Pointer_To_Pointer_To_Void)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_GetTypeInfo);
   
   type af_IScriptErrorList_GetIDsOfNames is access
     function (This      : access IScriptErrorList;
               riid      : GNATCOM.Types.Pointer_To_GUID;
               rgszNames : GNATCOM.Types.Pointer_To_Pointer_To_char;
               cNames    : Interfaces.C.unsigned;
               lcid      : Interfaces.C.unsigned_long;
               rgdispid  : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_GetIDsOfNames);
   
   type af_IScriptErrorList_Invoke is access
     function (This         : access IScriptErrorList;
               dispidMember : Interfaces.C.long;
               riid         : GNATCOM.Types.Pointer_To_GUID;
               lcid         : Interfaces.C.unsigned_long;
               wFlags       : Interfaces.C.unsigned_short;
               pdispparams  : GNATCOM.Types.Pointer_To_DISPPARAMS;
               pvarResult   : access GNATCOM.Types.VARIANT;
               pexcepinfo   : GNATCOM.Types.Pointer_To_EXCEPINFO;
               puArgErr     : GNATCOM.Types.Pointer_To_unsigned)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_Invoke);
   
   type af_IScriptErrorList_advanceError is access
     function (This : access IScriptErrorList)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_advanceError);
   
   type af_IScriptErrorList_retreatError is access
     function (This : access IScriptErrorList)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_retreatError);
   
   type af_IScriptErrorList_canAdvanceError is access
     function (This         : access IScriptErrorList;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_canAdvanceError);
   
   type af_IScriptErrorList_canRetreatError is access
     function (This         : access IScriptErrorList;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_canRetreatError);
   
   type af_IScriptErrorList_getErrorLine is access
     function (This   : access IScriptErrorList;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_getErrorLine);
   
   type af_IScriptErrorList_getErrorChar is access
     function (This   : access IScriptErrorList;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_getErrorChar);
   
   type af_IScriptErrorList_getErrorCode is access
     function (This   : access IScriptErrorList;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_getErrorCode);
   
   type af_IScriptErrorList_getErrorMsg is access
     function (This : access IScriptErrorList;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_getErrorMsg);
   
   type af_IScriptErrorList_getErrorUrl is access
     function (This : access IScriptErrorList;
               RetVal : GNATCOM.Types.Pointer_To_BSTR)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_getErrorUrl);
   
   type af_IScriptErrorList_getAlwaysShowLockState is access
     function (This               : access IScriptErrorList;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_getAlwaysShowLockState);
   
   type af_IScriptErrorList_getDetailsPaneOpen is access
     function (This              : access IScriptErrorList;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_getDetailsPaneOpen);
   
   type af_IScriptErrorList_setDetailsPaneOpen is access
     function (This             : access IScriptErrorList;
               fDetailsPaneOpen : Interfaces.C.long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_setDetailsPaneOpen);
   
   type af_IScriptErrorList_getPerErrorDisplay is access
     function (This              : access IScriptErrorList;
               RetVal : GNATCOM.Types.Pointer_To_long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_getPerErrorDisplay);
   
   type af_IScriptErrorList_setPerErrorDisplay is access
     function (This             : access IScriptErrorList;
               fPerErrorDisplay : Interfaces.C.long)
     return GNATCOM.Types.HRESULT;
   pragma Convention (StdCall, af_IScriptErrorList_setPerErrorDisplay);
   
   type IScriptErrorListVtbl;
   type Pointer_To_IScriptErrorListVtbl is access all IScriptErrorListVtbl;
   
   type IScriptErrorList is
      record
         Vtbl : Pointer_To_IScriptErrorListVtbl;
      end record;
   pragma Convention (C_Pass_By_Copy, IScriptErrorList);
   
   type IScriptErrorListVtbl is
      record
         QueryInterface         : af_IScriptErrorList_QueryInterface;
         AddRef                 : af_IScriptErrorList_AddRef;
         Release                : af_IScriptErrorList_Release;
         GetTypeInfoCount       : af_IScriptErrorList_GetTypeInfoCount;
         GetTypeInfo            : af_IScriptErrorList_GetTypeInfo;
         GetIDsOfNames          : af_IScriptErrorList_GetIDsOfNames;
         Invoke                 : af_IScriptErrorList_Invoke;
         advanceError           : af_IScriptErrorList_advanceError;
         retreatError           : af_IScriptErrorList_retreatError;
         canAdvanceError        : af_IScriptErrorList_canAdvanceError;
         canRetreatError        : af_IScriptErrorList_canRetreatError;
         getErrorLine           : af_IScriptErrorList_getErrorLine;
         getErrorChar           : af_IScriptErrorList_getErrorChar;
         getErrorCode           : af_IScriptErrorList_getErrorCode;
         getErrorMsg            : af_IScriptErrorList_getErrorMsg;
         getErrorUrl            : af_IScriptErrorList_getErrorUrl;
         getAlwaysShowLockState : af_IScriptErrorList_getAlwaysShowLockState;
         getDetailsPaneOpen     : af_IScriptErrorList_getDetailsPaneOpen;
         setDetailsPaneOpen     : af_IScriptErrorList_setDetailsPaneOpen;
         getPerErrorDisplay     : af_IScriptErrorList_getPerErrorDisplay;
         setPerErrorDisplay     : af_IScriptErrorList_setPerErrorDisplay;
      end record;
   pragma Convention (C_Pass_By_Copy, IScriptErrorListVtbl);
   
   function To_Pointer_To_IScriptErrorList is
     new Ada.Unchecked_Conversion
     (GNATCOM.Types.Pointer_To_Void, Pointer_To_IScriptErrorList);
   
   

   --  Element Index         : 35
   --  Element Name          : IScriptErrorList
   --  Element Documentation : Script Error List Interface
   --  Element Type          : Dispatch
   
   IScriptErrorList_advanceError           : constant := 10;
   IScriptErrorList_retreatError           : constant := 11;
   IScriptErrorList_canAdvanceError        : constant := 12;
   IScriptErrorList_canRetreatError        : constant := 13;
   IScriptErrorList_getErrorLine           : constant := 14;
   IScriptErrorList_getErrorChar           : constant := 15;
   IScriptErrorList_getErrorCode           : constant := 16;
   IScriptErrorList_getErrorMsg            : constant := 17;
   IScriptErrorList_getErrorUrl            : constant := 18;
   IScriptErrorList_getAlwaysShowLockState : constant := 23;
   IScriptErrorList_getDetailsPaneOpen     : constant := 19;
   IScriptErrorList_setDetailsPaneOpen     : constant := 20;
   IScriptErrorList_getPerErrorDisplay     : constant := 21;
   IScriptErrorList_setPerErrorDisplay     : constant := 22;
   
   
   --  Element Index         : 36
   --  Element Name          : CScriptErrorList
   --  Element Type          : CoClass

   CLSID_CScriptErrorList : aliased GNATCOM.Types.GUID :=
     GNATCOM.GUID.To_GUID ("{EFD01300-160F-11D2-BB2E-00805FF7EFCA}");


end SHDocVw;
