home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Runimage / Delphi50 / Source / Internet / shdocvw.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  129.9 KB  |  3,549 lines
  1. unit SHDocVw;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                    
  5. // -------                                                                    
  6. // The types declared in this file were generated from data read from a       
  7. // Type Library. If this type library is explicitly or indirectly (via        
  8. // another type library referring to this type library) re-imported, or the   
  9. // 'Refresh' command of the Type Library Editor activated while editing the   
  10. // Type Library, the contents of this file will be regenerated and all        
  11. // manual modifications will be lost.                                         
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.8  $
  15. // File generated on 7/26/99 12:22:56 PM from Type Library described below.
  16.  
  17. // *************************************************************************//
  18. // NOTE:                                                                      
  19. // Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties  
  20. // which return objects that may need to be explicitly created via a function 
  21. // call prior to any access via the property. These items have been disabled  
  22. // in order to prevent accidental use from within the object inspector. You   
  23. // may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively   
  24. // removing them from the $IFDEF blocks. However, such items must still be    
  25. // programmatically created via a method of the appropriate CoClass before    
  26. // they can be used.                                                          
  27. // ************************************************************************ //
  28. // Type Lib: C:\WINNT\System32\shdocvw.dll (1)
  29. // IID\LCID: {EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\0
  30. // Helpfile: 
  31. // DepndLst: 
  32. //   (1) v2.0 stdole, (C:\WINNT\System32\STDOLE2.TLB)
  33. //   (2) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL)
  34. // Errors:
  35. //   Hint: Member 'Type' of 'IWebBrowser' changed to 'Type_'
  36. //   Hint: Parameter 'Type' of IWebBrowser.Type changed to 'Type_'
  37. //   Hint: Parameter 'Property' of DWebBrowserEvents.PropertyChange changed to 'Property_'
  38. //   Hint: Parameter 'Property' of IWebBrowserApp.PutProperty changed to 'Property_'
  39. //   Hint: Parameter 'Property' of IWebBrowserApp.GetProperty changed to 'Property_'
  40. //   Hint: Parameter 'Type' of IShellUIHelper.AddDesktopComponent changed to 'Type_'
  41. //   Error creating palette bitmap of (TInternetExplorer) : Invalid GUID format
  42. // ************************************************************************ //
  43. {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
  44. interface
  45.  
  46. uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;
  47.  
  48. // *********************************************************************//
  49. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  50. //   Type Libraries     : LIBID_xxxx                                      
  51. //   CoClasses          : CLASS_xxxx                                      
  52. //   DISPInterfaces     : DIID_xxxx                                       
  53. //   Non-DISP interfaces: IID_xxxx                                        
  54. // *********************************************************************//
  55. const
  56.   // TypeLibrary Major and minor versions
  57.   SHDocVwMajorVersion = 1;
  58.   SHDocVwMinorVersion = 1;
  59.  
  60.   LIBID_SHDocVw: TGUID = '{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}';
  61.  
  62.   IID_IWebBrowser: TGUID = '{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}';
  63.   DIID_DWebBrowserEvents: TGUID = '{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}';
  64.   IID_IWebBrowserApp: TGUID = '{0002DF05-0000-0000-C000-000000000046}';
  65.   IID_IWebBrowser2: TGUID = '{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}';
  66.   DIID_DWebBrowserEvents2: TGUID = '{34A715A0-6587-11D0-924A-0020AFC7AC4D}';
  67.   CLASS_WebBrowser_V1: TGUID = '{EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B}';
  68.   CLASS_WebBrowser: TGUID = '{8856F961-340A-11D0-A96B-00C04FD705A2}';
  69.   CLASS_InternetExplorer: TGUID = '{0002DF01-0000-0000-C000-000000000046}';
  70.   CLASS_ShellBrowserWindow: TGUID = '{C08AFD90-F2A1-11D1-8455-00A0C91F3880}';
  71.   DIID_DShellWindowsEvents: TGUID = '{FE4106E0-399A-11D0-A48C-00A0C90A8F39}';
  72.   IID_IShellWindows: TGUID = '{85CB6900-4D95-11CF-960C-0080C7F4EE85}';
  73.   CLASS_ShellWindows: TGUID = '{9BA05972-F6A8-11CF-A442-00A0C90A8F39}';
  74.   IID_IShellUIHelper: TGUID = '{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}';
  75.   CLASS_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
  76.   DIID__ShellFavoritesNameSpaceEvents: TGUID = '{55136806-B2DE-11D1-B9F2-00A0C98BC547}';
  77.   IID_IShellFavoritesNameSpace: TGUID = '{55136804-B2DE-11D1-B9F2-00A0C98BC547}';
  78.   CLASS_ShellFavoritesNameSpace: TGUID = '{55136805-B2DE-11D1-B9F2-00A0C98BC547}';
  79.   IID_IScriptErrorList: TGUID = '{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}';
  80.   CLASS_CScriptErrorList: TGUID = '{EFD01300-160F-11D2-BB2E-00805FF7EFCA}';
  81.   IID_ISearch: TGUID = '{BA9239A4-3DD5-11D2-BF8B-00C04FB93661}';
  82.   IID_ISearches: TGUID = '{47C922A2-3DD5-11D2-BF8B-00C04FB93661}';
  83.   IID_ISearchAssistantOC: TGUID = '{72423E8F-8011-11D2-BE79-00A0C9A83DA1}';
  84.   DIID__SearchAssistantEvents: TGUID = '{1611FDDA-445B-11D2-85DE-00C04FA35C89}';
  85.   CLASS_SearchAssistantOC: TGUID = '{B45FF030-4447-11D2-85DE-00C04FA35C89}';
  86.  
  87. // *********************************************************************//
  88. // Declaration of Enumerations defined in Type Library                    
  89. // *********************************************************************//
  90. // CommandStateChangeConstants constants
  91. type
  92.   CommandStateChangeConstants = TOleEnum;
  93. const
  94.   CSC_UPDATECOMMANDS = $FFFFFFFF;
  95.   CSC_NAVIGATEFORWARD = $00000001;
  96.   CSC_NAVIGATEBACK = $00000002;
  97.  
  98. // OLECMDID constants
  99. type
  100.   OLECMDID = TOleEnum;
  101. const
  102.   OLECMDID_OPEN = $00000001;
  103.   OLECMDID_NEW = $00000002;
  104.   OLECMDID_SAVE = $00000003;
  105.   OLECMDID_SAVEAS = $00000004;
  106.   OLECMDID_SAVECOPYAS = $00000005;
  107.   OLECMDID_PRINT = $00000006;
  108.   OLECMDID_PRINTPREVIEW = $00000007;
  109.   OLECMDID_PAGESETUP = $00000008;
  110.   OLECMDID_SPELL = $00000009;
  111.   OLECMDID_PROPERTIES = $0000000A;
  112.   OLECMDID_CUT = $0000000B;
  113.   OLECMDID_COPY = $0000000C;
  114.   OLECMDID_PASTE = $0000000D;
  115.   OLECMDID_PASTESPECIAL = $0000000E;
  116.   OLECMDID_UNDO = $0000000F;
  117.   OLECMDID_REDO = $00000010;
  118.   OLECMDID_SELECTALL = $00000011;
  119.   OLECMDID_CLEARSELECTION = $00000012;
  120.   OLECMDID_ZOOM = $00000013;
  121.   OLECMDID_GETZOOMRANGE = $00000014;
  122.   OLECMDID_UPDATECOMMANDS = $00000015;
  123.   OLECMDID_REFRESH = $00000016;
  124.   OLECMDID_STOP = $00000017;
  125.   OLECMDID_HIDETOOLBARS = $00000018;
  126.   OLECMDID_SETPROGRESSMAX = $00000019;
  127.   OLECMDID_SETPROGRESSPOS = $0000001A;
  128.   OLECMDID_SETPROGRESSTEXT = $0000001B;
  129.   OLECMDID_SETTITLE = $0000001C;
  130.   OLECMDID_SETDOWNLOADSTATE = $0000001D;
  131.   OLECMDID_STOPDOWNLOAD = $0000001E;
  132.   OLECMDID_ONTOOLBARACTIVATED = $0000001F;
  133.   OLECMDID_FIND = $00000020;
  134.   OLECMDID_DELETE = $00000021;
  135.   OLECMDID_HTTPEQUIV = $00000022;
  136.   OLECMDID_HTTPEQUIV_DONE = $00000023;
  137.   OLECMDID_ENABLE_INTERACTION = $00000024;
  138.   OLECMDID_ONUNLOAD = $00000025;
  139.   OLECMDID_PROPERTYBAG2 = $00000026;
  140.   OLECMDID_PREREFRESH = $00000027;
  141.   OLECMDID_SHOWSCRIPTERROR = $00000028;
  142.   OLECMDID_SHOWMESSAGE = $00000029;
  143.   OLECMDID_SHOWFIND = $0000002A;
  144.   OLECMDID_SHOWPAGESETUP = $0000002B;
  145.   OLECMDID_SHOWPRINT = $0000002C;
  146.   OLECMDID_CLOSE = $0000002D;
  147.   OLECMDID_ALLOWUILESSSAVEAS = $0000002E;
  148.   OLECMDID_DONTDOWNLOADCSS = $0000002F;
  149.  
  150. // OLECMDF constants
  151. type
  152.   OLECMDF = TOleEnum;
  153. const
  154.   OLECMDF_SUPPORTED = $00000001;
  155.   OLECMDF_ENABLED = $00000002;
  156.   OLECMDF_LATCHED = $00000004;
  157.   OLECMDF_NINCHED = $00000008;
  158.   OLECMDF_INVISIBLE = $00000010;
  159.   OLECMDF_DEFHIDEONCTXTMENU = $00000020;
  160.  
  161. // OLECMDEXECOPT constants
  162. type
  163.   OLECMDEXECOPT = TOleEnum;
  164. const
  165.   OLECMDEXECOPT_DODEFAULT = $00000000;
  166.   OLECMDEXECOPT_PROMPTUSER = $00000001;
  167.   OLECMDEXECOPT_DONTPROMPTUSER = $00000002;
  168.   OLECMDEXECOPT_SHOWHELP = $00000003;
  169.  
  170. // tagREADYSTATE constants
  171. type
  172.   tagREADYSTATE = TOleEnum;
  173. const
  174.   READYSTATE_UNINITIALIZED = $00000000;
  175.   READYSTATE_LOADING = $00000001;
  176.   READYSTATE_LOADED = $00000002;
  177.   READYSTATE_INTERACTIVE = $00000003;
  178.   READYSTATE_COMPLETE = $00000004;
  179.  
  180. // ShellWindowTypeConstants constants
  181. type
  182.   ShellWindowTypeConstants = TOleEnum;
  183. const
  184.   SWC_EXPLORER = $00000000;
  185.   SWC_BROWSER = $00000001;
  186.   SWC_3RDPARTY = $00000002;
  187.   SWC_CALLBACK = $00000004;
  188.  
  189. // ShellWindowFindWindowOptions constants
  190. type
  191.   ShellWindowFindWindowOptions = TOleEnum;
  192. const
  193.   SWFO_NEEDDISPATCH = $00000001;
  194.   SWFO_INCLUDEPENDING = $00000002;
  195.   SWFO_COOKIEPASSED = $00000004;
  196.  
  197. type
  198.   RefreshConstants = TOleEnum;
  199. const
  200.   REFRESH_NORMAL = 0;
  201.   REFRESH_IFEXPIRED = 1;
  202.   REFRESH_CONTINUE = 2;
  203.   REFRESH_COMPLETELY = 3;
  204.  
  205. type
  206.   BrowserNavConstants = TOleEnum;
  207. const
  208.   navOpenInNewWindow = $00000001;
  209.   navNoHistory       = $00000002;
  210.   navNoReadFromCache = $00000004;
  211.   navNoWriteToCache  = $00000008;
  212.   navAllowAutosearch = $00000010;
  213.   navBrowserBar      = $00000020;
  214.  
  215. type
  216.  
  217. // *********************************************************************//
  218. // Forward declaration of types defined in TypeLibrary                    
  219. // *********************************************************************//
  220.   IWebBrowser = interface;
  221.   IWebBrowserDisp = dispinterface;
  222.   DWebBrowserEvents = dispinterface;
  223.   IWebBrowserApp = interface;
  224.   IWebBrowserAppDisp = dispinterface;
  225.   IWebBrowser2 = interface;
  226.   IWebBrowser2Disp = dispinterface;
  227.   DWebBrowserEvents2 = dispinterface;
  228.   DShellWindowsEvents = dispinterface;
  229.   IShellWindows = interface;
  230.   IShellWindowsDisp = dispinterface;
  231.   IShellUIHelper = interface;
  232.   IShellUIHelperDisp = dispinterface;
  233.   _ShellFavoritesNameSpaceEvents = dispinterface;
  234.   IShellFavoritesNameSpace = interface;
  235.   IShellFavoritesNameSpaceDisp = dispinterface;
  236.   IScriptErrorList = interface;
  237.   IScriptErrorListDisp = dispinterface;
  238.   ISearch = interface;
  239.   ISearchDisp = dispinterface;
  240.   ISearches = interface;
  241.   ISearchesDisp = dispinterface;
  242.   ISearchAssistantOC = interface;
  243.   ISearchAssistantOCDisp = dispinterface;
  244.   _SearchAssistantEvents = dispinterface;
  245.  
  246. // *********************************************************************//
  247. // Declaration of CoClasses defined in Type Library                       
  248. // (NOTE: Here we map each CoClass to its Default Interface)              
  249. // *********************************************************************//
  250.   WebBrowser_V1 = IWebBrowser;
  251.   WebBrowser = IWebBrowser2;
  252.   InternetExplorer = IWebBrowser2;
  253.   ShellBrowserWindow = IWebBrowser2;
  254.   ShellWindows = IShellWindows;
  255.   ShellUIHelper = IShellUIHelper;
  256.   ShellFavoritesNameSpace = IShellFavoritesNameSpace;
  257.   CScriptErrorList = IScriptErrorList;
  258.   SearchAssistantOC = ISearchAssistantOC;
  259.  
  260.  
  261. // *********************************************************************//
  262. // Declaration of structures, unions and aliases.                         
  263. // *********************************************************************//
  264.   POleVariant1 = ^OleVariant; {*}
  265.  
  266.  
  267. // *********************************************************************//
  268. // Interface: IWebBrowser
  269. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  270. // GUID:      {EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}
  271. // *********************************************************************//
  272.   IWebBrowser = interface(IDispatch)
  273.     ['{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}']
  274.     procedure GoBack; safecall;
  275.     procedure GoForward; safecall;
  276.     procedure GoHome; safecall;
  277.     procedure GoSearch; safecall;
  278.     procedure Navigate(const URL: WideString; var Flags: OleVariant; 
  279.                        var TargetFrameName: OleVariant; var PostData: OleVariant; 
  280.                        var Headers: OleVariant); safecall;
  281.     procedure Refresh; safecall;
  282.     procedure Refresh2(var Level: OleVariant); safecall;
  283.     procedure Stop; safecall;
  284.     function  Get_Application: IDispatch; safecall;
  285.     function  Get_Parent: IDispatch; safecall;
  286.     function  Get_Container: IDispatch; safecall;
  287.     function  Get_Document: IDispatch; safecall;
  288.     function  Get_TopLevelContainer: WordBool; safecall;
  289.     function  Get_Type_: WideString; safecall;
  290.     function  Get_Left: Integer; safecall;
  291.     procedure Set_Left(pl: Integer); safecall;
  292.     function  Get_Top: Integer; safecall;
  293.     procedure Set_Top(pl: Integer); safecall;
  294.     function  Get_Width: Integer; safecall;
  295.     procedure Set_Width(pl: Integer); safecall;
  296.     function  Get_Height: Integer; safecall;
  297.     procedure Set_Height(pl: Integer); safecall;
  298.     function  Get_LocationName: WideString; safecall;
  299.     function  Get_LocationURL: WideString; safecall;
  300.     function  Get_Busy: WordBool; safecall;
  301.     property Application: IDispatch read Get_Application;
  302.     property Parent: IDispatch read Get_Parent;
  303.     property Container: IDispatch read Get_Container;
  304.     property Document: IDispatch read Get_Document;
  305.     property TopLevelContainer: WordBool read Get_TopLevelContainer;
  306.     property Type_: WideString read Get_Type_;
  307.     property Left: Integer read Get_Left write Set_Left;
  308.     property Top: Integer read Get_Top write Set_Top;
  309.     property Width: Integer read Get_Width write Set_Width;
  310.     property Height: Integer read Get_Height write Set_Height;
  311.     property LocationName: WideString read Get_LocationName;
  312.     property LocationURL: WideString read Get_LocationURL;
  313.     property Busy: WordBool read Get_Busy;
  314.   end;
  315.  
  316. // *********************************************************************//
  317. // DispIntf:  IWebBrowserDisp
  318. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  319. // GUID:      {EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}
  320. // *********************************************************************//
  321.   IWebBrowserDisp = dispinterface
  322.     ['{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}']
  323.     procedure GoBack; dispid 100;
  324.     procedure GoForward; dispid 101;
  325.     procedure GoHome; dispid 102;
  326.     procedure GoSearch; dispid 103;
  327.     procedure Navigate(const URL: WideString; var Flags: OleVariant; 
  328.                        var TargetFrameName: OleVariant; var PostData: OleVariant; 
  329.                        var Headers: OleVariant); dispid 104;
  330.     procedure Refresh; dispid -550;
  331.     procedure Refresh2(var Level: OleVariant); dispid 105;
  332.     procedure Stop; dispid 106;
  333.     property Application: IDispatch readonly dispid 200;
  334.     property Parent: IDispatch readonly dispid 201;
  335.     property Container: IDispatch readonly dispid 202;
  336.     property Document: IDispatch readonly dispid 203;
  337.     property TopLevelContainer: WordBool readonly dispid 204;
  338.     property Type_: WideString readonly dispid 205;
  339.     property Left: Integer dispid 206;
  340.     property Top: Integer dispid 207;
  341.     property Width: Integer dispid 208;
  342.     property Height: Integer dispid 209;
  343.     property LocationName: WideString readonly dispid 210;
  344.     property LocationURL: WideString readonly dispid 211;
  345.     property Busy: WordBool readonly dispid 212;
  346.   end;
  347.  
  348. // *********************************************************************//
  349. // DispIntf:  DWebBrowserEvents
  350. // Flags:     (4112) Hidden Dispatchable
  351. // GUID:      {EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}
  352. // *********************************************************************//
  353.   DWebBrowserEvents = dispinterface
  354.     ['{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}']
  355.     procedure BeforeNavigate(const URL: WideString; Flags: Integer; 
  356.                              const TargetFrameName: WideString; var PostData: OleVariant; 
  357.                              const Headers: WideString; var Cancel: WordBool); dispid 100;
  358.     procedure NavigateComplete(const URL: WideString); dispid 101;
  359.     procedure StatusTextChange(const Text: WideString); dispid 102;
  360.     procedure ProgressChange(Progress: Integer; ProgressMax: Integer); dispid 108;
  361.     procedure DownloadComplete; dispid 104;
  362.     procedure CommandStateChange(Command: Integer; Enable: WordBool); dispid 105;
  363.     procedure DownloadBegin; dispid 106;
  364.     procedure NewWindow(const URL: WideString; Flags: Integer; const TargetFrameName: WideString; 
  365.                         var PostData: OleVariant; const Headers: WideString; var Processed: WordBool); dispid 107;
  366.     procedure TitleChange(const Text: WideString); dispid 113;
  367.     procedure FrameBeforeNavigate(const URL: WideString; Flags: Integer; 
  368.                                   const TargetFrameName: WideString; var PostData: OleVariant; 
  369.                                   const Headers: WideString; var Cancel: WordBool); dispid 200;
  370.     procedure FrameNavigateComplete(const URL: WideString); dispid 201;
  371.     procedure FrameNewWindow(const URL: WideString; Flags: Integer; 
  372.                              const TargetFrameName: WideString; var PostData: OleVariant; 
  373.                              const Headers: WideString; var Processed: WordBool); dispid 204;
  374.     procedure Quit(var Cancel: WordBool); dispid 103;
  375.     procedure WindowMove; dispid 109;
  376.     procedure WindowResize; dispid 110;
  377.     procedure WindowActivate; dispid 111;
  378.     procedure PropertyChange(const Property_: WideString); dispid 112;
  379.   end;
  380.  
  381. // *********************************************************************//
  382. // Interface: IWebBrowserApp
  383. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  384. // GUID:      {0002DF05-0000-0000-C000-000000000046}
  385. // *********************************************************************//
  386.   IWebBrowserApp = interface(IWebBrowser)
  387.     ['{0002DF05-0000-0000-C000-000000000046}']
  388.     procedure Quit; safecall;
  389.     procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); safecall;
  390.     procedure PutProperty(const Property_: WideString; vtValue: OleVariant); safecall;
  391.     function  GetProperty(const Property_: WideString): OleVariant; safecall;
  392.     function  Get_Name: WideString; safecall;
  393.     function  Get_HWND: Integer; safecall;
  394.     function  Get_FullName: WideString; safecall;
  395.     function  Get_Path: WideString; safecall;
  396.     function  Get_Visible: WordBool; safecall;
  397.     procedure Set_Visible(pBool: WordBool); safecall;
  398.     function  Get_StatusBar: WordBool; safecall;
  399.     procedure Set_StatusBar(pBool: WordBool); safecall;
  400.     function  Get_StatusText: WideString; safecall;
  401.     procedure Set_StatusText(const StatusText: WideString); safecall;
  402.     function  Get_ToolBar: SYSINT; safecall;
  403.     procedure Set_ToolBar(Value: SYSINT); safecall;
  404.     function  Get_MenuBar: WordBool; safecall;
  405.     procedure Set_MenuBar(Value: WordBool); safecall;
  406.     function  Get_FullScreen: WordBool; safecall;
  407.     procedure Set_FullScreen(pbFullScreen: WordBool); safecall;
  408.     property Name: WideString read Get_Name;
  409.     property HWND: Integer read Get_HWND;
  410.     property FullName: WideString read Get_FullName;
  411.     property Path: WideString read Get_Path;
  412.     property Visible: WordBool read Get_Visible write Set_Visible;
  413.     property StatusBar: WordBool read Get_StatusBar write Set_StatusBar;
  414.     property StatusText: WideString read Get_StatusText write Set_StatusText;
  415.     property ToolBar: SYSINT read Get_ToolBar write Set_ToolBar;
  416.     property MenuBar: WordBool read Get_MenuBar write Set_MenuBar;
  417.     property FullScreen: WordBool read Get_FullScreen write Set_FullScreen;
  418.   end;
  419.  
  420. // *********************************************************************//
  421. // DispIntf:  IWebBrowserAppDisp
  422. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  423. // GUID:      {0002DF05-0000-0000-C000-000000000046}
  424. // *********************************************************************//
  425.   IWebBrowserAppDisp = dispinterface
  426.     ['{0002DF05-0000-0000-C000-000000000046}']
  427.     procedure Quit; dispid 300;
  428.     procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); dispid 301;
  429.     procedure PutProperty(const Property_: WideString; vtValue: OleVariant); dispid 302;
  430.     function  GetProperty(const Property_: WideString): OleVariant; dispid 303;
  431.     property Name: WideString readonly dispid 0;
  432.     property HWND: Integer readonly dispid -515;
  433.     property FullName: WideString readonly dispid 400;
  434.     property Path: WideString readonly dispid 401;
  435.     property Visible: WordBool dispid 402;
  436.     property StatusBar: WordBool dispid 403;
  437.     property StatusText: WideString dispid 404;
  438.     property ToolBar: SYSINT dispid 405;
  439.     property MenuBar: WordBool dispid 406;
  440.     property FullScreen: WordBool dispid 407;
  441.     procedure GoBack; dispid 100;
  442.     procedure GoForward; dispid 101;
  443.     procedure GoHome; dispid 102;
  444.     procedure GoSearch; dispid 103;
  445.     procedure Navigate(const URL: WideString; var Flags: OleVariant; 
  446.                        var TargetFrameName: OleVariant; var PostData: OleVariant; 
  447.                        var Headers: OleVariant); dispid 104;
  448.     procedure Refresh; dispid -550;
  449.     procedure Refresh2(var Level: OleVariant); dispid 105;
  450.     procedure Stop; dispid 106;
  451.     property Application: IDispatch readonly dispid 200;
  452.     property Parent: IDispatch readonly dispid 201;
  453.     property Container: IDispatch readonly dispid 202;
  454.     property Document: IDispatch readonly dispid 203;
  455.     property TopLevelContainer: WordBool readonly dispid 204;
  456.     property Type_: WideString readonly dispid 205;
  457.     property Left: Integer dispid 206;
  458.     property Top: Integer dispid 207;
  459.     property Width: Integer dispid 208;
  460.     property Height: Integer dispid 209;
  461.     property LocationName: WideString readonly dispid 210;
  462.     property LocationURL: WideString readonly dispid 211;
  463.     property Busy: WordBool readonly dispid 212;
  464.   end;
  465.  
  466. // *********************************************************************//
  467. // Interface: IWebBrowser2
  468. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  469. // GUID:      {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}
  470. // *********************************************************************//
  471.   IWebBrowser2 = interface(IWebBrowserApp)
  472.     ['{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}']
  473.     procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; 
  474.                         var TargetFrameName: OleVariant; var PostData: OleVariant; 
  475.                         var Headers: OleVariant); safecall;
  476.     function  QueryStatusWB(cmdID: OLECMDID): OLECMDF; safecall;
  477.     procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant; 
  478.                      var pvaOut: OleVariant); safecall;
  479.     procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant; 
  480.                              var pvarSize: OleVariant); safecall;
  481.     function  Get_ReadyState: tagREADYSTATE; safecall;
  482.     function  Get_Offline: WordBool; safecall;
  483.     procedure Set_Offline(pbOffline: WordBool); safecall;
  484.     function  Get_Silent: WordBool; safecall;
  485.     procedure Set_Silent(pbSilent: WordBool); safecall;
  486.     function  Get_RegisterAsBrowser: WordBool; safecall;
  487.     procedure Set_RegisterAsBrowser(pbRegister: WordBool); safecall;
  488.     function  Get_RegisterAsDropTarget: WordBool; safecall;
  489.     procedure Set_RegisterAsDropTarget(pbRegister: WordBool); safecall;
  490.     function  Get_TheaterMode: WordBool; safecall;
  491.     procedure Set_TheaterMode(pbRegister: WordBool); safecall;
  492.     function  Get_AddressBar: WordBool; safecall;
  493.     procedure Set_AddressBar(Value: WordBool); safecall;
  494.     function  Get_Resizable: WordBool; safecall;
  495.     procedure Set_Resizable(Value: WordBool); safecall;
  496.     property ReadyState: tagREADYSTATE read Get_ReadyState;
  497.     property Offline: WordBool read Get_Offline write Set_Offline;
  498.     property Silent: WordBool read Get_Silent write Set_Silent;
  499.     property RegisterAsBrowser: WordBool read Get_RegisterAsBrowser write Set_RegisterAsBrowser;
  500.     property RegisterAsDropTarget: WordBool read Get_RegisterAsDropTarget write Set_RegisterAsDropTarget;
  501.     property TheaterMode: WordBool read Get_TheaterMode write Set_TheaterMode;
  502.     property AddressBar: WordBool read Get_AddressBar write Set_AddressBar;
  503.     property Resizable: WordBool read Get_Resizable write Set_Resizable;
  504.   end;
  505.  
  506. // *********************************************************************//
  507. // DispIntf:  IWebBrowser2Disp
  508. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  509. // GUID:      {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}
  510. // *********************************************************************//
  511.   IWebBrowser2Disp = dispinterface
  512.     ['{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}']
  513.     procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; 
  514.                         var TargetFrameName: OleVariant; var PostData: OleVariant; 
  515.                         var Headers: OleVariant); dispid 500;
  516.     function  QueryStatusWB(cmdID: OLECMDID): OLECMDF; dispid 501;
  517.     procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant; 
  518.                      var pvaOut: OleVariant); dispid 502;
  519.     procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant; 
  520.                              var pvarSize: OleVariant); dispid 503;
  521.     property ReadyState: tagREADYSTATE readonly dispid -525;
  522.     property Offline: WordBool dispid 550;
  523.     property Silent: WordBool dispid 551;
  524.     property RegisterAsBrowser: WordBool dispid 552;
  525.     property RegisterAsDropTarget: WordBool dispid 553;
  526.     property TheaterMode: WordBool dispid 554;
  527.     property AddressBar: WordBool dispid 555;
  528.     property Resizable: WordBool dispid 556;
  529.     procedure Quit; dispid 300;
  530.     procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); dispid 301;
  531.     procedure PutProperty(const Property_: WideString; vtValue: OleVariant); dispid 302;
  532.     function  GetProperty(const Property_: WideString): OleVariant; dispid 303;
  533.     property Name: WideString readonly dispid 0;
  534.     property HWND: Integer readonly dispid -515;
  535.     property FullName: WideString readonly dispid 400;
  536.     property Path: WideString readonly dispid 401;
  537.     property Visible: WordBool dispid 402;
  538.     property StatusBar: WordBool dispid 403;
  539.     property StatusText: WideString dispid 404;
  540.     property ToolBar: SYSINT dispid 405;
  541.     property MenuBar: WordBool dispid 406;
  542.     property FullScreen: WordBool dispid 407;
  543.     procedure GoBack; dispid 100;
  544.     procedure GoForward; dispid 101;
  545.     procedure GoHome; dispid 102;
  546.     procedure GoSearch; dispid 103;
  547.     procedure Navigate(const URL: WideString; var Flags: OleVariant; 
  548.                        var TargetFrameName: OleVariant; var PostData: OleVariant; 
  549.                        var Headers: OleVariant); dispid 104;
  550.     procedure Refresh; dispid -550;
  551.     procedure Refresh2(var Level: OleVariant); dispid 105;
  552.     procedure Stop; dispid 106;
  553.     property Application: IDispatch readonly dispid 200;
  554.     property Parent: IDispatch readonly dispid 201;
  555.     property Container: IDispatch readonly dispid 202;
  556.     property Document: IDispatch readonly dispid 203;
  557.     property TopLevelContainer: WordBool readonly dispid 204;
  558.     property Type_: WideString readonly dispid 205;
  559.     property Left: Integer dispid 206;
  560.     property Top: Integer dispid 207;
  561.     property Width: Integer dispid 208;
  562.     property Height: Integer dispid 209;
  563.     property LocationName: WideString readonly dispid 210;
  564.     property LocationURL: WideString readonly dispid 211;
  565.     property Busy: WordBool readonly dispid 212;
  566.   end;
  567.  
  568. // *********************************************************************//
  569. // DispIntf:  DWebBrowserEvents2
  570. // Flags:     (4112) Hidden Dispatchable
  571. // GUID:      {34A715A0-6587-11D0-924A-0020AFC7AC4D}
  572. // *********************************************************************//
  573.   DWebBrowserEvents2 = dispinterface
  574.     ['{34A715A0-6587-11D0-924A-0020AFC7AC4D}']
  575.     procedure StatusTextChange(const Text: WideString); dispid 102;
  576.     procedure ProgressChange(Progress: Integer; ProgressMax: Integer); dispid 108;
  577.     procedure CommandStateChange(Command: Integer; Enable: WordBool); dispid 105;
  578.     procedure DownloadBegin; dispid 106;
  579.     procedure DownloadComplete; dispid 104;
  580.     procedure TitleChange(const Text: WideString); dispid 113;
  581.     procedure PropertyChange(const szProperty: WideString); dispid 112;
  582.     procedure BeforeNavigate2(const pDisp: IDispatch; var URL: OleVariant; var Flags: OleVariant; 
  583.                               var TargetFrameName: OleVariant; var PostData: OleVariant; 
  584.                               var Headers: OleVariant; var Cancel: WordBool); dispid 250;
  585.     procedure NewWindow2(var ppDisp: IDispatch; var Cancel: WordBool); dispid 251;
  586.     procedure NavigateComplete2(const pDisp: IDispatch; var URL: OleVariant); dispid 252;
  587.     procedure DocumentComplete(const pDisp: IDispatch; var URL: OleVariant); dispid 259;
  588.     procedure OnQuit; dispid 253;
  589.     procedure OnVisible(Visible: WordBool); dispid 254;
  590.     procedure OnToolBar(ToolBar: WordBool); dispid 255;
  591.     procedure OnMenuBar(MenuBar: WordBool); dispid 256;
  592.     procedure OnStatusBar(StatusBar: WordBool); dispid 257;
  593.     procedure OnFullScreen(FullScreen: WordBool); dispid 258;
  594.     procedure OnTheaterMode(TheaterMode: WordBool); dispid 260;
  595.   end;
  596.  
  597. // *********************************************************************//
  598. // DispIntf:  DShellWindowsEvents
  599. // Flags:     (4096) Dispatchable
  600. // GUID:      {FE4106E0-399A-11D0-A48C-00A0C90A8F39}
  601. // *********************************************************************//
  602.   DShellWindowsEvents = dispinterface
  603.     ['{FE4106E0-399A-11D0-A48C-00A0C90A8F39}']
  604.     procedure WindowRegistered(lCookie: Integer); dispid 200;
  605.     procedure WindowRevoked(lCookie: Integer); dispid 201;
  606.   end;
  607.  
  608. // *********************************************************************//
  609. // Interface: IShellWindows
  610. // Flags:     (4416) Dual OleAutomation Dispatchable
  611. // GUID:      {85CB6900-4D95-11CF-960C-0080C7F4EE85}
  612. // *********************************************************************//
  613.   IShellWindows = interface(IDispatch)
  614.     ['{85CB6900-4D95-11CF-960C-0080C7F4EE85}']
  615.     function  Get_Count: Integer; safecall;
  616.     function  Item(index: OleVariant): IDispatch; safecall;
  617.     function  _NewEnum: IUnknown; safecall;
  618.     procedure Register(const pid: IDispatch; HWND: Integer; swClass: SYSINT; out plCookie: Integer); safecall;
  619.     procedure RegisterPending(lThreadId: Integer; var pvarloc: OleVariant; 
  620.                               var pvarlocRoot: OleVariant; swClass: SYSINT; out plCookie: Integer); safecall;
  621.     procedure Revoke(lCookie: Integer); safecall;
  622.     procedure OnNavigate(lCookie: Integer; var pvarloc: OleVariant); safecall;
  623.     procedure OnActivated(lCookie: Integer; fActive: WordBool); safecall;
  624.     function  FindWindow(var pvarloc: OleVariant; var pvarlocRoot: OleVariant; swClass: SYSINT; 
  625.                          out pHWND: Integer; swfwOptions: SYSINT): IDispatch; safecall;
  626.     procedure OnCreated(lCookie: Integer; const punk: IUnknown); safecall;
  627.     procedure ProcessAttachDetach(fAttach: WordBool); safecall;
  628.     property Count: Integer read Get_Count;
  629.   end;
  630.  
  631. // *********************************************************************//
  632. // DispIntf:  IShellWindowsDisp
  633. // Flags:     (4416) Dual OleAutomation Dispatchable
  634. // GUID:      {85CB6900-4D95-11CF-960C-0080C7F4EE85}
  635. // *********************************************************************//
  636.   IShellWindowsDisp = dispinterface
  637.     ['{85CB6900-4D95-11CF-960C-0080C7F4EE85}']
  638.     property Count: Integer readonly dispid 1610743808;
  639.     function  Item(index: OleVariant): IDispatch; dispid 0;
  640.     function  _NewEnum: IUnknown; dispid -4;
  641.     procedure Register(const pid: IDispatch; HWND: Integer; swClass: SYSINT; out plCookie: Integer); dispid 1610743811;
  642.     procedure RegisterPending(lThreadId: Integer; var pvarloc: OleVariant; 
  643.                               var pvarlocRoot: OleVariant; swClass: SYSINT; out plCookie: Integer); dispid 1610743812;
  644.     procedure Revoke(lCookie: Integer); dispid 1610743813;
  645.     procedure OnNavigate(lCookie: Integer; var pvarloc: OleVariant); dispid 1610743814;
  646.     procedure OnActivated(lCookie: Integer; fActive: WordBool); dispid 1610743815;
  647.     function  FindWindow(var pvarloc: OleVariant; var pvarlocRoot: OleVariant; swClass: SYSINT; 
  648.                          out pHWND: Integer; swfwOptions: SYSINT): IDispatch; dispid 1610743816;
  649.     procedure OnCreated(lCookie: Integer; const punk: IUnknown); dispid 1610743817;
  650.     procedure ProcessAttachDetach(fAttach: WordBool); dispid 1610743818;
  651.   end;
  652.  
  653. // *********************************************************************//
  654. // Interface: IShellUIHelper
  655. // Flags:     (4416) Dual OleAutomation Dispatchable
  656. // GUID:      {729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}
  657. // *********************************************************************//
  658.   IShellUIHelper = interface(IDispatch)
  659.     ['{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}']
  660.     procedure ResetFirstBootMode; safecall;
  661.     procedure ResetSafeMode; safecall;
  662.     procedure RefreshOfflineDesktop; safecall;
  663.     procedure AddFavorite(const URL: WideString; var Title: OleVariant); safecall;
  664.     procedure AddChannel(const URL: WideString); safecall;
  665.     procedure AddDesktopComponent(const URL: WideString; const Type_: WideString; 
  666.                                   var Left: OleVariant; var Top: OleVariant; var Width: OleVariant; 
  667.                                   var Height: OleVariant); safecall;
  668.     function  IsSubscribed(const URL: WideString): WordBool; safecall;
  669.     procedure NavigateAndFind(const URL: WideString; const strQuery: WideString; 
  670.                               var varTargetFrame: OleVariant); safecall;
  671.     procedure ImportExportFavorites(fImport: WordBool; const strImpExpPath: WideString); safecall;
  672.     procedure AutoCompleteSaveForm(var Form: OleVariant); safecall;
  673.     procedure AutoScan(const strSearch: WideString; const strFailureUrl: WideString; 
  674.                        var pvarTargetFrame: OleVariant); safecall;
  675.     procedure AutoCompleteAttach(var Reserved: OleVariant); safecall;
  676.     function  ShowBrowserUI(const bstrName: WideString; var pvarIn: OleVariant): OleVariant; safecall;
  677.   end;
  678.  
  679. // *********************************************************************//
  680. // DispIntf:  IShellUIHelperDisp
  681. // Flags:     (4416) Dual OleAutomation Dispatchable
  682. // GUID:      {729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}
  683. // *********************************************************************//
  684.   IShellUIHelperDisp = dispinterface
  685.     ['{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}']
  686.     procedure ResetFirstBootMode; dispid 1;
  687.     procedure ResetSafeMode; dispid 2;
  688.     procedure RefreshOfflineDesktop; dispid 3;
  689.     procedure AddFavorite(const URL: WideString; var Title: OleVariant); dispid 4;
  690.     procedure AddChannel(const URL: WideString); dispid 5;
  691.     procedure AddDesktopComponent(const URL: WideString; const Type_: WideString; 
  692.                                   var Left: OleVariant; var Top: OleVariant; var Width: OleVariant; 
  693.                                   var Height: OleVariant); dispid 6;
  694.     function  IsSubscribed(const URL: WideString): WordBool; dispid 7;
  695.     procedure NavigateAndFind(const URL: WideString; const strQuery: WideString; 
  696.                               var varTargetFrame: OleVariant); dispid 8;
  697.     procedure ImportExportFavorites(fImport: WordBool; const strImpExpPath: WideString); dispid 9;
  698.     procedure AutoCompleteSaveForm(var Form: OleVariant); dispid 10;
  699.     procedure AutoScan(const strSearch: WideString; const strFailureUrl: WideString; 
  700.                        var pvarTargetFrame: OleVariant); dispid 11;
  701.     procedure AutoCompleteAttach(var Reserved: OleVariant); dispid 12;
  702.     function  ShowBrowserUI(const bstrName: WideString; var pvarIn: OleVariant): OleVariant; dispid 13;
  703.   end;
  704.  
  705. // *********************************************************************//
  706. // DispIntf:  _ShellFavoritesNameSpaceEvents
  707. // Flags:     (4096) Dispatchable
  708. // GUID:      {55136806-B2DE-11D1-B9F2-00A0C98BC547}
  709. // *********************************************************************//
  710.   _ShellFavoritesNameSpaceEvents = dispinterface
  711.     ['{55136806-B2DE-11D1-B9F2-00A0C98BC547}']
  712.     procedure FavoritesSelectionChange(cItems: Integer; hItem: Integer; const strName: WideString; 
  713.                                        const strUrl: WideString; cVisits: Integer; 
  714.                                        const strDate: WideString; fAvailableOffline: Integer); dispid 1;
  715.   end;
  716.  
  717. // *********************************************************************//
  718. // Interface: IShellFavoritesNameSpace
  719. // Flags:     (4416) Dual OleAutomation Dispatchable
  720. // GUID:      {55136804-B2DE-11D1-B9F2-00A0C98BC547}
  721. // *********************************************************************//
  722.   IShellFavoritesNameSpace = interface(IDispatch)
  723.     ['{55136804-B2DE-11D1-B9F2-00A0C98BC547}']
  724.     procedure MoveSelectionUp; safecall;
  725.     procedure MoveSelectionDown; safecall;
  726.     procedure ResetSort; safecall;
  727.     procedure NewFolder; safecall;
  728.     procedure Synchronize; safecall;
  729.     procedure Import; safecall;
  730.     procedure Export; safecall;
  731.     procedure InvokeContextMenuCommand(const strCommand: WideString); safecall;
  732.     procedure MoveSelectionTo; safecall;
  733.     function  Get_FOfflinePackInstalled: WordBool; safecall;
  734.     function  CreateSubscriptionForSelection: WordBool; safecall;
  735.     function  DeleteSubscriptionForSelection: WordBool; safecall;
  736.     procedure SetRoot(const bstrFullPath: WideString); safecall;
  737.     property FOfflinePackInstalled: WordBool read Get_FOfflinePackInstalled;
  738.   end;
  739.  
  740. // *********************************************************************//
  741. // DispIntf:  IShellFavoritesNameSpaceDisp
  742. // Flags:     (4416) Dual OleAutomation Dispatchable
  743. // GUID:      {55136804-B2DE-11D1-B9F2-00A0C98BC547}
  744. // *********************************************************************//
  745.   IShellFavoritesNameSpaceDisp = dispinterface
  746.     ['{55136804-B2DE-11D1-B9F2-00A0C98BC547}']
  747.     procedure MoveSelectionUp; dispid 1;
  748.     procedure MoveSelectionDown; dispid 2;
  749.     procedure ResetSort; dispid 3;
  750.     procedure NewFolder; dispid 4;
  751.     procedure Synchronize; dispid 5;
  752.     procedure Import; dispid 6;
  753.     procedure Export; dispid 7;
  754.     procedure InvokeContextMenuCommand(const strCommand: WideString); dispid 8;
  755.     procedure MoveSelectionTo; dispid 9;
  756.     property FOfflinePackInstalled: WordBool readonly dispid 10;
  757.     function  CreateSubscriptionForSelection: WordBool; dispid 11;
  758.     function  DeleteSubscriptionForSelection: WordBool; dispid 12;
  759.     procedure SetRoot(const bstrFullPath: WideString); dispid 13;
  760.   end;
  761.  
  762. // *********************************************************************//
  763. // Interface: IScriptErrorList
  764. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  765. // GUID:      {F3470F24-15FD-11D2-BB2E-00805FF7EFCA}
  766. // *********************************************************************//
  767.   IScriptErrorList = interface(IDispatch)
  768.     ['{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}']
  769.     procedure advanceError; safecall;
  770.     procedure retreatError; safecall;
  771.     function  canAdvanceError: Integer; safecall;
  772.     function  canRetreatError: Integer; safecall;
  773.     function  getErrorLine: Integer; safecall;
  774.     function  getErrorChar: Integer; safecall;
  775.     function  getErrorCode: Integer; safecall;
  776.     function  getErrorMsg: WideString; safecall;
  777.     function  getErrorUrl: WideString; safecall;
  778.     function  getAlwaysShowLockState: Integer; safecall;
  779.     function  getDetailsPaneOpen: Integer; safecall;
  780.     procedure setDetailsPaneOpen(fDetailsPaneOpen: Integer); safecall;
  781.     function  getPerErrorDisplay: Integer; safecall;
  782.     procedure setPerErrorDisplay(fPerErrorDisplay: Integer); safecall;
  783.   end;
  784.  
  785. // *********************************************************************//
  786. // DispIntf:  IScriptErrorListDisp
  787. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  788. // GUID:      {F3470F24-15FD-11D2-BB2E-00805FF7EFCA}
  789. // *********************************************************************//
  790.   IScriptErrorListDisp = dispinterface
  791.     ['{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}']
  792.     procedure advanceError; dispid 10;
  793.     procedure retreatError; dispid 11;
  794.     function  canAdvanceError: Integer; dispid 12;
  795.     function  canRetreatError: Integer; dispid 13;
  796.     function  getErrorLine: Integer; dispid 14;
  797.     function  getErrorChar: Integer; dispid 15;
  798.     function  getErrorCode: Integer; dispid 16;
  799.     function  getErrorMsg: WideString; dispid 17;
  800.     function  getErrorUrl: WideString; dispid 18;
  801.     function  getAlwaysShowLockState: Integer; dispid 23;
  802.     function  getDetailsPaneOpen: Integer; dispid 19;
  803.     procedure setDetailsPaneOpen(fDetailsPaneOpen: Integer); dispid 20;
  804.     function  getPerErrorDisplay: Integer; dispid 21;
  805.     procedure setPerErrorDisplay(fPerErrorDisplay: Integer); dispid 22;
  806.   end;
  807.  
  808. // *********************************************************************//
  809. // Interface: ISearch
  810. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  811. // GUID:      {BA9239A4-3DD5-11D2-BF8B-00C04FB93661}
  812. // *********************************************************************//
  813.   ISearch = interface(IDispatch)
  814.     ['{BA9239A4-3DD5-11D2-BF8B-00C04FB93661}']
  815.     function  Get_Title: WideString; safecall;
  816.     function  Get_Id: WideString; safecall;
  817.     function  Get_URL: WideString; safecall;
  818.     property Title: WideString read Get_Title;
  819.     property Id: WideString read Get_Id;
  820.     property URL: WideString read Get_URL;
  821.   end;
  822.  
  823. // *********************************************************************//
  824. // DispIntf:  ISearchDisp
  825. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  826. // GUID:      {BA9239A4-3DD5-11D2-BF8B-00C04FB93661}
  827. // *********************************************************************//
  828.   ISearchDisp = dispinterface
  829.     ['{BA9239A4-3DD5-11D2-BF8B-00C04FB93661}']
  830.     property Title: WideString readonly dispid 1610743808;
  831.     property Id: WideString readonly dispid 1610743809;
  832.     property URL: WideString readonly dispid 1610743810;
  833.   end;
  834.  
  835. // *********************************************************************//
  836. // Interface: ISearches
  837. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  838. // GUID:      {47C922A2-3DD5-11D2-BF8B-00C04FB93661}
  839. // *********************************************************************//
  840.   ISearches = interface(IDispatch)
  841.     ['{47C922A2-3DD5-11D2-BF8B-00C04FB93661}']
  842.     function  Get_Count: Integer; safecall;
  843.     function  Get_Default: WideString; safecall;
  844.     function  Item(index: OleVariant): ISearch; safecall;
  845.     function  _NewEnum: IUnknown; safecall;
  846.     property Count: Integer read Get_Count;
  847.     property Default: WideString read Get_Default;
  848.   end;
  849.  
  850. // *********************************************************************//
  851. // DispIntf:  ISearchesDisp
  852. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  853. // GUID:      {47C922A2-3DD5-11D2-BF8B-00C04FB93661}
  854. // *********************************************************************//
  855.   ISearchesDisp = dispinterface
  856.     ['{47C922A2-3DD5-11D2-BF8B-00C04FB93661}']
  857.     property Count: Integer readonly dispid 1610743808;
  858.     property Default: WideString readonly dispid 1610743809;
  859.     function  Item(index: OleVariant): ISearch; dispid 1610743810;
  860.     function  _NewEnum: IUnknown; dispid -4;
  861.   end;
  862.  
  863. // *********************************************************************//
  864. // Interface: ISearchAssistantOC
  865. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  866. // GUID:      {72423E8F-8011-11D2-BE79-00A0C9A83DA1}
  867. // *********************************************************************//
  868.   ISearchAssistantOC = interface(IDispatch)
  869.     ['{72423E8F-8011-11D2-BE79-00A0C9A83DA1}']
  870.     procedure AddNextMenuItem(const bstrText: WideString; idItem: Integer); safecall;
  871.     procedure SetDefaultSearchUrl(const bstrUrl: WideString); safecall;
  872.     procedure NavigateToDefaultSearch; safecall;
  873.     function  IsRestricted(const bstrGuid: WideString): WordBool; safecall;
  874.     function  Get_ShellFeaturesEnabled: WordBool; safecall;
  875.     function  Get_SearchAssistantDefault: WordBool; safecall;
  876.     function  Get_Searches: ISearches; safecall;
  877.     function  Get_InWebFolder: WordBool; safecall;
  878.     procedure PutProperty(bPerLocale: WordBool; const bstrName: WideString; 
  879.                           const bstrValue: WideString); safecall;
  880.     function  GetProperty(bPerLocale: WordBool; const bstrName: WideString): WideString; safecall;
  881.     procedure Set_EventHandled(Param1: WordBool); safecall;
  882.     procedure ResetNextMenu; safecall;
  883.     procedure FindOnWeb; safecall;
  884.     procedure FindFilesOrFolders; safecall;
  885.     procedure FindComputer; safecall;
  886.     procedure FindPrinter; safecall;
  887.     procedure FindPeople; safecall;
  888.     function  GetSearchAssistantURL(bSubstitute: WordBool; bCustomize: WordBool): WideString; safecall;
  889.     procedure NotifySearchSettingsChanged; safecall;
  890.     procedure Set_ASProvider(const pProvider: WideString); safecall;
  891.     function  Get_ASProvider: WideString; safecall;
  892.     procedure Set_ASSetting(pSetting: SYSINT); safecall;
  893.     function  Get_ASSetting: SYSINT; safecall;
  894.     procedure NETDetectNextNavigate; safecall;
  895.     procedure PutFindText(const FindText: WideString); safecall;
  896.     function  Get_Version: SYSINT; safecall;
  897.     function  EncodeString(const bstrValue: WideString; const bstrCharSet: WideString; 
  898.                            bUseUTF8: WordBool): WideString; safecall;
  899.     property ShellFeaturesEnabled: WordBool read Get_ShellFeaturesEnabled;
  900.     property SearchAssistantDefault: WordBool read Get_SearchAssistantDefault;
  901.     property Searches: ISearches read Get_Searches;
  902.     property InWebFolder: WordBool read Get_InWebFolder;
  903.     property EventHandled: WordBool write Set_EventHandled;
  904.     property ASProvider: WideString read Get_ASProvider write Set_ASProvider;
  905.     property ASSetting: SYSINT read Get_ASSetting write Set_ASSetting;
  906.     property Version: SYSINT read Get_Version;
  907.   end;
  908.  
  909. // *********************************************************************//
  910. // DispIntf:  ISearchAssistantOCDisp
  911. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  912. // GUID:      {72423E8F-8011-11D2-BE79-00A0C9A83DA1}
  913. // *********************************************************************//
  914.   ISearchAssistantOCDisp = dispinterface
  915.     ['{72423E8F-8011-11D2-BE79-00A0C9A83DA1}']
  916.     procedure AddNextMenuItem(const bstrText: WideString; idItem: Integer); dispid 1;
  917.     procedure SetDefaultSearchUrl(const bstrUrl: WideString); dispid 2;
  918.     procedure NavigateToDefaultSearch; dispid 3;
  919.     function  IsRestricted(const bstrGuid: WideString): WordBool; dispid 4;
  920.     property ShellFeaturesEnabled: WordBool readonly dispid 5;
  921.     property SearchAssistantDefault: WordBool readonly dispid 6;
  922.     property Searches: ISearches readonly dispid 7;
  923.     property InWebFolder: WordBool readonly dispid 8;
  924.     procedure PutProperty(bPerLocale: WordBool; const bstrName: WideString; 
  925.                           const bstrValue: WideString); dispid 9;
  926.     function  GetProperty(bPerLocale: WordBool; const bstrName: WideString): WideString; dispid 10;
  927.     property EventHandled: WordBool writeonly dispid 11;
  928.     procedure ResetNextMenu; dispid 12;
  929.     procedure FindOnWeb; dispid 13;
  930.     procedure FindFilesOrFolders; dispid 14;
  931.     procedure FindComputer; dispid 15;
  932.     procedure FindPrinter; dispid 16;
  933.     procedure FindPeople; dispid 17;
  934.     function  GetSearchAssistantURL(bSubstitute: WordBool; bCustomize: WordBool): WideString; dispid 18;
  935.     procedure NotifySearchSettingsChanged; dispid 19;
  936.     property ASProvider: WideString dispid 20;
  937.     property ASSetting: SYSINT dispid 21;
  938.     procedure NETDetectNextNavigate; dispid 22;
  939.     procedure PutFindText(const FindText: WideString); dispid 23;
  940.     property Version: SYSINT readonly dispid 24;
  941.     function  EncodeString(const bstrValue: WideString; const bstrCharSet: WideString; 
  942.                            bUseUTF8: WordBool): WideString; dispid 25;
  943.   end;
  944.  
  945. // *********************************************************************//
  946. // DispIntf:  _SearchAssistantEvents
  947. // Flags:     (4112) Hidden Dispatchable
  948. // GUID:      {1611FDDA-445B-11D2-85DE-00C04FA35C89}
  949. // *********************************************************************//
  950.   _SearchAssistantEvents = dispinterface
  951.     ['{1611FDDA-445B-11D2-85DE-00C04FA35C89}']
  952.     procedure OnNextMenuSelect(idItem: Integer); dispid 1;
  953.     procedure OnNewSearch; dispid 2;
  954.   end;
  955.  
  956.  
  957. // *********************************************************************//
  958. // OLE Control Proxy class declaration
  959. // Control Name     : TWebBrowser_V1
  960. // Help String      : WebBrowser Control
  961. // Default Interface: IWebBrowser
  962. // Def. Intf. DISP? : No
  963. // Event   Interface: DWebBrowserEvents
  964. // TypeFlags        : (34) CanCreate Control
  965. // *********************************************************************//
  966.   TWebBrowser_V1BeforeNavigate = procedure(Sender: TObject; const URL: WideString; Flags: Integer; 
  967.                                                             const TargetFrameName: WideString; 
  968.                                                             var PostData: OleVariant; 
  969.                                                             const Headers: WideString; 
  970.                                                             var Cancel: WordBool) of object;
  971.   TWebBrowser_V1NavigateComplete = procedure(Sender: TObject; const URL: WideString) of object;
  972.   TWebBrowser_V1StatusTextChange = procedure(Sender: TObject; const Text: WideString) of object;
  973.   TWebBrowser_V1ProgressChange = procedure(Sender: TObject; Progress: Integer; ProgressMax: Integer) of object;
  974.   TWebBrowser_V1CommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object;
  975.   TWebBrowser_V1NewWindow = procedure(Sender: TObject; const URL: WideString; Flags: Integer; 
  976.                                                        const TargetFrameName: WideString; 
  977.                                                        var PostData: OleVariant; 
  978.                                                        const Headers: WideString; 
  979.                                                        var Processed: WordBool) of object;
  980.   TWebBrowser_V1TitleChange = procedure(Sender: TObject; const Text: WideString) of object;
  981.   TWebBrowser_V1FrameBeforeNavigate = procedure(Sender: TObject; const URL: WideString; 
  982.                                                                  Flags: Integer; 
  983.                                                                  const TargetFrameName: WideString; 
  984.                                                                  var PostData: OleVariant; 
  985.                                                                  const Headers: WideString; 
  986.                                                                  var Cancel: WordBool) of object;
  987.   TWebBrowser_V1FrameNavigateComplete = procedure(Sender: TObject; const URL: WideString) of object;
  988.   TWebBrowser_V1FrameNewWindow = procedure(Sender: TObject; const URL: WideString; Flags: Integer; 
  989.                                                             const TargetFrameName: WideString; 
  990.                                                             var PostData: OleVariant; 
  991.                                                             const Headers: WideString; 
  992.                                                             var Processed: WordBool) of object;
  993.   TWebBrowser_V1Quit = procedure(Sender: TObject; var Cancel: WordBool) of object;
  994.   TWebBrowser_V1PropertyChange = procedure(Sender: TObject; const Property_: WideString) of object;
  995.  
  996.   TWebBrowser_V1 = class(TOleControl)
  997.   private
  998.     FOnBeforeNavigate: TWebBrowser_V1BeforeNavigate;
  999.     FOnNavigateComplete: TWebBrowser_V1NavigateComplete;
  1000.     FOnStatusTextChange: TWebBrowser_V1StatusTextChange;
  1001.     FOnProgressChange: TWebBrowser_V1ProgressChange;
  1002.     FOnDownloadComplete: TNotifyEvent;
  1003.     FOnCommandStateChange: TWebBrowser_V1CommandStateChange;
  1004.     FOnDownloadBegin: TNotifyEvent;
  1005.     FOnNewWindow: TWebBrowser_V1NewWindow;
  1006.     FOnTitleChange: TWebBrowser_V1TitleChange;
  1007.     FOnFrameBeforeNavigate: TWebBrowser_V1FrameBeforeNavigate;
  1008.     FOnFrameNavigateComplete: TWebBrowser_V1FrameNavigateComplete;
  1009.     FOnFrameNewWindow: TWebBrowser_V1FrameNewWindow;
  1010.     FOnQuit: TWebBrowser_V1Quit;
  1011.     FOnWindowMove: TNotifyEvent;
  1012.     FOnWindowResize: TNotifyEvent;
  1013.     FOnWindowActivate: TNotifyEvent;
  1014.     FOnPropertyChange: TWebBrowser_V1PropertyChange;
  1015.     FIntf: IWebBrowser;
  1016.     function  GetControlInterface: IWebBrowser;
  1017.   protected
  1018.     procedure CreateControl;
  1019.     procedure InitControlData; override;
  1020.     function  Get_Application: IDispatch;
  1021.     function  Get_Parent: IDispatch;
  1022.     function  Get_Container: IDispatch;
  1023.     function  Get_Document: IDispatch;
  1024.   public
  1025.     procedure GoBack;
  1026.     procedure GoForward;
  1027.     procedure GoHome;
  1028.     procedure GoSearch;
  1029.     procedure Navigate(const URL: WideString); overload;
  1030.     procedure Navigate(const URL: WideString; var Flags: OleVariant); overload;
  1031.     procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); overload;
  1032.     procedure Navigate(const URL: WideString; var Flags: OleVariant; 
  1033.                        var TargetFrameName: OleVariant; var PostData: OleVariant); overload;
  1034.     procedure Navigate(const URL: WideString; var Flags: OleVariant; 
  1035.                        var TargetFrameName: OleVariant; var PostData: OleVariant; 
  1036.                        var Headers: OleVariant); overload;
  1037.     procedure Refresh;
  1038.     procedure Refresh2; overload;
  1039.     procedure Refresh2(var Level: OleVariant); overload;
  1040.     procedure Stop;
  1041.     property  ControlInterface: IWebBrowser read GetControlInterface;
  1042.     property  DefaultInterface: IWebBrowser read GetControlInterface;
  1043.     property Application: IDispatch index 200 read GetIDispatchProp;
  1044.     property Parent: IDispatch index 201 read GetIDispatchProp;
  1045.     property Container: IDispatch index 202 read GetIDispatchProp;
  1046.     property Document: IDispatch index 203 read GetIDispatchProp;
  1047.     property TopLevelContainer: WordBool index 204 read GetWordBoolProp;
  1048.     property Type_: WideString index 205 read GetWideStringProp;
  1049.     property LocationName: WideString index 210 read GetWideStringProp;
  1050.     property LocationURL: WideString index 211 read GetWideStringProp;
  1051.     property Busy: WordBool index 212 read GetWordBoolProp;
  1052.   published
  1053.     property  TabStop;
  1054.     property  Align;
  1055.     property  DragCursor;
  1056.     property  DragMode;
  1057.     property  ParentShowHint;
  1058.     property  PopupMenu;
  1059.     property  ShowHint;
  1060.     property  TabOrder;
  1061.     property  Visible;
  1062.     property  OnDragDrop;
  1063.     property  OnDragOver;
  1064.     property  OnEndDrag;
  1065.     property  OnEnter;
  1066.     property  OnExit;
  1067.     property  OnStartDrag;
  1068.     property OnBeforeNavigate: TWebBrowser_V1BeforeNavigate read FOnBeforeNavigate write FOnBeforeNavigate;
  1069.     property OnNavigateComplete: TWebBrowser_V1NavigateComplete read FOnNavigateComplete write FOnNavigateComplete;
  1070.     property OnStatusTextChange: TWebBrowser_V1StatusTextChange read FOnStatusTextChange write FOnStatusTextChange;
  1071.     property OnProgressChange: TWebBrowser_V1ProgressChange read FOnProgressChange write FOnProgressChange;
  1072.     property OnDownloadComplete: TNotifyEvent read FOnDownloadComplete write FOnDownloadComplete;
  1073.     property OnCommandStateChange: TWebBrowser_V1CommandStateChange read FOnCommandStateChange write FOnCommandStateChange;
  1074.     property OnDownloadBegin: TNotifyEvent read FOnDownloadBegin write FOnDownloadBegin;
  1075.     property OnNewWindow: TWebBrowser_V1NewWindow read FOnNewWindow write FOnNewWindow;
  1076.     property OnTitleChange: TWebBrowser_V1TitleChange read FOnTitleChange write FOnTitleChange;
  1077.     property OnFrameBeforeNavigate: TWebBrowser_V1FrameBeforeNavigate read FOnFrameBeforeNavigate write FOnFrameBeforeNavigate;
  1078.     property OnFrameNavigateComplete: TWebBrowser_V1FrameNavigateComplete read FOnFrameNavigateComplete write FOnFrameNavigateComplete;
  1079.     property OnFrameNewWindow: TWebBrowser_V1FrameNewWindow read FOnFrameNewWindow write FOnFrameNewWindow;
  1080.     property OnQuit: TWebBrowser_V1Quit read FOnQuit write FOnQuit;
  1081.     property OnWindowMove: TNotifyEvent read FOnWindowMove write FOnWindowMove;
  1082.     property OnWindowResize: TNotifyEvent read FOnWindowResize write FOnWindowResize;
  1083.     property OnWindowActivate: TNotifyEvent read FOnWindowActivate write FOnWindowActivate;
  1084.     property OnPropertyChange: TWebBrowser_V1PropertyChange read FOnPropertyChange write FOnPropertyChange;
  1085.   end;
  1086.  
  1087.  
  1088. // *********************************************************************//
  1089. // OLE Control Proxy class declaration
  1090. // Control Name     : TWebBrowser
  1091. // Help String      : WebBrowser Control
  1092. // Default Interface: IWebBrowser2
  1093. // Def. Intf. DISP? : No
  1094. // Event   Interface: DWebBrowserEvents2
  1095. // TypeFlags        : (34) CanCreate Control
  1096. // *********************************************************************//
  1097.   TWebBrowserStatusTextChange = procedure(Sender: TObject; const Text: WideString) of object;
  1098.   TWebBrowserProgressChange = procedure(Sender: TObject; Progress: Integer; ProgressMax: Integer) of object;
  1099.   TWebBrowserCommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object;
  1100.   TWebBrowserTitleChange = procedure(Sender: TObject; const Text: WideString) of object;
  1101.   TWebBrowserPropertyChange = procedure(Sender: TObject; const szProperty: WideString) of object;
  1102.   TWebBrowserBeforeNavigate2 = procedure(Sender: TObject; const pDisp: IDispatch; 
  1103.                                                           var URL: OleVariant; 
  1104.                                                           var Flags: OleVariant; 
  1105.                                                           var TargetFrameName: OleVariant; 
  1106.                                                           var PostData: OleVariant; 
  1107.                                                           var Headers: OleVariant; 
  1108.                                                           var Cancel: WordBool) of object;
  1109.   TWebBrowserNewWindow2 = procedure(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool) of object;
  1110.   TWebBrowserNavigateComplete2 = procedure(Sender: TObject; const pDisp: IDispatch; 
  1111.                                                             var URL: OleVariant) of object;
  1112.   TWebBrowserDocumentComplete = procedure(Sender: TObject; const pDisp: IDispatch; 
  1113.                                                            var URL: OleVariant) of object;
  1114.   TWebBrowserOnVisible = procedure(Sender: TObject; Visible: WordBool) of object;
  1115.   TWebBrowserOnToolBar = procedure(Sender: TObject; ToolBar: WordBool) of object;
  1116.   TWebBrowserOnMenuBar = procedure(Sender: TObject; MenuBar: WordBool) of object;
  1117.   TWebBrowserOnStatusBar = procedure(Sender: TObject; StatusBar: WordBool) of object;
  1118.   TWebBrowserOnFullScreen = procedure(Sender: TObject; FullScreen: WordBool) of object;
  1119.   TWebBrowserOnTheaterMode = procedure(Sender: TObject; TheaterMode: WordBool) of object;
  1120.  
  1121.   TWebBrowser = class(TOleControl)
  1122.   private
  1123.     FOnStatusTextChange: TWebBrowserStatusTextChange;
  1124.     FOnProgressChange: TWebBrowserProgressChange;
  1125.     FOnCommandStateChange: TWebBrowserCommandStateChange;
  1126.     FOnDownloadBegin: TNotifyEvent;
  1127.     FOnDownloadComplete: TNotifyEvent;
  1128.     FOnTitleChange: TWebBrowserTitleChange;
  1129.     FOnPropertyChange: TWebBrowserPropertyChange;
  1130.     FOnBeforeNavigate2: TWebBrowserBeforeNavigate2;
  1131.     FOnNewWindow2: TWebBrowserNewWindow2;
  1132.     FOnNavigateComplete2: TWebBrowserNavigateComplete2;
  1133.     FOnDocumentComplete: TWebBrowserDocumentComplete;
  1134.     FOnQuit: TNotifyEvent;
  1135.     FOnVisible: TWebBrowserOnVisible;
  1136.     FOnToolBar: TWebBrowserOnToolBar;
  1137.     FOnMenuBar: TWebBrowserOnMenuBar;
  1138.     FOnStatusBar: TWebBrowserOnStatusBar;
  1139.     FOnFullScreen: TWebBrowserOnFullScreen;
  1140.     FOnTheaterMode: TWebBrowserOnTheaterMode;
  1141.     FIntf: IWebBrowser2;
  1142.     function  GetControlInterface: IWebBrowser2;
  1143.   protected
  1144.     procedure CreateControl;
  1145.     procedure InitControlData; override;
  1146.     function  Get_Application: IDispatch;
  1147.     function  Get_Parent: IDispatch;
  1148.     function  Get_Container: IDispatch;
  1149.     function  Get_Document: IDispatch;
  1150.   public
  1151.     procedure GoBack;
  1152.     procedure GoForward;
  1153.     procedure GoHome;
  1154.     procedure GoSearch;
  1155.     procedure Navigate(const URL: WideString); overload;
  1156.     procedure Navigate(const URL: WideString; var Flags: OleVariant); overload;
  1157.     procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); overload;
  1158.     procedure Navigate(const URL: WideString; var Flags: OleVariant; 
  1159.                        var TargetFrameName: OleVariant; var PostData: OleVariant); overload;
  1160.     procedure Navigate(const URL: WideString; var Flags: OleVariant; 
  1161.                        var TargetFrameName: OleVariant; var PostData: OleVariant; 
  1162.                        var Headers: OleVariant); overload;
  1163.     procedure Refresh;
  1164.     procedure Refresh2; overload;
  1165.     procedure Refresh2(var Level: OleVariant); overload;
  1166.     procedure Stop;
  1167.     procedure Quit;
  1168.     procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT);
  1169.     procedure PutProperty(const Property_: WideString; vtValue: OleVariant);
  1170.     function  GetProperty(const Property_: WideString): OleVariant;
  1171.     procedure Navigate2(var URL: OleVariant); overload;
  1172.     procedure Navigate2(var URL: OleVariant; var Flags: OleVariant); overload;
  1173.     procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant); overload;
  1174.     procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; 
  1175.                         var TargetFrameName: OleVariant; var PostData: OleVariant); overload;
  1176.     procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; 
  1177.                         var TargetFrameName: OleVariant; var PostData: OleVariant; 
  1178.                         var Headers: OleVariant); overload;
  1179.     function  QueryStatusWB(cmdID: OLECMDID): OLECMDF;
  1180.     procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); overload;
  1181.     procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant); overload;
  1182.     procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant; 
  1183.                      var pvaOut: OleVariant); overload;
  1184.     procedure ShowBrowserBar(var pvaClsid: OleVariant); overload;
  1185.     procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant); overload;
  1186.     procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant; 
  1187.                              var pvarSize: OleVariant); overload;
  1188.     property  ControlInterface: IWebBrowser2 read GetControlInterface;
  1189.     property  DefaultInterface: IWebBrowser2 read GetControlInterface;
  1190.     property Application: IDispatch index 200 read GetIDispatchProp;
  1191.     property Parent: IDispatch index 201 read GetIDispatchProp;
  1192.     property Container: IDispatch index 202 read GetIDispatchProp;
  1193.     property Document: IDispatch index 203 read GetIDispatchProp;
  1194.     property TopLevelContainer: WordBool index 204 read GetWordBoolProp;
  1195.     property Type_: WideString index 205 read GetWideStringProp;
  1196.     property LocationName: WideString index 210 read GetWideStringProp;
  1197.     property LocationURL: WideString index 211 read GetWideStringProp;
  1198.     property Busy: WordBool index 212 read GetWordBoolProp;
  1199.     property Name: WideString index 0 read GetWideStringProp;
  1200.     property HWND: Integer index -515 read GetIntegerProp;
  1201.     property FullName: WideString index 400 read GetWideStringProp;
  1202.     property Path: WideString index 401 read GetWideStringProp;
  1203.     property ReadyState: TOleEnum index -525 read GetTOleEnumProp;
  1204.   published
  1205.     property  TabStop;
  1206.     property  Align;
  1207.     property  DragCursor;
  1208.     property  DragMode;
  1209.     property  ParentShowHint;
  1210.     property  PopupMenu;
  1211.     property  ShowHint;
  1212.     property  TabOrder;
  1213.     property  OnDragDrop;
  1214.     property  OnDragOver;
  1215.     property  OnEndDrag;
  1216.     property  OnEnter;
  1217.     property  OnExit;
  1218.     property  OnStartDrag;
  1219.     property Visible: WordBool index 402 read GetWordBoolProp write SetWordBoolProp stored False;
  1220.     property StatusBar: WordBool index 403 read GetWordBoolProp write SetWordBoolProp stored False;
  1221.     property StatusText: WideString index 404 read GetWideStringProp write SetWideStringProp stored False;
  1222.     property ToolBar: Integer index 405 read GetIntegerProp write SetIntegerProp stored False;
  1223.     property MenuBar: WordBool index 406 read GetWordBoolProp write SetWordBoolProp stored False;
  1224.     property FullScreen: WordBool index 407 read GetWordBoolProp write SetWordBoolProp stored False;
  1225.     property Offline: WordBool index 550 read GetWordBoolProp write SetWordBoolProp stored False;
  1226.     property Silent: WordBool index 551 read GetWordBoolProp write SetWordBoolProp stored False;
  1227.     property RegisterAsBrowser: WordBool index 552 read GetWordBoolProp write SetWordBoolProp stored False;
  1228.     property RegisterAsDropTarget: WordBool index 553 read GetWordBoolProp write SetWordBoolProp stored False;
  1229.     property TheaterMode: WordBool index 554 read GetWordBoolProp write SetWordBoolProp stored False;
  1230.     property AddressBar: WordBool index 555 read GetWordBoolProp write SetWordBoolProp stored False;
  1231.     property Resizable: WordBool index 556 read GetWordBoolProp write SetWordBoolProp stored False;
  1232.     property OnStatusTextChange: TWebBrowserStatusTextChange read FOnStatusTextChange write FOnStatusTextChange;
  1233.     property OnProgressChange: TWebBrowserProgressChange read FOnProgressChange write FOnProgressChange;
  1234.     property OnCommandStateChange: TWebBrowserCommandStateChange read FOnCommandStateChange write FOnCommandStateChange;
  1235.     property OnDownloadBegin: TNotifyEvent read FOnDownloadBegin write FOnDownloadBegin;
  1236.     property OnDownloadComplete: TNotifyEvent read FOnDownloadComplete write FOnDownloadComplete;
  1237.     property OnTitleChange: TWebBrowserTitleChange read FOnTitleChange write FOnTitleChange;
  1238.     property OnPropertyChange: TWebBrowserPropertyChange read FOnPropertyChange write FOnPropertyChange;
  1239.     property OnBeforeNavigate2: TWebBrowserBeforeNavigate2 read FOnBeforeNavigate2 write FOnBeforeNavigate2;
  1240.     property OnNewWindow2: TWebBrowserNewWindow2 read FOnNewWindow2 write FOnNewWindow2;
  1241.     property OnNavigateComplete2: TWebBrowserNavigateComplete2 read FOnNavigateComplete2 write FOnNavigateComplete2;
  1242.     property OnDocumentComplete: TWebBrowserDocumentComplete read FOnDocumentComplete write FOnDocumentComplete;
  1243.     property OnQuit: TNotifyEvent read FOnQuit write FOnQuit;
  1244.     property OnVisible: TWebBrowserOnVisible read FOnVisible write FOnVisible;
  1245.     property OnToolBar: TWebBrowserOnToolBar read FOnToolBar write FOnToolBar;
  1246.     property OnMenuBar: TWebBrowserOnMenuBar read FOnMenuBar write FOnMenuBar;
  1247.     property OnStatusBar: TWebBrowserOnStatusBar read FOnStatusBar write FOnStatusBar;
  1248.     property OnFullScreen: TWebBrowserOnFullScreen read FOnFullScreen write FOnFullScreen;
  1249.     property OnTheaterMode: TWebBrowserOnTheaterMode read FOnTheaterMode write FOnTheaterMode;
  1250.   end;
  1251.  
  1252. // *********************************************************************//
  1253. // The Class CoInternetExplorer provides a Create and CreateRemote method to          
  1254. // create instances of the default interface IWebBrowser2 exposed by              
  1255. // the CoClass InternetExplorer. The functions are intended to be used by             
  1256. // clients wishing to automate the CoClass objects exposed by the         
  1257. // server of this typelibrary.                                            
  1258. // *********************************************************************//
  1259.   CoInternetExplorer = class
  1260.     class function Create: IWebBrowser2;
  1261.     class function CreateRemote(const MachineName: string): IWebBrowser2;
  1262.   end;
  1263.  
  1264.   TInternetExplorerStatusTextChange = procedure(Sender: TObject; var Text: OleVariant) of object;
  1265.   TInternetExplorerProgressChange = procedure(Sender: TObject; Progress: Integer; 
  1266.                                                                ProgressMax: Integer) of object;
  1267.   TInternetExplorerCommandStateChange = procedure(Sender: TObject; Command: Integer; 
  1268.                                                                    Enable: WordBool) of object;
  1269.   TInternetExplorerTitleChange = procedure(Sender: TObject; var Text: OleVariant) of object;
  1270.   TInternetExplorerPropertyChange = procedure(Sender: TObject; var szProperty: OleVariant) of object;
  1271.   TInternetExplorerBeforeNavigate2 = procedure(Sender: TObject; var pDisp: OleVariant;
  1272.                                                                 var URL: OleVariant;
  1273.                                                                 var Flags: OleVariant;
  1274.                                                                 var TargetFrameName: OleVariant;
  1275.                                                                 var PostData: OleVariant;
  1276.                                                                 var Headers: OleVariant;
  1277.                                                                 var Cancel: OleVariant) of object;
  1278.   TInternetExplorerNewWindow2 = procedure(Sender: TObject; var ppDisp: OleVariant;
  1279.                                                            var Cancel: OleVariant) of object;
  1280.   TInternetExplorerNavigateComplete2 = procedure(Sender: TObject; var pDisp: OleVariant;
  1281.                                                                   var URL: OleVariant) of object;
  1282.   TInternetExplorerDocumentComplete = procedure(Sender: TObject; var pDisp: OleVariant;
  1283.                                                                  var URL: OleVariant) of object;
  1284.   TInternetExplorerOnVisible = procedure(Sender: TObject; Visible: WordBool) of object;
  1285.   TInternetExplorerOnToolBar = procedure(Sender: TObject; ToolBar: WordBool) of object;
  1286.   TInternetExplorerOnMenuBar = procedure(Sender: TObject; MenuBar: WordBool) of object;
  1287.   TInternetExplorerOnStatusBar = procedure(Sender: TObject; StatusBar: WordBool) of object;
  1288.   TInternetExplorerOnFullScreen = procedure(Sender: TObject; FullScreen: WordBool) of object;
  1289.   TInternetExplorerOnTheaterMode = procedure(Sender: TObject; TheaterMode: WordBool) of object;
  1290.  
  1291.  
  1292. // *********************************************************************//
  1293. // OLE Server Proxy class declaration
  1294. // Server Object    : TInternetExplorer
  1295. // Help String      : Internet Explorer Application.
  1296. // Default Interface: IWebBrowser2
  1297. // Def. Intf. DISP? : No
  1298. // Event   Interface: DWebBrowserEvents2
  1299. // TypeFlags        : (2) CanCreate
  1300. // *********************************************************************//
  1301.  
  1302.  
  1303.  
  1304.   TInternetExplorer = class(TOleServer)
  1305.   private
  1306.     FOnStatusTextChange: TInternetExplorerStatusTextChange;
  1307.     FOnProgressChange: TInternetExplorerProgressChange;
  1308.     FOnCommandStateChange: TInternetExplorerCommandStateChange;
  1309.     FOnDownloadBegin: TNotifyEvent;
  1310.     FOnDownloadComplete: TNotifyEvent;
  1311.     FOnTitleChange: TInternetExplorerTitleChange;
  1312.     FOnPropertyChange: TInternetExplorerPropertyChange;
  1313.     FOnBeforeNavigate2: TInternetExplorerBeforeNavigate2;
  1314.     FOnNewWindow2: TInternetExplorerNewWindow2;
  1315.     FOnNavigateComplete2: TInternetExplorerNavigateComplete2;
  1316.     FOnDocumentComplete: TInternetExplorerDocumentComplete;
  1317.     FOnQuit: TNotifyEvent;
  1318.     FOnVisible: TInternetExplorerOnVisible;
  1319.     FOnToolBar: TInternetExplorerOnToolBar;
  1320.     FOnMenuBar: TInternetExplorerOnMenuBar;
  1321.     FOnStatusBar: TInternetExplorerOnStatusBar;
  1322.     FOnFullScreen: TInternetExplorerOnFullScreen;
  1323.     FOnTheaterMode: TInternetExplorerOnTheaterMode;
  1324.     FIntf:        IWebBrowser2;
  1325.  
  1326.  
  1327.  
  1328.  
  1329.     function      GetDefaultInterface: IWebBrowser2;
  1330.   protected
  1331.     procedure InitServerData; override;
  1332.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  1333.     function  Get_Application: IDispatch;
  1334.     function  Get_Parent: IDispatch;
  1335.     function  Get_Container: IDispatch;
  1336.     function  Get_Document: IDispatch;
  1337.     function  Get_TopLevelContainer: WordBool;
  1338.     function  Get_Type_: WideString;
  1339.     function  Get_Left: Integer;
  1340.     procedure Set_Left(pl: Integer);
  1341.     function  Get_Top: Integer;
  1342.     procedure Set_Top(pl: Integer);
  1343.     function  Get_Width: Integer;
  1344.     procedure Set_Width(pl: Integer);
  1345.     function  Get_Height: Integer;
  1346.     procedure Set_Height(pl: Integer);
  1347.     function  Get_LocationName: WideString;
  1348.     function  Get_LocationURL: WideString;
  1349.     function  Get_Busy: WordBool;
  1350.     function  Get_Name: WideString;
  1351.     function  Get_HWND: Integer;
  1352.     function  Get_FullName: WideString;
  1353.     function  Get_Path: WideString;
  1354.     function  Get_Visible: WordBool;
  1355.     procedure Set_Visible(pBool: WordBool);
  1356.     function  Get_StatusBar: WordBool;
  1357.     procedure Set_StatusBar(pBool: WordBool);
  1358.     function  Get_StatusText: WideString;
  1359.     procedure Set_StatusText(const StatusText: WideString);
  1360.     function  Get_ToolBar: SYSINT;
  1361.     procedure Set_ToolBar(Value: SYSINT);
  1362.     function  Get_MenuBar: WordBool;
  1363.     procedure Set_MenuBar(Value: WordBool);
  1364.     function  Get_FullScreen: WordBool;
  1365.     procedure Set_FullScreen(pbFullScreen: WordBool);
  1366.     function  Get_ReadyState: tagREADYSTATE;
  1367.     function  Get_Offline: WordBool;
  1368.     procedure Set_Offline(pbOffline: WordBool);
  1369.     function  Get_Silent: WordBool;
  1370.     procedure Set_Silent(pbSilent: WordBool);
  1371.     function  Get_RegisterAsBrowser: WordBool;
  1372.     procedure Set_RegisterAsBrowser(pbRegister: WordBool);
  1373.     function  Get_RegisterAsDropTarget: WordBool;
  1374.     procedure Set_RegisterAsDropTarget(pbRegister: WordBool);
  1375.     function  Get_TheaterMode: WordBool;
  1376.     procedure Set_TheaterMode(pbRegister: WordBool);
  1377.     function  Get_AddressBar: WordBool;
  1378.     procedure Set_AddressBar(Value: WordBool);
  1379.     function  Get_Resizable: WordBool;
  1380.     procedure Set_Resizable(Value: WordBool);
  1381.   public
  1382.     constructor Create(AOwner: TComponent); override;
  1383.     destructor  Destroy; override;
  1384.     procedure Connect; override;
  1385.     procedure ConnectTo(svrIntf: IWebBrowser2);
  1386.     procedure Disconnect; override;
  1387.     procedure GoBack;
  1388.     procedure GoForward;
  1389.     procedure GoHome;
  1390.     procedure GoSearch;
  1391.     procedure Navigate(const URL: WideString); overload;
  1392.     procedure Navigate(const URL: WideString; var Flags: OleVariant); overload;
  1393.     procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); overload;
  1394.     procedure Navigate(const URL: WideString; var Flags: OleVariant; 
  1395.                        var TargetFrameName: OleVariant; var PostData: OleVariant); overload;
  1396.     procedure Navigate(const URL: WideString; var Flags: OleVariant; 
  1397.                        var TargetFrameName: OleVariant; var PostData: OleVariant; 
  1398.                        var Headers: OleVariant); overload;
  1399.     procedure Refresh;
  1400.     procedure Refresh2; overload;
  1401.     procedure Refresh2(var Level: OleVariant); overload;
  1402.     procedure Stop;
  1403.     procedure Quit;
  1404.     procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT);
  1405.     procedure PutProperty(const Property_: WideString; vtValue: OleVariant);
  1406.     function  GetProperty(const Property_: WideString): OleVariant;
  1407.     procedure Navigate2(var URL: OleVariant); overload;
  1408.     procedure Navigate2(var URL: OleVariant; var Flags: OleVariant); overload;
  1409.     procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant); overload;
  1410.     procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; 
  1411.                         var TargetFrameName: OleVariant; var PostData: OleVariant); overload;
  1412.     procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; 
  1413.                         var TargetFrameName: OleVariant; var PostData: OleVariant; 
  1414.                         var Headers: OleVariant); overload;
  1415.     function  QueryStatusWB(cmdID: OLECMDID): OLECMDF;
  1416.     procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); overload;
  1417.     procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant); overload;
  1418.     procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant; 
  1419.                      var pvaOut: OleVariant); overload;
  1420.     procedure ShowBrowserBar(var pvaClsid: OleVariant); overload;
  1421.     procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant); overload;
  1422.     procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant; 
  1423.                              var pvarSize: OleVariant); overload;
  1424.     property  DefaultInterface: IWebBrowser2 read GetDefaultInterface;
  1425.     property Application: IDispatch read Get_Application;
  1426.     property Parent: IDispatch read Get_Parent;
  1427.     property Container: IDispatch read Get_Container;
  1428.     property Document: IDispatch read Get_Document;
  1429.     property TopLevelContainer: WordBool read Get_TopLevelContainer;
  1430.     property Type_: WideString read Get_Type_;
  1431.     property LocationName: WideString read Get_LocationName;
  1432.     property LocationURL: WideString read Get_LocationURL;
  1433.     property Busy: WordBool read Get_Busy;
  1434.     property Name: WideString read Get_Name;
  1435.     property HWND: Integer read Get_HWND;
  1436.     property FullName: WideString read Get_FullName;
  1437.     property Path: WideString read Get_Path;
  1438.     property ReadyState: tagREADYSTATE read Get_ReadyState;
  1439.     property Left: Integer read Get_Left write Set_Left;
  1440.     property Top: Integer read Get_Top write Set_Top;
  1441.     property Width: Integer read Get_Width write Set_Width;
  1442.     property Height: Integer read Get_Height write Set_Height;
  1443.     property Visible: WordBool read Get_Visible write Set_Visible;
  1444.     property StatusBar: WordBool read Get_StatusBar write Set_StatusBar;
  1445.     property StatusText: WideString read Get_StatusText write Set_StatusText;
  1446.     property ToolBar: SYSINT read Get_ToolBar write Set_ToolBar;
  1447.     property MenuBar: WordBool read Get_MenuBar write Set_MenuBar;
  1448.     property FullScreen: WordBool read Get_FullScreen write Set_FullScreen;
  1449.     property Offline: WordBool read Get_Offline write Set_Offline;
  1450.     property Silent: WordBool read Get_Silent write Set_Silent;
  1451.     property RegisterAsBrowser: WordBool read Get_RegisterAsBrowser write Set_RegisterAsBrowser;
  1452.     property RegisterAsDropTarget: WordBool read Get_RegisterAsDropTarget write Set_RegisterAsDropTarget;
  1453.     property TheaterMode: WordBool read Get_TheaterMode write Set_TheaterMode;
  1454.     property AddressBar: WordBool read Get_AddressBar write Set_AddressBar;
  1455.     property Resizable: WordBool read Get_Resizable write Set_Resizable;
  1456.   published
  1457.  
  1458.  
  1459.  
  1460.     property OnStatusTextChange: TInternetExplorerStatusTextChange read FOnStatusTextChange write FOnStatusTextChange;
  1461.     property OnProgressChange: TInternetExplorerProgressChange read FOnProgressChange write FOnProgressChange;
  1462.     property OnCommandStateChange: TInternetExplorerCommandStateChange read FOnCommandStateChange write FOnCommandStateChange;
  1463.     property OnDownloadBegin: TNotifyEvent read FOnDownloadBegin write FOnDownloadBegin;
  1464.     property OnDownloadComplete: TNotifyEvent read FOnDownloadComplete write FOnDownloadComplete;
  1465.     property OnTitleChange: TInternetExplorerTitleChange read FOnTitleChange write FOnTitleChange;
  1466.     property OnPropertyChange: TInternetExplorerPropertyChange read FOnPropertyChange write FOnPropertyChange;
  1467.     property OnBeforeNavigate2: TInternetExplorerBeforeNavigate2 read FOnBeforeNavigate2 write FOnBeforeNavigate2;
  1468.     property OnNewWindow2: TInternetExplorerNewWindow2 read FOnNewWindow2 write FOnNewWindow2;
  1469.     property OnNavigateComplete2: TInternetExplorerNavigateComplete2 read FOnNavigateComplete2 write FOnNavigateComplete2;
  1470.     property OnDocumentComplete: TInternetExplorerDocumentComplete read FOnDocumentComplete write FOnDocumentComplete;
  1471.     property OnQuit: TNotifyEvent read FOnQuit write FOnQuit;
  1472.     property OnVisible: TInternetExplorerOnVisible read FOnVisible write FOnVisible;
  1473.     property OnToolBar: TInternetExplorerOnToolBar read FOnToolBar write FOnToolBar;
  1474.     property OnMenuBar: TInternetExplorerOnMenuBar read FOnMenuBar write FOnMenuBar;
  1475.     property OnStatusBar: TInternetExplorerOnStatusBar read FOnStatusBar write FOnStatusBar;
  1476.     property OnFullScreen: TInternetExplorerOnFullScreen read FOnFullScreen write FOnFullScreen;
  1477.     property OnTheaterMode: TInternetExplorerOnTheaterMode read FOnTheaterMode write FOnTheaterMode;
  1478.   end;
  1479.  
  1480.  
  1481.  
  1482.  
  1483.  
  1484.  
  1485.  
  1486.  
  1487.  
  1488.  
  1489.  
  1490.  
  1491.  
  1492.  
  1493.  
  1494.  
  1495.  
  1496.  
  1497.  
  1498.  
  1499.  
  1500.  
  1501.  
  1502.  
  1503.  
  1504.  
  1505.  
  1506.  
  1507.  
  1508.  
  1509.  
  1510.  
  1511.  
  1512.  
  1513.  
  1514.  
  1515.  
  1516.  
  1517.  
  1518.  
  1519.  
  1520.  
  1521.  
  1522.  
  1523.  
  1524.  
  1525.  
  1526.  
  1527.  
  1528.  
  1529.  
  1530.  
  1531.  
  1532.  
  1533.  
  1534.  
  1535.  
  1536.  
  1537.  
  1538.  
  1539.  
  1540.  
  1541.  
  1542.  
  1543.  
  1544.  
  1545.  
  1546.  
  1547.  
  1548.  
  1549.  
  1550.  
  1551.  
  1552.  
  1553.  
  1554.  
  1555.  
  1556.  
  1557.  
  1558.  
  1559.  
  1560.  
  1561.  
  1562.  
  1563.  
  1564.  
  1565. // *********************************************************************//
  1566. // The Class CoShellBrowserWindow provides a Create and CreateRemote method to          
  1567. // create instances of the default interface IWebBrowser2 exposed by              
  1568. // the CoClass ShellBrowserWindow. The functions are intended to be used by             
  1569. // clients wishing to automate the CoClass objects exposed by the         
  1570. // server of this typelibrary.                                            
  1571. // *********************************************************************//
  1572.   CoShellBrowserWindow = class
  1573.     class function Create: IWebBrowser2;
  1574.     class function CreateRemote(const MachineName: string): IWebBrowser2;
  1575.   end;
  1576.  
  1577. // *********************************************************************//
  1578. // The Class CoShellWindows provides a Create and CreateRemote method to          
  1579. // create instances of the default interface IShellWindows exposed by              
  1580. // the CoClass ShellWindows. The functions are intended to be used by             
  1581. // clients wishing to automate the CoClass objects exposed by the         
  1582. // server of this typelibrary.                                            
  1583. // *********************************************************************//
  1584.   CoShellWindows = class
  1585.     class function Create: IShellWindows;
  1586.     class function CreateRemote(const MachineName: string): IShellWindows;
  1587.   end;
  1588.  
  1589.   TShellWindowsWindowRegistered = procedure(Sender: TObject; lCookie: Integer) of object;
  1590.   TShellWindowsWindowRevoked = procedure(Sender: TObject; lCookie: Integer) of object;
  1591.  
  1592.  
  1593. // *********************************************************************//
  1594. // OLE Server Proxy class declaration
  1595. // Server Object    : TShellWindows
  1596. // Help String      : ShellDispatch Load in Shell Context
  1597. // Default Interface: IShellWindows
  1598. // Def. Intf. DISP? : No
  1599. // Event   Interface: DShellWindowsEvents
  1600. // TypeFlags        : (2) CanCreate
  1601. // *********************************************************************//
  1602.  
  1603.  
  1604.  
  1605.   TShellWindows = class(TOleServer)
  1606.   private
  1607.     FOnWindowRegistered: TShellWindowsWindowRegistered;
  1608.     FOnWindowRevoked: TShellWindowsWindowRevoked;
  1609.     FIntf:        IShellWindows;
  1610.  
  1611.  
  1612.  
  1613.  
  1614.     function      GetDefaultInterface: IShellWindows;
  1615.   protected
  1616.     procedure InitServerData; override;
  1617.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  1618.     function  Get_Count: Integer;
  1619.   public
  1620.     constructor Create(AOwner: TComponent); override;
  1621.     destructor  Destroy; override;
  1622.     procedure Connect; override;
  1623.     procedure ConnectTo(svrIntf: IShellWindows);
  1624.     procedure Disconnect; override;
  1625.     function  Item: IDispatch; overload;
  1626.     function  Item(index: OleVariant): IDispatch; overload;
  1627.     function  _NewEnum: IUnknown;
  1628.     procedure Register(const pid: IDispatch; HWND: Integer; swClass: SYSINT; out plCookie: Integer);
  1629.     procedure RegisterPending(lThreadId: Integer; var pvarloc: OleVariant; 
  1630.                               var pvarlocRoot: OleVariant; swClass: SYSINT; out plCookie: Integer);
  1631.     procedure Revoke(lCookie: Integer);
  1632.     procedure OnNavigate(lCookie: Integer; var pvarloc: OleVariant);
  1633.     procedure OnActivated(lCookie: Integer; fActive: WordBool);
  1634.     function  FindWindow(var pvarloc: OleVariant; var pvarlocRoot: OleVariant; swClass: SYSINT; 
  1635.                          out pHWND: Integer; swfwOptions: SYSINT): IDispatch;
  1636.     procedure OnCreated(lCookie: Integer; const punk: IUnknown);
  1637.     procedure ProcessAttachDetach(fAttach: WordBool);
  1638.     property  DefaultInterface: IShellWindows read GetDefaultInterface;
  1639.     property Count: Integer read Get_Count;
  1640.   published
  1641.  
  1642.  
  1643.  
  1644.     property OnWindowRegistered: TShellWindowsWindowRegistered read FOnWindowRegistered write FOnWindowRegistered;
  1645.     property OnWindowRevoked: TShellWindowsWindowRevoked read FOnWindowRevoked write FOnWindowRevoked;
  1646.   end;
  1647.  
  1648.  
  1649.  
  1650.  
  1651.  
  1652.  
  1653.  
  1654.  
  1655.  
  1656.  
  1657.  
  1658.  
  1659.  
  1660.  
  1661.  
  1662.  
  1663.  
  1664.  
  1665.  
  1666.  
  1667.  
  1668.  
  1669. // *********************************************************************//
  1670. // The Class CoShellUIHelper provides a Create and CreateRemote method to          
  1671. // create instances of the default interface IShellUIHelper exposed by              
  1672. // the CoClass ShellUIHelper. The functions are intended to be used by             
  1673. // clients wishing to automate the CoClass objects exposed by the         
  1674. // server of this typelibrary.                                            
  1675. // *********************************************************************//
  1676.   CoShellUIHelper = class
  1677.     class function Create: IShellUIHelper;
  1678.     class function CreateRemote(const MachineName: string): IShellUIHelper;
  1679.   end;
  1680.  
  1681.  
  1682. // *********************************************************************//
  1683. // OLE Server Proxy class declaration
  1684. // Server Object    : TShellUIHelper
  1685. // Help String      : 
  1686. // Default Interface: IShellUIHelper
  1687. // Def. Intf. DISP? : No
  1688. // Event   Interface: 
  1689. // TypeFlags        : (2) CanCreate
  1690. // *********************************************************************//
  1691.  
  1692.  
  1693.  
  1694.   TShellUIHelper = class(TOleServer)
  1695.   private
  1696.     FIntf:        IShellUIHelper;
  1697.  
  1698.  
  1699.  
  1700.  
  1701.     function      GetDefaultInterface: IShellUIHelper;
  1702.   protected
  1703.     procedure InitServerData; override;
  1704.   public
  1705.     constructor Create(AOwner: TComponent); override;
  1706.     destructor  Destroy; override;
  1707.     procedure Connect; override;
  1708.     procedure ConnectTo(svrIntf: IShellUIHelper);
  1709.     procedure Disconnect; override;
  1710.     procedure ResetFirstBootMode;
  1711.     procedure ResetSafeMode;
  1712.     procedure RefreshOfflineDesktop;
  1713.     procedure AddFavorite(const URL: WideString); overload;
  1714.     procedure AddFavorite(const URL: WideString; var Title: OleVariant); overload;
  1715.     procedure AddChannel(const URL: WideString);
  1716.     procedure AddDesktopComponent(const URL: WideString; const Type_: WideString); overload;
  1717.     procedure AddDesktopComponent(const URL: WideString; const Type_: WideString; 
  1718.                                   var Left: OleVariant); overload;
  1719.     procedure AddDesktopComponent(const URL: WideString; const Type_: WideString; 
  1720.                                   var Left: OleVariant; var Top: OleVariant); overload;
  1721.     procedure AddDesktopComponent(const URL: WideString; const Type_: WideString; 
  1722.                                   var Left: OleVariant; var Top: OleVariant; var Width: OleVariant); overload;
  1723.     procedure AddDesktopComponent(const URL: WideString; const Type_: WideString; 
  1724.                                   var Left: OleVariant; var Top: OleVariant; var Width: OleVariant; 
  1725.                                   var Height: OleVariant); overload;
  1726.     function  IsSubscribed(const URL: WideString): WordBool;
  1727.     procedure NavigateAndFind(const URL: WideString; const strQuery: WideString; 
  1728.                               var varTargetFrame: OleVariant);
  1729.     procedure ImportExportFavorites(fImport: WordBool; const strImpExpPath: WideString);
  1730.     procedure AutoCompleteSaveForm; overload;
  1731.     procedure AutoCompleteSaveForm(var Form: OleVariant); overload;
  1732.     procedure AutoScan(const strSearch: WideString; const strFailureUrl: WideString); overload;
  1733.     procedure AutoScan(const strSearch: WideString; const strFailureUrl: WideString; 
  1734.                        var pvarTargetFrame: OleVariant); overload;
  1735.     procedure AutoCompleteAttach; overload;
  1736.     procedure AutoCompleteAttach(var Reserved: OleVariant); overload;
  1737.     function  ShowBrowserUI(const bstrName: WideString; var pvarIn: OleVariant): OleVariant;
  1738.     property  DefaultInterface: IShellUIHelper read GetDefaultInterface;
  1739.   published
  1740.  
  1741.  
  1742.  
  1743.   end;
  1744.  
  1745.  
  1746.  
  1747.  
  1748.  
  1749.  
  1750.  
  1751.  
  1752.  
  1753.  
  1754.  
  1755.  
  1756.  
  1757.  
  1758.  
  1759.  
  1760.  
  1761.  
  1762.  
  1763.  
  1764.  
  1765. // *********************************************************************//
  1766. // The Class CoShellFavoritesNameSpace provides a Create and CreateRemote method to          
  1767. // create instances of the default interface IShellFavoritesNameSpace exposed by              
  1768. // the CoClass ShellFavoritesNameSpace. The functions are intended to be used by             
  1769. // clients wishing to automate the CoClass objects exposed by the         
  1770. // server of this typelibrary.                                            
  1771. // *********************************************************************//
  1772.   CoShellFavoritesNameSpace = class
  1773.     class function Create: IShellFavoritesNameSpace;
  1774.     class function CreateRemote(const MachineName: string): IShellFavoritesNameSpace;
  1775.   end;
  1776.  
  1777.   TShellFavoritesNameSpaceFavoritesSelectionChange = procedure(Sender: TObject; cItems: Integer; 
  1778.                                                                                 hItem: Integer; 
  1779.                                                                                 var strName: OleVariant;
  1780.                                                                                 var strUrl: OleVariant;
  1781.                                                                                 cVisits: Integer; 
  1782.                                                                                 var strDate: OleVariant;
  1783.                                                                                 fAvailableOffline: Integer) of object;
  1784.  
  1785.  
  1786. // *********************************************************************//
  1787. // OLE Server Proxy class declaration
  1788. // Server Object    : TShellFavoritesNameSpace
  1789. // Help String      : 
  1790. // Default Interface: IShellFavoritesNameSpace
  1791. // Def. Intf. DISP? : No
  1792. // Event   Interface: _ShellFavoritesNameSpaceEvents
  1793. // TypeFlags        : (2) CanCreate
  1794. // *********************************************************************//
  1795.  
  1796.  
  1797.  
  1798.   TShellFavoritesNameSpace = class(TOleServer)
  1799.   private
  1800.     FOnFavoritesSelectionChange: TShellFavoritesNameSpaceFavoritesSelectionChange;
  1801.     FIntf:        IShellFavoritesNameSpace;
  1802.  
  1803.  
  1804.  
  1805.  
  1806.     function      GetDefaultInterface: IShellFavoritesNameSpace;
  1807.   protected
  1808.     procedure InitServerData; override;
  1809.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  1810.     function  Get_FOfflinePackInstalled: WordBool;
  1811.   public
  1812.     constructor Create(AOwner: TComponent); override;
  1813.     destructor  Destroy; override;
  1814.     procedure Connect; override;
  1815.     procedure ConnectTo(svrIntf: IShellFavoritesNameSpace);
  1816.     procedure Disconnect; override;
  1817.     procedure MoveSelectionUp;
  1818.     procedure MoveSelectionDown;
  1819.     procedure ResetSort;
  1820.     procedure NewFolder;
  1821.     procedure Synchronize;
  1822.     procedure Import;
  1823.     procedure Export;
  1824.     procedure InvokeContextMenuCommand(const strCommand: WideString);
  1825.     procedure MoveSelectionTo;
  1826.     function  CreateSubscriptionForSelection: WordBool;
  1827.     function  DeleteSubscriptionForSelection: WordBool;
  1828.     procedure SetRoot(const bstrFullPath: WideString);
  1829.     property  DefaultInterface: IShellFavoritesNameSpace read GetDefaultInterface;
  1830.     property FOfflinePackInstalled: WordBool read Get_FOfflinePackInstalled;
  1831.   published
  1832.  
  1833.  
  1834.  
  1835.     property OnFavoritesSelectionChange: TShellFavoritesNameSpaceFavoritesSelectionChange read FOnFavoritesSelectionChange write FOnFavoritesSelectionChange;
  1836.   end;
  1837.  
  1838.  
  1839.  
  1840.  
  1841.  
  1842.  
  1843.  
  1844.  
  1845.  
  1846.  
  1847.  
  1848.  
  1849.  
  1850.  
  1851.  
  1852.  
  1853.  
  1854.  
  1855.  
  1856.  
  1857.  
  1858.  
  1859. // *********************************************************************//
  1860. // The Class CoCScriptErrorList provides a Create and CreateRemote method to          
  1861. // create instances of the default interface IScriptErrorList exposed by              
  1862. // the CoClass CScriptErrorList. The functions are intended to be used by             
  1863. // clients wishing to automate the CoClass objects exposed by the         
  1864. // server of this typelibrary.                                            
  1865. // *********************************************************************//
  1866.   CoCScriptErrorList = class
  1867.     class function Create: IScriptErrorList;
  1868.     class function CreateRemote(const MachineName: string): IScriptErrorList;
  1869.   end;
  1870.  
  1871. // *********************************************************************//
  1872. // The Class CoSearchAssistantOC provides a Create and CreateRemote method to          
  1873. // create instances of the default interface ISearchAssistantOC exposed by              
  1874. // the CoClass SearchAssistantOC. The functions are intended to be used by             
  1875. // clients wishing to automate the CoClass objects exposed by the         
  1876. // server of this typelibrary.                                            
  1877. // *********************************************************************//
  1878.   CoSearchAssistantOC = class
  1879.     class function Create: ISearchAssistantOC;
  1880.     class function CreateRemote(const MachineName: string): ISearchAssistantOC;
  1881.   end;
  1882.  
  1883. implementation
  1884.  
  1885. uses ComObj;
  1886.  
  1887. procedure TWebBrowser_V1.InitControlData;
  1888. const
  1889.   CEventDispIDs: array [0..16] of DWORD = (
  1890.     $00000064, $00000065, $00000066, $0000006C, $00000068, $00000069,
  1891.     $0000006A, $0000006B, $00000071, $000000C8, $000000C9, $000000CC,
  1892.     $00000067, $0000006D, $0000006E, $0000006F, $00000070);
  1893.   CControlData: TControlData2 = (
  1894.     ClassID: '{EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B}';
  1895.     EventIID: '{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}';
  1896.     EventCount: 17;
  1897.     EventDispIDs: @CEventDispIDs;
  1898.     LicenseKey: nil (*HR:$80040154*);
  1899.     Flags: $00000000;
  1900.     Version: 401);
  1901. begin
  1902.   ControlData := @CControlData;
  1903.   TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnBeforeNavigate) - Cardinal(Self);
  1904. end;
  1905.  
  1906. procedure TWebBrowser_V1.CreateControl;
  1907.  
  1908.   procedure DoCreate;
  1909.   begin
  1910.     FIntf := IUnknown(OleObject) as IWebBrowser;
  1911.   end;
  1912.  
  1913. begin
  1914.   if FIntf = nil then DoCreate;
  1915. end;
  1916.  
  1917. function TWebBrowser_V1.GetControlInterface: IWebBrowser;
  1918. begin
  1919.   CreateControl;
  1920.   Result := FIntf;
  1921. end;
  1922.  
  1923. function  TWebBrowser_V1.Get_Application: IDispatch;
  1924. begin
  1925.   Result := DefaultInterface.Get_Application;
  1926. end;
  1927.  
  1928. function  TWebBrowser_V1.Get_Parent: IDispatch;
  1929. begin
  1930.   Result := DefaultInterface.Get_Parent;
  1931. end;
  1932.  
  1933. function  TWebBrowser_V1.Get_Container: IDispatch;
  1934. begin
  1935.   Result := DefaultInterface.Get_Container;
  1936. end;
  1937.  
  1938. function  TWebBrowser_V1.Get_Document: IDispatch;
  1939. begin
  1940.   Result := DefaultInterface.Get_Document;
  1941. end;
  1942.  
  1943. procedure TWebBrowser_V1.GoBack;
  1944. begin
  1945.   DefaultInterface.GoBack;
  1946. end;
  1947.  
  1948. procedure TWebBrowser_V1.GoForward;
  1949. begin
  1950.   DefaultInterface.GoForward;
  1951. end;
  1952.  
  1953. procedure TWebBrowser_V1.GoHome;
  1954. begin
  1955.   DefaultInterface.GoHome;
  1956. end;
  1957.  
  1958. procedure TWebBrowser_V1.GoSearch;
  1959. begin
  1960.   DefaultInterface.GoSearch;
  1961. end;
  1962.  
  1963. procedure TWebBrowser_V1.Navigate(const URL: WideString);
  1964. begin
  1965.   DefaultInterface.Navigate(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  1966. end;
  1967.  
  1968. procedure TWebBrowser_V1.Navigate(const URL: WideString; var Flags: OleVariant);
  1969. begin
  1970.   DefaultInterface.Navigate(URL, Flags, EmptyParam, EmptyParam, EmptyParam);
  1971. end;
  1972.  
  1973. procedure TWebBrowser_V1.Navigate(const URL: WideString; var Flags: OleVariant; 
  1974.                                   var TargetFrameName: OleVariant);
  1975. begin
  1976.   DefaultInterface.Navigate(URL, Flags, TargetFrameName, EmptyParam, EmptyParam);
  1977. end;
  1978.  
  1979. procedure TWebBrowser_V1.Navigate(const URL: WideString; var Flags: OleVariant; 
  1980.                                   var TargetFrameName: OleVariant; var PostData: OleVariant);
  1981. begin
  1982.   DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, EmptyParam);
  1983. end;
  1984.  
  1985. procedure TWebBrowser_V1.Navigate(const URL: WideString; var Flags: OleVariant; 
  1986.                                   var TargetFrameName: OleVariant; var PostData: OleVariant; 
  1987.                                   var Headers: OleVariant);
  1988. begin
  1989.   DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, Headers);
  1990. end;
  1991.  
  1992. procedure TWebBrowser_V1.Refresh;
  1993. begin
  1994.   DefaultInterface.Refresh;
  1995. end;
  1996.  
  1997. procedure TWebBrowser_V1.Refresh2;
  1998. begin
  1999.   DefaultInterface.Refresh2(EmptyParam);
  2000. end;
  2001.  
  2002. procedure TWebBrowser_V1.Refresh2(var Level: OleVariant);
  2003. begin
  2004.   DefaultInterface.Refresh2(Level);
  2005. end;
  2006.  
  2007. procedure TWebBrowser_V1.Stop;
  2008. begin
  2009.   DefaultInterface.Stop;
  2010. end;
  2011.  
  2012. procedure TWebBrowser.InitControlData;
  2013. const
  2014.   CEventDispIDs: array [0..17] of DWORD = (
  2015.     $00000066, $0000006C, $00000069, $0000006A, $00000068, $00000071,
  2016.     $00000070, $000000FA, $000000FB, $000000FC, $00000103, $000000FD,
  2017.     $000000FE, $000000FF, $00000100, $00000101, $00000102, $00000104);
  2018.   CControlData: TControlData2 = (
  2019.     ClassID: '{8856F961-340A-11D0-A96B-00C04FD705A2}';
  2020.     EventIID: '{34A715A0-6587-11D0-924A-0020AFC7AC4D}';
  2021.     EventCount: 18;
  2022.     EventDispIDs: @CEventDispIDs;
  2023.     LicenseKey: nil (*HR:$80040154*);
  2024.     Flags: $00000000;
  2025.     Version: 401);
  2026. begin
  2027.   ControlData := @CControlData;
  2028.   TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnStatusTextChange) - Cardinal(Self);
  2029. end;
  2030.  
  2031. procedure TWebBrowser.CreateControl;
  2032.  
  2033.   procedure DoCreate;
  2034.   begin
  2035.     FIntf := IUnknown(OleObject) as IWebBrowser2;
  2036.   end;
  2037.  
  2038. begin
  2039.   if FIntf = nil then DoCreate;
  2040. end;
  2041.  
  2042. function TWebBrowser.GetControlInterface: IWebBrowser2;
  2043. begin
  2044.   CreateControl;
  2045.   Result := FIntf;
  2046. end;
  2047.  
  2048. function  TWebBrowser.Get_Application: IDispatch;
  2049. begin
  2050.   Result := DefaultInterface.Get_Application;
  2051. end;
  2052.  
  2053. function  TWebBrowser.Get_Parent: IDispatch;
  2054. begin
  2055.   Result := DefaultInterface.Get_Parent;
  2056. end;
  2057.  
  2058. function  TWebBrowser.Get_Container: IDispatch;
  2059. begin
  2060.   Result := DefaultInterface.Get_Container;
  2061. end;
  2062.  
  2063. function  TWebBrowser.Get_Document: IDispatch;
  2064. begin
  2065.   Result := DefaultInterface.Get_Document;
  2066. end;
  2067.  
  2068. procedure TWebBrowser.GoBack;
  2069. begin
  2070.   DefaultInterface.GoBack;
  2071. end;
  2072.  
  2073. procedure TWebBrowser.GoForward;
  2074. begin
  2075.   DefaultInterface.GoForward;
  2076. end;
  2077.  
  2078. procedure TWebBrowser.GoHome;
  2079. begin
  2080.   DefaultInterface.GoHome;
  2081. end;
  2082.  
  2083. procedure TWebBrowser.GoSearch;
  2084. begin
  2085.   DefaultInterface.GoSearch;
  2086. end;
  2087.  
  2088. procedure TWebBrowser.Navigate(const URL: WideString);
  2089. begin
  2090.   DefaultInterface.Navigate(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  2091. end;
  2092.  
  2093. procedure TWebBrowser.Navigate(const URL: WideString; var Flags: OleVariant);
  2094. begin
  2095.   DefaultInterface.Navigate(URL, Flags, EmptyParam, EmptyParam, EmptyParam);
  2096. end;
  2097.  
  2098. procedure TWebBrowser.Navigate(const URL: WideString; var Flags: OleVariant; 
  2099.                                var TargetFrameName: OleVariant);
  2100. begin
  2101.   DefaultInterface.Navigate(URL, Flags, TargetFrameName, EmptyParam, EmptyParam);
  2102. end;
  2103.  
  2104. procedure TWebBrowser.Navigate(const URL: WideString; var Flags: OleVariant; 
  2105.                                var TargetFrameName: OleVariant; var PostData: OleVariant);
  2106. begin
  2107.   DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, EmptyParam);
  2108. end;
  2109.  
  2110. procedure TWebBrowser.Navigate(const URL: WideString; var Flags: OleVariant; 
  2111.                                var TargetFrameName: OleVariant; var PostData: OleVariant; 
  2112.                                var Headers: OleVariant);
  2113. begin
  2114.   DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, Headers);
  2115. end;
  2116.  
  2117. procedure TWebBrowser.Refresh;
  2118. begin
  2119.   DefaultInterface.Refresh;
  2120. end;
  2121.  
  2122. procedure TWebBrowser.Refresh2;
  2123. begin
  2124.   DefaultInterface.Refresh2(EmptyParam);
  2125. end;
  2126.  
  2127. procedure TWebBrowser.Refresh2(var Level: OleVariant);
  2128. begin
  2129.   DefaultInterface.Refresh2(Level);
  2130. end;
  2131.  
  2132. procedure TWebBrowser.Stop;
  2133. begin
  2134.   DefaultInterface.Stop;
  2135. end;
  2136.  
  2137. procedure TWebBrowser.Quit;
  2138. begin
  2139.   DefaultInterface.Quit;
  2140. end;
  2141.  
  2142. procedure TWebBrowser.ClientToWindow(var pcx: SYSINT; var pcy: SYSINT);
  2143. begin
  2144.   DefaultInterface.ClientToWindow(pcx, pcy);
  2145. end;
  2146.  
  2147. procedure TWebBrowser.PutProperty(const Property_: WideString; vtValue: OleVariant);
  2148. begin
  2149.   DefaultInterface.PutProperty(Property_, vtValue);
  2150. end;
  2151.  
  2152. function  TWebBrowser.GetProperty(const Property_: WideString): OleVariant;
  2153. begin
  2154.   Result := DefaultInterface.GetProperty(Property_);
  2155. end;
  2156.  
  2157. procedure TWebBrowser.Navigate2(var URL: OleVariant);
  2158. begin
  2159.   DefaultInterface.Navigate2(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  2160. end;
  2161.  
  2162. procedure TWebBrowser.Navigate2(var URL: OleVariant; var Flags: OleVariant);
  2163. begin
  2164.   DefaultInterface.Navigate2(URL, Flags, EmptyParam, EmptyParam, EmptyParam);
  2165. end;
  2166.  
  2167. procedure TWebBrowser.Navigate2(var URL: OleVariant; var Flags: OleVariant; 
  2168.                                 var TargetFrameName: OleVariant);
  2169. begin
  2170.   DefaultInterface.Navigate2(URL, Flags, TargetFrameName, EmptyParam, EmptyParam);
  2171. end;
  2172.  
  2173. procedure TWebBrowser.Navigate2(var URL: OleVariant; var Flags: OleVariant; 
  2174.                                 var TargetFrameName: OleVariant; var PostData: OleVariant);
  2175. begin
  2176.   DefaultInterface.Navigate2(URL, Flags, TargetFrameName, PostData, EmptyParam);
  2177. end;
  2178.  
  2179. procedure TWebBrowser.Navigate2(var URL: OleVariant; var Flags: OleVariant; 
  2180.                                 var TargetFrameName: OleVariant; var PostData: OleVariant; 
  2181.                                 var Headers: OleVariant);
  2182. begin
  2183.   DefaultInterface.Navigate2(URL, Flags, TargetFrameName, PostData, Headers);
  2184. end;
  2185.  
  2186. function  TWebBrowser.QueryStatusWB(cmdID: OLECMDID): OLECMDF;
  2187. begin
  2188.   Result := DefaultInterface.QueryStatusWB(cmdID);
  2189. end;
  2190.  
  2191. procedure TWebBrowser.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT);
  2192. begin
  2193.   DefaultInterface.ExecWB(cmdID, cmdexecopt, EmptyParam, EmptyParam);
  2194. end;
  2195.  
  2196. procedure TWebBrowser.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant);
  2197. begin
  2198.   DefaultInterface.ExecWB(cmdID, cmdexecopt, pvaIn, EmptyParam);
  2199. end;
  2200.  
  2201. procedure TWebBrowser.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant; 
  2202.                              var pvaOut: OleVariant);
  2203. begin
  2204.   DefaultInterface.ExecWB(cmdID, cmdexecopt, pvaIn, pvaOut);
  2205. end;
  2206.  
  2207. procedure TWebBrowser.ShowBrowserBar(var pvaClsid: OleVariant);
  2208. begin
  2209.   DefaultInterface.ShowBrowserBar(pvaClsid, EmptyParam, EmptyParam);
  2210. end;
  2211.  
  2212. procedure TWebBrowser.ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant);
  2213. begin
  2214.   DefaultInterface.ShowBrowserBar(pvaClsid, pvarShow, EmptyParam);
  2215. end;
  2216.  
  2217. procedure TWebBrowser.ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant; 
  2218.                                      var pvarSize: OleVariant);
  2219. begin
  2220.   DefaultInterface.ShowBrowserBar(pvaClsid, pvarShow, pvarSize);
  2221. end;
  2222.  
  2223. class function CoInternetExplorer.Create: IWebBrowser2;
  2224. begin
  2225.   Result := CreateComObject(CLASS_InternetExplorer) as IWebBrowser2;
  2226. end;
  2227.  
  2228. class function CoInternetExplorer.CreateRemote(const MachineName: string): IWebBrowser2;
  2229. begin
  2230.   Result := CreateRemoteComObject(MachineName, CLASS_InternetExplorer) as IWebBrowser2;
  2231. end;
  2232.  
  2233. procedure TInternetExplorer.InitServerData;
  2234. const
  2235.   CServerData: TServerData = (
  2236.     ClassID:   '{0002DF01-0000-0000-C000-000000000046}';
  2237.     IntfIID:   '{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}';
  2238.     EventIID:  '{34A715A0-6587-11D0-924A-0020AFC7AC4D}';
  2239.     LicenseKey: nil;
  2240.     Version: 500);
  2241. begin
  2242.   ServerData := @CServerData;
  2243. end;
  2244.  
  2245. procedure TInternetExplorer.Connect;
  2246. var
  2247.   punk: IUnknown;
  2248. begin
  2249.   if FIntf = nil then
  2250.   begin
  2251.     punk := GetServer;
  2252.     ConnectEvents(punk);
  2253.     Fintf:= punk as IWebBrowser2;
  2254.   end;
  2255. end;
  2256.  
  2257. procedure TInternetExplorer.ConnectTo(svrIntf: IWebBrowser2);
  2258. begin
  2259.   Disconnect;
  2260.   FIntf := svrIntf;
  2261.   ConnectEvents(FIntf);
  2262. end;
  2263.  
  2264. procedure TInternetExplorer.DisConnect;
  2265. begin
  2266.   if Fintf <> nil then
  2267.   begin
  2268.     DisconnectEvents(FIntf);
  2269.     FIntf := nil;
  2270.   end;
  2271. end;
  2272.  
  2273. function TInternetExplorer.GetDefaultInterface: IWebBrowser2;
  2274. begin
  2275.   if FIntf = nil then
  2276.     Connect;
  2277.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  2278.   Result := FIntf;
  2279. end;
  2280.  
  2281. constructor TInternetExplorer.Create(AOwner: TComponent);
  2282. begin
  2283.   inherited Create(AOwner);
  2284.  
  2285.  
  2286.  
  2287. end;
  2288.  
  2289. destructor TInternetExplorer.Destroy;
  2290. begin
  2291.  
  2292.  
  2293.  
  2294.   inherited Destroy;
  2295. end;
  2296.  
  2297.  
  2298.  
  2299.  
  2300.  
  2301.  
  2302.  
  2303.  
  2304. procedure TInternetExplorer.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  2305. begin
  2306.   case DispID of
  2307.     -1: Exit;  // DISPID_UNKNOWN
  2308.    102: if Assigned(FOnStatusTextChange) then
  2309.             FOnStatusTextChange(Self, Params[0] (*const WideString*));
  2310.    108: if Assigned(FOnProgressChange) then
  2311.             FOnProgressChange(Self, Params[0] (*Integer*), Params[1] (*Integer*));
  2312.    105: if Assigned(FOnCommandStateChange) then
  2313.             FOnCommandStateChange(Self, Params[0] (*Integer*), Params[1] (*WordBool*));
  2314.    106: if Assigned(FOnDownloadBegin) then
  2315.             FOnDownloadBegin(Self);
  2316.    104: if Assigned(FOnDownloadComplete) then
  2317.             FOnDownloadComplete(Self);
  2318.    113: if Assigned(FOnTitleChange) then
  2319.             FOnTitleChange(Self, Params[0] (*const WideString*));
  2320.    112: if Assigned(FOnPropertyChange) then
  2321.             FOnPropertyChange(Self, Params[0] (*const WideString*));
  2322.    250: if Assigned(FOnBeforeNavigate2) then
  2323.             FOnBeforeNavigate2(Self, Params[0] (*const IDispatch*), Params[1] (*var OleVariant*), Params[2] (*var OleVariant*), Params[3] (*var OleVariant*), Params[4] (*var OleVariant*), Params[5] (*var OleVariant*), Params[6] (*var WordBool*));
  2324.    251: if Assigned(FOnNewWindow2) then
  2325.             FOnNewWindow2(Self, Params[0] (*var IDispatch*), Params[1] (*var WordBool*));
  2326.    252: if Assigned(FOnNavigateComplete2) then
  2327.             FOnNavigateComplete2(Self, Params[0] (*const IDispatch*), Params[1] (*var OleVariant*));
  2328.    259: if Assigned(FOnDocumentComplete) then
  2329.             FOnDocumentComplete(Self, Params[0] (*const IDispatch*), Params[1] (*var OleVariant*));
  2330.    253: if Assigned(FOnQuit) then
  2331.             FOnQuit(Self);
  2332.    254: if Assigned(FOnVisible) then
  2333.             FOnVisible(Self, Params[0] (*WordBool*));
  2334.    255: if Assigned(FOnToolBar) then
  2335.             FOnToolBar(Self, Params[0] (*WordBool*));
  2336.    256: if Assigned(FOnMenuBar) then
  2337.             FOnMenuBar(Self, Params[0] (*WordBool*));
  2338.    257: if Assigned(FOnStatusBar) then
  2339.             FOnStatusBar(Self, Params[0] (*WordBool*));
  2340.    258: if Assigned(FOnFullScreen) then
  2341.             FOnFullScreen(Self, Params[0] (*WordBool*));
  2342.    260: if Assigned(FOnTheaterMode) then
  2343.             FOnTheaterMode(Self, Params[0] (*WordBool*));
  2344.   end; {case DispID}
  2345. end;
  2346.  
  2347. function  TInternetExplorer.Get_Application: IDispatch;
  2348. begin
  2349.   Result := DefaultInterface.Get_Application;
  2350. end;
  2351.  
  2352. function  TInternetExplorer.Get_Parent: IDispatch;
  2353. begin
  2354.   Result := DefaultInterface.Get_Parent;
  2355. end;
  2356.  
  2357. function  TInternetExplorer.Get_Container: IDispatch;
  2358. begin
  2359.   Result := DefaultInterface.Get_Container;
  2360. end;
  2361.  
  2362. function  TInternetExplorer.Get_Document: IDispatch;
  2363. begin
  2364.   Result := DefaultInterface.Get_Document;
  2365. end;
  2366.  
  2367. function  TInternetExplorer.Get_TopLevelContainer: WordBool;
  2368. begin
  2369.   Result := DefaultInterface.Get_TopLevelContainer;
  2370. end;
  2371.  
  2372. function  TInternetExplorer.Get_Type_: WideString;
  2373. begin
  2374.   Result := DefaultInterface.Get_Type_;
  2375. end;
  2376.  
  2377. function  TInternetExplorer.Get_Left: Integer;
  2378. begin
  2379.   Result := DefaultInterface.Get_Left;
  2380. end;
  2381.  
  2382. procedure TInternetExplorer.Set_Left(pl: Integer);
  2383. begin
  2384.   DefaultInterface.Set_Left(pl);
  2385. end;
  2386.  
  2387. function  TInternetExplorer.Get_Top: Integer;
  2388. begin
  2389.   Result := DefaultInterface.Get_Top;
  2390. end;
  2391.  
  2392. procedure TInternetExplorer.Set_Top(pl: Integer);
  2393. begin
  2394.   DefaultInterface.Set_Top(pl);
  2395. end;
  2396.  
  2397. function  TInternetExplorer.Get_Width: Integer;
  2398. begin
  2399.   Result := DefaultInterface.Get_Width;
  2400. end;
  2401.  
  2402. procedure TInternetExplorer.Set_Width(pl: Integer);
  2403. begin
  2404.   DefaultInterface.Set_Width(pl);
  2405. end;
  2406.  
  2407. function  TInternetExplorer.Get_Height: Integer;
  2408. begin
  2409.   Result := DefaultInterface.Get_Height;
  2410. end;
  2411.  
  2412. procedure TInternetExplorer.Set_Height(pl: Integer);
  2413. begin
  2414.   DefaultInterface.Set_Height(pl);
  2415. end;
  2416.  
  2417. function  TInternetExplorer.Get_LocationName: WideString;
  2418. begin
  2419.   Result := DefaultInterface.Get_LocationName;
  2420. end;
  2421.  
  2422. function  TInternetExplorer.Get_LocationURL: WideString;
  2423. begin
  2424.   Result := DefaultInterface.Get_LocationURL;
  2425. end;
  2426.  
  2427. function  TInternetExplorer.Get_Busy: WordBool;
  2428. begin
  2429.   Result := DefaultInterface.Get_Busy;
  2430. end;
  2431.  
  2432. function  TInternetExplorer.Get_Name: WideString;
  2433. begin
  2434.   Result := DefaultInterface.Get_Name;
  2435. end;
  2436.  
  2437. function  TInternetExplorer.Get_HWND: Integer;
  2438. begin
  2439.   Result := DefaultInterface.Get_HWND;
  2440. end;
  2441.  
  2442. function  TInternetExplorer.Get_FullName: WideString;
  2443. begin
  2444.   Result := DefaultInterface.Get_FullName;
  2445. end;
  2446.  
  2447. function  TInternetExplorer.Get_Path: WideString;
  2448. begin
  2449.   Result := DefaultInterface.Get_Path;
  2450. end;
  2451.  
  2452. function  TInternetExplorer.Get_Visible: WordBool;
  2453. begin
  2454.   Result := DefaultInterface.Get_Visible;
  2455. end;
  2456.  
  2457. procedure TInternetExplorer.Set_Visible(pBool: WordBool);
  2458. begin
  2459.   DefaultInterface.Set_Visible(pBool);
  2460. end;
  2461.  
  2462. function  TInternetExplorer.Get_StatusBar: WordBool;
  2463. begin
  2464.   Result := DefaultInterface.Get_StatusBar;
  2465. end;
  2466.  
  2467. procedure TInternetExplorer.Set_StatusBar(pBool: WordBool);
  2468. begin
  2469.   DefaultInterface.Set_StatusBar(pBool);
  2470. end;
  2471.  
  2472. function  TInternetExplorer.Get_StatusText: WideString;
  2473. begin
  2474.   Result := DefaultInterface.Get_StatusText;
  2475. end;
  2476.  
  2477. procedure TInternetExplorer.Set_StatusText(const StatusText: WideString);
  2478. begin
  2479.   DefaultInterface.Set_StatusText(StatusText);
  2480. end;
  2481.  
  2482. function  TInternetExplorer.Get_ToolBar: SYSINT;
  2483. begin
  2484.   Result := DefaultInterface.Get_ToolBar;
  2485. end;
  2486.  
  2487. procedure TInternetExplorer.Set_ToolBar(Value: SYSINT);
  2488. begin
  2489.   DefaultInterface.Set_ToolBar(Value);
  2490. end;
  2491.  
  2492. function  TInternetExplorer.Get_MenuBar: WordBool;
  2493. begin
  2494.   Result := DefaultInterface.Get_MenuBar;
  2495. end;
  2496.  
  2497. procedure TInternetExplorer.Set_MenuBar(Value: WordBool);
  2498. begin
  2499.   DefaultInterface.Set_MenuBar(Value);
  2500. end;
  2501.  
  2502. function  TInternetExplorer.Get_FullScreen: WordBool;
  2503. begin
  2504.   Result := DefaultInterface.Get_FullScreen;
  2505. end;
  2506.  
  2507. procedure TInternetExplorer.Set_FullScreen(pbFullScreen: WordBool);
  2508. begin
  2509.   DefaultInterface.Set_FullScreen(pbFullScreen);
  2510. end;
  2511.  
  2512. function  TInternetExplorer.Get_ReadyState: tagREADYSTATE;
  2513. begin
  2514.   Result := DefaultInterface.Get_ReadyState;
  2515. end;
  2516.  
  2517. function  TInternetExplorer.Get_Offline: WordBool;
  2518. begin
  2519.   Result := DefaultInterface.Get_Offline;
  2520. end;
  2521.  
  2522. procedure TInternetExplorer.Set_Offline(pbOffline: WordBool);
  2523. begin
  2524.   DefaultInterface.Set_Offline(pbOffline);
  2525. end;
  2526.  
  2527. function  TInternetExplorer.Get_Silent: WordBool;
  2528. begin
  2529.   Result := DefaultInterface.Get_Silent;
  2530. end;
  2531.  
  2532. procedure TInternetExplorer.Set_Silent(pbSilent: WordBool);
  2533. begin
  2534.   DefaultInterface.Set_Silent(pbSilent);
  2535. end;
  2536.  
  2537. function  TInternetExplorer.Get_RegisterAsBrowser: WordBool;
  2538. begin
  2539.   Result := DefaultInterface.Get_RegisterAsBrowser;
  2540. end;
  2541.  
  2542. procedure TInternetExplorer.Set_RegisterAsBrowser(pbRegister: WordBool);
  2543. begin
  2544.   DefaultInterface.Set_RegisterAsBrowser(pbRegister);
  2545. end;
  2546.  
  2547. function  TInternetExplorer.Get_RegisterAsDropTarget: WordBool;
  2548. begin
  2549.   Result := DefaultInterface.Get_RegisterAsDropTarget;
  2550. end;
  2551.  
  2552. procedure TInternetExplorer.Set_RegisterAsDropTarget(pbRegister: WordBool);
  2553. begin
  2554.   DefaultInterface.Set_RegisterAsDropTarget(pbRegister);
  2555. end;
  2556.  
  2557. function  TInternetExplorer.Get_TheaterMode: WordBool;
  2558. begin
  2559.   Result := DefaultInterface.Get_TheaterMode;
  2560. end;
  2561.  
  2562. procedure TInternetExplorer.Set_TheaterMode(pbRegister: WordBool);
  2563. begin
  2564.   DefaultInterface.Set_TheaterMode(pbRegister);
  2565. end;
  2566.  
  2567. function  TInternetExplorer.Get_AddressBar: WordBool;
  2568. begin
  2569.   Result := DefaultInterface.Get_AddressBar;
  2570. end;
  2571.  
  2572. procedure TInternetExplorer.Set_AddressBar(Value: WordBool);
  2573. begin
  2574.   DefaultInterface.Set_AddressBar(Value);
  2575. end;
  2576.  
  2577. function  TInternetExplorer.Get_Resizable: WordBool;
  2578. begin
  2579.   Result := DefaultInterface.Get_Resizable;
  2580. end;
  2581.  
  2582. procedure TInternetExplorer.Set_Resizable(Value: WordBool);
  2583. begin
  2584.   DefaultInterface.Set_Resizable(Value);
  2585. end;
  2586.  
  2587. procedure TInternetExplorer.GoBack;
  2588. begin
  2589.   DefaultInterface.GoBack;
  2590. end;
  2591.  
  2592. procedure TInternetExplorer.GoForward;
  2593. begin
  2594.   DefaultInterface.GoForward;
  2595. end;
  2596.  
  2597. procedure TInternetExplorer.GoHome;
  2598. begin
  2599.   DefaultInterface.GoHome;
  2600. end;
  2601.  
  2602. procedure TInternetExplorer.GoSearch;
  2603. begin
  2604.   DefaultInterface.GoSearch;
  2605. end;
  2606.  
  2607. procedure TInternetExplorer.Navigate(const URL: WideString);
  2608. begin
  2609.   DefaultInterface.Navigate(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  2610. end;
  2611.  
  2612. procedure TInternetExplorer.Navigate(const URL: WideString; var Flags: OleVariant);
  2613. begin
  2614.   DefaultInterface.Navigate(URL, Flags, EmptyParam, EmptyParam, EmptyParam);
  2615. end;
  2616.  
  2617. procedure TInternetExplorer.Navigate(const URL: WideString; var Flags: OleVariant; 
  2618.                                      var TargetFrameName: OleVariant);
  2619. begin
  2620.   DefaultInterface.Navigate(URL, Flags, TargetFrameName, EmptyParam, EmptyParam);
  2621. end;
  2622.  
  2623. procedure TInternetExplorer.Navigate(const URL: WideString; var Flags: OleVariant; 
  2624.                                      var TargetFrameName: OleVariant; var PostData: OleVariant);
  2625. begin
  2626.   DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, EmptyParam);
  2627. end;
  2628.  
  2629. procedure TInternetExplorer.Navigate(const URL: WideString; var Flags: OleVariant; 
  2630.                                      var TargetFrameName: OleVariant; var PostData: OleVariant; 
  2631.                                      var Headers: OleVariant);
  2632. begin
  2633.   DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, Headers);
  2634. end;
  2635.  
  2636. procedure TInternetExplorer.Refresh;
  2637. begin
  2638.   DefaultInterface.Refresh;
  2639. end;
  2640.  
  2641. procedure TInternetExplorer.Refresh2;
  2642. begin
  2643.   DefaultInterface.Refresh2(EmptyParam);
  2644. end;
  2645.  
  2646. procedure TInternetExplorer.Refresh2(var Level: OleVariant);
  2647. begin
  2648.   DefaultInterface.Refresh2(Level);
  2649. end;
  2650.  
  2651. procedure TInternetExplorer.Stop;
  2652. begin
  2653.   DefaultInterface.Stop;
  2654. end;
  2655.  
  2656. procedure TInternetExplorer.Quit;
  2657. begin
  2658.   DefaultInterface.Quit;
  2659. end;
  2660.  
  2661. procedure TInternetExplorer.ClientToWindow(var pcx: SYSINT; var pcy: SYSINT);
  2662. begin
  2663.   DefaultInterface.ClientToWindow(pcx, pcy);
  2664. end;
  2665.  
  2666. procedure TInternetExplorer.PutProperty(const Property_: WideString; vtValue: OleVariant);
  2667. begin
  2668.   DefaultInterface.PutProperty(Property_, vtValue);
  2669. end;
  2670.  
  2671. function  TInternetExplorer.GetProperty(const Property_: WideString): OleVariant;
  2672. begin
  2673.   Result := DefaultInterface.GetProperty(Property_);
  2674. end;
  2675.  
  2676. procedure TInternetExplorer.Navigate2(var URL: OleVariant);
  2677. begin
  2678.   DefaultInterface.Navigate2(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  2679. end;
  2680.  
  2681. procedure TInternetExplorer.Navigate2(var URL: OleVariant; var Flags: OleVariant);
  2682. begin
  2683.   DefaultInterface.Navigate2(URL, Flags, EmptyParam, EmptyParam, EmptyParam);
  2684. end;
  2685.  
  2686. procedure TInternetExplorer.Navigate2(var URL: OleVariant; var Flags: OleVariant; 
  2687.                                       var TargetFrameName: OleVariant);
  2688. begin
  2689.   DefaultInterface.Navigate2(URL, Flags, TargetFrameName, EmptyParam, EmptyParam);
  2690. end;
  2691.  
  2692. procedure TInternetExplorer.Navigate2(var URL: OleVariant; var Flags: OleVariant; 
  2693.                                       var TargetFrameName: OleVariant; var PostData: OleVariant);
  2694. begin
  2695.   DefaultInterface.Navigate2(URL, Flags, TargetFrameName, PostData, EmptyParam);
  2696. end;
  2697.  
  2698. procedure TInternetExplorer.Navigate2(var URL: OleVariant; var Flags: OleVariant; 
  2699.                                       var TargetFrameName: OleVariant; var PostData: OleVariant; 
  2700.                                       var Headers: OleVariant);
  2701. begin
  2702.   DefaultInterface.Navigate2(URL, Flags, TargetFrameName, PostData, Headers);
  2703. end;
  2704.  
  2705. function  TInternetExplorer.QueryStatusWB(cmdID: OLECMDID): OLECMDF;
  2706. begin
  2707.   Result := DefaultInterface.QueryStatusWB(cmdID);
  2708. end;
  2709.  
  2710. procedure TInternetExplorer.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT);
  2711. begin
  2712.   DefaultInterface.ExecWB(cmdID, cmdexecopt, EmptyParam, EmptyParam);
  2713. end;
  2714.  
  2715. procedure TInternetExplorer.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant);
  2716. begin
  2717.   DefaultInterface.ExecWB(cmdID, cmdexecopt, pvaIn, EmptyParam);
  2718. end;
  2719.  
  2720. procedure TInternetExplorer.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; 
  2721.                                    var pvaIn: OleVariant; var pvaOut: OleVariant);
  2722. begin
  2723.   DefaultInterface.ExecWB(cmdID, cmdexecopt, pvaIn, pvaOut);
  2724. end;
  2725.  
  2726. procedure TInternetExplorer.ShowBrowserBar(var pvaClsid: OleVariant);
  2727. begin
  2728.   DefaultInterface.ShowBrowserBar(pvaClsid, EmptyParam, EmptyParam);
  2729. end;
  2730.  
  2731. procedure TInternetExplorer.ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant);
  2732. begin
  2733.   DefaultInterface.ShowBrowserBar(pvaClsid, pvarShow, EmptyParam);
  2734. end;
  2735.  
  2736. procedure TInternetExplorer.ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant; 
  2737.                                            var pvarSize: OleVariant);
  2738. begin
  2739.   DefaultInterface.ShowBrowserBar(pvaClsid, pvarShow, pvarSize);
  2740. end;
  2741.  
  2742.  
  2743.  
  2744.  
  2745.  
  2746.  
  2747.  
  2748.  
  2749.  
  2750.  
  2751.  
  2752.  
  2753.  
  2754.  
  2755.  
  2756.  
  2757.  
  2758.  
  2759.  
  2760.  
  2761.  
  2762.  
  2763.  
  2764.  
  2765.  
  2766.  
  2767.  
  2768.  
  2769.  
  2770.  
  2771.  
  2772.  
  2773.  
  2774.  
  2775.  
  2776.  
  2777.  
  2778.  
  2779.  
  2780.  
  2781.  
  2782.  
  2783.  
  2784.  
  2785.  
  2786.  
  2787.  
  2788.  
  2789.  
  2790.  
  2791.  
  2792.  
  2793.  
  2794.  
  2795.  
  2796.  
  2797.  
  2798.  
  2799.  
  2800.  
  2801.  
  2802.  
  2803.  
  2804.  
  2805.  
  2806.  
  2807.  
  2808.  
  2809.  
  2810.  
  2811.  
  2812.  
  2813.  
  2814.  
  2815.  
  2816.  
  2817.  
  2818.  
  2819.  
  2820.  
  2821.  
  2822.  
  2823.  
  2824.  
  2825.  
  2826.  
  2827.  
  2828.  
  2829.  
  2830.  
  2831.  
  2832.  
  2833.  
  2834.  
  2835.  
  2836.  
  2837.  
  2838.  
  2839.  
  2840.  
  2841.  
  2842.  
  2843.  
  2844.  
  2845.  
  2846.  
  2847.  
  2848.  
  2849.  
  2850.  
  2851.  
  2852.  
  2853.  
  2854.  
  2855.  
  2856.  
  2857.  
  2858.  
  2859.  
  2860.  
  2861.  
  2862.  
  2863.  
  2864.  
  2865.  
  2866.  
  2867.  
  2868.  
  2869.  
  2870.  
  2871.  
  2872.  
  2873.  
  2874.  
  2875.  
  2876.  
  2877.  
  2878.  
  2879.  
  2880.  
  2881.  
  2882.  
  2883.  
  2884.  
  2885.  
  2886.  
  2887.  
  2888.  
  2889.  
  2890.  
  2891.  
  2892.  
  2893.  
  2894.  
  2895.  
  2896.  
  2897.  
  2898.  
  2899.  
  2900.  
  2901.  
  2902.  
  2903.  
  2904.  
  2905.  
  2906.  
  2907.  
  2908.  
  2909.  
  2910.  
  2911.  
  2912.  
  2913.  
  2914.  
  2915.  
  2916.  
  2917.  
  2918.  
  2919.  
  2920.  
  2921.  
  2922.  
  2923.  
  2924.  
  2925.  
  2926.  
  2927.  
  2928.  
  2929.  
  2930.  
  2931.  
  2932.  
  2933.  
  2934.  
  2935.  
  2936.  
  2937.  
  2938.  
  2939.  
  2940.  
  2941.  
  2942.  
  2943.  
  2944.  
  2945.  
  2946.  
  2947.  
  2948.  
  2949.  
  2950.  
  2951.  
  2952.  
  2953.  
  2954.  
  2955.  
  2956.  
  2957.  
  2958.  
  2959.  
  2960.  
  2961.  
  2962.  
  2963.  
  2964.  
  2965.  
  2966.  
  2967.  
  2968.  
  2969.  
  2970.  
  2971.  
  2972.  
  2973.  
  2974.  
  2975.  
  2976.  
  2977.  
  2978.  
  2979.  
  2980.  
  2981.  
  2982.  
  2983.  
  2984.  
  2985.  
  2986.  
  2987.  
  2988.  
  2989.  
  2990.  
  2991.  
  2992.  
  2993.  
  2994.  
  2995.  
  2996. class function CoShellBrowserWindow.Create: IWebBrowser2;
  2997. begin
  2998.   Result := CreateComObject(CLASS_ShellBrowserWindow) as IWebBrowser2;
  2999. end;
  3000.  
  3001. class function CoShellBrowserWindow.CreateRemote(const MachineName: string): IWebBrowser2;
  3002. begin
  3003.   Result := CreateRemoteComObject(MachineName, CLASS_ShellBrowserWindow) as IWebBrowser2;
  3004. end;
  3005.  
  3006. class function CoShellWindows.Create: IShellWindows;
  3007. begin
  3008.   Result := CreateComObject(CLASS_ShellWindows) as IShellWindows;
  3009. end;
  3010.  
  3011. class function CoShellWindows.CreateRemote(const MachineName: string): IShellWindows;
  3012. begin
  3013.   Result := CreateRemoteComObject(MachineName, CLASS_ShellWindows) as IShellWindows;
  3014. end;
  3015.  
  3016. procedure TShellWindows.InitServerData;
  3017. const
  3018.   CServerData: TServerData = (
  3019.     ClassID:   '{9BA05972-F6A8-11CF-A442-00A0C90A8F39}';
  3020.     IntfIID:   '{85CB6900-4D95-11CF-960C-0080C7F4EE85}';
  3021.     EventIID:  '{FE4106E0-399A-11D0-A48C-00A0C90A8F39}';
  3022.     LicenseKey: nil;
  3023.     Version: 500);
  3024. begin
  3025.   ServerData := @CServerData;
  3026. end;
  3027.  
  3028. procedure TShellWindows.Connect;
  3029. var
  3030.   punk: IUnknown;
  3031. begin
  3032.   if FIntf = nil then
  3033.   begin
  3034.     punk := GetServer;
  3035.     ConnectEvents(punk);
  3036.     Fintf:= punk as IShellWindows;
  3037.   end;
  3038. end;
  3039.  
  3040. procedure TShellWindows.ConnectTo(svrIntf: IShellWindows);
  3041. begin
  3042.   Disconnect;
  3043.   FIntf := svrIntf;
  3044.   ConnectEvents(FIntf);
  3045. end;
  3046.  
  3047. procedure TShellWindows.DisConnect;
  3048. begin
  3049.   if Fintf <> nil then
  3050.   begin
  3051.     DisconnectEvents(FIntf);
  3052.     FIntf := nil;
  3053.   end;
  3054. end;
  3055.  
  3056. function TShellWindows.GetDefaultInterface: IShellWindows;
  3057. begin
  3058.   if FIntf = nil then
  3059.     Connect;
  3060.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  3061.   Result := FIntf;
  3062. end;
  3063.  
  3064. constructor TShellWindows.Create(AOwner: TComponent);
  3065. begin
  3066.   inherited Create(AOwner);
  3067.  
  3068.  
  3069.  
  3070. end;
  3071.  
  3072. destructor TShellWindows.Destroy;
  3073. begin
  3074.  
  3075.  
  3076.  
  3077.   inherited Destroy;
  3078. end;
  3079.  
  3080.  
  3081.  
  3082.  
  3083.  
  3084.  
  3085.  
  3086.  
  3087. procedure TShellWindows.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  3088. begin
  3089.   case DispID of
  3090.     -1: Exit;  // DISPID_UNKNOWN
  3091.    200: if Assigned(FOnWindowRegistered) then
  3092.             FOnWindowRegistered(Self, Params[0] (*Integer*));
  3093.    201: if Assigned(FOnWindowRevoked) then
  3094.             FOnWindowRevoked(Self, Params[0] (*Integer*));
  3095.   end; {case DispID}
  3096. end;
  3097.  
  3098. function  TShellWindows.Get_Count: Integer;
  3099. begin
  3100.   Result := DefaultInterface.Get_Count;
  3101. end;
  3102.  
  3103. function  TShellWindows.Item: IDispatch;
  3104. begin
  3105.   Result := DefaultInterface.Item(EmptyParam);
  3106. end;
  3107.  
  3108. function  TShellWindows.Item(index: OleVariant): IDispatch;
  3109. begin
  3110.   Result := DefaultInterface.Item(index);
  3111. end;
  3112.  
  3113. function  TShellWindows._NewEnum: IUnknown;
  3114. begin
  3115.   Result := DefaultInterface._NewEnum;
  3116. end;
  3117.  
  3118. procedure TShellWindows.Register(const pid: IDispatch; HWND: Integer; swClass: SYSINT; 
  3119.                                  out plCookie: Integer);
  3120. begin
  3121.   DefaultInterface.Register(pid, HWND, swClass, plCookie);
  3122. end;
  3123.  
  3124. procedure TShellWindows.RegisterPending(lThreadId: Integer; var pvarloc: OleVariant; 
  3125.                                         var pvarlocRoot: OleVariant; swClass: SYSINT; 
  3126.                                         out plCookie: Integer);
  3127. begin
  3128.   DefaultInterface.RegisterPending(lThreadId, pvarloc, pvarlocRoot, swClass, plCookie);
  3129. end;
  3130.  
  3131. procedure TShellWindows.Revoke(lCookie: Integer);
  3132. begin
  3133.   DefaultInterface.Revoke(lCookie);
  3134. end;
  3135.  
  3136. procedure TShellWindows.OnNavigate(lCookie: Integer; var pvarloc: OleVariant);
  3137. begin
  3138.   DefaultInterface.OnNavigate(lCookie, pvarloc);
  3139. end;
  3140.  
  3141. procedure TShellWindows.OnActivated(lCookie: Integer; fActive: WordBool);
  3142. begin
  3143.   DefaultInterface.OnActivated(lCookie, fActive);
  3144. end;
  3145.  
  3146. function  TShellWindows.FindWindow(var pvarloc: OleVariant; var pvarlocRoot: OleVariant; 
  3147.                                    swClass: SYSINT; out pHWND: Integer; swfwOptions: SYSINT): IDispatch;
  3148. begin
  3149.   Result := DefaultInterface.FindWindow(pvarloc, pvarlocRoot, swClass, pHWND, swfwOptions);
  3150. end;
  3151.  
  3152. procedure TShellWindows.OnCreated(lCookie: Integer; const punk: IUnknown);
  3153. begin
  3154.   DefaultInterface.OnCreated(lCookie, punk);
  3155. end;
  3156.  
  3157. procedure TShellWindows.ProcessAttachDetach(fAttach: WordBool);
  3158. begin
  3159.   DefaultInterface.ProcessAttachDetach(fAttach);
  3160. end;
  3161.  
  3162.  
  3163.  
  3164.  
  3165.  
  3166.  
  3167.  
  3168.  
  3169.  
  3170.  
  3171.  
  3172.  
  3173.  
  3174.  
  3175.  
  3176.  
  3177.  
  3178.  
  3179.  
  3180.  
  3181. class function CoShellUIHelper.Create: IShellUIHelper;
  3182. begin
  3183.   Result := CreateComObject(CLASS_ShellUIHelper) as IShellUIHelper;
  3184. end;
  3185.  
  3186. class function CoShellUIHelper.CreateRemote(const MachineName: string): IShellUIHelper;
  3187. begin
  3188.   Result := CreateRemoteComObject(MachineName, CLASS_ShellUIHelper) as IShellUIHelper;
  3189. end;
  3190.  
  3191. procedure TShellUIHelper.InitServerData;
  3192. const
  3193.   CServerData: TServerData = (
  3194.     ClassID:   '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
  3195.     IntfIID:   '{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}';
  3196.     EventIID:  '';
  3197.     LicenseKey: nil;
  3198.     Version: 500);
  3199. begin
  3200.   ServerData := @CServerData;
  3201. end;
  3202.  
  3203. procedure TShellUIHelper.Connect;
  3204. var
  3205.   punk: IUnknown;
  3206. begin
  3207.   if FIntf = nil then
  3208.   begin
  3209.     punk := GetServer;
  3210.     Fintf:= punk as IShellUIHelper;
  3211.   end;
  3212. end;
  3213.  
  3214. procedure TShellUIHelper.ConnectTo(svrIntf: IShellUIHelper);
  3215. begin
  3216.   Disconnect;
  3217.   FIntf := svrIntf;
  3218. end;
  3219.  
  3220. procedure TShellUIHelper.DisConnect;
  3221. begin
  3222.   if Fintf <> nil then
  3223.   begin
  3224.     FIntf := nil;
  3225.   end;
  3226. end;
  3227.  
  3228. function TShellUIHelper.GetDefaultInterface: IShellUIHelper;
  3229. begin
  3230.   if FIntf = nil then
  3231.     Connect;
  3232.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  3233.   Result := FIntf;
  3234. end;
  3235.  
  3236. constructor TShellUIHelper.Create(AOwner: TComponent);
  3237. begin
  3238.   inherited Create(AOwner);
  3239.  
  3240.  
  3241.  
  3242. end;
  3243.  
  3244. destructor TShellUIHelper.Destroy;
  3245. begin
  3246.  
  3247.  
  3248.  
  3249.   inherited Destroy;
  3250. end;
  3251.  
  3252.  
  3253.  
  3254.  
  3255.  
  3256.  
  3257.  
  3258.  
  3259. procedure TShellUIHelper.ResetFirstBootMode;
  3260. begin
  3261.   DefaultInterface.ResetFirstBootMode;
  3262. end;
  3263.  
  3264. procedure TShellUIHelper.ResetSafeMode;
  3265. begin
  3266.   DefaultInterface.ResetSafeMode;
  3267. end;
  3268.  
  3269. procedure TShellUIHelper.RefreshOfflineDesktop;
  3270. begin
  3271.   DefaultInterface.RefreshOfflineDesktop;
  3272. end;
  3273.  
  3274. procedure TShellUIHelper.AddFavorite(const URL: WideString);
  3275. begin
  3276.   DefaultInterface.AddFavorite(URL, EmptyParam);
  3277. end;
  3278.  
  3279. procedure TShellUIHelper.AddFavorite(const URL: WideString; var Title: OleVariant);
  3280. begin
  3281.   DefaultInterface.AddFavorite(URL, Title);
  3282. end;
  3283.  
  3284. procedure TShellUIHelper.AddChannel(const URL: WideString);
  3285. begin
  3286.   DefaultInterface.AddChannel(URL);
  3287. end;
  3288.  
  3289. procedure TShellUIHelper.AddDesktopComponent(const URL: WideString; const Type_: WideString);
  3290. begin
  3291.   DefaultInterface.AddDesktopComponent(URL, Type_, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  3292. end;
  3293.  
  3294. procedure TShellUIHelper.AddDesktopComponent(const URL: WideString; const Type_: WideString; 
  3295.                                              var Left: OleVariant);
  3296. begin
  3297.   DefaultInterface.AddDesktopComponent(URL, Type_, Left, EmptyParam, EmptyParam, EmptyParam);
  3298. end;
  3299.  
  3300. procedure TShellUIHelper.AddDesktopComponent(const URL: WideString; const Type_: WideString; 
  3301.                                              var Left: OleVariant; var Top: OleVariant);
  3302. begin
  3303.   DefaultInterface.AddDesktopComponent(URL, Type_, Left, Top, EmptyParam, EmptyParam);
  3304. end;
  3305.  
  3306. procedure TShellUIHelper.AddDesktopComponent(const URL: WideString; const Type_: WideString; 
  3307.                                              var Left: OleVariant; var Top: OleVariant; 
  3308.                                              var Width: OleVariant);
  3309. begin
  3310.   DefaultInterface.AddDesktopComponent(URL, Type_, Left, Top, Width, EmptyParam);
  3311. end;
  3312.  
  3313. procedure TShellUIHelper.AddDesktopComponent(const URL: WideString; const Type_: WideString; 
  3314.                                              var Left: OleVariant; var Top: OleVariant; 
  3315.                                              var Width: OleVariant; var Height: OleVariant);
  3316. begin
  3317.   DefaultInterface.AddDesktopComponent(URL, Type_, Left, Top, Width, Height);
  3318. end;
  3319.  
  3320. function  TShellUIHelper.IsSubscribed(const URL: WideString): WordBool;
  3321. begin
  3322.   Result := DefaultInterface.IsSubscribed(URL);
  3323. end;
  3324.  
  3325. procedure TShellUIHelper.NavigateAndFind(const URL: WideString; const strQuery: WideString; 
  3326.                                          var varTargetFrame: OleVariant);
  3327. begin
  3328.   DefaultInterface.NavigateAndFind(URL, strQuery, varTargetFrame);
  3329. end;
  3330.  
  3331. procedure TShellUIHelper.ImportExportFavorites(fImport: WordBool; const strImpExpPath: WideString);
  3332. begin
  3333.   DefaultInterface.ImportExportFavorites(fImport, strImpExpPath);
  3334. end;
  3335.  
  3336. procedure TShellUIHelper.AutoCompleteSaveForm;
  3337. begin
  3338.   DefaultInterface.AutoCompleteSaveForm(EmptyParam);
  3339. end;
  3340.  
  3341. procedure TShellUIHelper.AutoCompleteSaveForm(var Form: OleVariant);
  3342. begin
  3343.   DefaultInterface.AutoCompleteSaveForm(Form);
  3344. end;
  3345.  
  3346. procedure TShellUIHelper.AutoScan(const strSearch: WideString; const strFailureUrl: WideString);
  3347. begin
  3348.   DefaultInterface.AutoScan(strSearch, strFailureUrl, EmptyParam);
  3349. end;
  3350.  
  3351. procedure TShellUIHelper.AutoScan(const strSearch: WideString; const strFailureUrl: WideString; 
  3352.                                   var pvarTargetFrame: OleVariant);
  3353. begin
  3354.   DefaultInterface.AutoScan(strSearch, strFailureUrl, pvarTargetFrame);
  3355. end;
  3356.  
  3357. procedure TShellUIHelper.AutoCompleteAttach;
  3358. begin
  3359.   DefaultInterface.AutoCompleteAttach(EmptyParam);
  3360. end;
  3361.  
  3362. procedure TShellUIHelper.AutoCompleteAttach(var Reserved: OleVariant);
  3363. begin
  3364.   DefaultInterface.AutoCompleteAttach(Reserved);
  3365. end;
  3366.  
  3367. function  TShellUIHelper.ShowBrowserUI(const bstrName: WideString; var pvarIn: OleVariant): OleVariant;
  3368. begin
  3369.   Result := DefaultInterface.ShowBrowserUI(bstrName, pvarIn);
  3370. end;
  3371.  
  3372.  
  3373.  
  3374.  
  3375.  
  3376.  
  3377.  
  3378.  
  3379.  
  3380.  
  3381.  
  3382.  
  3383.  
  3384.  
  3385.  
  3386. class function CoShellFavoritesNameSpace.Create: IShellFavoritesNameSpace;
  3387. begin
  3388.   Result := CreateComObject(CLASS_ShellFavoritesNameSpace) as IShellFavoritesNameSpace;
  3389. end;
  3390.  
  3391. class function CoShellFavoritesNameSpace.CreateRemote(const MachineName: string): IShellFavoritesNameSpace;
  3392. begin
  3393.   Result := CreateRemoteComObject(MachineName, CLASS_ShellFavoritesNameSpace) as IShellFavoritesNameSpace;
  3394. end;
  3395.  
  3396. procedure TShellFavoritesNameSpace.InitServerData;
  3397. const
  3398.   CServerData: TServerData = (
  3399.     ClassID:   '{55136805-B2DE-11D1-B9F2-00A0C98BC547}';
  3400.     IntfIID:   '{55136804-B2DE-11D1-B9F2-00A0C98BC547}';
  3401.     EventIID:  '{55136806-B2DE-11D1-B9F2-00A0C98BC547}';
  3402.     LicenseKey: nil;
  3403.     Version: 500);
  3404. begin
  3405.   ServerData := @CServerData;
  3406. end;
  3407.  
  3408. procedure TShellFavoritesNameSpace.Connect;
  3409. var
  3410.   punk: IUnknown;
  3411. begin
  3412.   if FIntf = nil then
  3413.   begin
  3414.     punk := GetServer;
  3415.     ConnectEvents(punk);
  3416.     Fintf:= punk as IShellFavoritesNameSpace;
  3417.   end;
  3418. end;
  3419.  
  3420. procedure TShellFavoritesNameSpace.ConnectTo(svrIntf: IShellFavoritesNameSpace);
  3421. begin
  3422.   Disconnect;
  3423.   FIntf := svrIntf;
  3424.   ConnectEvents(FIntf);
  3425. end;
  3426.  
  3427. procedure TShellFavoritesNameSpace.DisConnect;
  3428. begin
  3429.   if Fintf <> nil then
  3430.   begin
  3431.     DisconnectEvents(FIntf);
  3432.     FIntf := nil;
  3433.   end;
  3434. end;
  3435.  
  3436. function TShellFavoritesNameSpace.GetDefaultInterface: IShellFavoritesNameSpace;
  3437. begin
  3438.   if FIntf = nil then
  3439.     Connect;
  3440.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  3441.   Result := FIntf;
  3442. end;
  3443.  
  3444. constructor TShellFavoritesNameSpace.Create(AOwner: TComponent);
  3445. begin
  3446.   inherited Create(AOwner);
  3447.  
  3448.  
  3449.  
  3450. end;
  3451.  
  3452. destructor TShellFavoritesNameSpace.Destroy;
  3453. begin
  3454.  
  3455.  
  3456.  
  3457.   inherited Destroy;
  3458. end;
  3459.  
  3460.  
  3461.  
  3462.  
  3463.  
  3464.  
  3465.  
  3466.  
  3467. procedure TShellFavoritesNameSpace.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  3468. begin
  3469.   case DispID of
  3470.     -1: Exit;  // DISPID_UNKNOWN
  3471.    1: if Assigned(FOnFavoritesSelectionChange) then
  3472.             FOnFavoritesSelectionChange(Self, Params[0] (*Integer*), Params[1] (*Integer*), Params[2] (*const WideString*), Params[3] (*const WideString*), Params[4] (*Integer*), Params[5] (*const WideString*), Params[6] (*Integer*));
  3473.   end; {case DispID}
  3474. end;
  3475.  
  3476. function  TShellFavoritesNameSpace.Get_FOfflinePackInstalled: WordBool;
  3477. begin
  3478.   Result := DefaultInterface.Get_FOfflinePackInstalled;
  3479. end;
  3480.  
  3481. procedure TShellFavoritesNameSpace.MoveSelectionUp;
  3482. begin
  3483.   DefaultInterface.MoveSelectionUp;
  3484. end;
  3485.  
  3486. procedure TShellFavoritesNameSpace.MoveSelectionDown;
  3487. begin
  3488.   DefaultInterface.MoveSelectionDown;
  3489. end;
  3490.  
  3491. procedure TShellFavoritesNameSpace.ResetSort;
  3492. begin
  3493.   DefaultInterface.ResetSort;
  3494. end;
  3495.  
  3496. procedure TShellFavoritesNameSpace.NewFolder;
  3497. begin
  3498.   DefaultInterface.NewFolder;
  3499. end;
  3500.  
  3501. procedure TShellFavoritesNameSpace.Synchronize;
  3502. begin
  3503.   DefaultInterface.Synchronize;
  3504. end;
  3505.  
  3506. procedure TShellFavoritesNameSpace.Import;
  3507. begin
  3508.   DefaultInterface.Import;
  3509. end;
  3510.  
  3511. procedure TShellFavoritesNameSpace.Export;
  3512. begin
  3513.   DefaultInterface.Export;
  3514. end;
  3515.  
  3516. procedure TShellFavoritesNameSpace.InvokeContextMenuCommand(const strCommand: WideString);
  3517. begin
  3518.   DefaultInterface.InvokeContextMenuCommand(strCommand);
  3519. end;
  3520.  
  3521. procedure TShellFavoritesNameSpace.MoveSelectionTo;
  3522. begin
  3523.   DefaultInterface.MoveSelectionTo;
  3524. end;
  3525.  
  3526. function  TShellFavoritesNameSpace.CreateSubscriptionForSelection: WordBool;
  3527. begin
  3528.   Result := DefaultInterface.CreateSubscriptionForSelection;
  3529. end;
  3530.  
  3531. function  TShellFavoritesNameSpace.DeleteSubscriptionForSelection: WordBool;
  3532. begin
  3533.   Result := DefaultInterface.DeleteSubscriptionForSelection;
  3534. end;
  3535.  
  3536. procedure TShellFavoritesNameSpace.SetRoot(const bstrFullPath: WideString);
  3537. begin
  3538.   DefaultInterface.SetRoot(bstrFullPath);
  3539. end;
  3540.  
  3541.  
  3542.  
  3543.  
  3544.  
  3545.  
  3546.  
  3547.  
  3548.  
  3549.  
  3550.  
  3551.  
  3552.  
  3553.  
  3554.  
  3555.  
  3556.  
  3557.  
  3558.  
  3559.  
  3560. class function CoCScriptErrorList.Create: IScriptErrorList;
  3561. begin
  3562.   Result := CreateComObject(CLASS_CScriptErrorList) as IScriptErrorList;
  3563. end;
  3564.  
  3565. class function CoCScriptErrorList.CreateRemote(const MachineName: string): IScriptErrorList;
  3566. begin
  3567.   Result := CreateRemoteComObject(MachineName, CLASS_CScriptErrorList) as IScriptErrorList;
  3568. end;
  3569.  
  3570. class function CoSearchAssistantOC.Create: ISearchAssistantOC;
  3571. begin
  3572.   Result := CreateComObject(CLASS_SearchAssistantOC) as ISearchAssistantOC;
  3573. end;
  3574.  
  3575. class function CoSearchAssistantOC.CreateRemote(const MachineName: string): ISearchAssistantOC;
  3576. begin
  3577.   Result := CreateRemoteComObject(MachineName, CLASS_SearchAssistantOC) as ISearchAssistantOC;
  3578. end;
  3579.  
  3580. end.
  3581.