Monitorar IE - SHDocVwEvents

17/06/2008

1

Boa Tarde Amigos,

Preciso monitorar mudanças no internet explorer, estive olhando este tópico em que o Nerdex indica uma maneira de interceptar eventos via COM.

[url]http://forum.devmedia.com.br/viewtopic.php?t=75551&postdays=0&postorder=asc&start=15&sid=0f2db2c275be4f2ddda1c14d78c77fa7[/url]

Bom, o problema é que não estou conseguindo baixar o EventSinkImp, da página [url]http://www.techvanguards.com/products/eventsinkimp[/url] , que ele indica, pois a página não está acessível, alguém teria este programa para me enviar? ou teria o SHDocVwEvents.pas criado por ele?

Se alguém tiver favor enviar para mim no email pratiqueindustria arroba terra ponto com ponto br (evitar bot spamns).

abraços

Wilson


Responder

Posts

18/06/2008

Walencar

Olá amigos.

Eu criei a Unit shdocvw_tlb importando o activex. Bom, consegui fazer funcionar pequenos trechos de código, mas não obtive sucesso neste trecho

procedure TForm1.FormCreate(Sender: TObject);
var
sw : Ishellwindows;
begin
FormStyle:=fsStayOnTop;
sw := CoShellWindows.Create;
DshellwindowsEvents1.Connect(sw);
end;

Eu não consegui criar os componentes então tentei criar este DshellwindowsEvents1 dinamicamente, alterei o código acima para este

procedure TForm1.Button1Click(Sender: TObject);
var
sw : Ishellwindows;
dsshellwindowsevents1 : DShellWindowsEvents;
begin
sw := CoCppShellWindows.Create;
dsshellwindowsevents1 := DShellWindowsEvents.create(self);
DshellwindowsEvents1.Connect(sw);
end;

mas acontece que o dshellwindowsevents não possui o constructor ou sei lá , eu não consigo dar o create. Segue abaixo a unit shdocvw_tlb criada por mim. Não sei como faço para conectar ao shellwindowsevents, Alguém tem uma luz para me iluminar plz.

[code:1:81a0e4771c]unit SHDocVw_TLB;

// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// ´Refresh´ command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //

// $Rev: 5081 $
// File generated on 17/6/2008 16:48:55 from Type Library described below.

// ************************************************************************ //
// Type Lib: C:\WINDOWS\system32\shdocvw.dll (1)
// LIBID: {EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}
// LCID: 0
// Helpfile:
// HelpString: Microsoft Internet Controls
// DepndLst:
// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// Errors:
// Hint: Symbol ´WebBrowser_V1´ renamed to ´CppWebBrowser_V1´
// Hint: Symbol ´WebBrowser´ renamed to ´CppWebBrowser´
// Hint: Symbol ´InternetExplorer´ renamed to ´CppInternetExplorer´
// Hint: Symbol ´ShellBrowserWindow´ renamed to ´CppShellBrowserWindow´
// Hint: Symbol ´ShellWindows´ renamed to ´CppShellWindows´
// Hint: Symbol ´ShellUIHelper´ renamed to ´CppShellUIHelper´
// Hint: Symbol ´ShellNameSpace´ renamed to ´ShellFavoritesNameSpace´
// Hint: Symbol ´CScriptErrorList´ renamed to ´CppCScriptErrorList´
// Hint: Symbol ´SearchAssistantOC´ renamed to ´CppSearchAssistantOC´
// Hint: Symbol ´Type´ renamed to ´type_´
// Hint: Parameter ´Type´ of IWebBrowser.Type changed to ´Type_´
// Hint: Parameter ´Property´ of DWebBrowserEvents.PropertyChange changed to ´Property_´
// Hint: Parameter ´Property´ of IWebBrowserApp.PutProperty changed to ´Property_´
// Hint: Parameter ´Property´ of IWebBrowserApp.GetProperty changed to ´Property_´
// Hint: Parameter ´Type´ of IShellUIHelper.AddDesktopComponent changed to ´Type_´
// Hint: Parameter ´var´ of IShellNameSpace.Expand changed to ´var_´
// ************************************************************************ //
// *************************************************************************//
// NOTE:
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties
// which return objects that may need to be explicitly created via a function
// call prior to any access via the property. These items have been disabled
// in order to prevent accidental use from within the object inspector. You
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively
// removing them from the $IFDEF blocks. However, such items must still be
// programmatically created via a method of the appropriate CoClass before
// they can be used.
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;



// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
SHDocVwMajorVersion = 1;
SHDocVwMinorVersion = 1;

LIBID_SHDocVw: TGUID = ´{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}´;

IID_IWebBrowser: TGUID = ´{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}´;
DIID_DWebBrowserEvents: TGUID = ´{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}´;
IID_IWebBrowserApp: TGUID = ´{0002DF05-0000-0000-C000-000000000046}´;
IID_IWebBrowser2: TGUID = ´{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}´;
DIID_DWebBrowserEvents2: TGUID = ´{34A715A0-6587-11D0-924A-0020AFC7AC4D}´;
CLASS_CppWebBrowser_V1: TGUID = ´{EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B}´;
CLASS_CppWebBrowser: TGUID = ´{8856F961-340A-11D0-A96B-00C04FD705A2}´;
CLASS_CppInternetExplorer: TGUID = ´{0002DF01-0000-0000-C000-000000000046}´;
CLASS_CppShellBrowserWindow: TGUID = ´{C08AFD90-F2A1-11D1-8455-00A0C91F3880}´;
DIID_DShellWindowsEvents: TGUID = ´{FE4106E0-399A-11D0-A48C-00A0C90A8F39}´;
IID_IShellWindows: TGUID = ´{85CB6900-4D95-11CF-960C-0080C7F4EE85}´;
CLASS_CppShellWindows: TGUID = ´{9BA05972-F6A8-11CF-A442-00A0C90A8F39}´;
IID_IShellUIHelper: TGUID = ´{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}´;
CLASS_CppShellUIHelper: TGUID = ´{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}´;
DIID_DShellNameSpaceEvents: TGUID = ´{55136806-B2DE-11D1-B9F2-00A0C98BC547}´;
IID_IShellFavoritesNameSpace: TGUID = ´{55136804-B2DE-11D1-B9F2-00A0C98BC547}´;
IID_IShellNameSpace: TGUID = ´{E572D3C9-37BE-4AE2-825D-D521763E3108}´;
CLASS_ShellFavoritesNameSpace: TGUID = ´{55136805-B2DE-11D1-B9F2-00A0C98BC547}´;
CLASS_ShellShellNameSpace: TGUID = ´{2F2F1F96-2BC1-4B1C-BE28-EA3774F4676A}´;
IID_IScriptErrorList: TGUID = ´{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}´;
CLASS_CppCScriptErrorList: TGUID = ´{EFD01300-160F-11D2-BB2E-00805FF7EFCA}´;
IID_ISearch: TGUID = ´{BA9239A4-3DD5-11D2-BF8B-00C04FB93661}´;
IID_ISearches: TGUID = ´{47C922A2-3DD5-11D2-BF8B-00C04FB93661}´;
IID_ISearchAssistantOC: TGUID = ´{72423E8F-8011-11D2-BE79-00A0C9A83DA1}´;
IID_ISearchAssistantOC2: TGUID = ´{72423E8F-8011-11D2-BE79-00A0C9A83DA2}´;
IID_ISearchAssistantOC3: TGUID = ´{72423E8F-8011-11D2-BE79-00A0C9A83DA3}´;
DIID__SearchAssistantEvents: TGUID = ´{1611FDDA-445B-11D2-85DE-00C04FA35C89}´;
CLASS_CppSearchAssistantOC: TGUID = ´{B45FF030-4447-11D2-85DE-00C04FA35C89}´;
CLASS_ShellSearchAssistantOC: TGUID = ´{2E71FD0F-AAB1-42C0-9146-6D2C4EDCF07D}´;

