Monitorar IE - SHDocVwEvents
17/06/2008
0
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
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
Walencar
Curtir tópico
+ 0
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
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
Clique aqui para fazer login e interagir na Comunidade :)