home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / shdocvw.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  80KB  |  1,702 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'SHDocVw.pas' rev: 5.00
  6.  
  7. #ifndef SHDocVwHPP
  8. #define SHDocVwHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Menus.hpp>    // Pascal unit
  14. #include <Controls.hpp>    // Pascal unit
  15. #include <StdVCL.hpp>    // Pascal unit
  16. #include <OleCtrls.hpp>    // Pascal unit
  17. #include <OleServer.hpp>    // Pascal unit
  18. #include <Graphics.hpp>    // Pascal unit
  19. #include <Classes.hpp>    // Pascal unit
  20. #include <ActiveX.hpp>    // Pascal unit
  21. #include <Windows.hpp>    // Pascal unit
  22. #include <SysInit.hpp>    // Pascal unit
  23. #include <System.hpp>    // Pascal unit
  24.  
  25. //-- user supplied -----------------------------------------------------------
  26.  
  27. namespace Shdocvw
  28. {
  29. //-- type declarations -------------------------------------------------------
  30. typedef Activex::TOleEnum CommandStateChangeConstants;
  31.  
  32. typedef Activex::TOleEnum OLECMDID;
  33.  
  34. typedef Activex::TOleEnum OLECMDF;
  35.  
  36. typedef Activex::TOleEnum OLECMDEXECOPT;
  37.  
  38. typedef Activex::TOleEnum tagREADYSTATE;
  39.  
  40. typedef Activex::TOleEnum ShellWindowTypeConstants;
  41.  
  42. typedef Activex::TOleEnum ShellWindowFindWindowOptions;
  43.  
  44. typedef Activex::TOleEnum RefreshConstants;
  45.  
  46. typedef Activex::TOleEnum BrowserNavConstants;
  47.  
  48. __interface IWebBrowser;
  49. typedef System::DelphiInterface<IWebBrowser> _di_IWebBrowser;
  50. __interface INTERFACE_UUID("{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}") IWebBrowser  : public IDispatch 
  51.     
  52. {
  53.     
  54. public:
  55.     virtual HRESULT __safecall GoBack(void) = 0 ;
  56.     virtual HRESULT __safecall GoForward(void) = 0 ;
  57.     virtual HRESULT __safecall GoHome(void) = 0 ;
  58.     virtual HRESULT __safecall GoSearch(void) = 0 ;
  59.     virtual HRESULT __safecall Navigate(const WideString URL, OleVariant &Flags, OleVariant &TargetFrameName
  60.         , OleVariant &PostData, OleVariant &Headers) = 0 ;
  61.     virtual HRESULT __safecall Refresh(void) = 0 ;
  62.     virtual HRESULT __safecall Refresh2(OleVariant &Level) = 0 ;
  63.     virtual HRESULT __safecall Stop(void) = 0 ;
  64.     virtual HRESULT __safecall Get_Application(_di_IDispatch &Get_Application_result) = 0 ;
  65.     virtual HRESULT __safecall Get_Parent(_di_IDispatch &Get_Parent_result) = 0 ;
  66.     virtual HRESULT __safecall Get_Container(_di_IDispatch &Get_Container_result) = 0 ;
  67.     virtual HRESULT __safecall Get_Document(_di_IDispatch &Get_Document_result) = 0 ;
  68.     virtual HRESULT __safecall Get_TopLevelContainer(Word &Get_TopLevelContainer_result) = 0 ;
  69.     virtual HRESULT __safecall Get_Type_(WideString &Get_Type__result) = 0 ;
  70.     virtual HRESULT __safecall Get_Left(int &Get_Left_result) = 0 ;
  71.     virtual HRESULT __safecall Set_Left(int pl) = 0 ;
  72.     virtual HRESULT __safecall Get_Top(int &Get_Top_result) = 0 ;
  73.     virtual HRESULT __safecall Set_Top(int pl) = 0 ;
  74.     virtual HRESULT __safecall Get_Width(int &Get_Width_result) = 0 ;
  75.     virtual HRESULT __safecall Set_Width(int pl) = 0 ;
  76.     virtual HRESULT __safecall Get_Height(int &Get_Height_result) = 0 ;
  77.     virtual HRESULT __safecall Set_Height(int pl) = 0 ;
  78.     virtual HRESULT __safecall Get_LocationName(WideString &Get_LocationName_result) = 0 ;
  79.     virtual HRESULT __safecall Get_LocationURL(WideString &Get_LocationURL_result) = 0 ;
  80.     virtual HRESULT __safecall Get_Busy(Word &Get_Busy_result) = 0 ;
  81.     #pragma option push -w-inl
  82.     /* safecall wrapper */ inline _di_IDispatch _scw_Get_Application() { _di_IDispatch r; HRESULT hr = Get_Application(
  83.         r); System::CheckSafecallResult(hr); return r; }
  84.     #pragma option pop
  85.     __property _di_IDispatch Application = {read=_scw_Get_Application};
  86.     #pragma option push -w-inl
  87.     /* safecall wrapper */ inline _di_IDispatch _scw_Get_Parent() { _di_IDispatch r; HRESULT hr = Get_Parent(
  88.         r); System::CheckSafecallResult(hr); return r; }
  89.     #pragma option pop
  90.     __property _di_IDispatch Parent = {read=_scw_Get_Parent};
  91.     #pragma option push -w-inl
  92.     /* safecall wrapper */ inline _di_IDispatch _scw_Get_Container() { _di_IDispatch r; HRESULT hr = Get_Container(
  93.         r); System::CheckSafecallResult(hr); return r; }
  94.     #pragma option pop
  95.     __property _di_IDispatch Container = {read=_scw_Get_Container};
  96.     #pragma option push -w-inl
  97.     /* safecall wrapper */ inline _di_IDispatch _scw_Get_Document() { _di_IDispatch r; HRESULT hr = Get_Document(
  98.         r); System::CheckSafecallResult(hr); return r; }
  99.     #pragma option pop
  100.     __property _di_IDispatch Document = {read=_scw_Get_Document};
  101.     #pragma option push -w-inl
  102.     /* safecall wrapper */ inline Word _scw_Get_TopLevelContainer() { Word r; HRESULT hr = Get_TopLevelContainer(
  103.         r); System::CheckSafecallResult(hr); return r; }
  104.     #pragma option pop
  105.     __property Word TopLevelContainer = {read=_scw_Get_TopLevelContainer};
  106.     #pragma option push -w-inl
  107.     /* safecall wrapper */ inline WideString _scw_Get_Type_() { WideString r; HRESULT hr = Get_Type_(r); System::CheckSafecallResult(hr); return r; }
  108.         
  109.     #pragma option pop
  110.     __property WideString Type_ = {read=_scw_Get_Type_};
  111.     #pragma option push -w-inl
  112.     /* safecall wrapper */ inline int _scw_Get_Left() { int r; HRESULT hr = Get_Left(r); System::CheckSafecallResult(hr); return r; }
  113.         
  114.     #pragma option pop
  115.     __property int Left = {read=_scw_Get_Left, write=Set_Left};
  116.     #pragma option push -w-inl
  117.     /* safecall wrapper */ inline int _scw_Get_Top() { int r; HRESULT hr = Get_Top(r); System::CheckSafecallResult(hr); return r; }
  118.         
  119.     #pragma option pop
  120.     __property int Top = {read=_scw_Get_Top, write=Set_Top};
  121.     #pragma option push -w-inl
  122.     /* safecall wrapper */ inline int _scw_Get_Width() { int r; HRESULT hr = Get_Width(r); System::CheckSafecallResult(hr); return r; }
  123.         
  124.     #pragma option pop
  125.     __property int Width = {read=_scw_Get_Width, write=Set_Width};
  126.     #pragma option push -w-inl
  127.     /* safecall wrapper */ inline int _scw_Get_Height() { int r; HRESULT hr = Get_Height(r); System::CheckSafecallResult(hr); return r; }
  128.         
  129.     #pragma option pop
  130.     __property int Height = {read=_scw_Get_Height, write=Set_Height};
  131.     #pragma option push -w-inl
  132.     /* safecall wrapper */ inline WideString _scw_Get_LocationName() { WideString r; HRESULT hr = Get_LocationName(
  133.         r); System::CheckSafecallResult(hr); return r; }
  134.     #pragma option pop
  135.     __property WideString LocationName = {read=_scw_Get_LocationName};
  136.     #pragma option push -w-inl
  137.     /* safecall wrapper */ inline WideString _scw_Get_LocationURL() { WideString r; HRESULT hr = Get_LocationURL(
  138.         r); System::CheckSafecallResult(hr); return r; }
  139.     #pragma option pop
  140.     __property WideString LocationURL = {read=_scw_Get_LocationURL};
  141.     #pragma option push -w-inl
  142.     /* safecall wrapper */ inline Word _scw_Get_Busy() { Word r; HRESULT hr = Get_Busy(r); System::CheckSafecallResult(hr); return r; }
  143.         
  144.     #pragma option pop
  145.     __property Word Busy = {read=_scw_Get_Busy};
  146. };
  147. typedef IWebBrowser WebBrowser_V1;
  148.  
  149. __interface IWebBrowser2;
  150. typedef System::DelphiInterface<IWebBrowser2> _di_IWebBrowser2;
  151. __interface IWebBrowserApp;
  152. typedef System::DelphiInterface<IWebBrowserApp> _di_IWebBrowserApp;
  153. __interface INTERFACE_UUID("{0002DF05-0000-0000-C000-000000000046}") IWebBrowserApp  : public IWebBrowser 
  154.     
  155. {
  156.     
  157. public:
  158.     virtual HRESULT __safecall Quit(void) = 0 ;
  159.     virtual HRESULT __safecall ClientToWindow(int &pcx, int &pcy) = 0 ;
  160.     virtual HRESULT __safecall PutProperty(const WideString Property_, const OleVariant vtValue) = 0 ;
  161.     virtual HRESULT __safecall GetProperty(const WideString Property_, OleVariant &GetProperty_result) = 0 
  162.         ;
  163.     virtual HRESULT __safecall Get_Name(WideString &Get_Name_result) = 0 ;
  164.     virtual HRESULT __safecall Get_HWND(int &Get_HWND_result) = 0 ;
  165.     virtual HRESULT __safecall Get_FullName(WideString &Get_FullName_result) = 0 ;
  166.     virtual HRESULT __safecall Get_Path(WideString &Get_Path_result) = 0 ;
  167.     virtual HRESULT __safecall Get_Visible(Word &Get_Visible_result) = 0 ;
  168.     virtual HRESULT __safecall Set_Visible(Word pBool) = 0 ;
  169.     virtual HRESULT __safecall Get_StatusBar(Word &Get_StatusBar_result) = 0 ;
  170.     virtual HRESULT __safecall Set_StatusBar(Word pBool) = 0 ;
  171.     virtual HRESULT __safecall Get_StatusText(WideString &Get_StatusText_result) = 0 ;
  172.     virtual HRESULT __safecall Set_StatusText(const WideString StatusText) = 0 ;
  173.     virtual HRESULT __safecall Get_ToolBar(int &Get_ToolBar_result) = 0 ;
  174.     virtual HRESULT __safecall Set_ToolBar(int Value) = 0 ;
  175.     virtual HRESULT __safecall Get_MenuBar(Word &Get_MenuBar_result) = 0 ;
  176.     virtual HRESULT __safecall Set_MenuBar(Word Value) = 0 ;
  177.     virtual HRESULT __safecall Get_FullScreen(Word &Get_FullScreen_result) = 0 ;
  178.     virtual HRESULT __safecall Set_FullScreen(Word pbFullScreen) = 0 ;
  179.     #pragma option push -w-inl
  180.     /* safecall wrapper */ inline WideString _scw_Get_Name() { WideString r; HRESULT hr = Get_Name(r); System::CheckSafecallResult(hr); return r; }
  181.         
  182.     #pragma option pop
  183.     __property WideString Name = {read=_scw_Get_Name};
  184.     #pragma option push -w-inl
  185.     /* safecall wrapper */ inline int _scw_Get_HWND() { int r; HRESULT hr = Get_HWND(r); System::CheckSafecallResult(hr); return r; }
  186.         
  187.     #pragma option pop
  188.     __property int HWND = {read=_scw_Get_HWND};
  189.     #pragma option push -w-inl
  190.     /* safecall wrapper */ inline WideString _scw_Get_FullName() { WideString r; HRESULT hr = Get_FullName(
  191.         r); System::CheckSafecallResult(hr); return r; }
  192.     #pragma option pop
  193.     __property WideString FullName = {read=_scw_Get_FullName};
  194.     #pragma option push -w-inl
  195.     /* safecall wrapper */ inline WideString _scw_Get_Path() { WideString r; HRESULT hr = Get_Path(r); System::CheckSafecallResult(hr); return r; }
  196.         
  197.     #pragma option pop
  198.     __property WideString Path = {read=_scw_Get_Path};
  199.     #pragma option push -w-inl
  200.     /* safecall wrapper */ inline Word _scw_Get_Visible() { Word r; HRESULT hr = Get_Visible(r); System::CheckSafecallResult(hr); return r; }
  201.         
  202.     #pragma option pop
  203.     __property Word Visible = {read=_scw_Get_Visible, write=Set_Visible};
  204.     #pragma option push -w-inl
  205.     /* safecall wrapper */ inline Word _scw_Get_StatusBar() { Word r; HRESULT hr = Get_StatusBar(r); System::CheckSafecallResult(hr); return r; }
  206.         
  207.     #pragma option pop
  208.     __property Word StatusBar = {read=_scw_Get_StatusBar, write=Set_StatusBar};
  209.     #pragma option push -w-inl
  210.     /* safecall wrapper */ inline WideString _scw_Get_StatusText() { WideString r; HRESULT hr = Get_StatusText(
  211.         r); System::CheckSafecallResult(hr); return r; }
  212.     #pragma option pop
  213.     __property WideString StatusText = {read=_scw_Get_StatusText, write=Set_StatusText};
  214.     #pragma option push -w-inl
  215.     /* safecall wrapper */ inline int _scw_Get_ToolBar() { int r; HRESULT hr = Get_ToolBar(r); System::CheckSafecallResult(hr); return r; }
  216.         
  217.     #pragma option pop
  218.     __property int ToolBar = {read=_scw_Get_ToolBar, write=Set_ToolBar};
  219.     #pragma option push -w-inl
  220.     /* safecall wrapper */ inline Word _scw_Get_MenuBar() { Word r; HRESULT hr = Get_MenuBar(r); System::CheckSafecallResult(hr); return r; }
  221.         
  222.     #pragma option pop
  223.     __property Word MenuBar = {read=_scw_Get_MenuBar, write=Set_MenuBar};
  224.     #pragma option push -w-inl
  225.     /* safecall wrapper */ inline Word _scw_Get_FullScreen() { Word r; HRESULT hr = Get_FullScreen(r); System::CheckSafecallResult(hr); return r; }
  226.         
  227.     #pragma option pop
  228.     __property Word FullScreen = {read=_scw_Get_FullScreen, write=Set_FullScreen};
  229. };
  230.  
  231. __interface INTERFACE_UUID("{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}") IWebBrowser2  : public IWebBrowserApp 
  232.     
  233. {
  234.     
  235. public:
  236.     virtual HRESULT __safecall Navigate2(OleVariant &URL, OleVariant &Flags, OleVariant &TargetFrameName
  237.         , OleVariant &PostData, OleVariant &Headers) = 0 ;
  238.     virtual HRESULT __safecall QueryStatusWB(Activex::TOleEnum cmdID, Activex::TOleEnum &QueryStatusWB_result
  239.         ) = 0 ;
  240.     virtual HRESULT __safecall ExecWB(Activex::TOleEnum cmdID, Activex::TOleEnum cmdexecopt, OleVariant 
  241.         &pvaIn, OleVariant &pvaOut) = 0 ;
  242.     virtual HRESULT __safecall ShowBrowserBar(OleVariant &pvaClsid, OleVariant &pvarShow, OleVariant &pvarSize
  243.         ) = 0 ;
  244.     virtual HRESULT __safecall Get_ReadyState(Activex::TOleEnum &Get_ReadyState_result) = 0 ;
  245.     virtual HRESULT __safecall Get_Offline(Word &Get_Offline_result) = 0 ;
  246.     virtual HRESULT __safecall Set_Offline(Word pbOffline) = 0 ;
  247.     virtual HRESULT __safecall Get_Silent(Word &Get_Silent_result) = 0 ;
  248.     virtual HRESULT __safecall Set_Silent(Word pbSilent) = 0 ;
  249.     virtual HRESULT __safecall Get_RegisterAsBrowser(Word &Get_RegisterAsBrowser_result) = 0 ;
  250.     virtual HRESULT __safecall Set_RegisterAsBrowser(Word pbRegister) = 0 ;
  251.     virtual HRESULT __safecall Get_RegisterAsDropTarget(Word &Get_RegisterAsDropTarget_result) = 0 ;
  252.     virtual HRESULT __safecall Set_RegisterAsDropTarget(Word pbRegister) = 0 ;
  253.     virtual HRESULT __safecall Get_TheaterMode(Word &Get_TheaterMode_result) = 0 ;
  254.     virtual HRESULT __safecall Set_TheaterMode(Word pbRegister) = 0 ;
  255.     virtual HRESULT __safecall Get_AddressBar(Word &Get_AddressBar_result) = 0 ;
  256.     virtual HRESULT __safecall Set_AddressBar(Word Value) = 0 ;
  257.     virtual HRESULT __safecall Get_Resizable(Word &Get_Resizable_result) = 0 ;
  258.     virtual HRESULT __safecall Set_Resizable(Word Value) = 0 ;
  259.     #pragma option push -w-inl
  260.     /* safecall wrapper */ inline Activex::TOleEnum _scw_Get_ReadyState() { Activex::TOleEnum r; HRESULT hr = Get_ReadyState(
  261.         r); System::CheckSafecallResult(hr); return r; }
  262.     #pragma option pop
  263.     __property Activex::TOleEnum ReadyState = {read=_scw_Get_ReadyState};
  264.     #pragma option push -w-inl
  265.     /* safecall wrapper */ inline Word _scw_Get_Offline() { Word r; HRESULT hr = Get_Offline(r); System::CheckSafecallResult(hr); return r; }
  266.         
  267.     #pragma option pop
  268.     __property Word Offline = {read=_scw_Get_Offline, write=Set_Offline};
  269.     #pragma option push -w-inl
  270.     /* safecall wrapper */ inline Word _scw_Get_Silent() { Word r; HRESULT hr = Get_Silent(r); System::CheckSafecallResult(hr); return r; }
  271.         
  272.     #pragma option pop
  273.     __property Word Silent = {read=_scw_Get_Silent, write=Set_Silent};
  274.     #pragma option push -w-inl
  275.     /* safecall wrapper */ inline Word _scw_Get_RegisterAsBrowser() { Word r; HRESULT hr = Get_RegisterAsBrowser(
  276.         r); System::CheckSafecallResult(hr); return r; }
  277.     #pragma option pop
  278.     __property Word RegisterAsBrowser = {read=_scw_Get_RegisterAsBrowser, write=Set_RegisterAsBrowser};
  279.         
  280.     #pragma option push -w-inl
  281.     /* safecall wrapper */ inline Word _scw_Get_RegisterAsDropTarget() { Word r; HRESULT hr = Get_RegisterAsDropTarget(
  282.         r); System::CheckSafecallResult(hr); return r; }
  283.     #pragma option pop
  284.     __property Word RegisterAsDropTarget = {read=_scw_Get_RegisterAsDropTarget, write=Set_RegisterAsDropTarget
  285.         };
  286.     #pragma option push -w-inl
  287.     /* safecall wrapper */ inline Word _scw_Get_TheaterMode() { Word r; HRESULT hr = Get_TheaterMode(r); System::CheckSafecallResult(hr); return r; }
  288.         
  289.     #pragma option pop
  290.     __property Word TheaterMode = {read=_scw_Get_TheaterMode, write=Set_TheaterMode};
  291.     #pragma option push -w-inl
  292.     /* safecall wrapper */ inline Word _scw_Get_AddressBar() { Word r; HRESULT hr = Get_AddressBar(r); System::CheckSafecallResult(hr); return r; }
  293.         
  294.     #pragma option pop
  295.     __property Word AddressBar = {read=_scw_Get_AddressBar, write=Set_AddressBar};
  296.     #pragma option push -w-inl
  297.     /* safecall wrapper */ inline Word _scw_Get_Resizable() { Word r; HRESULT hr = Get_Resizable(r); System::CheckSafecallResult(hr); return r; }
  298.         
  299.     #pragma option pop
  300.     __property Word Resizable = {read=_scw_Get_Resizable, write=Set_Resizable};
  301. };
  302. typedef IWebBrowser2 WebBrowser;
  303.  
  304. typedef IWebBrowser2 InternetExplorer;
  305. ;
  306.  
  307. typedef IWebBrowser2 ShellBrowserWindow;
  308. ;
  309.  
  310. __interface IShellWindows;
  311. typedef System::DelphiInterface<IShellWindows> _di_IShellWindows;
  312. __interface INTERFACE_UUID("{85CB6900-4D95-11CF-960C-0080C7F4EE85}") IShellWindows  : public IDispatch 
  313.     
  314. {
  315.     
  316. public:
  317.     virtual HRESULT __safecall Get_Count(int &Get_Count_result) = 0 ;
  318.     virtual HRESULT __safecall Item(const OleVariant index, _di_IDispatch &Item_result) = 0 ;
  319.     virtual HRESULT __safecall _NewEnum(_di_IUnknown &_NewEnum_result) = 0 ;
  320.     virtual HRESULT __safecall Register(const _di_IDispatch pid, int HWND, int swClass, /* out */ int &
  321.         plCookie) = 0 ;
  322.     virtual HRESULT __safecall RegisterPending(int lThreadId, OleVariant &pvarloc, OleVariant &pvarlocRoot
  323.         , int swClass, /* out */ int &plCookie) = 0 ;
  324.     virtual HRESULT __safecall Revoke(int lCookie) = 0 ;
  325.     virtual HRESULT __safecall OnNavigate(int lCookie, OleVariant &pvarloc) = 0 ;
  326.     virtual HRESULT __safecall OnActivated(int lCookie, Word fActive) = 0 ;
  327.     virtual HRESULT __safecall FindWindow(OleVariant &pvarloc, OleVariant &pvarlocRoot, int swClass, /* out */ 
  328.         int &pHWND, int swfwOptions, _di_IDispatch &FindWindow_result) = 0 ;
  329.     virtual HRESULT __safecall OnCreated(int lCookie, const _di_IUnknown punk) = 0 ;
  330.     virtual HRESULT __safecall ProcessAttachDetach(Word fAttach) = 0 ;
  331.     #pragma option push -w-inl
  332.     /* safecall wrapper */ inline int _scw_Get_Count() { int r; HRESULT hr = Get_Count(r); System::CheckSafecallResult(hr); return r; }
  333.         
  334.     #pragma option pop
  335.     __property int Count = {read=_scw_Get_Count};
  336. };
  337. typedef IShellWindows ShellWindows;
  338.  
  339. __interface IShellUIHelper;
  340. typedef System::DelphiInterface<IShellUIHelper> _di_IShellUIHelper;
  341. __interface INTERFACE_UUID("{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}") IShellUIHelper  : public IDispatch 
  342.     
  343. {
  344.     
  345. public:
  346.     virtual HRESULT __safecall ResetFirstBootMode(void) = 0 ;
  347.     virtual HRESULT __safecall ResetSafeMode(void) = 0 ;
  348.     virtual HRESULT __safecall RefreshOfflineDesktop(void) = 0 ;
  349.     virtual HRESULT __safecall AddFavorite(const WideString URL, OleVariant &Title) = 0 ;
  350.     virtual HRESULT __safecall AddChannel(const WideString URL) = 0 ;
  351.     virtual HRESULT __safecall AddDesktopComponent(const WideString URL, const WideString Type_, OleVariant 
  352.         &Left, OleVariant &Top, OleVariant &Width, OleVariant &Height) = 0 ;
  353.     virtual HRESULT __safecall IsSubscribed(const WideString URL, Word &IsSubscribed_result) = 0 ;
  354.     virtual HRESULT __safecall NavigateAndFind(const WideString URL, const WideString strQuery, OleVariant 
  355.         &varTargetFrame) = 0 ;
  356.     virtual HRESULT __safecall ImportExportFavorites(Word fImport, const WideString strImpExpPath) = 0 
  357.         ;
  358.     virtual HRESULT __safecall AutoCompleteSaveForm(OleVariant &Form) = 0 ;
  359.     virtual HRESULT __safecall AutoScan(const WideString strSearch, const WideString strFailureUrl, OleVariant 
  360.         &pvarTargetFrame) = 0 ;
  361.     virtual HRESULT __safecall AutoCompleteAttach(OleVariant &Reserved) = 0 ;
  362.     virtual HRESULT __safecall ShowBrowserUI(const WideString bstrName, OleVariant &pvarIn, OleVariant &ShowBrowserUI_result
  363.         ) = 0 ;
  364. };
  365. typedef IShellUIHelper ShellUIHelper;
  366.  
  367. __interface IShellFavoritesNameSpace;
  368. typedef System::DelphiInterface<IShellFavoritesNameSpace> _di_IShellFavoritesNameSpace;
  369. __interface INTERFACE_UUID("{55136804-B2DE-11D1-B9F2-00A0C98BC547}") IShellFavoritesNameSpace  : public IDispatch 
  370.     
  371. {
  372.     
  373. public:
  374.     virtual HRESULT __safecall MoveSelectionUp(void) = 0 ;
  375.     virtual HRESULT __safecall MoveSelectionDown(void) = 0 ;
  376.     virtual HRESULT __safecall ResetSort(void) = 0 ;
  377.     virtual HRESULT __safecall NewFolder(void) = 0 ;
  378.     virtual HRESULT __safecall Synchronize(void) = 0 ;
  379.     virtual HRESULT __safecall Import(void) = 0 ;
  380.     virtual HRESULT __safecall Export(void) = 0 ;
  381.     virtual HRESULT __safecall InvokeContextMenuCommand(const WideString strCommand) = 0 ;
  382.     virtual HRESULT __safecall MoveSelectionTo(void) = 0 ;
  383.     virtual HRESULT __safecall Get_FOfflinePackInstalled(Word &Get_FOfflinePackInstalled_result) = 0 ;
  384.     virtual HRESULT __safecall CreateSubscriptionForSelection(Word &CreateSubscriptionForSelection_result
  385.         ) = 0 ;
  386.     virtual HRESULT __safecall DeleteSubscriptionForSelection(Word &DeleteSubscriptionForSelection_result
  387.         ) = 0 ;
  388.     virtual HRESULT __safecall SetRoot(const WideString bstrFullPath) = 0 ;
  389.     #pragma option push -w-inl
  390.     /* safecall wrapper */ inline Word _scw_Get_FOfflinePackInstalled() { Word r; HRESULT hr = Get_FOfflinePackInstalled(
  391.         r); System::CheckSafecallResult(hr); return r; }
  392.     #pragma option pop
  393.     __property Word FOfflinePackInstalled = {read=_scw_Get_FOfflinePackInstalled};
  394. };
  395. typedef IShellFavoritesNameSpace ShellFavoritesNameSpace;
  396.  
  397. __interface IScriptErrorList;
  398. typedef System::DelphiInterface<IScriptErrorList> _di_IScriptErrorList;
  399. __interface INTERFACE_UUID("{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}") IScriptErrorList  : public IDispatch 
  400.     
  401. {
  402.     
  403. public:
  404.     virtual HRESULT __safecall advanceError(void) = 0 ;
  405.     virtual HRESULT __safecall retreatError(void) = 0 ;
  406.     virtual HRESULT __safecall canAdvanceError(int &canAdvanceError_result) = 0 ;
  407.     virtual HRESULT __safecall canRetreatError(int &canRetreatError_result) = 0 ;
  408.     virtual HRESULT __safecall getErrorLine(int &getErrorLine_result) = 0 ;
  409.     virtual HRESULT __safecall getErrorChar(int &getErrorChar_result) = 0 ;
  410.     virtual HRESULT __safecall getErrorCode(int &getErrorCode_result) = 0 ;
  411.     virtual HRESULT __safecall getErrorMsg(WideString &getErrorMsg_result) = 0 ;
  412.     virtual HRESULT __safecall getErrorUrl(WideString &getErrorUrl_result) = 0 ;
  413.     virtual HRESULT __safecall getAlwaysShowLockState(int &getAlwaysShowLockState_result) = 0 ;
  414.     virtual HRESULT __safecall getDetailsPaneOpen(int &getDetailsPaneOpen_result) = 0 ;
  415.     virtual HRESULT __safecall setDetailsPaneOpen(int fDetailsPaneOpen) = 0 ;
  416.     virtual HRESULT __safecall getPerErrorDisplay(int &getPerErrorDisplay_result) = 0 ;
  417.     virtual HRESULT __safecall setPerErrorDisplay(int fPerErrorDisplay) = 0 ;
  418. };
  419. typedef IScriptErrorList CScriptErrorList;
  420.  
  421. __interface ISearchAssistantOC;
  422. typedef System::DelphiInterface<ISearchAssistantOC> _di_ISearchAssistantOC;
  423. __interface ISearches;
  424. typedef System::DelphiInterface<ISearches> _di_ISearches;
  425. __interface INTERFACE_UUID("{72423E8F-8011-11D2-BE79-00A0C9A83DA1}") ISearchAssistantOC  : public IDispatch 
  426.     
  427. {
  428.     
  429. public:
  430.     virtual HRESULT __safecall AddNextMenuItem(const WideString bstrText, int idItem) = 0 ;
  431.     virtual HRESULT __safecall SetDefaultSearchUrl(const WideString bstrUrl) = 0 ;
  432.     virtual HRESULT __safecall NavigateToDefaultSearch(void) = 0 ;
  433.     virtual HRESULT __safecall IsRestricted(const WideString bstrGuid, Word &IsRestricted_result) = 0 ;
  434.         
  435.     virtual HRESULT __safecall Get_ShellFeaturesEnabled(Word &Get_ShellFeaturesEnabled_result) = 0 ;
  436.     virtual HRESULT __safecall Get_SearchAssistantDefault(Word &Get_SearchAssistantDefault_result) = 0 
  437.         ;
  438.     virtual HRESULT __safecall Get_Searches(_di_ISearches &Get_Searches_result) = 0 ;
  439.     virtual HRESULT __safecall Get_InWebFolder(Word &Get_InWebFolder_result) = 0 ;
  440.     virtual HRESULT __safecall PutProperty(Word bPerLocale, const WideString bstrName, const WideString 
  441.         bstrValue) = 0 ;
  442.     virtual HRESULT __safecall GetProperty(Word bPerLocale, const WideString bstrName, WideString &GetProperty_result
  443.         ) = 0 ;
  444.     virtual HRESULT __safecall Set_EventHandled(Word Param1) = 0 ;
  445.     virtual HRESULT __safecall ResetNextMenu(void) = 0 ;
  446.     virtual HRESULT __safecall FindOnWeb(void) = 0 ;
  447.     virtual HRESULT __safecall FindFilesOrFolders(void) = 0 ;
  448.     virtual HRESULT __safecall FindComputer(void) = 0 ;
  449.     virtual HRESULT __safecall FindPrinter(void) = 0 ;
  450.     virtual HRESULT __safecall FindPeople(void) = 0 ;
  451.     virtual HRESULT __safecall GetSearchAssistantURL(Word bSubstitute, Word bCustomize, WideString &GetSearchAssistantURL_result
  452.         ) = 0 ;
  453.     virtual HRESULT __safecall NotifySearchSettingsChanged(void) = 0 ;
  454.     virtual HRESULT __safecall Set_ASProvider(const WideString pProvider) = 0 ;
  455.     virtual HRESULT __safecall Get_ASProvider(WideString &Get_ASProvider_result) = 0 ;
  456.     virtual HRESULT __safecall Set_ASSetting(int pSetting) = 0 ;
  457.     virtual HRESULT __safecall Get_ASSetting(int &Get_ASSetting_result) = 0 ;
  458.     virtual HRESULT __safecall NETDetectNextNavigate(void) = 0 ;
  459.     virtual HRESULT __safecall PutFindText(const WideString FindText) = 0 ;
  460.     virtual HRESULT __safecall Get_Version(int &Get_Version_result) = 0 ;
  461.     virtual HRESULT __safecall EncodeString(const WideString bstrValue, const WideString bstrCharSet, Word 
  462.         bUseUTF8, WideString &EncodeString_result) = 0 ;
  463.     #pragma option push -w-inl
  464.     /* safecall wrapper */ inline Word _scw_Get_ShellFeaturesEnabled() { Word r; HRESULT hr = Get_ShellFeaturesEnabled(
  465.         r); System::CheckSafecallResult(hr); return r; }
  466.     #pragma option pop
  467.     __property Word ShellFeaturesEnabled = {read=_scw_Get_ShellFeaturesEnabled};
  468.     #pragma option push -w-inl
  469.     /* safecall wrapper */ inline Word _scw_Get_SearchAssistantDefault() { Word r; HRESULT hr = Get_SearchAssistantDefault(
  470.         r); System::CheckSafecallResult(hr); return r; }
  471.     #pragma option pop
  472.     __property Word SearchAssistantDefault = {read=_scw_Get_SearchAssistantDefault};
  473.     #pragma option push -w-inl
  474.     /* safecall wrapper */ inline _di_ISearches _scw_Get_Searches() { _di_ISearches r; HRESULT hr = Get_Searches(
  475.         r); System::CheckSafecallResult(hr); return r; }
  476.     #pragma option pop
  477.     __property _di_ISearches Searches = {read=_scw_Get_Searches};
  478.     #pragma option push -w-inl
  479.     /* safecall wrapper */ inline Word _scw_Get_InWebFolder() { Word r; HRESULT hr = Get_InWebFolder(r); System::CheckSafecallResult(hr); return r; }
  480.         
  481.     #pragma option pop
  482.     __property Word InWebFolder = {read=_scw_Get_InWebFolder};
  483.     __property Word EventHandled = {write=Set_EventHandled};
  484.     #pragma option push -w-inl
  485.     /* safecall wrapper */ inline WideString _scw_Get_ASProvider() { WideString r; HRESULT hr = Get_ASProvider(
  486.         r); System::CheckSafecallResult(hr); return r; }
  487.     #pragma option pop
  488.     __property WideString ASProvider = {read=_scw_Get_ASProvider, write=Set_ASProvider};
  489.     #pragma option push -w-inl
  490.     /* safecall wrapper */ inline int _scw_Get_ASSetting() { int r; HRESULT hr = Get_ASSetting(r); System::CheckSafecallResult(hr); return r; }
  491.         
  492.     #pragma option pop
  493.     __property int ASSetting = {read=_scw_Get_ASSetting, write=Set_ASSetting};
  494.     #pragma option push -w-inl
  495.     /* safecall wrapper */ inline int _scw_Get_Version() { int r; HRESULT hr = Get_Version(r); System::CheckSafecallResult(hr); return r; }
  496.         
  497.     #pragma option pop
  498.     __property int Version = {read=_scw_Get_Version};
  499. };
  500. typedef ISearchAssistantOC SearchAssistantOC;
  501.  
  502. typedef OleVariant *POleVariant1;
  503.  
  504. __dispinterface IWebBrowserDisp;
  505. typedef System::DelphiInterface<IWebBrowserDisp> _di_IWebBrowserDisp;
  506. __dispinterface INTERFACE_UUID("{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}") IWebBrowserDisp  : public IDispatch 
  507.     
  508. {
  509.     
  510. };
  511.  
  512. __dispinterface DWebBrowserEvents;
  513. typedef System::DelphiInterface<DWebBrowserEvents> _di_DWebBrowserEvents;
  514. __dispinterface INTERFACE_UUID("{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}") DWebBrowserEvents  : public IDispatch 
  515.     
  516. {
  517.     
  518. };
  519.  
  520. __dispinterface IWebBrowserAppDisp;
  521. typedef System::DelphiInterface<IWebBrowserAppDisp> _di_IWebBrowserAppDisp;
  522. __dispinterface INTERFACE_UUID("{0002DF05-0000-0000-C000-000000000046}") IWebBrowserAppDisp  : public IDispatch 
  523.     
  524. {
  525.     
  526. };
  527.  
  528. __dispinterface IWebBrowser2Disp;
  529. typedef System::DelphiInterface<IWebBrowser2Disp> _di_IWebBrowser2Disp;
  530. __dispinterface INTERFACE_UUID("{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}") IWebBrowser2Disp  : public IDispatch 
  531.     
  532. {
  533.     
  534. };
  535.  
  536. __dispinterface DWebBrowserEvents2;
  537. typedef System::DelphiInterface<DWebBrowserEvents2> _di_DWebBrowserEvents2;
  538. __dispinterface INTERFACE_UUID("{34A715A0-6587-11D0-924A-0020AFC7AC4D}") DWebBrowserEvents2  : public IDispatch 
  539.     
  540. {
  541.     
  542. };
  543.  
  544. __dispinterface DShellWindowsEvents;
  545. typedef System::DelphiInterface<DShellWindowsEvents> _di_DShellWindowsEvents;
  546. __dispinterface INTERFACE_UUID("{FE4106E0-399A-11D0-A48C-00A0C90A8F39}") DShellWindowsEvents  : public IDispatch 
  547.     
  548. {
  549.     
  550. };
  551.  
  552. __dispinterface IShellWindowsDisp;
  553. typedef System::DelphiInterface<IShellWindowsDisp> _di_IShellWindowsDisp;
  554. __dispinterface INTERFACE_UUID("{85CB6900-4D95-11CF-960C-0080C7F4EE85}") IShellWindowsDisp  : public IDispatch 
  555.     
  556. {
  557.     
  558. };
  559.  
  560. __dispinterface IShellUIHelperDisp;
  561. typedef System::DelphiInterface<IShellUIHelperDisp> _di_IShellUIHelperDisp;
  562. __dispinterface INTERFACE_UUID("{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}") IShellUIHelperDisp  : public IDispatch 
  563.     
  564. {
  565.     
  566. };
  567.  
  568. __dispinterface _ShellFavoritesNameSpaceEvents;
  569. typedef System::DelphiInterface<_ShellFavoritesNameSpaceEvents> _di__ShellFavoritesNameSpaceEvents;
  570. __dispinterface INTERFACE_UUID("{55136806-B2DE-11D1-B9F2-00A0C98BC547}") _ShellFavoritesNameSpaceEvents 
  571.      : public IDispatch 
  572. {
  573.     
  574. };
  575.  
  576. __dispinterface IShellFavoritesNameSpaceDisp;
  577. typedef System::DelphiInterface<IShellFavoritesNameSpaceDisp> _di_IShellFavoritesNameSpaceDisp;
  578. __dispinterface INTERFACE_UUID("{55136804-B2DE-11D1-B9F2-00A0C98BC547}") IShellFavoritesNameSpaceDisp 
  579.      : public IDispatch 
  580. {
  581.     
  582. };
  583.  
  584. __dispinterface IScriptErrorListDisp;
  585. typedef System::DelphiInterface<IScriptErrorListDisp> _di_IScriptErrorListDisp;
  586. __dispinterface INTERFACE_UUID("{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}") IScriptErrorListDisp  : public IDispatch 
  587.     
  588. {
  589.     
  590. };
  591.  
  592. __interface ISearch;
  593. typedef System::DelphiInterface<ISearch> _di_ISearch;
  594. __interface INTERFACE_UUID("{BA9239A4-3DD5-11D2-BF8B-00C04FB93661}") ISearch  : public IDispatch 
  595. {
  596.     
  597. public:
  598.     virtual HRESULT __safecall Get_Title(WideString &Get_Title_result) = 0 ;
  599.     virtual HRESULT __safecall Get_Id(WideString &Get_Id_result) = 0 ;
  600.     virtual HRESULT __safecall Get_URL(WideString &Get_URL_result) = 0 ;
  601.     #pragma option push -w-inl
  602.     /* safecall wrapper */ inline WideString _scw_Get_Title() { WideString r; HRESULT hr = Get_Title(r); System::CheckSafecallResult(hr); return r; }
  603.         
  604.     #pragma option pop
  605.     __property WideString Title = {read=_scw_Get_Title};
  606.     #pragma option push -w-inl
  607.     /* safecall wrapper */ inline WideString _scw_Get_Id() { WideString r; HRESULT hr = Get_Id(r); System::CheckSafecallResult(hr); return r; }
  608.         
  609.     #pragma option pop
  610.     __property WideString Id = {read=_scw_Get_Id};
  611.     #pragma option push -w-inl
  612.     /* safecall wrapper */ inline WideString _scw_Get_URL() { WideString r; HRESULT hr = Get_URL(r); System::CheckSafecallResult(hr); return r; }
  613.         
  614.     #pragma option pop
  615.     __property WideString URL = {read=_scw_Get_URL};
  616. };
  617.  
  618. __dispinterface ISearchDisp;
  619. typedef System::DelphiInterface<ISearchDisp> _di_ISearchDisp;
  620. __dispinterface INTERFACE_UUID("{BA9239A4-3DD5-11D2-BF8B-00C04FB93661}") ISearchDisp  : public IDispatch 
  621.     
  622. {
  623.     
  624. };
  625.  
  626. __interface INTERFACE_UUID("{47C922A2-3DD5-11D2-BF8B-00C04FB93661}") ISearches  : public IDispatch 
  627. {
  628.     
  629. public:
  630.     virtual HRESULT __safecall Get_Count(int &Get_Count_result) = 0 ;
  631.     virtual HRESULT __safecall Get_Default(WideString &Get_Default_result) = 0 ;
  632.     virtual HRESULT __safecall Item(const OleVariant index, _di_ISearch &Item_result) = 0 ;
  633.     virtual HRESULT __safecall _NewEnum(_di_IUnknown &_NewEnum_result) = 0 ;
  634.     #pragma option push -w-inl
  635.     /* safecall wrapper */ inline int _scw_Get_Count() { int r; HRESULT hr = Get_Count(r); System::CheckSafecallResult(hr); return r; }
  636.         
  637.     #pragma option pop
  638.     __property int Count = {read=_scw_Get_Count};
  639.     #pragma option push -w-inl
  640.     /* safecall wrapper */ inline WideString _scw_Get_Default() { WideString r; HRESULT hr = Get_Default(
  641.         r); System::CheckSafecallResult(hr); return r; }
  642.     #pragma option pop
  643.     __property WideString Default = {read=_scw_Get_Default};
  644. };
  645.  
  646. __dispinterface ISearchesDisp;
  647. typedef System::DelphiInterface<ISearchesDisp> _di_ISearchesDisp;
  648. __dispinterface INTERFACE_UUID("{47C922A2-3DD5-11D2-BF8B-00C04FB93661}") ISearchesDisp  : public IDispatch 
  649.     
  650. {
  651.     
  652. };
  653.  
  654. __dispinterface ISearchAssistantOCDisp;
  655. typedef System::DelphiInterface<ISearchAssistantOCDisp> _di_ISearchAssistantOCDisp;
  656. __dispinterface INTERFACE_UUID("{72423E8F-8011-11D2-BE79-00A0C9A83DA1}") ISearchAssistantOCDisp  : public IDispatch 
  657.     
  658. {
  659.     
  660. };
  661.  
  662. __dispinterface _SearchAssistantEvents;
  663. typedef System::DelphiInterface<_SearchAssistantEvents> _di__SearchAssistantEvents;
  664. __dispinterface INTERFACE_UUID("{1611FDDA-445B-11D2-85DE-00C04FA35C89}") _SearchAssistantEvents  : public IDispatch 
  665.     
  666. {
  667.     
  668. };
  669.  
  670. typedef void __fastcall (__closure *TWebBrowser_V1BeforeNavigate)(System::TObject* Sender, const WideString 
  671.     URL, int Flags, const WideString TargetFrameName, OleVariant &PostData, const WideString Headers, Word 
  672.     &Cancel);
  673.  
  674. typedef void __fastcall (__closure *TWebBrowser_V1NavigateComplete)(System::TObject* Sender, const WideString 
  675.     URL);
  676.  
  677. typedef void __fastcall (__closure *TWebBrowser_V1StatusTextChange)(System::TObject* Sender, const WideString 
  678.     Text);
  679.  
  680. typedef void __fastcall (__closure *TWebBrowser_V1ProgressChange)(System::TObject* Sender, int Progress
  681.     , int ProgressMax);
  682.  
  683. typedef void __fastcall (__closure *TWebBrowser_V1CommandStateChange)(System::TObject* Sender, int Command
  684.     , Word Enable);
  685.  
  686. typedef void __fastcall (__closure *TWebBrowser_V1NewWindow)(System::TObject* Sender, const WideString 
  687.     URL, int Flags, const WideString TargetFrameName, OleVariant &PostData, const WideString Headers, Word 
  688.     &Processed);
  689.  
  690. typedef void __fastcall (__closure *TWebBrowser_V1TitleChange)(System::TObject* Sender, const WideString 
  691.     Text);
  692.  
  693. typedef void __fastcall (__closure *TWebBrowser_V1FrameBeforeNavigate)(System::TObject* Sender, const 
  694.     WideString URL, int Flags, const WideString TargetFrameName, OleVariant &PostData, const WideString 
  695.     Headers, Word &Cancel);
  696.  
  697. typedef void __fastcall (__closure *TWebBrowser_V1FrameNavigateComplete)(System::TObject* Sender, const 
  698.     WideString URL);
  699.  
  700. typedef void __fastcall (__closure *TWebBrowser_V1FrameNewWindow)(System::TObject* Sender, const WideString 
  701.     URL, int Flags, const WideString TargetFrameName, OleVariant &PostData, const WideString Headers, Word 
  702.     &Processed);
  703.  
  704. typedef void __fastcall (__closure *TWebBrowser_V1Quit)(System::TObject* Sender, Word &Cancel);
  705.  
  706. typedef void __fastcall (__closure *TWebBrowser_V1PropertyChange)(System::TObject* Sender, const WideString 
  707.     Property_);
  708.  
  709. class DELPHICLASS TWebBrowser_V1;
  710. class PASCALIMPLEMENTATION TWebBrowser_V1 : public Olectrls::TOleControl 
  711. {
  712.     typedef Olectrls::TOleControl inherited;
  713.     
  714. private:
  715.     TWebBrowser_V1BeforeNavigate FOnBeforeNavigate;
  716.     TWebBrowser_V1NavigateComplete FOnNavigateComplete;
  717.     TWebBrowser_V1StatusTextChange FOnStatusTextChange;
  718.     TWebBrowser_V1ProgressChange FOnProgressChange;
  719.     Classes::TNotifyEvent FOnDownloadComplete;
  720.     TWebBrowser_V1CommandStateChange FOnCommandStateChange;
  721.     Classes::TNotifyEvent FOnDownloadBegin;
  722.     TWebBrowser_V1NewWindow FOnNewWindow;
  723.     TWebBrowser_V1TitleChange FOnTitleChange;
  724.     TWebBrowser_V1FrameBeforeNavigate FOnFrameBeforeNavigate;
  725.     TWebBrowser_V1FrameNavigateComplete FOnFrameNavigateComplete;
  726.     TWebBrowser_V1FrameNewWindow FOnFrameNewWindow;
  727.     TWebBrowser_V1Quit FOnQuit;
  728.     Classes::TNotifyEvent FOnWindowMove;
  729.     Classes::TNotifyEvent FOnWindowResize;
  730.     Classes::TNotifyEvent FOnWindowActivate;
  731.     TWebBrowser_V1PropertyChange FOnPropertyChange;
  732.     _di_IWebBrowser FIntf;
  733.     _di_IWebBrowser __fastcall GetControlInterface();
  734.     
  735. protected:
  736.     HIDESBASE void __fastcall CreateControl(void);
  737.     virtual void __fastcall InitControlData(void);
  738.     _di_IDispatch __fastcall Get_Application();
  739.     _di_IDispatch __fastcall Get_Parent();
  740.     _di_IDispatch __fastcall Get_Container();
  741.     _di_IDispatch __fastcall Get_Document();
  742.     
  743. public:
  744.     void __fastcall GoBack(void);
  745.     void __fastcall GoForward(void);
  746.     void __fastcall GoHome(void);
  747.     void __fastcall GoSearch(void);
  748.     void __fastcall Navigate(const WideString URL)/* overload */;
  749.     void __fastcall Navigate(const WideString URL, OleVariant &Flags)/* overload */;
  750.     void __fastcall Navigate(const WideString URL, OleVariant &Flags, OleVariant &TargetFrameName)/* overload */
  751.         ;
  752.     void __fastcall Navigate(const WideString URL, OleVariant &Flags, OleVariant &TargetFrameName, OleVariant 
  753.         &PostData)/* overload */;
  754.     void __fastcall Navigate(const WideString URL, OleVariant &Flags, OleVariant &TargetFrameName, OleVariant 
  755.         &PostData, OleVariant &Headers)/* overload */;
  756.     HIDESBASE void __fastcall Refresh(void);
  757.     void __fastcall Refresh2(void)/* overload */;
  758.     void __fastcall Refresh2(OleVariant &Level)/* overload */;
  759.     void __fastcall Stop(void);
  760.     __property _di_IWebBrowser ControlInterface = {read=GetControlInterface};
  761.     __property _di_IWebBrowser DefaultInterface = {read=GetControlInterface};
  762.     __property _di_IDispatch Application = {read=GetIDispatchProp, index=200};
  763.     __property _di_IDispatch Parent = {read=GetIDispatchProp, index=201};
  764.     __property _di_IDispatch Container = {read=GetIDispatchProp, index=202};
  765.     __property _di_IDispatch Document = {read=GetIDispatchProp, index=203};
  766.     __property Word TopLevelContainer = {read=GetWordBoolProp, index=204, nodefault};
  767.     __property WideString Type_ = {read=GetWideStringProp, index=205};
  768.     __property WideString LocationName = {read=GetWideStringProp, index=210};
  769.     __property WideString LocationURL = {read=GetWideStringProp, index=211};
  770.     __property Word Busy = {read=GetWordBoolProp, index=212, nodefault};
  771.     
  772. __published:
  773.     __property TabStop ;
  774.     __property Align ;
  775.     __property DragCursor ;
  776.     __property DragMode ;
  777.     __property ParentShowHint ;
  778.     __property PopupMenu ;
  779.     __property ShowHint ;
  780.     __property TabOrder ;
  781.     __property Visible ;
  782.     __property OnDragDrop ;
  783.     __property OnDragOver ;
  784.     __property OnEndDrag ;
  785.     __property OnEnter ;
  786.     __property OnExit ;
  787.     __property OnStartDrag ;
  788.     __property TWebBrowser_V1BeforeNavigate OnBeforeNavigate = {read=FOnBeforeNavigate, write=FOnBeforeNavigate
  789.         };
  790.     __property TWebBrowser_V1NavigateComplete OnNavigateComplete = {read=FOnNavigateComplete, write=FOnNavigateComplete
  791.         };
  792.     __property TWebBrowser_V1StatusTextChange OnStatusTextChange = {read=FOnStatusTextChange, write=FOnStatusTextChange
  793.         };
  794.     __property TWebBrowser_V1ProgressChange OnProgressChange = {read=FOnProgressChange, write=FOnProgressChange
  795.         };
  796.     __property Classes::TNotifyEvent OnDownloadComplete = {read=FOnDownloadComplete, write=FOnDownloadComplete
  797.         };
  798.     __property TWebBrowser_V1CommandStateChange OnCommandStateChange = {read=FOnCommandStateChange, write=
  799.         FOnCommandStateChange};
  800.     __property Classes::TNotifyEvent OnDownloadBegin = {read=FOnDownloadBegin, write=FOnDownloadBegin};
  801.         
  802.     __property TWebBrowser_V1NewWindow OnNewWindow = {read=FOnNewWindow, write=FOnNewWindow};
  803.     __property TWebBrowser_V1TitleChange OnTitleChange = {read=FOnTitleChange, write=FOnTitleChange};
  804.     __property TWebBrowser_V1FrameBeforeNavigate OnFrameBeforeNavigate = {read=FOnFrameBeforeNavigate, 
  805.         write=FOnFrameBeforeNavigate};
  806.     __property TWebBrowser_V1FrameNavigateComplete OnFrameNavigateComplete = {read=FOnFrameNavigateComplete
  807.         , write=FOnFrameNavigateComplete};
  808.     __property TWebBrowser_V1FrameNewWindow OnFrameNewWindow = {read=FOnFrameNewWindow, write=FOnFrameNewWindow
  809.         };
  810.     __property TWebBrowser_V1Quit OnQuit = {read=FOnQuit, write=FOnQuit};
  811.     __property Classes::TNotifyEvent OnWindowMove = {read=FOnWindowMove, write=FOnWindowMove};
  812.     __property Classes::TNotifyEvent OnWindowResize = {read=FOnWindowResize, write=FOnWindowResize};
  813.     __property Classes::TNotifyEvent OnWindowActivate = {read=FOnWindowActivate, write=FOnWindowActivate
  814.         };
  815.     __property TWebBrowser_V1PropertyChange OnPropertyChange = {read=FOnPropertyChange, write=FOnPropertyChange
  816.         };
  817. public:
  818.     #pragma option push -w-inl
  819.     /* TOleControl.Create */ inline __fastcall virtual TWebBrowser_V1(Classes::TComponent* AOwner) : Olectrls::TOleControl(
  820.         AOwner) { }
  821.     #pragma option pop
  822.     #pragma option push -w-inl
  823.     /* TOleControl.Destroy */ inline __fastcall virtual ~TWebBrowser_V1(void) { }
  824.     #pragma option pop
  825.     
  826. public:
  827.     #pragma option push -w-inl
  828.     /* TWinControl.CreateParented */ inline __fastcall TWebBrowser_V1(HWND ParentWindow) : Olectrls::TOleControl(
  829.         ParentWindow) { }
  830.     #pragma option pop
  831.     
  832. };
  833.  
  834.  
  835. typedef void __fastcall (__closure *TWebBrowserStatusTextChange)(System::TObject* Sender, const WideString 
  836.     Text);
  837.  
  838. typedef void __fastcall (__closure *TWebBrowserProgressChange)(System::TObject* Sender, int Progress
  839.     , int ProgressMax);
  840.  
  841. typedef void __fastcall (__closure *TWebBrowserCommandStateChange)(System::TObject* Sender, int Command
  842.     , Word Enable);
  843.  
  844. typedef void __fastcall (__closure *TWebBrowserTitleChange)(System::TObject* Sender, const WideString 
  845.     Text);
  846.  
  847. typedef void __fastcall (__closure *TWebBrowserPropertyChange)(System::TObject* Sender, const WideString 
  848.     szProperty);
  849.  
  850. typedef void __fastcall (__closure *TWebBrowserBeforeNavigate2)(System::TObject* Sender, const _di_IDispatch 
  851.     pDisp, OleVariant &URL, OleVariant &Flags, OleVariant &TargetFrameName, OleVariant &PostData, OleVariant 
  852.     &Headers, Word &Cancel);
  853.  
  854. typedef void __fastcall (__closure *TWebBrowserNewWindow2)(System::TObject* Sender, _di_IDispatch &ppDisp
  855.     , Word &Cancel);
  856.  
  857. typedef void __fastcall (__closure *TWebBrowserNavigateComplete2)(System::TObject* Sender, const _di_IDispatch 
  858.     pDisp, OleVariant &URL);
  859.  
  860. typedef void __fastcall (__closure *TWebBrowserDocumentComplete)(System::TObject* Sender, const _di_IDispatch 
  861.     pDisp, OleVariant &URL);
  862.  
  863. typedef void __fastcall (__closure *TWebBrowserOnVisible)(System::TObject* Sender, Word Visible);
  864.  
  865. typedef void __fastcall (__closure *TWebBrowserOnToolBar)(System::TObject* Sender, Word ToolBar);
  866.  
  867. typedef void __fastcall (__closure *TWebBrowserOnMenuBar)(System::TObject* Sender, Word MenuBar);
  868.  
  869. typedef void __fastcall (__closure *TWebBrowserOnStatusBar)(System::TObject* Sender, Word StatusBar)
  870.     ;
  871.  
  872. typedef void __fastcall (__closure *TWebBrowserOnFullScreen)(System::TObject* Sender, Word FullScreen
  873.     );
  874.  
  875. typedef void __fastcall (__closure *TWebBrowserOnTheaterMode)(System::TObject* Sender, Word TheaterMode
  876.     );
  877.  
  878. class DELPHICLASS TWebBrowser;
  879. class PASCALIMPLEMENTATION TWebBrowser : public Olectrls::TOleControl 
  880. {
  881.     typedef Olectrls::TOleControl inherited;
  882.     
  883. private:
  884.     TWebBrowserStatusTextChange FOnStatusTextChange;
  885.     TWebBrowserProgressChange FOnProgressChange;
  886.     TWebBrowserCommandStateChange FOnCommandStateChange;
  887.     Classes::TNotifyEvent FOnDownloadBegin;
  888.     Classes::TNotifyEvent FOnDownloadComplete;
  889.     TWebBrowserTitleChange FOnTitleChange;
  890.     TWebBrowserPropertyChange FOnPropertyChange;
  891.     TWebBrowserBeforeNavigate2 FOnBeforeNavigate2;
  892.     TWebBrowserNewWindow2 FOnNewWindow2;
  893.     TWebBrowserNavigateComplete2 FOnNavigateComplete2;
  894.     TWebBrowserDocumentComplete FOnDocumentComplete;
  895.     Classes::TNotifyEvent FOnQuit;
  896.     TWebBrowserOnVisible FOnVisible;
  897.     TWebBrowserOnToolBar FOnToolBar;
  898.     TWebBrowserOnMenuBar FOnMenuBar;
  899.     TWebBrowserOnStatusBar FOnStatusBar;
  900.     TWebBrowserOnFullScreen FOnFullScreen;
  901.     TWebBrowserOnTheaterMode FOnTheaterMode;
  902.     _di_IWebBrowser2 FIntf;
  903.     _di_IWebBrowser2 __fastcall GetControlInterface();
  904.     
  905. protected:
  906.     HIDESBASE void __fastcall CreateControl(void);
  907.     virtual void __fastcall InitControlData(void);
  908.     _di_IDispatch __fastcall Get_Application();
  909.     _di_IDispatch __fastcall Get_Parent();
  910.     _di_IDispatch __fastcall Get_Container();
  911.     _di_IDispatch __fastcall Get_Document();
  912.     
  913. public:
  914.     void __fastcall GoBack(void);
  915.     void __fastcall GoForward(void);
  916.     void __fastcall GoHome(void);
  917.     void __fastcall GoSearch(void);
  918.     void __fastcall Navigate(const WideString URL)/* overload */;
  919.     void __fastcall Navigate(const WideString URL, OleVariant &Flags)/* overload */;
  920.     void __fastcall Navigate(const WideString URL, OleVariant &Flags, OleVariant &TargetFrameName)/* overload */
  921.         ;
  922.     void __fastcall Navigate(const WideString URL, OleVariant &Flags, OleVariant &TargetFrameName, OleVariant 
  923.         &PostData)/* overload */;
  924.     void __fastcall Navigate(const WideString URL, OleVariant &Flags, OleVariant &TargetFrameName, OleVariant 
  925.         &PostData, OleVariant &Headers)/* overload */;
  926.     HIDESBASE void __fastcall Refresh(void);
  927.     void __fastcall Refresh2(void)/* overload */;
  928.     void __fastcall Refresh2(OleVariant &Level)/* overload */;
  929.     void __fastcall Stop(void);
  930.     void __fastcall Quit(void);
  931.     void __fastcall ClientToWindow(int &pcx, int &pcy);
  932.     void __fastcall PutProperty(const WideString Property_, const OleVariant &vtValue);
  933.     HIDESBASE OleVariant __fastcall GetProperty(const WideString Property_);
  934.     void __fastcall Navigate2(OleVariant &URL)/* overload */;
  935.     void __fastcall Navigate2(OleVariant &URL, OleVariant &Flags)/* overload */;
  936.     void __fastcall Navigate2(OleVariant &URL, OleVariant &Flags, OleVariant &TargetFrameName)/* overload */
  937.         ;
  938.     void __fastcall Navigate2(OleVariant &URL, OleVariant &Flags, OleVariant &TargetFrameName, OleVariant 
  939.         &PostData)/* overload */;
  940.     void __fastcall Navigate2(OleVariant &URL, OleVariant &Flags, OleVariant &TargetFrameName, OleVariant 
  941.         &PostData, OleVariant &Headers)/* overload */;
  942.     Activex::TOleEnum __fastcall QueryStatusWB(Activex::TOleEnum cmdID);
  943.     void __fastcall ExecWB(Activex::TOleEnum cmdID, Activex::TOleEnum cmdexecopt)/* overload */;
  944.     void __fastcall ExecWB(Activex::TOleEnum cmdID, Activex::TOleEnum cmdexecopt, OleVariant &pvaIn)/* overload */
  945.         ;
  946.     void __fastcall ExecWB(Activex::TOleEnum cmdID, Activex::TOleEnum cmdexecopt, OleVariant &pvaIn, OleVariant 
  947.         &pvaOut)/* overload */;
  948.     void __fastcall ShowBrowserBar(OleVariant &pvaClsid)/* overload */;
  949.     void __fastcall ShowBrowserBar(OleVariant &pvaClsid, OleVariant &pvarShow)/* overload */;
  950.     void __fastcall ShowBrowserBar(OleVariant &pvaClsid, OleVariant &pvarShow, OleVariant &pvarSize)/* overload */
  951.         ;
  952.     __property _di_IWebBrowser2 ControlInterface = {read=GetControlInterface};
  953.     __property _di_IWebBrowser2 DefaultInterface = {read=GetControlInterface};
  954.     __property _di_IDispatch Application = {read=GetIDispatchProp, index=200};
  955.     __property _di_IDispatch Parent = {read=GetIDispatchProp, index=201};
  956.     __property _di_IDispatch Container = {read=GetIDispatchProp, index=202};
  957.     __property _di_IDispatch Document = {read=GetIDispatchProp, index=203};
  958.     __property Word TopLevelContainer = {read=GetWordBoolProp, index=204, nodefault};
  959.     __property WideString Type_ = {read=GetWideStringProp, index=205};
  960.     __property WideString LocationName = {read=GetWideStringProp, index=210};
  961.     __property WideString LocationURL = {read=GetWideStringProp, index=211};
  962.     __property Word Busy = {read=GetWordBoolProp, index=212, nodefault};
  963.     __property WideString Name = {read=GetWideStringProp, index=0};
  964.     __property int HWND = {read=GetIntegerProp, index=-515, nodefault};
  965.     __property WideString FullName = {read=GetWideStringProp, index=400};
  966.     __property WideString Path = {read=GetWideStringProp, index=401};
  967.     __property Activex::TOleEnum ReadyState = {read=GetTOleEnumProp, index=-525, nodefault};
  968.     
  969. __published:
  970.     __property TabStop ;
  971.     __property Align ;
  972.     __property DragCursor ;
  973.     __property DragMode ;
  974.     __property ParentShowHint ;
  975.     __property PopupMenu ;
  976.     __property ShowHint ;
  977.     __property TabOrder ;
  978.     __property OnDragDrop ;
  979.     __property OnDragOver ;
  980.     __property OnEndDrag ;
  981.     __property OnEnter ;
  982.     __property OnExit ;
  983.     __property OnStartDrag ;
  984.     __property Word Visible = {read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=402, nodefault
  985.         };
  986.     __property Word StatusBar = {read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=403, 
  987.         nodefault};
  988.     __property WideString StatusText = {read=GetWideStringProp, write=SetWideStringProp, stored=false, 
  989.         index=404};
  990.     __property int ToolBar = {read=GetIntegerProp, write=SetIntegerProp, stored=false, index=405, nodefault
  991.         };
  992.     __property Word MenuBar = {read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=406, nodefault
  993.         };
  994.     __property Word FullScreen = {read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=407, 
  995.         nodefault};
  996.     __property Word Offline = {read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=550, nodefault
  997.         };
  998.     __property Word Silent = {read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=551, nodefault
  999.         };
  1000.     __property Word RegisterAsBrowser = {read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=552
  1001.         , nodefault};
  1002.     __property Word RegisterAsDropTarget = {read=GetWordBoolProp, write=SetWordBoolProp, stored=false, 
  1003.         index=553, nodefault};
  1004.     __property Word TheaterMode = {read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=554
  1005.         , nodefault};
  1006.     __property Word AddressBar = {read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=555, 
  1007.         nodefault};
  1008.     __property Word Resizable = {read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=556, 
  1009.         nodefault};
  1010.     __property TWebBrowserStatusTextChange OnStatusTextChange = {read=FOnStatusTextChange, write=FOnStatusTextChange
  1011.         };
  1012.     __property TWebBrowserProgressChange OnProgressChange = {read=FOnProgressChange, write=FOnProgressChange
  1013.         };
  1014.     __property TWebBrowserCommandStateChange OnCommandStateChange = {read=FOnCommandStateChange, write=
  1015.         FOnCommandStateChange};
  1016.     __property Classes::TNotifyEvent OnDownloadBegin = {read=FOnDownloadBegin, write=FOnDownloadBegin};
  1017.         
  1018.     __property Classes::TNotifyEvent OnDownloadComplete = {read=FOnDownloadComplete, write=FOnDownloadComplete
  1019.         };
  1020.     __property TWebBrowserTitleChange OnTitleChange = {read=FOnTitleChange, write=FOnTitleChange};
  1021.     __property TWebBrowserPropertyChange OnPropertyChange = {read=FOnPropertyChange, write=FOnPropertyChange
  1022.         };
  1023.     __property TWebBrowserBeforeNavigate2 OnBeforeNavigate2 = {read=FOnBeforeNavigate2, write=FOnBeforeNavigate2
  1024.         };
  1025.     __property TWebBrowserNewWindow2 OnNewWindow2 = {read=FOnNewWindow2, write=FOnNewWindow2};
  1026.     __property TWebBrowserNavigateComplete2 OnNavigateComplete2 = {read=FOnNavigateComplete2, write=FOnNavigateComplete2
  1027.         };
  1028.     __property TWebBrowserDocumentComplete OnDocumentComplete = {read=FOnDocumentComplete, write=FOnDocumentComplete
  1029.         };
  1030.     __property Classes::TNotifyEvent OnQuit = {read=FOnQuit, write=FOnQuit};
  1031.     __property TWebBrowserOnVisible OnVisible = {read=FOnVisible, write=FOnVisible};
  1032.     __property TWebBrowserOnToolBar OnToolBar = {read=FOnToolBar, write=FOnToolBar};
  1033.     __property TWebBrowserOnMenuBar OnMenuBar = {read=FOnMenuBar, write=FOnMenuBar};
  1034.     __property TWebBrowserOnStatusBar OnStatusBar = {read=FOnStatusBar, write=FOnStatusBar};
  1035.     __property TWebBrowserOnFullScreen OnFullScreen = {read=FOnFullScreen, write=FOnFullScreen};
  1036.     __property TWebBrowserOnTheaterMode OnTheaterMode = {read=FOnTheaterMode, write=FOnTheaterMode};
  1037. public:
  1038.         
  1039.     #pragma option push -w-inl
  1040.     /* TOleControl.Create */ inline __fastcall virtual TWebBrowser(Classes::TComponent* AOwner) : Olectrls::TOleControl(
  1041.         AOwner) { }
  1042.     #pragma option pop
  1043.     #pragma option push -w-inl
  1044.     /* TOleControl.Destroy */ inline __fastcall virtual ~TWebBrowser(void) { }
  1045.     #pragma option pop
  1046.     
  1047. public:
  1048.     #pragma option push -w-inl
  1049.     /* TWinControl.CreateParented */ inline __fastcall TWebBrowser(HWND ParentWindow) : Olectrls::TOleControl(
  1050.         ParentWindow) { }
  1051.     #pragma option pop
  1052.     
  1053. };
  1054.  
  1055.  
  1056. class DELPHICLASS CoInternetExplorer;
  1057. class PASCALIMPLEMENTATION CoInternetExplorer : public System::TObject 
  1058. {
  1059.     typedef System::TObject inherited;
  1060.     
  1061. public:
  1062.     /*         class method */ static _di_IWebBrowser2 __fastcall Create(TMetaClass* vmt);
  1063.     /*         class method */ static _di_IWebBrowser2 __fastcall CreateRemote(TMetaClass* vmt, const AnsiString 
  1064.         MachineName);
  1065. public:
  1066.     #pragma option push -w-inl
  1067.     /* TObject.Create */ inline __fastcall CoInternetExplorer(void) : System::TObject() { }
  1068.     #pragma option pop
  1069.     #pragma option push -w-inl
  1070.     /* TObject.Destroy */ inline __fastcall virtual ~CoInternetExplorer(void) { }
  1071.     #pragma option pop
  1072.     
  1073. };
  1074.  
  1075.  
  1076. typedef void __fastcall (__closure *TInternetExplorerStatusTextChange)(System::TObject* Sender, OleVariant 
  1077.     &Text);
  1078.  
  1079. typedef void __fastcall (__closure *TInternetExplorerProgressChange)(System::TObject* Sender, int Progress
  1080.     , int ProgressMax);
  1081.  
  1082. typedef void __fastcall (__closure *TInternetExplorerCommandStateChange)(System::TObject* Sender, int 
  1083.     Command, Word Enable);
  1084.  
  1085. typedef void __fastcall (__closure *TInternetExplorerTitleChange)(System::TObject* Sender, OleVariant 
  1086.     &Text);
  1087.  
  1088. typedef void __fastcall (__closure *TInternetExplorerPropertyChange)(System::TObject* Sender, OleVariant 
  1089.     &szProperty);
  1090.  
  1091. typedef void __fastcall (__closure *TInternetExplorerBeforeNavigate2)(System::TObject* Sender, OleVariant 
  1092.     &pDisp, OleVariant &URL, OleVariant &Flags, OleVariant &TargetFrameName, OleVariant &PostData, OleVariant 
  1093.     &Headers, OleVariant &Cancel);
  1094.  
  1095. typedef void __fastcall (__closure *TInternetExplorerNewWindow2)(System::TObject* Sender, OleVariant 
  1096.     &ppDisp, OleVariant &Cancel);
  1097.  
  1098. typedef void __fastcall (__closure *TInternetExplorerNavigateComplete2)(System::TObject* Sender, OleVariant 
  1099.     &pDisp, OleVariant &URL);
  1100.  
  1101. typedef void __fastcall (__closure *TInternetExplorerDocumentComplete)(System::TObject* Sender, OleVariant 
  1102.     &pDisp, OleVariant &URL);
  1103.  
  1104. typedef void __fastcall (__closure *TInternetExplorerOnVisible)(System::TObject* Sender, Word Visible
  1105.     );
  1106.  
  1107. typedef void __fastcall (__closure *TInternetExplorerOnToolBar)(System::TObject* Sender, Word ToolBar
  1108.     );
  1109.  
  1110. typedef void __fastcall (__closure *TInternetExplorerOnMenuBar)(System::TObject* Sender, Word MenuBar
  1111.     );
  1112.  
  1113. typedef void __fastcall (__closure *TInternetExplorerOnStatusBar)(System::TObject* Sender, Word StatusBar
  1114.     );
  1115.  
  1116. typedef void __fastcall (__closure *TInternetExplorerOnFullScreen)(System::TObject* Sender, Word FullScreen
  1117.     );
  1118.  
  1119. typedef void __fastcall (__closure *TInternetExplorerOnTheaterMode)(System::TObject* Sender, Word TheaterMode
  1120.     );
  1121.  
  1122. class DELPHICLASS TInternetExplorer;
  1123. class PASCALIMPLEMENTATION TInternetExplorer : public Oleserver::TOleServer 
  1124. {
  1125.     typedef Oleserver::TOleServer inherited;
  1126.     
  1127. private:
  1128.     TInternetExplorerStatusTextChange FOnStatusTextChange;
  1129.     TInternetExplorerProgressChange FOnProgressChange;
  1130.     TInternetExplorerCommandStateChange FOnCommandStateChange;
  1131.     Classes::TNotifyEvent FOnDownloadBegin;
  1132.     Classes::TNotifyEvent FOnDownloadComplete;
  1133.     TInternetExplorerTitleChange FOnTitleChange;
  1134.     TInternetExplorerPropertyChange FOnPropertyChange;
  1135.     TInternetExplorerBeforeNavigate2 FOnBeforeNavigate2;
  1136.     TInternetExplorerNewWindow2 FOnNewWindow2;
  1137.     TInternetExplorerNavigateComplete2 FOnNavigateComplete2;
  1138.     TInternetExplorerDocumentComplete FOnDocumentComplete;
  1139.     Classes::TNotifyEvent FOnQuit;
  1140.     TInternetExplorerOnVisible FOnVisible;
  1141.     TInternetExplorerOnToolBar FOnToolBar;
  1142.     TInternetExplorerOnMenuBar FOnMenuBar;
  1143.     TInternetExplorerOnStatusBar FOnStatusBar;
  1144.     TInternetExplorerOnFullScreen FOnFullScreen;
  1145.     TInternetExplorerOnTheaterMode FOnTheaterMode;
  1146.     _di_IWebBrowser2 FIntf;
  1147.     _di_IWebBrowser2 __fastcall GetDefaultInterface();
  1148.     
  1149. protected:
  1150.     virtual void __fastcall InitServerData(void);
  1151.     virtual void __fastcall InvokeEvent(int DispID, Oleserver::TVariantArray &Params);
  1152.     _di_IDispatch __fastcall Get_Application();
  1153.     _di_IDispatch __fastcall Get_Parent();
  1154.     _di_IDispatch __fastcall Get_Container();
  1155.     _di_IDispatch __fastcall Get_Document();
  1156.     Word __fastcall Get_TopLevelContainer(void);
  1157.     WideString __fastcall Get_Type_();
  1158.     int __fastcall Get_Left(void);
  1159.     void __fastcall Set_Left(int pl);
  1160.     int __fastcall Get_Top(void);
  1161.     void __fastcall Set_Top(int pl);
  1162.     int __fastcall Get_Width(void);
  1163.     void __fastcall Set_Width(int pl);
  1164.     int __fastcall Get_Height(void);
  1165.     void __fastcall Set_Height(int pl);
  1166.     WideString __fastcall Get_LocationName();
  1167.     WideString __fastcall Get_LocationURL();
  1168.     Word __fastcall Get_Busy(void);
  1169.     WideString __fastcall Get_Name();
  1170.     int __fastcall Get_HWND(void);
  1171.     WideString __fastcall Get_FullName();
  1172.     WideString __fastcall Get_Path();
  1173.     Word __fastcall Get_Visible(void);
  1174.     void __fastcall Set_Visible(Word pBool);
  1175.     Word __fastcall Get_StatusBar(void);
  1176.     void __fastcall Set_StatusBar(Word pBool);
  1177.     WideString __fastcall Get_StatusText();
  1178.     void __fastcall Set_StatusText(const WideString StatusText);
  1179.     int __fastcall Get_ToolBar(void);
  1180.     void __fastcall Set_ToolBar(int Value);
  1181.     Word __fastcall Get_MenuBar(void);
  1182.     void __fastcall Set_MenuBar(Word Value);
  1183.     Word __fastcall Get_FullScreen(void);
  1184.     void __fastcall Set_FullScreen(Word pbFullScreen);
  1185.     Activex::TOleEnum __fastcall Get_ReadyState(void);
  1186.     Word __fastcall Get_Offline(void);
  1187.     void __fastcall Set_Offline(Word pbOffline);
  1188.     Word __fastcall Get_Silent(void);
  1189.     void __fastcall Set_Silent(Word pbSilent);
  1190.     Word __fastcall Get_RegisterAsBrowser(void);
  1191.     void __fastcall Set_RegisterAsBrowser(Word pbRegister);
  1192.     Word __fastcall Get_RegisterAsDropTarget(void);
  1193.     void __fastcall Set_RegisterAsDropTarget(Word pbRegister);
  1194.     Word __fastcall Get_TheaterMode(void);
  1195.     void __fastcall Set_TheaterMode(Word pbRegister);
  1196.     Word __fastcall Get_AddressBar(void);
  1197.     void __fastcall Set_AddressBar(Word Value);
  1198.     Word __fastcall Get_Resizable(void);
  1199.     void __fastcall Set_Resizable(Word Value);
  1200.     
  1201. public:
  1202.     __fastcall virtual TInternetExplorer(Classes::TComponent* AOwner);
  1203.     __fastcall virtual ~TInternetExplorer(void);
  1204.     virtual void __fastcall Connect(void);
  1205.     void __fastcall ConnectTo(_di_IWebBrowser2 svrIntf);
  1206.     virtual void __fastcall Disconnect(void);
  1207.     void __fastcall GoBack(void);
  1208.     void __fastcall GoForward(void);
  1209.     void __fastcall GoHome(void);
  1210.     void __fastcall GoSearch(void);
  1211.     void __fastcall Navigate(const WideString URL)/* overload */;
  1212.     void __fastcall Navigate(const WideString URL, OleVariant &Flags)/* overload */;
  1213.     void __fastcall Navigate(const WideString URL, OleVariant &Flags, OleVariant &TargetFrameName)/* overload */
  1214.         ;
  1215.     void __fastcall Navigate(const WideString URL, OleVariant &Flags, OleVariant &TargetFrameName, OleVariant 
  1216.         &PostData)/* overload */;
  1217.     void __fastcall Navigate(const WideString URL, OleVariant &Flags, OleVariant &TargetFrameName, OleVariant 
  1218.         &PostData, OleVariant &Headers)/* overload */;
  1219.     void __fastcall Refresh(void);
  1220.     void __fastcall Refresh2(void)/* overload */;
  1221.     void __fastcall Refresh2(OleVariant &Level)/* overload */;
  1222.     void __fastcall Stop(void);
  1223.     void __fastcall Quit(void);
  1224.     void __fastcall ClientToWindow(int &pcx, int &pcy);
  1225.     void __fastcall PutProperty(const WideString Property_, const OleVariant &vtValue);
  1226.     OleVariant __fastcall GetProperty(const WideString Property_);
  1227.     void __fastcall Navigate2(OleVariant &URL)/* overload */;
  1228.     void __fastcall Navigate2(OleVariant &URL, OleVariant &Flags)/* overload */;
  1229.     void __fastcall Navigate2(OleVariant &URL, OleVariant &Flags, OleVariant &TargetFrameName)/* overload */
  1230.         ;
  1231.     void __fastcall Navigate2(OleVariant &URL, OleVariant &Flags, OleVariant &TargetFrameName, OleVariant 
  1232.         &PostData)/* overload */;
  1233.     void __fastcall Navigate2(OleVariant &URL, OleVariant &Flags, OleVariant &TargetFrameName, OleVariant 
  1234.         &PostData, OleVariant &Headers)/* overload */;
  1235.     Activex::TOleEnum __fastcall QueryStatusWB(Activex::TOleEnum cmdID);
  1236.     void __fastcall ExecWB(Activex::TOleEnum cmdID, Activex::TOleEnum cmdexecopt)/* overload */;
  1237.     void __fastcall ExecWB(Activex::TOleEnum cmdID, Activex::TOleEnum cmdexecopt, OleVariant &pvaIn)/* overload */
  1238.         ;
  1239.     void __fastcall ExecWB(Activex::TOleEnum cmdID, Activex::TOleEnum cmdexecopt, OleVariant &pvaIn, OleVariant 
  1240.         &pvaOut)/* overload */;
  1241.     void __fastcall ShowBrowserBar(OleVariant &pvaClsid)/* overload */;
  1242.     void __fastcall ShowBrowserBar(OleVariant &pvaClsid, OleVariant &pvarShow)/* overload */;
  1243.     void __fastcall ShowBrowserBar(OleVariant &pvaClsid, OleVariant &pvarShow, OleVariant &pvarSize)/* overload */
  1244.         ;
  1245.     __property _di_IWebBrowser2 DefaultInterface = {read=GetDefaultInterface};
  1246.     __property _di_IDispatch Application = {read=Get_Application};
  1247.     __property _di_IDispatch Parent = {read=Get_Parent};
  1248.     __property _di_IDispatch Container = {read=Get_Container};
  1249.     __property _di_IDispatch Document = {read=Get_Document};
  1250.     __property Word TopLevelContainer = {read=Get_TopLevelContainer, nodefault};
  1251.     __property WideString Type_ = {read=Get_Type_};
  1252.     __property WideString LocationName = {read=Get_LocationName};
  1253.     __property WideString LocationURL = {read=Get_LocationURL};
  1254.     __property Word Busy = {read=Get_Busy, nodefault};
  1255.     __property WideString Name = {read=Get_Name};
  1256.     __property int HWND = {read=Get_HWND, nodefault};
  1257.     __property WideString FullName = {read=Get_FullName};
  1258.     __property WideString Path = {read=Get_Path};
  1259.     __property Activex::TOleEnum ReadyState = {read=Get_ReadyState, nodefault};
  1260.     __property int Left = {read=Get_Left, write=Set_Left, nodefault};
  1261.     __property int Top = {read=Get_Top, write=Set_Top, nodefault};
  1262.     __property int Width = {read=Get_Width, write=Set_Width, nodefault};
  1263.     __property int Height = {read=Get_Height, write=Set_Height, nodefault};
  1264.     __property Word Visible = {read=Get_Visible, write=Set_Visible, nodefault};
  1265.     __property Word StatusBar = {read=Get_StatusBar, write=Set_StatusBar, nodefault};
  1266.     __property WideString StatusText = {read=Get_StatusText, write=Set_StatusText};
  1267.     __property int ToolBar = {read=Get_ToolBar, write=Set_ToolBar, nodefault};
  1268.     __property Word MenuBar = {read=Get_MenuBar, write=Set_MenuBar, nodefault};
  1269.     __property Word FullScreen = {read=Get_FullScreen, write=Set_FullScreen, nodefault};
  1270.     __property Word Offline = {read=Get_Offline, write=Set_Offline, nodefault};
  1271.     __property Word Silent = {read=Get_Silent, write=Set_Silent, nodefault};
  1272.     __property Word RegisterAsBrowser = {read=Get_RegisterAsBrowser, write=Set_RegisterAsBrowser, nodefault
  1273.         };
  1274.     __property Word RegisterAsDropTarget = {read=Get_RegisterAsDropTarget, write=Set_RegisterAsDropTarget
  1275.         , nodefault};
  1276.     __property Word TheaterMode = {read=Get_TheaterMode, write=Set_TheaterMode, nodefault};
  1277.     __property Word AddressBar = {read=Get_AddressBar, write=Set_AddressBar, nodefault};
  1278.     __property Word Resizable = {read=Get_Resizable, write=Set_Resizable, nodefault};
  1279.     
  1280. __published:
  1281.     __property TInternetExplorerStatusTextChange OnStatusTextChange = {read=FOnStatusTextChange, write=
  1282.         FOnStatusTextChange};
  1283.     __property TInternetExplorerProgressChange OnProgressChange = {read=FOnProgressChange, write=FOnProgressChange
  1284.         };
  1285.     __property TInternetExplorerCommandStateChange OnCommandStateChange = {read=FOnCommandStateChange, 
  1286.         write=FOnCommandStateChange};
  1287.     __property Classes::TNotifyEvent OnDownloadBegin = {read=FOnDownloadBegin, write=FOnDownloadBegin};
  1288.         
  1289.     __property Classes::TNotifyEvent OnDownloadComplete = {read=FOnDownloadComplete, write=FOnDownloadComplete
  1290.         };
  1291.     __property TInternetExplorerTitleChange OnTitleChange = {read=FOnTitleChange, write=FOnTitleChange}
  1292.         ;
  1293.     __property TInternetExplorerPropertyChange OnPropertyChange = {read=FOnPropertyChange, write=FOnPropertyChange
  1294.         };
  1295.     __property TInternetExplorerBeforeNavigate2 OnBeforeNavigate2 = {read=FOnBeforeNavigate2, write=FOnBeforeNavigate2
  1296.         };
  1297.     __property TInternetExplorerNewWindow2 OnNewWindow2 = {read=FOnNewWindow2, write=FOnNewWindow2};
  1298.     __property TInternetExplorerNavigateComplete2 OnNavigateComplete2 = {read=FOnNavigateComplete2, write=
  1299.         FOnNavigateComplete2};
  1300.     __property TInternetExplorerDocumentComplete OnDocumentComplete = {read=FOnDocumentComplete, write=
  1301.         FOnDocumentComplete};
  1302.     __property Classes::TNotifyEvent OnQuit = {read=FOnQuit, write=FOnQuit};
  1303.     __property TInternetExplorerOnVisible OnVisible = {read=FOnVisible, write=FOnVisible};
  1304.     __property TInternetExplorerOnToolBar OnToolBar = {read=FOnToolBar, write=FOnToolBar};
  1305.     __property TInternetExplorerOnMenuBar OnMenuBar = {read=FOnMenuBar, write=FOnMenuBar};
  1306.     __property TInternetExplorerOnStatusBar OnStatusBar = {read=FOnStatusBar, write=FOnStatusBar};
  1307.     __property TInternetExplorerOnFullScreen OnFullScreen = {read=FOnFullScreen, write=FOnFullScreen};
  1308.     __property TInternetExplorerOnTheaterMode OnTheaterMode = {read=FOnTheaterMode, write=FOnTheaterMode
  1309.         };
  1310. };
  1311.  
  1312.  
  1313. class DELPHICLASS CoShellBrowserWindow;
  1314. class PASCALIMPLEMENTATION CoShellBrowserWindow : public System::TObject 
  1315. {
  1316.     typedef System::TObject inherited;
  1317.     
  1318. public:
  1319.     /*         class method */ static _di_IWebBrowser2 __fastcall Create(TMetaClass* vmt);
  1320.     /*         class method */ static _di_IWebBrowser2 __fastcall CreateRemote(TMetaClass* vmt, const AnsiString 
  1321.         MachineName);
  1322. public:
  1323.     #pragma option push -w-inl
  1324.     /* TObject.Create */ inline __fastcall CoShellBrowserWindow(void) : System::TObject() { }
  1325.     #pragma option pop
  1326.     #pragma option push -w-inl
  1327.     /* TObject.Destroy */ inline __fastcall virtual ~CoShellBrowserWindow(void) { }
  1328.     #pragma option pop
  1329.     
  1330. };
  1331.  
  1332.  
  1333. class DELPHICLASS CoShellWindows;
  1334. class PASCALIMPLEMENTATION CoShellWindows : public System::TObject 
  1335. {
  1336.     typedef System::TObject inherited;
  1337.     
  1338. public:
  1339.     /*         class method */ static _di_IShellWindows __fastcall Create(TMetaClass* vmt);
  1340.     /*         class method */ static _di_IShellWindows __fastcall CreateRemote(TMetaClass* vmt, const 
  1341.         AnsiString MachineName);
  1342. public:
  1343.     #pragma option push -w-inl
  1344.     /* TObject.Create */ inline __fastcall CoShellWindows(void) : System::TObject() { }
  1345.     #pragma option pop
  1346.     #pragma option push -w-inl
  1347.     /* TObject.Destroy */ inline __fastcall virtual ~CoShellWindows(void) { }
  1348.     #pragma option pop
  1349.     
  1350. };
  1351.  
  1352.  
  1353. typedef void __fastcall (__closure *TShellWindowsWindowRegistered)(System::TObject* Sender, int lCookie
  1354.     );
  1355.  
  1356. typedef void __fastcall (__closure *TShellWindowsWindowRevoked)(System::TObject* Sender, int lCookie
  1357.     );
  1358.  
  1359. class DELPHICLASS TShellWindows;
  1360. class PASCALIMPLEMENTATION TShellWindows : public Oleserver::TOleServer 
  1361. {
  1362.     typedef Oleserver::TOleServer inherited;
  1363.     
  1364. private:
  1365.     TShellWindowsWindowRegistered FOnWindowRegistered;
  1366.     TShellWindowsWindowRevoked FOnWindowRevoked;
  1367.     _di_IShellWindows FIntf;
  1368.     _di_IShellWindows __fastcall GetDefaultInterface();
  1369.     
  1370. protected:
  1371.     virtual void __fastcall InitServerData(void);
  1372.     virtual void __fastcall InvokeEvent(int DispID, Oleserver::TVariantArray &Params);
  1373.     int __fastcall Get_Count(void);
  1374.     
  1375. public:
  1376.     __fastcall virtual TShellWindows(Classes::TComponent* AOwner);
  1377.     __fastcall virtual ~TShellWindows(void);
  1378.     virtual void __fastcall Connect(void);
  1379.     void __fastcall ConnectTo(_di_IShellWindows svrIntf);
  1380.     virtual void __fastcall Disconnect(void);
  1381.     _di_IDispatch __fastcall Item()/* overload */;
  1382.     _di_IDispatch __fastcall Item(const OleVariant &index)/* overload */;
  1383.     _di_IUnknown __fastcall _NewEnum();
  1384.     void __fastcall Register(const _di_IDispatch pid, int HWND, int swClass, /* out */ int &plCookie);
  1385.     void __fastcall RegisterPending(int lThreadId, OleVariant &pvarloc, OleVariant &pvarlocRoot, int swClass
  1386.         , /* out */ int &plCookie);
  1387.     void __fastcall Revoke(int lCookie);
  1388.     void __fastcall OnNavigate(int lCookie, OleVariant &pvarloc);
  1389.     void __fastcall OnActivated(int lCookie, Word fActive);
  1390.     _di_IDispatch __fastcall FindWindow(OleVariant &pvarloc, OleVariant &pvarlocRoot, int swClass, /* out */ 
  1391.         int &pHWND, int swfwOptions);
  1392.     void __fastcall OnCreated(int lCookie, const _di_IUnknown punk);
  1393.     void __fastcall ProcessAttachDetach(Word fAttach);
  1394.     __property _di_IShellWindows DefaultInterface = {read=GetDefaultInterface};
  1395.     __property int Count = {read=Get_Count, nodefault};
  1396.     
  1397. __published:
  1398.     __property TShellWindowsWindowRegistered OnWindowRegistered = {read=FOnWindowRegistered, write=FOnWindowRegistered
  1399.         };
  1400.     __property TShellWindowsWindowRevoked OnWindowRevoked = {read=FOnWindowRevoked, write=FOnWindowRevoked
  1401.         };
  1402. };
  1403.  
  1404.  
  1405. class DELPHICLASS CoShellUIHelper;
  1406. class PASCALIMPLEMENTATION CoShellUIHelper : public System::TObject 
  1407. {
  1408.     typedef System::TObject inherited;
  1409.     
  1410. public:
  1411.     /*         class method */ static _di_IShellUIHelper __fastcall Create(TMetaClass* vmt);
  1412.     /*         class method */ static _di_IShellUIHelper __fastcall CreateRemote(TMetaClass* vmt, const 
  1413.         AnsiString MachineName);
  1414. public:
  1415.     #pragma option push -w-inl
  1416.     /* TObject.Create */ inline __fastcall CoShellUIHelper(void) : System::TObject() { }
  1417.     #pragma option pop
  1418.     #pragma option push -w-inl
  1419.     /* TObject.Destroy */ inline __fastcall virtual ~CoShellUIHelper(void) { }
  1420.     #pragma option pop
  1421.     
  1422. };
  1423.  
  1424.  
  1425. class DELPHICLASS TShellUIHelper;
  1426. class PASCALIMPLEMENTATION TShellUIHelper : public Oleserver::TOleServer 
  1427. {
  1428.     typedef Oleserver::TOleServer inherited;
  1429.     
  1430. private:
  1431.     _di_IShellUIHelper FIntf;
  1432.     _di_IShellUIHelper __fastcall GetDefaultInterface();
  1433.     
  1434. protected:
  1435.     virtual void __fastcall InitServerData(void);
  1436.     
  1437. public:
  1438.     __fastcall virtual TShellUIHelper(Classes::TComponent* AOwner);
  1439.     __fastcall virtual ~TShellUIHelper(void);
  1440.     virtual void __fastcall Connect(void);
  1441.     void __fastcall ConnectTo(_di_IShellUIHelper svrIntf);
  1442.     virtual void __fastcall Disconnect(void);
  1443.     void __fastcall ResetFirstBootMode(void);
  1444.     void __fastcall ResetSafeMode(void);
  1445.     void __fastcall RefreshOfflineDesktop(void);
  1446.     void __fastcall AddFavorite(const WideString URL)/* overload */;
  1447.     void __fastcall AddFavorite(const WideString URL, OleVariant &Title)/* overload */;
  1448.     void __fastcall AddChannel(const WideString URL);
  1449.     void __fastcall AddDesktopComponent(const WideString URL, const WideString Type_)/* overload */;
  1450.     void __fastcall AddDesktopComponent(const WideString URL, const WideString Type_, OleVariant &Left)
  1451.         /* overload */;
  1452.     void __fastcall AddDesktopComponent(const WideString URL, const WideString Type_, OleVariant &Left, 
  1453.         OleVariant &Top)/* overload */;
  1454.     void __fastcall AddDesktopComponent(const WideString URL, const WideString Type_, OleVariant &Left, 
  1455.         OleVariant &Top, OleVariant &Width)/* overload */;
  1456.     void __fastcall AddDesktopComponent(const WideString URL, const WideString Type_, OleVariant &Left, 
  1457.         OleVariant &Top, OleVariant &Width, OleVariant &Height)/* overload */;
  1458.     Word __fastcall IsSubscribed(const WideString URL);
  1459.     void __fastcall NavigateAndFind(const WideString URL, const WideString strQuery, OleVariant &varTargetFrame
  1460.         );
  1461.     void __fastcall ImportExportFavorites(Word fImport, const WideString strImpExpPath);
  1462.     void __fastcall AutoCompleteSaveForm(void)/* overload */;
  1463.     void __fastcall AutoCompleteSaveForm(OleVariant &Form)/* overload */;
  1464.     void __fastcall AutoScan(const WideString strSearch, const WideString strFailureUrl)/* overload */;
  1465.         
  1466.     void __fastcall AutoScan(const WideString strSearch, const WideString strFailureUrl, OleVariant &pvarTargetFrame
  1467.         )/* overload */;
  1468.     void __fastcall AutoCompleteAttach(void)/* overload */;
  1469.     void __fastcall AutoCompleteAttach(OleVariant &Reserved)/* overload */;
  1470.     OleVariant __fastcall ShowBrowserUI(const WideString bstrName, OleVariant &pvarIn);
  1471.     __property _di_IShellUIHelper DefaultInterface = {read=GetDefaultInterface};
  1472. };
  1473.  
  1474.  
  1475. class DELPHICLASS CoShellFavoritesNameSpace;
  1476. class PASCALIMPLEMENTATION CoShellFavoritesNameSpace : public System::TObject 
  1477. {
  1478.     typedef System::TObject inherited;
  1479.     
  1480. public:
  1481.     /*         class method */ static _di_IShellFavoritesNameSpace __fastcall Create(TMetaClass* vmt);
  1482.     /*         class method */ static _di_IShellFavoritesNameSpace __fastcall CreateRemote(TMetaClass* vmt
  1483.         , const AnsiString MachineName);
  1484. public:
  1485.     #pragma option push -w-inl
  1486.     /* TObject.Create */ inline __fastcall CoShellFavoritesNameSpace(void) : System::TObject() { }
  1487.     #pragma option pop
  1488.     #pragma option push -w-inl
  1489.     /* TObject.Destroy */ inline __fastcall virtual ~CoShellFavoritesNameSpace(void) { }
  1490.     #pragma option pop
  1491.     
  1492. };
  1493.  
  1494.  
  1495. typedef void __fastcall (__closure *TShellFavoritesNameSpaceFavoritesSelectionChange)(System::TObject* 
  1496.     Sender, int cItems, int hItem, OleVariant &strName, OleVariant &strUrl, int cVisits, OleVariant &strDate
  1497.     , int fAvailableOffline);
  1498.  
  1499. class DELPHICLASS TShellFavoritesNameSpace;
  1500. class PASCALIMPLEMENTATION TShellFavoritesNameSpace : public Oleserver::TOleServer 
  1501. {
  1502.     typedef Oleserver::TOleServer inherited;
  1503.     
  1504. private:
  1505.     TShellFavoritesNameSpaceFavoritesSelectionChange FOnFavoritesSelectionChange;
  1506.     _di_IShellFavoritesNameSpace FIntf;
  1507.     _di_IShellFavoritesNameSpace __fastcall GetDefaultInterface();
  1508.     
  1509. protected:
  1510.     virtual void __fastcall InitServerData(void);
  1511.     virtual void __fastcall InvokeEvent(int DispID, Oleserver::TVariantArray &Params);
  1512.     Word __fastcall Get_FOfflinePackInstalled(void);
  1513.     
  1514. public:
  1515.     __fastcall virtual TShellFavoritesNameSpace(Classes::TComponent* AOwner);
  1516.     __fastcall virtual ~TShellFavoritesNameSpace(void);
  1517.     virtual void __fastcall Connect(void);
  1518.     void __fastcall ConnectTo(_di_IShellFavoritesNameSpace svrIntf);
  1519.     virtual void __fastcall Disconnect(void);
  1520.     void __fastcall MoveSelectionUp(void);
  1521.     void __fastcall MoveSelectionDown(void);
  1522.     void __fastcall ResetSort(void);
  1523.     void __fastcall NewFolder(void);
  1524.     void __fastcall Synchronize(void);
  1525.     void __fastcall Import(void);
  1526.     void __fastcall Export(void);
  1527.     void __fastcall InvokeContextMenuCommand(const WideString strCommand);
  1528.     void __fastcall MoveSelectionTo(void);
  1529.     Word __fastcall CreateSubscriptionForSelection(void);
  1530.     Word __fastcall DeleteSubscriptionForSelection(void);
  1531.     void __fastcall SetRoot(const WideString bstrFullPath);
  1532.     __property _di_IShellFavoritesNameSpace DefaultInterface = {read=GetDefaultInterface};
  1533.     __property Word FOfflinePackInstalled = {read=Get_FOfflinePackInstalled, nodefault};
  1534.     
  1535. __published:
  1536.     __property TShellFavoritesNameSpaceFavoritesSelectionChange OnFavoritesSelectionChange = {read=FOnFavoritesSelectionChange
  1537.         , write=FOnFavoritesSelectionChange};
  1538. };
  1539.  
  1540.  
  1541. class DELPHICLASS CoCScriptErrorList;
  1542. class PASCALIMPLEMENTATION CoCScriptErrorList : public System::TObject 
  1543. {
  1544.     typedef System::TObject inherited;
  1545.     
  1546. public:
  1547.     /*         class method */ static _di_IScriptErrorList __fastcall Create(TMetaClass* vmt);
  1548.     /*         class method */ static _di_IScriptErrorList __fastcall CreateRemote(TMetaClass* vmt, const 
  1549.         AnsiString MachineName);
  1550. public:
  1551.     #pragma option push -w-inl
  1552.     /* TObject.Create */ inline __fastcall CoCScriptErrorList(void) : System::TObject() { }
  1553.     #pragma option pop
  1554.     #pragma option push -w-inl
  1555.     /* TObject.Destroy */ inline __fastcall virtual ~CoCScriptErrorList(void) { }
  1556.     #pragma option pop
  1557.     
  1558. };
  1559.  
  1560.  
  1561. class DELPHICLASS CoSearchAssistantOC;
  1562. class PASCALIMPLEMENTATION CoSearchAssistantOC : public System::TObject 
  1563. {
  1564.     typedef System::TObject inherited;
  1565.     
  1566. public:
  1567.     /*         class method */ static _di_ISearchAssistantOC __fastcall Create(TMetaClass* vmt);
  1568.     /*         class method */ static _di_ISearchAssistantOC __fastcall CreateRemote(TMetaClass* vmt, const 
  1569.         AnsiString MachineName);
  1570. public:
  1571.     #pragma option push -w-inl
  1572.     /* TObject.Create */ inline __fastcall CoSearchAssistantOC(void) : System::TObject() { }
  1573.     #pragma option pop
  1574.     #pragma option push -w-inl
  1575.     /* TObject.Destroy */ inline __fastcall virtual ~CoSearchAssistantOC(void) { }
  1576.     #pragma option pop
  1577.     
  1578. };
  1579.  
  1580.  
  1581. //-- var, const, procedure ---------------------------------------------------
  1582. static const Shortint SHDocVwMajorVersion = 0x1;
  1583. static const Shortint SHDocVwMinorVersion = 0x1;
  1584. extern PACKAGE GUID LIBID_SHDocVw;
  1585. extern PACKAGE GUID IID_IWebBrowser;
  1586. extern PACKAGE GUID DIID_DWebBrowserEvents;
  1587. extern PACKAGE GUID IID_IWebBrowserApp;
  1588. extern PACKAGE GUID IID_IWebBrowser2;
  1589. extern PACKAGE GUID DIID_DWebBrowserEvents2;
  1590. extern PACKAGE GUID CLASS_WebBrowser_V1;
  1591. extern PACKAGE GUID CLASS_WebBrowser;
  1592. extern PACKAGE GUID CLASS_InternetExplorer;
  1593. extern PACKAGE GUID CLASS_ShellBrowserWindow;
  1594. extern PACKAGE GUID DIID_DShellWindowsEvents;
  1595. extern PACKAGE GUID IID_IShellWindows;
  1596. extern PACKAGE GUID CLASS_ShellWindows;
  1597. extern PACKAGE GUID IID_IShellUIHelper;
  1598. extern PACKAGE GUID CLASS_ShellUIHelper;
  1599. extern PACKAGE GUID DIID__ShellFavoritesNameSpaceEvents;
  1600. extern PACKAGE GUID IID_IShellFavoritesNameSpace;
  1601. extern PACKAGE GUID CLASS_ShellFavoritesNameSpace;
  1602. extern PACKAGE GUID IID_IScriptErrorList;
  1603. extern PACKAGE GUID CLASS_CScriptErrorList;
  1604. extern PACKAGE GUID IID_ISearch;
  1605. extern PACKAGE GUID IID_ISearches;
  1606. extern PACKAGE GUID IID_ISearchAssistantOC;
  1607. extern PACKAGE GUID DIID__SearchAssistantEvents;
  1608. extern PACKAGE GUID CLASS_SearchAssistantOC;
  1609. static const unsigned CSC_UPDATECOMMANDS = 0xffffffff;
  1610. static const Shortint CSC_NAVIGATEFORWARD = 0x1;
  1611. static const Shortint CSC_NAVIGATEBACK = 0x2;
  1612. static const Shortint OLECMDID_OPEN = 0x1;
  1613. static const Shortint OLECMDID_NEW = 0x2;
  1614. static const Shortint OLECMDID_SAVE = 0x3;
  1615. static const Shortint OLECMDID_SAVEAS = 0x4;
  1616. static const Shortint OLECMDID_SAVECOPYAS = 0x5;
  1617. static const Shortint OLECMDID_PRINT = 0x6;
  1618. static const Shortint OLECMDID_PRINTPREVIEW = 0x7;
  1619. static const Shortint OLECMDID_PAGESETUP = 0x8;
  1620. static const Shortint OLECMDID_SPELL = 0x9;
  1621. static const Shortint OLECMDID_PROPERTIES = 0xa;
  1622. static const Shortint OLECMDID_CUT = 0xb;
  1623. static const Shortint OLECMDID_COPY = 0xc;
  1624. static const Shortint OLECMDID_PASTE = 0xd;
  1625. static const Shortint OLECMDID_PASTESPECIAL = 0xe;
  1626. static const Shortint OLECMDID_UNDO = 0xf;
  1627. static const Shortint OLECMDID_REDO = 0x10;
  1628. static const Shortint OLECMDID_SELECTALL = 0x11;
  1629. static const Shortint OLECMDID_CLEARSELECTION = 0x12;
  1630. static const Shortint OLECMDID_ZOOM = 0x13;
  1631. static const Shortint OLECMDID_GETZOOMRANGE = 0x14;
  1632. static const Shortint OLECMDID_UPDATECOMMANDS = 0x15;
  1633. static const Shortint OLECMDID_REFRESH = 0x16;
  1634. static const Shortint OLECMDID_STOP = 0x17;
  1635. static const Shortint OLECMDID_HIDETOOLBARS = 0x18;
  1636. static const Shortint OLECMDID_SETPROGRESSMAX = 0x19;
  1637. static const Shortint OLECMDID_SETPROGRESSPOS = 0x1a;
  1638. static const Shortint OLECMDID_SETPROGRESSTEXT = 0x1b;
  1639. static const Shortint OLECMDID_SETTITLE = 0x1c;
  1640. static const Shortint OLECMDID_SETDOWNLOADSTATE = 0x1d;
  1641. static const Shortint OLECMDID_STOPDOWNLOAD = 0x1e;
  1642. static const Shortint OLECMDID_ONTOOLBARACTIVATED = 0x1f;
  1643. static const Shortint OLECMDID_FIND = 0x20;
  1644. static const Shortint OLECMDID_DELETE = 0x21;
  1645. static const Shortint OLECMDID_HTTPEQUIV = 0x22;
  1646. static const Shortint OLECMDID_HTTPEQUIV_DONE = 0x23;
  1647. static const Shortint OLECMDID_ENABLE_INTERACTION = 0x24;
  1648. static const Shortint OLECMDID_ONUNLOAD = 0x25;
  1649. static const Shortint OLECMDID_PROPERTYBAG2 = 0x26;
  1650. static const Shortint OLECMDID_PREREFRESH = 0x27;
  1651. static const Shortint OLECMDID_SHOWSCRIPTERROR = 0x28;
  1652. static const Shortint OLECMDID_SHOWMESSAGE = 0x29;
  1653. static const Shortint OLECMDID_SHOWFIND = 0x2a;
  1654. static const Shortint OLECMDID_SHOWPAGESETUP = 0x2b;
  1655. static const Shortint OLECMDID_SHOWPRINT = 0x2c;
  1656. static const Shortint OLECMDID_CLOSE = 0x2d;
  1657. static const Shortint OLECMDID_ALLOWUILESSSAVEAS = 0x2e;
  1658. static const Shortint OLECMDID_DONTDOWNLOADCSS = 0x2f;
  1659. static const Shortint OLECMDF_SUPPORTED = 0x1;
  1660. static const Shortint OLECMDF_ENABLED = 0x2;
  1661. static const Shortint OLECMDF_LATCHED = 0x4;
  1662. static const Shortint OLECMDF_NINCHED = 0x8;
  1663. static const Shortint OLECMDF_INVISIBLE = 0x10;
  1664. static const Shortint OLECMDF_DEFHIDEONCTXTMENU = 0x20;
  1665. static const Shortint OLECMDEXECOPT_DODEFAULT = 0x0;
  1666. static const Shortint OLECMDEXECOPT_PROMPTUSER = 0x1;
  1667. static const Shortint OLECMDEXECOPT_DONTPROMPTUSER = 0x2;
  1668. static const Shortint OLECMDEXECOPT_SHOWHELP = 0x3;
  1669. static const Shortint READYSTATE_UNINITIALIZED = 0x0;
  1670. static const Shortint READYSTATE_LOADING = 0x1;
  1671. static const Shortint READYSTATE_LOADED = 0x2;
  1672. static const Shortint READYSTATE_INTERACTIVE = 0x3;
  1673. static const Shortint READYSTATE_COMPLETE = 0x4;
  1674. static const Shortint SWC_EXPLORER = 0x0;
  1675. static const Shortint SWC_BROWSER = 0x1;
  1676. static const Shortint SWC_3RDPARTY = 0x2;
  1677. static const Shortint SWC_CALLBACK = 0x4;
  1678. static const Shortint SWFO_NEEDDISPATCH = 0x1;
  1679. static const Shortint SWFO_INCLUDEPENDING = 0x2;
  1680. static const Shortint SWFO_COOKIEPASSED = 0x4;
  1681. static const Shortint REFRESH_NORMAL = 0x0;
  1682. static const Shortint REFRESH_IFEXPIRED = 0x1;
  1683. static const Shortint REFRESH_CONTINUE = 0x2;
  1684. static const Shortint REFRESH_COMPLETELY = 0x3;
  1685. static const Shortint navOpenInNewWindow = 0x1;
  1686. static const Shortint navNoHistory = 0x2;
  1687. static const Shortint navNoReadFromCache = 0x4;
  1688. static const Shortint navNoWriteToCache = 0x8;
  1689. static const Shortint navAllowAutosearch = 0x10;
  1690. static const Shortint navBrowserBar = 0x20;
  1691.  
  1692. }    /* namespace Shdocvw */
  1693. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  1694. using namespace Shdocvw;
  1695. #endif
  1696. #pragma option pop    // -w-
  1697. #pragma option pop    // -Vx
  1698.  
  1699. #pragma delphiheader end.
  1700. //-- end unit ----------------------------------------------------------------
  1701. #endif    // SHDocVw
  1702.