// *********************************************************************//
// Declaration of Enumerations defined in Type Library
// *********************************************************************//
// Constants for enum CommandStateChangeConstants
type
CommandStateChangeConstants = TOleEnum;
const
CSC_UPDATECOMMANDS = $FFFFFFFF;
CSC_NAVIGATEFORWARD = $00000001;
CSC_NAVIGATEBACK = $00000002;

// Constants for enum OLECMDID
type
OLECMDID = TOleEnum;
const
OLECMDID_OPEN = $00000001;
OLECMDID_NEW = $00000002;
OLECMDID_SAVE = $00000003;
OLECMDID_SAVEAS = $00000004;
OLECMDID_SAVECOPYAS = $00000005;
OLECMDID_PRINT = $00000006;
OLECMDID_PRINTPREVIEW = $00000007;
OLECMDID_PAGESETUP = $00000008;
OLECMDID_SPELL = $00000009;
OLECMDID_PROPERTIES = $0000000A;
OLECMDID_CUT = $0000000B;
OLECMDID_COPY = $0000000C;
OLECMDID_PASTE = $0000000D;
OLECMDID_PASTESPECIAL = $0000000E;
OLECMDID_UNDO = $0000000F;
OLECMDID_REDO = $00000010;
OLECMDID_SELECTALL = $00000011;
OLECMDID_CLEARSELECTION = $00000012;
OLECMDID_ZOOM = $00000013;
OLECMDID_GETZOOMRANGE = $00000014;
OLECMDID_UPDATECOMMANDS = $00000015;
OLECMDID_REFRESH = $00000016;
OLECMDID_STOP = $00000017;
OLECMDID_HIDETOOLBARS = $00000018;
OLECMDID_SETPROGRESSMAX = $00000019;
OLECMDID_SETPROGRESSPOS = $0000001A;
OLECMDID_SETPROGRESSTEXT = $0000001B;
OLECMDID_SETTITLE = $0000001C;
OLECMDID_SETDOWNLOADSTATE = $0000001D;
OLECMDID_STOPDOWNLOAD = $0000001E;
OLECMDID_ONTOOLBARACTIVATED = $0000001F;
OLECMDID_FIND = $00000020;
OLECMDID_DELETE = $00000021;
OLECMDID_HTTPEQUIV = $00000022;
OLECMDID_HTTPEQUIV_DONE = $00000023;
OLECMDID_ENABLE_INTERACTION = $00000024;
OLECMDID_ONUNLOAD = $00000025;
OLECMDID_PROPERTYBAG2 = $00000026;
OLECMDID_PREREFRESH = $00000027;
OLECMDID_SHOWSCRIPTERROR = $00000028;
OLECMDID_SHOWMESSAGE = $00000029;
OLECMDID_SHOWFIND = $0000002A;
OLECMDID_SHOWPAGESETUP = $0000002B;
OLECMDID_SHOWPRINT = $0000002C;
OLECMDID_CLOSE = $0000002D;
OLECMDID_ALLOWUILESSSAVEAS = $0000002E;
OLECMDID_DONTDOWNLOADCSS = $0000002F;
OLECMDID_UPDATEPAGESTATUS = $00000030;
OLECMDID_PRINT2 = $00000031;
OLECMDID_PRINTPREVIEW2 = $00000032;
OLECMDID_SETPRINTTEMPLATE = $00000033;
OLECMDID_GETPRINTTEMPLATE = $00000034;
OLECMDID_PAGEACTIONBLOCKED = $00000037;
OLECMDID_PAGEACTIONUIQUERY = $00000038;
OLECMDID_FOCUSVIEWCONTROLS = $00000039;
OLECMDID_FOCUSVIEWCONTROLSQUERY = $0000003A;
OLECMDID_SHOWPAGEACTIONMENU = $0000003B;

// Constants for enum OLECMDF
type
OLECMDF = TOleEnum;
const
OLECMDF_SUPPORTED = $00000001;
OLECMDF_ENABLED = $00000002;
OLECMDF_LATCHED = $00000004;
OLECMDF_NINCHED = $00000008;
OLECMDF_INVISIBLE = $00000010;
OLECMDF_DEFHIDEONCTXTMENU = $00000020;

// Constants for enum OLECMDEXECOPT
type
OLECMDEXECOPT = TOleEnum;
const
OLECMDEXECOPT_DODEFAULT = $00000000;
OLECMDEXECOPT_PROMPTUSER = $00000001;
OLECMDEXECOPT_DONTPROMPTUSER = $00000002;
OLECMDEXECOPT_SHOWHELP = $00000003;

// Constants for enum tagREADYSTATE
type
tagREADYSTATE = TOleEnum;
const
READYSTATE_UNINITIALIZED = $00000000;
READYSTATE_LOADING = $00000001;
READYSTATE_LOADED = $00000002;
READYSTATE_INTERACTIVE = $00000003;
READYSTATE_COMPLETE = $00000004;

// Constants for enum SecureLockIconConstants
type
SecureLockIconConstants = TOleEnum;
const
secureLockIconUnsecure = $00000000;
secureLockIconMixed = $00000001;
secureLockIconSecureUnknownBits = $00000002;
secureLockIconSecure40Bit = $00000003;
secureLockIconSecure56Bit = $00000004;
secureLockIconSecureFortezza = $00000005;
secureLockIconSecure128Bit = $00000006;

// Constants for enum ShellWindowTypeConstants
type
ShellWindowTypeConstants = TOleEnum;
const
SWC_EXPLORER = $00000000;
SWC_BROWSER = $00000001;
SWC_3RDPARTY = $00000002;
SWC_CALLBACK = $00000004;

// Constants for enum ShellWindowFindWindowOptions
type
ShellWindowFindWindowOptions = TOleEnum;
const
SWFO_NEEDDISPATCH = $00000001;
SWFO_INCLUDEPENDING = $00000002;
SWFO_COOKIEPASSED = $00000004;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
IWebBrowser = interface;
IWebBrowserDisp = dispinterface;
DWebBrowserEvents = dispinterface;
IWebBrowserApp = interface;
IWebBrowserAppDisp = dispinterface;
IWebBrowser2 = interface;
IWebBrowser2Disp = dispinterface;
DWebBrowserEvents2 = dispinterface;
DShellWindowsEvents = dispinterface;
IShellWindows = interface;
IShellWindowsDisp = dispinterface;
IShellUIHelper = interface;
IShellUIHelperDisp = dispinterface;
DShellNameSpaceEvents = dispinterface;
IShellFavoritesNameSpace = interface;
IShellFavoritesNameSpaceDisp = dispinterface;
IShellNameSpace = interface;
IShellNameSpaceDisp = dispinterface;
IScriptErrorList = interface;
IScriptErrorListDisp = dispinterface;
ISearch = interface;
ISearchDisp = dispinterface;
ISearches = interface;
ISearchesDisp = dispinterface;
ISearchAssistantOC = interface;
ISearchAssistantOCDisp = dispinterface;
ISearchAssistantOC2 = interface;
ISearchAssistantOC2Disp = dispinterface;
ISearchAssistantOC3 = interface;
ISearchAssistantOC3Disp = dispinterface;
_SearchAssistantEvents = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
CppWebBrowser_V1 = IWebBrowser;
CppWebBrowser = IWebBrowser2;
CppInternetExplorer = IWebBrowser2;
CppShellBrowserWindow = IWebBrowser2;
CppShellWindows = IShellWindows;
CppShellUIHelper = IShellUIHelper;
ShellFavoritesNameSpace = IShellNameSpace;
ShellShellNameSpace = IShellNameSpace;
CppCScriptErrorList = IScriptErrorList;
CppSearchAssistantOC = ISearchAssistantOC3;
ShellSearchAssistantOC = ISearchAssistantOC3;


// *********************************************************************//
// Declaration of structures, unions and aliases.
// *********************************************************************//
POleVariant1 = ^OleVariant; {*}


// *********************************************************************//
// Interface: IWebBrowser
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}
// *********************************************************************//
IWebBrowser = interface(IDispatch)
[´{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}´]
procedure GoBack; safecall;
procedure GoForward; safecall;
procedure GoHome; safecall;
procedure GoSearch; safecall;
procedure Navigate(const URL: WideString; var Flags: OleVariant;
var TargetFrameName: OleVariant; var PostData: OleVariant;
var Headers: OleVariant); safecall;
procedure Refresh; safecall;
procedure Refresh2(var Level: OleVariant); safecall;
procedure Stop; safecall;
function Get_Application: IDispatch; safecall;
function Get_Parent: IDispatch; safecall;
function Get_Container: IDispatch; safecall;
function Get_Document: IDispatch; safecall;
function Get_TopLevelContainer: WordBool; safecall;
function Get_type_: WideString; safecall;
function Get_Left: Integer; safecall;
procedure Set_Left(pl: Integer); safecall;
function Get_Top: Integer; safecall;
procedure Set_Top(pl: Integer); safecall;
function Get_Width: Integer; safecall;
procedure Set_Width(pl: Integer); safecall;
function Get_Height: Integer; safecall;
procedure Set_Height(pl: Integer); safecall;
function Get_LocationName: WideString; safecall;
function Get_LocationURL: WideString; safecall;
function Get_Busy: WordBool; safecall;
property Application: IDispatch read Get_Application;
property Parent: IDispatch read Get_Parent;
property Container: IDispatch read Get_Container;
property Document: IDispatch read Get_Document;
property TopLevelContainer: WordBool read Get_TopLevelContainer;
property type_: WideString read Get_type_;
property Left: Integer read Get_Left write Set_Left;
property Top: Integer read Get_Top write Set_Top;
property Width: Integer read Get_Width write Set_Width;
property Height: Integer read Get_Height write Set_Height;
property LocationName: WideString read Get_LocationName;
property LocationURL: WideString read Get_LocationURL;
property Busy: WordBool read Get_Busy;
end;

// *********************************************************************//
// DispIntf: IWebBrowserDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}
// *********************************************************************//
IWebBrowserDisp = dispinterface
[´{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}´]
procedure GoBack; dispid 100;
procedure GoForward; dispid 101;
procedure GoHome; dispid 102;
procedure GoSearch; dispid 103;
procedure Navigate(const URL: WideString; var Flags: OleVariant;
var TargetFrameName: OleVariant; var PostData: OleVariant;
var Headers: OleVariant); dispid 104;
procedure Refresh; dispid -550;
procedure Refresh2(var Level: OleVariant); dispid 105;
procedure Stop; dispid 106;
property Application: IDispatch readonly dispid 200;
property Parent: IDispatch readonly dispid 201;
property Container: IDispatch readonly dispid 202;
property Document: IDispatch readonly dispid 203;
property TopLevelContainer: WordBool readonly dispid 204;
property type_: WideString readonly dispid 205;
property Left: Integer dispid 206;
property Top: Integer dispid 207;
property Width: Integer dispid 208;
property Height: Integer dispid 209;
property LocationName: WideString readonly dispid 210;
property LocationURL: WideString readonly dispid 211;
property Busy: WordBool readonly dispid 212;
end;

// *********************************************************************//
// DispIntf: DWebBrowserEvents
// Flags: (4112) Hidden Dispatchable
// GUID: {EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}
// *********************************************************************//
DWebBrowserEvents = dispinterface
[´{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}´]
procedure BeforeNavigate(const URL: WideString; Flags: Integer;
const TargetFrameName: WideString; var PostData: OleVariant;
const Headers: WideString; var Cancel: WordBool); dispid 100;
procedure NavigateComplete(const URL: WideString); dispid 101;
procedure StatusTextChange(const Text: WideString); dispid 102;
procedure ProgressChange(Progress: Integer; ProgressMax: Integer); dispid 108;
procedure DownloadComplete; dispid 104;
procedure CommandStateChange(Command: Integer; Enable: WordBool); dispid 105;
procedure DownloadBegin; dispid 106;
procedure NewWindow(const URL: WideString; Flags: Integer; const TargetFrameName: WideString;
var PostData: OleVariant; const Headers: WideString; var Processed: WordBool); dispid 107;
procedure TitleChange(const Text: WideString); dispid 113;
procedure FrameBeforeNavigate(const URL: WideString; Flags: Integer;
const TargetFrameName: WideString; var PostData: OleVariant;
const Headers: WideString; var Cancel: WordBool); dispid 200;
procedure FrameNavigateComplete(const URL: WideString); dispid 201;
procedure FrameNewWindow(const URL: WideString; Flags: Integer;
const TargetFrameName: WideString; var PostData: OleVariant;
const Headers: WideString; var Processed: WordBool); dispid 204;
procedure Quit(var Cancel: WordBool); dispid 103;
procedure WindowMove; dispid 109;
procedure WindowResize; dispid 110;
procedure WindowActivate; dispid 111;
procedure PropertyChange(const Property_: WideString); dispid 112;
end;

// *********************************************************************//
// Interface: IWebBrowserApp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {0002DF05-0000-0000-C000-000000000046}
// *********************************************************************//
IWebBrowserApp = interface(IWebBrowser)
[´{0002DF05-0000-0000-C000-000000000046}´]
procedure Quit; safecall;
procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); safecall;
procedure PutProperty(const Property_: WideString; vtValue: OleVariant); safecall;
function GetProperty(const Property_: WideString): OleVariant; safecall;
function Get_Name: WideString; safecall;
function Get_HWND: Integer; safecall;
function Get_FullName: WideString; safecall;
function Get_Path: WideString; safecall;
function Get_Visible: WordBool; safecall;
procedure Set_Visible(pBool: WordBool); safecall;
function Get_StatusBar: WordBool; safecall;
procedure Set_StatusBar(pBool: WordBool); safecall;
function Get_StatusText: WideString; safecall;
procedure Set_StatusText(const StatusText: WideString); safecall;
function Get_ToolBar: SYSINT; safecall;
procedure Set_ToolBar(Value: SYSINT); safecall;
function Get_MenuBar: WordBool; safecall;
procedure Set_MenuBar(Value: WordBool); safecall;
function Get_FullScreen: WordBool; safecall;
procedure Set_FullScreen(pbFullScreen: WordBool); safecall;
property Name: WideString read Get_Name;
property HWND: Integer read Get_HWND;
property FullName: WideString read Get_FullName;
property Path: WideString read Get_Path;
property Visible: WordBool read Get_Visible write Set_Visible;
property StatusBar: WordBool read Get_StatusBar write Set_StatusBar;
property StatusText: WideString read Get_StatusText write Set_StatusText;
property ToolBar: SYSINT read Get_ToolBar write Set_ToolBar;
property MenuBar: WordBool read Get_MenuBar write Set_MenuBar;
property FullScreen: WordBool read Get_FullScreen write Set_FullScreen;
end;

// *********************************************************************//
// DispIntf: IWebBrowserAppDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {0002DF05-0000-0000-C000-000000000046}
// *********************************************************************//
IWebBrowserAppDisp = dispinterface
[´{0002DF05-0000-0000-C000-000000000046}´]
procedure Quit; dispid 300;
procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); dispid 301;
procedure PutProperty(const Property_: WideString; vtValue: OleVariant); dispid 302;
function GetProperty(const Property_: WideString): OleVariant; dispid 303;
property Name: WideString readonly dispid 0;
property HWND: Integer readonly dispid -515;
property FullName: WideString readonly dispid 400;
property Path: WideString readonly dispid 401;
property Visible: WordBool dispid 402;
property StatusBar: WordBool dispid 403;
property StatusText: WideString dispid 404;
property ToolBar: SYSINT dispid 405;
property MenuBar: WordBool dispid 406;
property FullScreen: WordBool dispid 407;
procedure GoBack; dispid 100;
procedure GoForward; dispid 101;
procedure GoHome; dispid 102;
procedure GoSearch; dispid 103;
procedure Navigate(const URL: WideString; var Flags: OleVariant;
var TargetFrameName: OleVariant; var PostData: OleVariant;
var Headers: OleVariant); dispid 104;
procedure Refresh; dispid -550;
procedure Refresh2(var Level: OleVariant); dispid 105;
procedure Stop; dispid 106;
property Application: IDispatch readonly dispid 200;
property Parent: IDispatch readonly dispid 201;
property Container: IDispatch readonly dispid 202;
property Document: IDispatch readonly dispid 203;
property TopLevelContainer: WordBool readonly dispid 204;
property type_: WideString readonly dispid 205;
property Left: Integer dispid 206;
property Top: Integer dispid 207;
property Width: Integer dispid 208;
property Height: Integer dispid 209;
property LocationName: WideString readonly dispid 210;
property LocationURL: WideString readonly dispid 211;
property Busy: WordBool readonly dispid 212;
end;

// *********************************************************************//
// Interface: IWebBrowser2
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}
// *********************************************************************//
IWebBrowser2 = interface(IWebBrowserApp)
[´{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}´]
procedure Navigate2(var URL: OleVariant; var Flags: OleVariant;
var TargetFrameName: OleVariant; var PostData: OleVariant;
var Headers: OleVariant); safecall;
function QueryStatusWB(cmdID: OLECMDID): OLECMDF; safecall;
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant;
var pvaOut: OleVariant); safecall;
procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant;
var pvarSize: OleVariant); safecall;
function Get_ReadyState: tagREADYSTATE; safecall;
function Get_Offline: WordBool; safecall;
procedure Set_Offline(pbOffline: WordBool); safecall;
function Get_Silent: WordBool; safecall;
procedure Set_Silent(pbSilent: WordBool); safecall;
function Get_RegisterAsBrowser: WordBool; safecall;
procedure Set_RegisterAsBrowser(pbRegister: WordBool); safecall;
function Get_RegisterAsDropTarget: WordBool; safecall;
procedure Set_RegisterAsDropTarget(pbRegister: WordBool); safecall;
function Get_TheaterMode: WordBool; safecall;
procedure Set_TheaterMode(pbRegister: WordBool); safecall;
function Get_AddressBar: WordBool; safecall;
procedure Set_AddressBar(Value: WordBool); safecall;
function Get_Resizable: WordBool; safecall;
procedure Set_Resizable(Value: WordBool); safecall;
property ReadyState: tagREADYSTATE read Get_ReadyState;
property Offline: WordBool read Get_Offline write Set_Offline;
property Silent: WordBool read Get_Silent write Set_Silent;
property RegisterAsBrowser: WordBool read Get_RegisterAsBrowser write Set_RegisterAsBrowser;
property RegisterAsDropTarget: WordBool read Get_RegisterAsDropTarget write Set_RegisterAsDropTarget;
property TheaterMode: WordBool read Get_TheaterMode write Set_TheaterMode;
property AddressBar: WordBool read Get_AddressBar write Set_AddressBar;
property Resizable: WordBool read Get_Resizable write Set_Resizable;
end;

// *********************************************************************//
// DispIntf: IWebBrowser2Disp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}
// *********************************************************************//
IWebBrowser2Disp = dispinterface
[´{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}´]
procedure Navigate2(var URL: OleVariant; var Flags: OleVariant;
var TargetFrameName: OleVariant; var PostData: OleVariant;
var Headers: OleVariant); dispid 500;
function QueryStatusWB(cmdID: OLECMDID): OLECMDF; dispid 501;
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant;
var pvaOut: OleVariant); dispid 502;
procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant;
var pvarSize: OleVariant); dispid 503;
property ReadyState: tagREADYSTATE readonly dispid -525;
property Offline: WordBool dispid 550;
property Silent: WordBool dispid 551;
property RegisterAsBrowser: WordBool dispid 552;
property RegisterAsDropTarget: WordBool dispid 553;
property TheaterMode: WordBool dispid 554;
property AddressBar: WordBool dispid 555;
property Resizable: WordBool dispid 556;
procedure Quit; dispid 300;
procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); dispid 301;
procedure PutProperty(const Property_: WideString; vtValue: OleVariant); dispid 302;
function GetProperty(const Property_: WideString): OleVariant; dispid 303;
property Name: WideString readonly dispid 0;
property HWND: Integer readonly dispid -515;
property FullName: WideString readonly dispid 400;
property Path: WideString readonly dispid 401;
property Visible: WordBool dispid 402;
property StatusBar: WordBool dispid 403;
property StatusText: WideString dispid 404;
property ToolBar: SYSINT dispid 405;
property MenuBar: WordBool dispid 406;
property FullScreen: WordBool dispid 407;
procedure GoBack; dispid 100;
procedure GoForward; dispid 101;
procedure GoHome; dispid 102;
procedure GoSearch; dispid 103;
procedure Navigate(const URL: WideString; var Flags: OleVariant;
var TargetFrameName: OleVariant; var PostData: OleVariant;
var Headers: OleVariant); dispid 104;
procedure Refresh; dispid -550;
procedure Refresh2(var Level: OleVariant); dispid 105;
procedure Stop; dispid 106;
property Application: IDispatch readonly dispid 200;
property Parent: IDispatch readonly dispid 201;
property Container: IDispatch readonly dispid 202;
property Document: IDispatch readonly dispid 203;
property TopLevelContainer: WordBool readonly dispid 204;
property type_: WideString readonly dispid 205;
property Left: Integer dispid 206;
property Top: Integer dispid 207;
property Width: Integer dispid 208;
property Height: Integer dispid 209;
property LocationName: WideString readonly dispid 210;
property LocationURL: WideString readonly dispid 211;
property Busy: WordBool readonly dispid 212;
end;

// *********************************************************************//
// DispIntf: DWebBrowserEvents2
// Flags: (4112) Hidden Dispatchable
// GUID: {34A715A0-6587-11D0-924A-0020AFC7AC4D}
// *********************************************************************//
DWebBrowserEvents2 = dispinterface
[´{34A715A0-6587-11D0-924A-0020AFC7AC4D}´]
procedure StatusTextChange(const Text: WideString); dispid 102;
procedure ProgressChange(Progress: Integer; ProgressMax: Integer); dispid 108;
procedure CommandStateChange(Command: Integer; Enable: WordBool); dispid 105;
procedure DownloadBegin; dispid 106;
procedure DownloadComplete; dispid 104;
procedure TitleChange(const Text: WideString); dispid 113;
procedure PropertyChange(const szProperty: WideString); dispid 112;
procedure BeforeNavigate2(const pDisp: IDispatch; var URL: OleVariant; var Flags: OleVariant;
var TargetFrameName: OleVariant; var PostData: OleVariant;
var Headers: OleVariant; var Cancel: WordBool); dispid 250;
procedure NewWindow2(var ppDisp: IDispatch; var Cancel: WordBool); dispid 251;
procedure NavigateComplete2(const pDisp: IDispatch; var URL: OleVariant); dispid 252;
procedure DocumentComplete(const pDisp: IDispatch; var URL: OleVariant); dispid 259;
procedure OnQuit; dispid 253;
procedure OnVisible(Visible: WordBool); dispid 254;
procedure OnToolBar(ToolBar: WordBool); dispid 255;
procedure OnMenuBar(MenuBar: WordBool); dispid 256;
procedure OnStatusBar(StatusBar: WordBool); dispid 257;
procedure OnFullScreen(FullScreen: WordBool); dispid 258;
procedure OnTheaterMode(TheaterMode: WordBool); dispid 260;
procedure WindowSetResizable(Resizable: WordBool); dispid 262;
procedure WindowSetLeft(Left: Integer); dispid 264;
procedure WindowSetTop(Top: Integer); dispid 265;
procedure WindowSetWidth(Width: Integer); dispid 266;
procedure WindowSetHeight(Height: Integer); dispid 267;
procedure WindowClosing(IsChildWindow: WordBool; var Cancel: WordBool); dispid 263;
procedure ClientToHostWindow(var CX: Integer; var CY: Integer); dispid 268;
procedure SetSecureLockIcon(SecureLockIcon: Integer); dispid 269;
procedure FileDownload(var Cancel: WordBool); dispid 270;
procedure NavigateError(const pDisp: IDispatch; var URL: OleVariant; var Frame: OleVariant;
var StatusCode: OleVariant; var Cancel: WordBool); dispid 271;
procedure PrintTemplateInstantiation(const pDisp: IDispatch); dispid 225;
procedure PrintTemplateTeardown(const pDisp: IDispatch); dispid 226;
procedure UpdatePageStatus(const pDisp: IDispatch; var nPage: OleVariant; var fDone: OleVariant); dispid 227;
procedure PrivacyImpactedStateChange(bImpacted: WordBool); dispid 272;
procedure NewWindow3(var ppDisp: IDispatch; var Cancel: WordBool; dwFlags: LongWord;
const bstrUrlContext: WideString; const bstrUrl: WideString); dispid 273;
end;

// *********************************************************************//
// DispIntf: DShellWindowsEvents
// Flags: (4096) Dispatchable
// GUID: {FE4106E0-399A-11D0-A48C-00A0C90A8F39}
// *********************************************************************//
DShellWindowsEvents = dispinterface
[´{FE4106E0-399A-11D0-A48C-00A0C90A8F39}´]
procedure WindowRegistered(lCookie: Integer); dispid 200;
procedure WindowRevoked(lCookie: Integer); dispid 201;
end;

// *********************************************************************//
// Interface: IShellWindows
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {85CB6900-4D95-11CF-960C-0080C7F4EE85}
// *********************************************************************//
IShellWindows = interface(IDispatch)
[´{85CB6900-4D95-11CF-960C-0080C7F4EE85}´]
function Get_Count: Integer; safecall;
function Item(index: OleVariant): IDispatch; safecall;
function _NewEnum: IUnknown; safecall;
procedure Register(const pid: IDispatch; HWND: Integer; swClass: SYSINT; out plCookie: Integer); safecall;
procedure RegisterPending(lThreadId: Integer; var pvarloc: OleVariant;
var pvarlocRoot: OleVariant; swClass: SYSINT; out plCookie: Integer); safecall;
procedure Revoke(lCookie: Integer); safecall;
procedure OnNavigate(lCookie: Integer; var pvarloc: OleVariant); safecall;
procedure OnActivated(lCookie: Integer; fActive: WordBool); safecall;
function FindWindowSW(var pvarloc: OleVariant; var pvarlocRoot: OleVariant; swClass: SYSINT;
out pHWND: Integer; swfwOptions: SYSINT): IDispatch; safecall;
procedure OnCreated(lCookie: Integer; const punk: IUnknown); safecall;
procedure ProcessAttachDetach(fAttach: WordBool); safecall;
property Count: Integer read Get_Count;
end;

// *********************************************************************//
// DispIntf: IShellWindowsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {85CB6900-4D95-11CF-960C-0080C7F4EE85}
// *********************************************************************//
IShellWindowsDisp = dispinterface
[´{85CB6900-4D95-11CF-960C-0080C7F4EE85}´]
property Count: Integer readonly dispid 1610743808;
function Item(index: OleVariant): IDispatch; dispid 0;
function _NewEnum: IUnknown; dispid -4;
procedure Register(const pid: IDispatch; HWND: Integer; swClass: SYSINT; out plCookie: Integer); dispid 1610743811;
procedure RegisterPending(lThreadId: Integer; var pvarloc: OleVariant;
var pvarlocRoot: OleVariant; swClass: SYSINT; out plCookie: Integer); dispid 1610743812;
procedure Revoke(lCookie: Integer); dispid 1610743813;
procedure OnNavigate(lCookie: Integer; var pvarloc: OleVariant); dispid 1610743814;
procedure OnActivated(lCookie: Integer; fActive: WordBool); dispid 1610743815;
function FindWindowSW(var pvarloc: OleVariant; var pvarlocRoot: OleVariant; swClass: SYSINT;
out pHWND: Integer; swfwOptions: SYSINT): IDispatch; dispid 1610743816;
procedure OnCreated(lCookie: Integer; const punk: IUnknown); dispid 1610743817;
procedure ProcessAttachDetach(fAttach: WordBool); dispid 1610743818;
end;

// *********************************************************************//
// Interface: IShellUIHelper
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}
// *********************************************************************//
IShellUIHelper = interface(IDispatch)
[´{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}´]
procedure ResetFirstBootMode; safecall;
procedure ResetSafeMode; safecall;
procedure RefreshOfflineDesktop; safecall;
procedure AddFavorite(const URL: WideString; var Title: OleVariant); safecall;
procedure AddChannel(const URL: WideString); safecall;
procedure AddDesktopComponent(const URL: WideString; const Type_: WideString;
var Left: OleVariant; var Top: OleVariant; var Width: OleVariant;
var Height: OleVariant); safecall;
function IsSubscribed(const URL: WideString): WordBool; safecall;
procedure NavigateAndFind(const URL: WideString; const strQuery: WideString;
var varTargetFrame: OleVariant); safecall;
procedure ImportExportFavorites(fImport: WordBool; const strImpExpPath: WideString); safecall;
procedure AutoCompleteSaveForm(var Form: OleVariant); safecall;
procedure AutoScan(const strSearch: WideString; const strFailureUrl: WideString;
var pvarTargetFrame: OleVariant); safecall;
procedure AutoCompleteAttach(var Reserved: OleVariant); safecall;
function ShowBrowserUI(const bstrName: WideString; var pvarIn: OleVariant): OleVariant; safecall;
end;

// *********************************************************************//
// DispIntf: IShellUIHelperDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}
// *********************************************************************//
IShellUIHelperDisp = dispinterface
[´{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}´]
procedure ResetFirstBootMode; dispid 1;
procedure ResetSafeMode; dispid 2;
procedure RefreshOfflineDesktop; dispid 3;
procedure AddFavorite(const URL: WideString; var Title: OleVariant); dispid 4;
procedure AddChannel(const URL: WideString); dispid 5;
procedure AddDesktopComponent(const URL: WideString; const Type_: WideString;
var Left: OleVariant; var Top: OleVariant; var Width: OleVariant;
var Height: OleVariant); dispid 6;
function IsSubscribed(const URL: WideString): WordBool; dispid 7;
procedure NavigateAndFind(const URL: WideString; const strQuery: WideString;
var varTargetFrame: OleVariant); dispid 8;
procedure ImportExportFavorites(fImport: WordBool; const strImpExpPath: WideString); dispid 9;
procedure AutoCompleteSaveForm(var Form: OleVariant); dispid 10;
procedure AutoScan(const strSearch: WideString; const strFailureUrl: WideString;
var pvarTargetFrame: OleVariant); dispid 11;
procedure AutoCompleteAttach(var Reserved: OleVariant); dispid 12;
function ShowBrowserUI(const bstrName: WideString; var pvarIn: OleVariant): OleVariant; dispid 13;
end;

// *********************************************************************//
// DispIntf: DShellNameSpaceEvents
// Flags: (4096) Dispatchable
// GUID: {55136806-B2DE-11D1-B9F2-00A0C98BC547}
// *********************************************************************//
DShellNameSpaceEvents = dispinterface
[´{55136806-B2DE-11D1-B9F2-00A0C98BC547}´]
procedure FavoritesSelectionChange(cItems: Integer; hItem: Integer; const strName: WideString;
const strUrl: WideString; cVisits: Integer;
const strDate: WideString; fAvailableOffline: Integer); dispid 1;
procedure SelectionChange; dispid 2;
procedure DoubleClick; dispid 3;
procedure Initialized; dispid 4;
end;

// *********************************************************************//
// Interface: IShellFavoritesNameSpace
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {55136804-B2DE-11D1-B9F2-00A0C98BC547}
// *********************************************************************//
IShellFavoritesNameSpace = interface(IDispatch)
[´{55136804-B2DE-11D1-B9F2-00A0C98BC547}´]
procedure MoveSelectionUp; safecall;
procedure MoveSelectionDown; safecall;
procedure ResetSort; safecall;
procedure NewFolder; safecall;
procedure Synchronize; safecall;
procedure Import; safecall;
procedure Export; safecall;
procedure InvokeContextMenuCommand(const strCommand: WideString); safecall;
procedure MoveSelectionTo; safecall;
function Get_SubscriptionsEnabled: WordBool; safecall;
function CreateSubscriptionForSelection: WordBool; safecall;
function DeleteSubscriptionForSelection: WordBool; safecall;
procedure SetRoot(const bstrFullPath: WideString); safecall;
property SubscriptionsEnabled: WordBool read Get_SubscriptionsEnabled;
end;

// *********************************************************************//
// DispIntf: IShellFavoritesNameSpaceDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {55136804-B2DE-11D1-B9F2-00A0C98BC547}
// *********************************************************************//
IShellFavoritesNameSpaceDisp = dispinterface
[´{55136804-B2DE-11D1-B9F2-00A0C98BC547}´]
procedure MoveSelectionUp; dispid 1;
procedure MoveSelectionDown; dispid 2;
procedure ResetSort; dispid 3;
procedure NewFolder; dispid 4;
procedure Synchronize; dispid 5;
procedure Import; dispid 6;
procedure Export; dispid 7;
procedure InvokeContextMenuCommand(const strCommand: WideString); dispid 8;
procedure MoveSelectionTo; dispid 9;
property SubscriptionsEnabled: WordBool readonly dispid 10;
function CreateSubscriptionForSelection: WordBool; dispid 11;
function DeleteSubscriptionForSelection: WordBool; dispid 12;
procedure SetRoot(const bstrFullPath: WideString); dispid 13;
end;

// *********************************************************************//
// Interface: IShellNameSpace
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {E572D3C9-37BE-4AE2-825D-D521763E3108}
// *********************************************************************//
IShellNameSpace = interface(IShellFavoritesNameSpace)
[´{E572D3C9-37BE-4AE2-825D-D521763E3108}´]
function Get_EnumOptions: Integer; safecall;
procedure Set_EnumOptions(pgrfEnumFlags: Integer); safecall;
function Get_SelectedItem: IDispatch; safecall;
procedure Set_SelectedItem(const pItem: IDispatch); safecall;
function Get_Root: OleVariant; safecall;
procedure Set_Root(pvar: OleVariant); safecall;
function Get_Depth: SYSINT; safecall;
procedure Set_Depth(piDepth: SYSINT); safecall;
function Get_Mode: SYSUINT; safecall;
procedure Set_Mode(puMode: SYSUINT); safecall;
function Get_Flags: LongWord; safecall;
procedure Set_Flags(pdwFlags: LongWord); safecall;
procedure Set_TVFlags(dwFlags: LongWord); safecall;
function Get_TVFlags: LongWord; safecall;
function Get_Columns: WideString; safecall;
procedure Set_Columns(const bstrColumns: WideString); safecall;
function Get_CountViewTypes: SYSINT; safecall;
procedure SetViewType(iType: SYSINT); safecall;
function SelectedItems: IDispatch; safecall;
procedure Expand(var_: OleVariant; iDepth: SYSINT); safecall;
procedure UnselectAll; safecall;
property EnumOptions: Integer read Get_EnumOptions write Set_EnumOptions;
property SelectedItem: IDispatch read Get_SelectedItem write Set_SelectedItem;
property Root: OleVariant read Get_Root write Set_Root;
property Depth: SYSINT read Get_Depth write Set_Depth;
property Mode: SYSUINT read Get_Mode write Set_Mode;
property Flags: LongWord read Get_Flags write Set_Flags;
property TVFlags: LongWord read Get_TVFlags write Set_TVFlags;
property Columns: WideString read Get_Columns write Set_Columns;
property CountViewTypes: SYSINT read Get_CountViewTypes;
end;

// *********************************************************************//
// DispIntf: IShellNameSpaceDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {E572D3C9-37BE-4AE2-825D-D521763E3108}
// *********************************************************************//
IShellNameSpaceDisp = dispinterface
[´{E572D3C9-37BE-4AE2-825D-D521763E3108}´]
property EnumOptions: Integer dispid 14;
property SelectedItem: IDispatch dispid 15;
property Root: OleVariant dispid 16;
property Depth: SYSINT dispid 17;
property Mode: SYSUINT dispid 18;
property Flags: LongWord dispid 19;
property TVFlags: LongWord dispid 20;
property Columns: WideString dispid 21;
property CountViewTypes: SYSINT readonly dispid 22;
procedure SetViewType(iType: SYSINT); dispid 23;
function SelectedItems: IDispatch; dispid 24;
procedure Expand(var_: OleVariant; iDepth: SYSINT); dispid 25;
procedure UnselectAll; dispid 26;
procedure MoveSelectionUp; dispid 1;
procedure MoveSelectionDown; dispid 2;
procedure ResetSort; dispid 3;
procedure NewFolder; dispid 4;
procedure Synchronize; dispid 5;
procedure Import; dispid 6;
procedure Export; dispid 7;
procedure InvokeContextMenuCommand(const strCommand: WideString); dispid 8;
procedure MoveSelectionTo; dispid 9;
property SubscriptionsEnabled: WordBool readonly dispid 10;
function CreateSubscriptionForSelection: WordBool; dispid 11;
function DeleteSubscriptionForSelection: WordBool; dispid 12;
procedure SetRoot(const bstrFullPath: WideString); dispid 13;
end;

// *********************************************************************//
// Interface: IScriptErrorList
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {F3470F24-15FD-11D2-BB2E-00805FF7EFCA}
// *********************************************************************//
IScriptErrorList = interface(IDispatch)
[´{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}´]
procedure advanceError; safecall;
procedure retreatError; safecall;
function canAdvanceError: Integer; safecall;
function canRetreatError: Integer; safecall;
function getErrorLine: Integer; safecall;
function getErrorChar: Integer; safecall;
function getErrorCode: Integer; safecall;
function getErrorMsg: WideString; safecall;
function getErrorUrl: WideString; safecall;
function getAlwaysShowLockState: Integer; safecall;
function getDetailsPaneOpen: Integer; safecall;
procedure setDetailsPaneOpen(fDetailsPaneOpen: Integer); safecall;
function getPerErrorDisplay: Integer; safecall;
procedure setPerErrorDisplay(fPerErrorDisplay: Integer); safecall;
end;

// *********************************************************************//
// DispIntf: IScriptErrorListDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {F3470F24-15FD-11D2-BB2E-00805FF7EFCA}
// *********************************************************************//
IScriptErrorListDisp = dispinterface
[´{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}´]
procedure advanceError; dispid 10;
procedure retreatError; dispid 11;
function canAdvanceError: Integer; dispid 12;
function canRetreatError: Integer; dispid 13;
function getErrorLine: Integer; dispid 14;
function getErrorChar: Integer; dispid 15;
function getErrorCode: Integer; dispid 16;
function getErrorMsg: WideString; dispid 17;
function getErrorUrl: WideString; dispid 18;
function getAlwaysShowLockState: Integer; dispid 23;
function getDetailsPaneOpen: Integer; dispid 19;
procedure setDetailsPaneOpen(fDetailsPaneOpen: Integer); dispid 20;
function getPerErrorDisplay: Integer; dispid 21;
procedure setPerErrorDisplay(fPerErrorDisplay: Integer); dispid 22;
end;

// *********************************************************************//
// Interface: ISearch
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {BA9239A4-3DD5-11D2-BF8B-00C04FB93661}
// *********************************************************************//
ISearch = interface(IDispatch)
[´{BA9239A4-3DD5-11D2-BF8B-00C04FB93661}´]
function Get_Title: WideString; safecall;
function Get_Id: WideString; safecall;
function Get_URL: WideString; safecall;
property Title: WideString read Get_Title;
property Id: WideString read Get_Id;
property URL: WideString read Get_URL;
end;

// *********************************************************************//
// DispIntf: ISearchDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {BA9239A4-3DD5-11D2-BF8B-00C04FB93661}
// *********************************************************************//
ISearchDisp = dispinterface
[´{BA9239A4-3DD5-11D2-BF8B-00C04FB93661}´]
property Title: WideString readonly dispid 1610743808;
property Id: WideString readonly dispid 1610743809;
property URL: WideString readonly dispid 1610743810;
end;

// *********************************************************************//
// Interface: ISearches
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {47C922A2-3DD5-11D2-BF8B-00C04FB93661}
// *********************************************************************//
ISearches = interface(IDispatch)
[´{47C922A2-3DD5-11D2-BF8B-00C04FB93661}´]
function Get_Count: Integer; safecall;
function Get_Default: WideString; safecall;
function Item(index: OleVariant): ISearch; safecall;
function _NewEnum: IUnknown; safecall;
property Count: Integer read Get_Count;
property Default: WideString read Get_Default;
end;

// *********************************************************************//
// DispIntf: ISearchesDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {47C922A2-3DD5-11D2-BF8B-00C04FB93661}
// *********************************************************************//
ISearchesDisp = dispinterface
[´{47C922A2-3DD5-11D2-BF8B-00C04FB93661}´]
property Count: Integer readonly dispid 1610743808;
property Default: WideString readonly dispid 1610743809;
function Item(index: OleVariant): ISearch; dispid 1610743810;
function _NewEnum: IUnknown; dispid -4;
end;

// *********************************************************************//
// Interface: ISearchAssistantOC
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {72423E8F-8011-11D2-BE79-00A0C9A83DA1}
// *********************************************************************//
ISearchAssistantOC = interface(IDispatch)
[´{72423E8F-8011-11D2-BE79-00A0C9A83DA1}´]
procedure AddNextMenuItem(const bstrText: WideString; idItem: Integer); safecall;
procedure SetDefaultSearchUrl(const bstrUrl: WideString); safecall;
procedure NavigateToDefaultSearch; safecall;
function IsRestricted(const bstrGuid: WideString): WordBool; safecall;
function Get_ShellFeaturesEnabled: WordBool; safecall;
function Get_SearchAssistantDefault: WordBool; safecall;
function Get_Searches: ISearches; safecall;
function Get_InWebFolder: WordBool; safecall;
procedure PutProperty(bPerLocale: WordBool; const bstrName: WideString;
const bstrValue: WideString); safecall;
function GetProperty(bPerLocale: WordBool; const bstrName: WideString): WideString; safecall;
procedure Set_EventHandled(Param1: WordBool); safecall;
procedure ResetNextMenu; safecall;
procedure FindOnWeb; safecall;
procedure FindFilesOrFolders; safecall;
procedure FindComputer; safecall;
procedure FindPrinter; safecall;
procedure FindPeople; safecall;
function GetSearchAssistantURL(bSubstitute: WordBool; bCustomize: WordBool): WideString; safecall;
procedure NotifySearchSettingsChanged; safecall;
procedure Set_ASProvider(const pProvider: WideString); safecall;
function Get_ASProvider: WideString; safecall;
procedure Set_ASSetting(pSetting: SYSINT); safecall;
function Get_ASSetting: SYSINT; safecall;
procedure NETDetectNextNavigate; safecall;
procedure PutFindText(const FindText: WideString); safecall;
function Get_Version: SYSINT; safecall;
function EncodeString(const bstrValue: WideString; const bstrCharSet: WideString;
bUseUTF8: WordBool): WideString; safecall;
property ShellFeaturesEnabled: WordBool read Get_ShellFeaturesEnabled;
property SearchAssistantDefault: WordBool read Get_SearchAssistantDefault;
property Searches: ISearches read Get_Searches;
property InWebFolder: WordBool read Get_InWebFolder;
property EventHandled: WordBool write Set_EventHandled;
property ASProvider: WideString read Get_ASProvider write Set_ASProvider;
property ASSetting: SYSINT read Get_ASSetting write Set_ASSetting;
property Version: SYSINT read Get_Version;
end;

// *********************************************************************//
// DispIntf: ISearchAssistantOCDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {72423E8F-8011-11D2-BE79-00A0C9A83DA1}
// *********************************************************************//
ISearchAssistantOCDisp = dispinterface
[´{72423E8F-8011-11D2-BE79-00A0C9A83DA1}´]
procedure AddNextMenuItem(const bstrText: WideString; idItem: Integer); dispid 1;
procedure SetDefaultSearchUrl(const bstrUrl: WideString); dispid 2;
procedure NavigateToDefaultSearch; dispid 3;
function IsRestricted(const bstrGuid: WideString): WordBool; dispid 4;
property ShellFeaturesEnabled: WordBool readonly dispid 5;
property SearchAssistantDefault: WordBool readonly dispid 6;
property Searches: ISearches readonly dispid 7;
property InWebFolder: WordBool readonly dispid 8;
procedure PutProperty(bPerLocale: WordBool; const bstrName: WideString;
const bstrValue: WideString); dispid 9;
function GetProperty(bPerLocale: WordBool; const bstrName: WideString): WideString; dispid 10;
property EventHandled: WordBool writeonly dispid 11;
procedure ResetNextMenu; dispid 12;
procedure FindOnWeb; dispid 13;
procedure FindFilesOrFolders; dispid 14;
procedure FindComputer; dispid 15;
procedure FindPrinter; dispid 16;
procedure FindPeople; dispid 17;
function GetSearchAssistantURL(bSubstitute: WordBool; bCustomize: WordBool): WideString; dispid 18;
procedure NotifySearchSettingsChanged; dispid 19;
property ASProvider: WideString dispid 20;
property ASSetting: SYSINT dispid 21;
procedure NETDetectNextNavigate; dispid 22;
procedure PutFindText(const FindText: WideString); dispid 23;
property Version: SYSINT readonly dispid 24;
function EncodeString(const bstrValue: WideString; const bstrCharSet: WideString;
bUseUTF8: WordBool): WideString; dispid 25;
end;

// *********************************************************************//
// Interface: ISearchAssistantOC2
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {72423E8F-8011-11D2-BE79-00A0C9A83DA2}
// *********************************************************************//
ISearchAssistantOC2 = interface(ISearchAssistantOC)
[´{72423E8F-8011-11D2-BE79-00A0C9A83DA2}´]
function Get_ShowFindPrinter: WordBool; safecall;
property ShowFindPrinter: WordBool read Get_ShowFindPrinter;
end;

// *********************************************************************//
// DispIntf: ISearchAssistantOC2Disp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {72423E8F-8011-11D2-BE79-00A0C9A83DA2}
// *********************************************************************//
ISearchAssistantOC2Disp = dispinterface
[´{72423E8F-8011-11D2-BE79-00A0C9A83DA2}´]
property ShowFindPrinter: WordBool readonly dispid 26;
procedure AddNextMenuItem(const bstrText: WideString; idItem: Integer); dispid 1;
procedure SetDefaultSearchUrl(const bstrUrl: WideString); dispid 2;
procedure NavigateToDefaultSearch; dispid 3;
function IsRestricted(const bstrGuid: WideString): WordBool; dispid 4;
property ShellFeaturesEnabled: WordBool readonly dispid 5;
property SearchAssistantDefault: WordBool readonly dispid 6;
property Searches: ISearches readonly dispid 7;
property InWebFolder: WordBool readonly dispid 8;
procedure PutProperty(bPerLocale: WordBool; const bstrName: WideString;
const bstrValue: WideString); dispid 9;
function GetProperty(bPerLocale: WordBool; const bstrName: WideString): WideString; dispid 10;
property EventHandled: WordBool writeonly dispid 11;
procedure ResetNextMenu; dispid 12;
procedure FindOnWeb; dispid 13;
procedure FindFilesOrFolders; dispid 14;
procedure FindComputer; dispid 15;
procedure FindPrinter; dispid 16;
procedure FindPeople; dispid 17;
function GetSearchAssistantURL(bSubstitute: WordBool; bCustomize: WordBool): WideString; dispid 18;
procedure NotifySearchSettingsChanged; dispid 19;
property ASProvider: WideString dispid 20;
property ASSetting: SYSINT dispid 21;
procedure NETDetectNextNavigate; dispid 22;
procedure PutFindText(const FindText: WideString); dispid 23;
property Version: SYSINT readonly dispid 24;
function EncodeString(const bstrValue: WideString; const bstrCharSet: WideString;
bUseUTF8: WordBool): WideString; dispid 25;
end;

// *********************************************************************//
// Interface: ISearchAssistantOC3
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {72423E8F-8011-11D2-BE79-00A0C9A83DA3}
// *********************************************************************//
ISearchAssistantOC3 = interface(ISearchAssistantOC2)
[´{72423E8F-8011-11D2-BE79-00A


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira