4006 lines
184 KiB
ObjectPascal
4006 lines
184 KiB
ObjectPascal
{==============================================================================}
|
|
{== TWEBBROWSER FOR LAZARUS ===================================================}
|
|
{== REQUIRES LAZACTIVEX LIBRARY AND FPC > 2.6.1 ==============================}
|
|
{== USE IT FOR FREE NO RESTRICTIONS PROVIDED, FEEL FREE TO SEND PATCHES =======}
|
|
{== ORIGINAL CODE FROM HTTP://WXSOFT.RU/ @ wOvAN 2013.03.12 version 1.0 =======}
|
|
{==============================================================================}
|
|
|
|
{$include SHDocVw_defines.inc}
|
|
Unit SHDocVw;
|
|
|
|
|
|
// Imported SHDocVw on 12.03.2013 2:25:36 from C:\Windows\System32\ieframe.dll
|
|
|
|
{$mode delphi}{$H+}
|
|
|
|
interface
|
|
|
|
// Warning: renamed property 'Type' in IWebBrowser to 'Type_'
|
|
// Warning: renamed parameter 'Text' in DWebBrowserEvents.StatusTextChange to 'Text_'
|
|
// Warning: renamed parameter 'Text' in DWebBrowserEvents.TitleChange to 'Text_'
|
|
// Warning: renamed parameter 'Property' in DWebBrowserEvents.PropertyChange to 'Property_'
|
|
// Warning: renamed parameter 'Property' in IWebBrowserApp.PutProperty to 'Property_'
|
|
// Warning: renamed parameter 'Property' in IWebBrowserApp.GetProperty to 'Property_'
|
|
// Warning: renamed property 'Type' in IWebBrowserApp to 'Type_'
|
|
// Warning: renamed parameter 'Property' in IWebBrowserApp.PutProperty to 'Property_'
|
|
// Warning: renamed parameter 'Property' in IWebBrowserApp.GetProperty to 'Property_'
|
|
// Warning: renamed property 'Type' in IWebBrowser2 to 'Type_'
|
|
// Warning: renamed parameter 'Property' in IWebBrowser2.PutProperty to 'Property_'
|
|
// Warning: renamed parameter 'Property' in IWebBrowser2.GetProperty to 'Property_'
|
|
// Warning: renamed parameter 'Text' in DWebBrowserEvents2.StatusTextChange to 'Text_'
|
|
// Warning: renamed parameter 'Text' in DWebBrowserEvents2.TitleChange to 'Text_'
|
|
// Warning: renamed parameter 'Type' in IShellUIHelper.AddDesktopComponent to 'Type_'
|
|
// Warning: renamed parameter 'Type' in IShellUIHelper.AddDesktopComponent to 'Type_'
|
|
// Warning: renamed parameter 'Type' in IShellUIHelper2.AddDesktopComponent to 'Type_'
|
|
// Warning: renamed parameter 'Type' in IShellUIHelper3.AddToFavoritesBar to 'Type_'
|
|
// Warning: renamed parameter 'Type' in IShellUIHelper3.AddDesktopComponent to 'Type_'
|
|
// Warning: renamed parameter 'Type' in IShellUIHelper3.AddToFavoritesBar to 'Type_'
|
|
// Warning: renamed parameter 'Type' in IShellUIHelper4.AddDesktopComponent to 'Type_'
|
|
// Warning: renamed parameter 'Type' in IShellUIHelper4.AddToFavoritesBar to 'Type_'
|
|
// Warning: renamed parameter 'Type' in IShellUIHelper5.AddDesktopComponent to 'Type_'
|
|
// Warning: renamed parameter 'Type' in IShellUIHelper5.AddToFavoritesBar to 'Type_'
|
|
// Warning: renamed parameter 'var' in IShellNameSpace.Expand to 'var_'
|
|
// Warning: renamed parameter 'var' in IShellNameSpace.Expand to 'var_'
|
|
Uses
|
|
Windows,ActiveX,Classes,Variants,ActiveXContainer,EventSink;
|
|
Const
|
|
SHDocVwMajorVersion = 1;
|
|
SHDocVwMinorVersion = 1;
|
|
SHDocVwLCID = 0;
|
|
LIBID_SHDocVw : TGUID = '{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}';
|
|
|
|
IID_IWebBrowser : TGUID = '{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}';
|
|
IID_DWebBrowserEvents : TGUID = '{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}';
|
|
IID_IWebBrowserApp : TGUID = '{0002DF05-0000-0000-C000-000000000046}';
|
|
IID_IWebBrowser2 : TGUID = '{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}';
|
|
IID_DWebBrowserEvents2 : TGUID = '{34A715A0-6587-11D0-924A-0020AFC7AC4D}';
|
|
CLASS_WebBrowser_V1 : TGUID = '{EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B}';
|
|
CLASS_WebBrowser : TGUID = '{8856F961-340A-11D0-A96B-00C04FD705A2}';
|
|
CLASS_InternetExplorer : TGUID = '{0002DF01-0000-0000-C000-000000000046}';
|
|
CLASS_InternetExplorerMedium : TGUID = '{D5E8041D-920F-45E9-B8FB-B1DEB82C6E5E}';
|
|
CLASS_ShellBrowserWindow : TGUID = '{C08AFD90-F2A1-11D1-8455-00A0C91F3880}';
|
|
IID_DShellWindowsEvents : TGUID = '{FE4106E0-399A-11D0-A48C-00A0C90A8F39}';
|
|
IID_IShellWindows : TGUID = '{85CB6900-4D95-11CF-960C-0080C7F4EE85}';
|
|
CLASS_ShellWindows : TGUID = '{9BA05972-F6A8-11CF-A442-00A0C90A8F39}';
|
|
IID_IShellUIHelper : TGUID = '{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}';
|
|
IID_IShellUIHelper2 : TGUID = '{A7FE6EDA-1932-4281-B881-87B31B8BC52C}';
|
|
IID_IShellUIHelper3 : TGUID = '{528DF2EC-D419-40BC-9B6D-DCDBF9C1B25D}';
|
|
IID_IShellUIHelper4 : TGUID = '{B36E6A53-8073-499E-824C-D776330A333E}';
|
|
IID_IShellUIHelper5 : TGUID = '{A2A08B09-103D-4D3F-B91C-EA455CA82EFA}';
|
|
CLASS_ShellUIHelper : TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
|
|
IID_DShellNameSpaceEvents : TGUID = '{55136806-B2DE-11D1-B9F2-00A0C98BC547}';
|
|
IID_IShellFavoritesNameSpace : TGUID = '{55136804-B2DE-11D1-B9F2-00A0C98BC547}';
|
|
IID_IShellNameSpace : TGUID = '{E572D3C9-37BE-4AE2-825D-D521763E3108}';
|
|
CLASS_ShellNameSpace : TGUID = '{55136805-B2DE-11D1-B9F2-00A0C98BC547}';
|
|
IID_IScriptErrorList : TGUID = '{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}';
|
|
CLASS_CScriptErrorList : TGUID = '{EFD01300-160F-11D2-BB2E-00805FF7EFCA}';
|
|
|
|
//Enums
|
|
|
|
Type
|
|
CommandStateChangeConstants =LongWord;
|
|
Const
|
|
CSC_UPDATECOMMANDS = $00000000FFFFFFFF;
|
|
CSC_NAVIGATEFORWARD = $0000000000000001;
|
|
CSC_NAVIGATEBACK = $0000000000000002;
|
|
Type
|
|
OLECMDID =LongWord;
|
|
Const
|
|
OLECMDID_OPEN = $0000000000000001;
|
|
OLECMDID_NEW = $0000000000000002;
|
|
OLECMDID_SAVE = $0000000000000003;
|
|
OLECMDID_SAVEAS = $0000000000000004;
|
|
OLECMDID_SAVECOPYAS = $0000000000000005;
|
|
OLECMDID_PRINT = $0000000000000006;
|
|
OLECMDID_PRINTPREVIEW = $0000000000000007;
|
|
OLECMDID_PAGESETUP = $0000000000000008;
|
|
OLECMDID_SPELL = $0000000000000009;
|
|
OLECMDID_PROPERTIES = $000000000000000A;
|
|
OLECMDID_CUT = $000000000000000B;
|
|
OLECMDID_COPY = $000000000000000C;
|
|
OLECMDID_PASTE = $000000000000000D;
|
|
OLECMDID_PASTESPECIAL = $000000000000000E;
|
|
OLECMDID_UNDO = $000000000000000F;
|
|
OLECMDID_REDO = $0000000000000010;
|
|
OLECMDID_SELECTALL = $0000000000000011;
|
|
OLECMDID_CLEARSELECTION = $0000000000000012;
|
|
OLECMDID_ZOOM = $0000000000000013;
|
|
OLECMDID_GETZOOMRANGE = $0000000000000014;
|
|
OLECMDID_UPDATECOMMANDS = $0000000000000015;
|
|
OLECMDID_REFRESH = $0000000000000016;
|
|
OLECMDID_STOP = $0000000000000017;
|
|
OLECMDID_HIDETOOLBARS = $0000000000000018;
|
|
OLECMDID_SETPROGRESSMAX = $0000000000000019;
|
|
OLECMDID_SETPROGRESSPOS = $000000000000001A;
|
|
OLECMDID_SETPROGRESSTEXT = $000000000000001B;
|
|
OLECMDID_SETTITLE = $000000000000001C;
|
|
OLECMDID_SETDOWNLOADSTATE = $000000000000001D;
|
|
OLECMDID_STOPDOWNLOAD = $000000000000001E;
|
|
OLECMDID_ONTOOLBARACTIVATED = $000000000000001F;
|
|
OLECMDID_FIND = $0000000000000020;
|
|
OLECMDID_DELETE = $0000000000000021;
|
|
OLECMDID_HTTPEQUIV = $0000000000000022;
|
|
OLECMDID_HTTPEQUIV_DONE = $0000000000000023;
|
|
OLECMDID_ENABLE_INTERACTION = $0000000000000024;
|
|
OLECMDID_ONUNLOAD = $0000000000000025;
|
|
OLECMDID_PROPERTYBAG2 = $0000000000000026;
|
|
OLECMDID_PREREFRESH = $0000000000000027;
|
|
OLECMDID_SHOWSCRIPTERROR = $0000000000000028;
|
|
OLECMDID_SHOWMESSAGE = $0000000000000029;
|
|
OLECMDID_SHOWFIND = $000000000000002A;
|
|
OLECMDID_SHOWPAGESETUP = $000000000000002B;
|
|
OLECMDID_SHOWPRINT = $000000000000002C;
|
|
OLECMDID_CLOSE = $000000000000002D;
|
|
OLECMDID_ALLOWUILESSSAVEAS = $000000000000002E;
|
|
OLECMDID_DONTDOWNLOADCSS = $000000000000002F;
|
|
OLECMDID_UPDATEPAGESTATUS = $0000000000000030;
|
|
OLECMDID_PRINT2 = $0000000000000031;
|
|
OLECMDID_PRINTPREVIEW2 = $0000000000000032;
|
|
OLECMDID_SETPRINTTEMPLATE = $0000000000000033;
|
|
OLECMDID_GETPRINTTEMPLATE = $0000000000000034;
|
|
OLECMDID_PAGEACTIONBLOCKED = $0000000000000037;
|
|
OLECMDID_PAGEACTIONUIQUERY = $0000000000000038;
|
|
OLECMDID_FOCUSVIEWCONTROLS = $0000000000000039;
|
|
OLECMDID_FOCUSVIEWCONTROLSQUERY = $000000000000003A;
|
|
OLECMDID_SHOWPAGEACTIONMENU = $000000000000003B;
|
|
OLECMDID_ADDTRAVELENTRY = $000000000000003C;
|
|
OLECMDID_UPDATETRAVELENTRY = $000000000000003D;
|
|
OLECMDID_UPDATEBACKFORWARDSTATE = $000000000000003E;
|
|
OLECMDID_OPTICAL_ZOOM = $000000000000003F;
|
|
OLECMDID_OPTICAL_GETZOOMRANGE = $0000000000000040;
|
|
OLECMDID_WINDOWSTATECHANGED = $0000000000000041;
|
|
OLECMDID_ACTIVEXINSTALLSCOPE = $0000000000000042;
|
|
OLECMDID_UPDATETRAVELENTRY_DATARECOVERY = $0000000000000043;
|
|
OLECMDID_SHOWTASKDLG = $0000000000000044;
|
|
OLECMDID_POPSTATEEVENT = $0000000000000045;
|
|
OLECMDID_VIEWPORT_MODE = $0000000000000046;
|
|
OLECMDID_LAYOUT_VIEWPORT_WIDTH = $0000000000000047;
|
|
OLECMDID_VISUAL_VIEWPORT_EXCLUDE_BOTTOM = $0000000000000048;
|
|
OLECMDID_USER_OPTICAL_ZOOM = $0000000000000049;
|
|
OLECMDID_PAGEAVAILABLE = $000000000000004A;
|
|
OLECMDID_GETUSERSCALABLE = $000000000000004B;
|
|
OLECMDID_UPDATE_CARET = $000000000000004C;
|
|
OLECMDID_ENABLE_VISIBILITY = $000000000000004D;
|
|
OLECMDID_MEDIA_PLAYBACK = $000000000000004E;
|
|
Type
|
|
OLECMDF =LongWord;
|
|
Const
|
|
OLECMDF_SUPPORTED = $0000000000000001;
|
|
OLECMDF_ENABLED = $0000000000000002;
|
|
OLECMDF_LATCHED = $0000000000000004;
|
|
OLECMDF_NINCHED = $0000000000000008;
|
|
OLECMDF_INVISIBLE = $0000000000000010;
|
|
OLECMDF_DEFHIDEONCTXTMENU = $0000000000000020;
|
|
Type
|
|
OLECMDEXECOPT =LongWord;
|
|
Const
|
|
OLECMDEXECOPT_DODEFAULT = $0000000000000000;
|
|
OLECMDEXECOPT_PROMPTUSER = $0000000000000001;
|
|
OLECMDEXECOPT_DONTPROMPTUSER = $0000000000000002;
|
|
OLECMDEXECOPT_SHOWHELP = $0000000000000003;
|
|
Type
|
|
tagREADYSTATE =LongWord;
|
|
Const
|
|
READYSTATE_UNINITIALIZED = $0000000000000000;
|
|
READYSTATE_LOADING = $0000000000000001;
|
|
READYSTATE_LOADED = $0000000000000002;
|
|
READYSTATE_INTERACTIVE = $0000000000000003;
|
|
READYSTATE_COMPLETE = $0000000000000004;
|
|
Type
|
|
SecureLockIconConstants =LongWord;
|
|
Const
|
|
secureLockIconUnsecure = $0000000000000000;
|
|
secureLockIconMixed = $0000000000000001;
|
|
secureLockIconSecureUnknownBits = $0000000000000002;
|
|
secureLockIconSecure40Bit = $0000000000000003;
|
|
secureLockIconSecure56Bit = $0000000000000004;
|
|
secureLockIconSecureFortezza = $0000000000000005;
|
|
secureLockIconSecure128Bit = $0000000000000006;
|
|
Type
|
|
NewProcessCauseConstants =LongWord;
|
|
Const
|
|
ProtectedModeRedirect = $0000000000000001;
|
|
Type
|
|
ShellWindowTypeConstants =LongWord;
|
|
Const
|
|
SWC_EXPLORER = $0000000000000000;
|
|
SWC_BROWSER = $0000000000000001;
|
|
SWC_3RDPARTY = $0000000000000002;
|
|
SWC_CALLBACK = $0000000000000004;
|
|
SWC_DESKTOP = $0000000000000008;
|
|
Type
|
|
ShellWindowFindWindowOptions =LongWord;
|
|
Const
|
|
SWFO_NEEDDISPATCH = $0000000000000001;
|
|
SWFO_INCLUDEPENDING = $0000000000000002;
|
|
SWFO_COOKIEPASSED = $0000000000000004;
|
|
//Forward declarations
|
|
|
|
Type
|
|
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;
|
|
IShellUIHelper2 = interface;
|
|
IShellUIHelper2Disp = dispinterface;
|
|
IShellUIHelper3 = interface;
|
|
IShellUIHelper3Disp = dispinterface;
|
|
IShellUIHelper4 = interface;
|
|
IShellUIHelper4Disp = dispinterface;
|
|
IShellUIHelper5 = interface;
|
|
IShellUIHelper5Disp = dispinterface;
|
|
DShellNameSpaceEvents = dispinterface;
|
|
IShellFavoritesNameSpace = interface;
|
|
IShellFavoritesNameSpaceDisp = dispinterface;
|
|
IShellNameSpace = interface;
|
|
IShellNameSpaceDisp = dispinterface;
|
|
IScriptErrorList = interface;
|
|
IScriptErrorListDisp = dispinterface;
|
|
|
|
//Map CoClass to its default interface
|
|
|
|
WebBrowser_V1 = IWebBrowser;
|
|
WebBrowser = IWebBrowser2;
|
|
InternetExplorer = IWebBrowser2;
|
|
InternetExplorerMedium = IWebBrowser2;
|
|
ShellBrowserWindow = IWebBrowser2;
|
|
ShellWindows = IShellWindows;
|
|
ShellUIHelper = IShellUIHelper5;
|
|
ShellNameSpace = IShellNameSpace;
|
|
CScriptErrorList = IScriptErrorList;
|
|
|
|
//records, unions, aliases
|
|
|
|
|
|
//interface declarations
|
|
|
|
// IWebBrowser : Web Browser interface
|
|
|
|
IWebBrowser = interface(IDispatch)
|
|
['{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}']
|
|
// GoBack : Navigates to the previous item in the history list.
|
|
procedure GoBack;safecall;
|
|
// GoForward : Navigates to the next item in the history list.
|
|
procedure GoForward;safecall;
|
|
// GoHome : Go home/start page.
|
|
procedure GoHome;safecall;
|
|
// GoSearch : Go Search Page.
|
|
procedure GoSearch;safecall;
|
|
// Navigate : Navigates to a URL or file.
|
|
procedure Navigate(URL:WideString;var Flags:OleVariant;var TargetFrameName:OleVariant;var PostData:OleVariant;var Headers:OleVariant);safecall;
|
|
// Refresh : Refresh the currently viewed page.
|
|
procedure Refresh;safecall;
|
|
// Refresh2 : Refresh the currently viewed page.
|
|
procedure Refresh2(var Level:OleVariant);safecall;
|
|
// Stop : Stops opening a file.
|
|
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(const pl:Integer); safecall;
|
|
function Get_Top : Integer; safecall;
|
|
procedure Set_Top(const pl:Integer); safecall;
|
|
function Get_Width : Integer; safecall;
|
|
procedure Set_Width(const pl:Integer); safecall;
|
|
function Get_Height : Integer; safecall;
|
|
procedure Set_Height(const pl:Integer); safecall;
|
|
function Get_LocationName : WideString; safecall;
|
|
function Get_LocationURL : WideString; safecall;
|
|
function Get_Busy : WordBool; safecall;
|
|
// Application : Returns the application automation object if accessible, this automation object otherwise..
|
|
property Application:IDispatch read Get_Application;
|
|
// Parent : Returns the automation object of the container/parent if one exists or this automation object.
|
|
property Parent:IDispatch read Get_Parent;
|
|
// Container : Returns the container/parent automation object, if any.
|
|
property Container:IDispatch read Get_Container;
|
|
// Document : Returns the active Document automation object, if any.
|
|
property Document:IDispatch read Get_Document;
|
|
// TopLevelContainer : Returns True if this is the top level object.
|
|
property TopLevelContainer:WordBool read Get_TopLevelContainer;
|
|
// Type : Returns the type of the contained document object.
|
|
property Type_:WideString read Get_Type_;
|
|
// Left : The horizontal position (pixels) of the frame window relative to the screen/container.
|
|
property Left:Integer read Get_Left write Set_Left;
|
|
// Top : The vertical position (pixels) of the frame window relative to the screen/container.
|
|
property Top:Integer read Get_Top write Set_Top;
|
|
// Width : The horizontal dimension (pixels) of the frame window/object.
|
|
property Width:Integer read Get_Width write Set_Width;
|
|
// Height : The vertical dimension (pixels) of the frame window/object.
|
|
property Height:Integer read Get_Height write Set_Height;
|
|
// LocationName : Gets the short (UI-friendly) name of the URL/file currently viewed.
|
|
property LocationName:WideString read Get_LocationName;
|
|
// LocationURL : Gets the full URL/path currently viewed.
|
|
property LocationURL:WideString read Get_LocationURL;
|
|
// Busy : Query to see if something is still in progress.
|
|
property Busy:WordBool read Get_Busy;
|
|
end;
|
|
|
|
|
|
// IWebBrowser : Web Browser interface
|
|
|
|
IWebBrowserDisp = dispinterface
|
|
['{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}']
|
|
// GoBack : Navigates to the previous item in the history list.
|
|
procedure GoBack;dispid 100;
|
|
// GoForward : Navigates to the next item in the history list.
|
|
procedure GoForward;dispid 101;
|
|
// GoHome : Go home/start page.
|
|
procedure GoHome;dispid 102;
|
|
// GoSearch : Go Search Page.
|
|
procedure GoSearch;dispid 103;
|
|
// Navigate : Navigates to a URL or file.
|
|
procedure Navigate(URL:WideString;var Flags:OleVariant;var TargetFrameName:OleVariant;var PostData:OleVariant;var Headers:OleVariant);dispid 104;
|
|
// Refresh : Refresh the currently viewed page.
|
|
procedure Refresh;dispid -550;
|
|
// Refresh2 : Refresh the currently viewed page.
|
|
procedure Refresh2(var Level:OleVariant);dispid 105;
|
|
// Stop : Stops opening a file.
|
|
procedure Stop;dispid 106;
|
|
// Application : Returns the application automation object if accessible, this automation object otherwise..
|
|
property Application:IDispatch readonly dispid 200;
|
|
// Parent : Returns the automation object of the container/parent if one exists or this automation object.
|
|
property Parent:IDispatch readonly dispid 201;
|
|
// Container : Returns the container/parent automation object, if any.
|
|
property Container:IDispatch readonly dispid 202;
|
|
// Document : Returns the active Document automation object, if any.
|
|
property Document:IDispatch readonly dispid 203;
|
|
// TopLevelContainer : Returns True if this is the top level object.
|
|
property TopLevelContainer:WordBool readonly dispid 204;
|
|
// Type : Returns the type of the contained document object.
|
|
property Type_:WideString readonly dispid 205;
|
|
// Left : The horizontal position (pixels) of the frame window relative to the screen/container.
|
|
property Left:Integer dispid 206;
|
|
// Top : The vertical position (pixels) of the frame window relative to the screen/container.
|
|
property Top:Integer dispid 207;
|
|
// Width : The horizontal dimension (pixels) of the frame window/object.
|
|
property Width:Integer dispid 208;
|
|
// Height : The vertical dimension (pixels) of the frame window/object.
|
|
property Height:Integer dispid 209;
|
|
// LocationName : Gets the short (UI-friendly) name of the URL/file currently viewed.
|
|
property LocationName:WideString readonly dispid 210;
|
|
// LocationURL : Gets the full URL/path currently viewed.
|
|
property LocationURL:WideString readonly dispid 211;
|
|
// Busy : Query to see if something is still in progress.
|
|
property Busy:WordBool readonly dispid 212;
|
|
end;
|
|
|
|
|
|
// DWebBrowserEvents : Web Browser Control Events (old)
|
|
|
|
DWebBrowserEvents = dispinterface
|
|
['{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}']
|
|
// BeforeNavigate : Fired when a new hyperlink is being navigated to.
|
|
procedure BeforeNavigate(URL:WideString;Flags:Integer;TargetFrameName:WideString;PostData:OleVariant;Headers:WideString;var Cancel:WordBool);dispid 100;
|
|
// NavigateComplete : Fired when the document being navigated to becomes visible and enters the navigation stack.
|
|
procedure NavigateComplete(URL:WideString);dispid 101;
|
|
// StatusTextChange : Statusbar text changed.
|
|
procedure StatusTextChange(Text_:WideString);dispid 102;
|
|
// ProgressChange : Fired when download progress is updated.
|
|
procedure ProgressChange(Progress:Integer;ProgressMax:Integer);dispid 108;
|
|
// DownloadComplete : Download of page complete.
|
|
procedure DownloadComplete;dispid 104;
|
|
// CommandStateChange : The enabled state of a command changed
|
|
procedure CommandStateChange(Command:Integer;Enable:WordBool);dispid 105;
|
|
// DownloadBegin : Download of a page started.
|
|
procedure DownloadBegin;dispid 106;
|
|
// NewWindow : Fired when a new window should be created.
|
|
procedure NewWindow(URL:WideString;Flags:Integer;TargetFrameName:WideString;var PostData:OleVariant;Headers:WideString;var Processed:WordBool);dispid 107;
|
|
// TitleChange : Document title changed.
|
|
procedure TitleChange(Text_:WideString);dispid 113;
|
|
// FrameBeforeNavigate : Fired when a new hyperlink is being navigated to in a frame.
|
|
procedure FrameBeforeNavigate(URL:WideString;Flags:Integer;TargetFrameName:WideString;PostData:OleVariant;Headers:WideString;var Cancel:WordBool);dispid 200;
|
|
// FrameNavigateComplete : Fired when a new hyperlink is being navigated to in a frame.
|
|
procedure FrameNavigateComplete(URL:WideString);dispid 201;
|
|
// FrameNewWindow : Fired when a new window should be created.
|
|
procedure FrameNewWindow(URL:WideString;Flags:Integer;TargetFrameName:WideString;var PostData:OleVariant;Headers:WideString;var Processed:WordBool);dispid 204;
|
|
// Quit : Fired when application is quiting.
|
|
procedure Quit(var Cancel:WordBool);dispid 103;
|
|
// WindowMove : Fired when window has been moved.
|
|
procedure WindowMove;dispid 109;
|
|
// WindowResize : Fired when window has been sized.
|
|
procedure WindowResize;dispid 110;
|
|
// WindowActivate : Fired when window has been activated.
|
|
procedure WindowActivate;dispid 111;
|
|
// PropertyChange : Fired when the PutProperty method has been called.
|
|
procedure PropertyChange(Property_:WideString);dispid 112;
|
|
end;
|
|
|
|
|
|
// IWebBrowserApp : Web Browser Application Interface.
|
|
|
|
IWebBrowserApp = interface(IWebBrowser)
|
|
['{0002DF05-0000-0000-C000-000000000046}']
|
|
// Quit : Exits application and closes the open document.
|
|
procedure Quit;safecall;
|
|
// ClientToWindow : Converts client sizes into window sizes.
|
|
procedure ClientToWindow(var pcx:SYSINT;var pcy:SYSINT);safecall;
|
|
// PutProperty : Associates vtValue with the name szProperty in the context of the object.
|
|
procedure PutProperty(Property_:WideString;vtValue:OleVariant);safecall;
|
|
// GetProperty : Retrieve the Associated value for the property vtValue in the context of the object.
|
|
function GetProperty(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(const pBool:WordBool); safecall;
|
|
function Get_StatusBar : WordBool; safecall;
|
|
procedure Set_StatusBar(const pBool:WordBool); safecall;
|
|
function Get_StatusText : WideString; safecall;
|
|
procedure Set_StatusText(const StatusText:WideString); safecall;
|
|
function Get_ToolBar : SYSINT; safecall;
|
|
procedure Set_ToolBar(const Value:SYSINT); safecall;
|
|
function Get_MenuBar : WordBool; safecall;
|
|
procedure Set_MenuBar(const Value:WordBool); safecall;
|
|
function Get_FullScreen : WordBool; safecall;
|
|
procedure Set_FullScreen(const pbFullScreen:WordBool); safecall;
|
|
// Name : Returns name of the application.
|
|
property Name:WideString read Get_Name;
|
|
// HWND : Returns the HWND of the current IE window.
|
|
property HWND:Integer read Get_HWND;
|
|
// FullName : Returns file specification of the application, including path.
|
|
property FullName:WideString read Get_FullName;
|
|
// Path : Returns the path to the application.
|
|
property Path:WideString read Get_Path;
|
|
// Visible : Determines whether the application is visible or hidden.
|
|
property Visible:WordBool read Get_Visible write Set_Visible;
|
|
// StatusBar : Turn on or off the statusbar.
|
|
property StatusBar:WordBool read Get_StatusBar write Set_StatusBar;
|
|
// StatusText : Text of Status window.
|
|
property StatusText:WideString read Get_StatusText write Set_StatusText;
|
|
// ToolBar : Controls which toolbar is shown.
|
|
property ToolBar:SYSINT read Get_ToolBar write Set_ToolBar;
|
|
// MenuBar : Controls whether menubar is shown.
|
|
property MenuBar:WordBool read Get_MenuBar write Set_MenuBar;
|
|
// FullScreen : Maximizes window and turns off statusbar, toolbar, menubar, and titlebar.
|
|
property FullScreen:WordBool read Get_FullScreen write Set_FullScreen;
|
|
end;
|
|
|
|
|
|
// IWebBrowserApp : Web Browser Application Interface.
|
|
|
|
IWebBrowserAppDisp = dispinterface
|
|
['{0002DF05-0000-0000-C000-000000000046}']
|
|
// GoBack : Navigates to the previous item in the history list.
|
|
procedure GoBack;dispid 100;
|
|
// GoForward : Navigates to the next item in the history list.
|
|
procedure GoForward;dispid 101;
|
|
// GoHome : Go home/start page.
|
|
procedure GoHome;dispid 102;
|
|
// GoSearch : Go Search Page.
|
|
procedure GoSearch;dispid 103;
|
|
// Navigate : Navigates to a URL or file.
|
|
procedure Navigate(URL:WideString;var Flags:OleVariant;var TargetFrameName:OleVariant;var PostData:OleVariant;var Headers:OleVariant);dispid 104;
|
|
// Refresh : Refresh the currently viewed page.
|
|
procedure Refresh;dispid -550;
|
|
// Refresh2 : Refresh the currently viewed page.
|
|
procedure Refresh2(var Level:OleVariant);dispid 105;
|
|
// Stop : Stops opening a file.
|
|
procedure Stop;dispid 106;
|
|
// Quit : Exits application and closes the open document.
|
|
procedure Quit;dispid 300;
|
|
// ClientToWindow : Converts client sizes into window sizes.
|
|
procedure ClientToWindow(var pcx:SYSINT;var pcy:SYSINT);dispid 301;
|
|
// PutProperty : Associates vtValue with the name szProperty in the context of the object.
|
|
procedure PutProperty(Property_:WideString;vtValue:OleVariant);dispid 302;
|
|
// GetProperty : Retrieve the Associated value for the property vtValue in the context of the object.
|
|
function GetProperty(Property_:WideString):OleVariant;dispid 303;
|
|
// Application : Returns the application automation object if accessible, this automation object otherwise..
|
|
property Application:IDispatch readonly dispid 200;
|
|
// Parent : Returns the automation object of the container/parent if one exists or this automation object.
|
|
property Parent:IDispatch readonly dispid 201;
|
|
// Container : Returns the container/parent automation object, if any.
|
|
property Container:IDispatch readonly dispid 202;
|
|
// Document : Returns the active Document automation object, if any.
|
|
property Document:IDispatch readonly dispid 203;
|
|
// TopLevelContainer : Returns True if this is the top level object.
|
|
property TopLevelContainer:WordBool readonly dispid 204;
|
|
// Type : Returns the type of the contained document object.
|
|
property Type_:WideString readonly dispid 205;
|
|
// Left : The horizontal position (pixels) of the frame window relative to the screen/container.
|
|
property Left:Integer dispid 206;
|
|
// Top : The vertical position (pixels) of the frame window relative to the screen/container.
|
|
property Top:Integer dispid 207;
|
|
// Width : The horizontal dimension (pixels) of the frame window/object.
|
|
property Width:Integer dispid 208;
|
|
// Height : The vertical dimension (pixels) of the frame window/object.
|
|
property Height:Integer dispid 209;
|
|
// LocationName : Gets the short (UI-friendly) name of the URL/file currently viewed.
|
|
property LocationName:WideString readonly dispid 210;
|
|
// LocationURL : Gets the full URL/path currently viewed.
|
|
property LocationURL:WideString readonly dispid 211;
|
|
// Busy : Query to see if something is still in progress.
|
|
property Busy:WordBool readonly dispid 212;
|
|
// Name : Returns name of the application.
|
|
property Name:WideString readonly dispid 0;
|
|
// HWND : Returns the HWND of the current IE window.
|
|
property HWND:Integer readonly dispid -515;
|
|
// FullName : Returns file specification of the application, including path.
|
|
property FullName:WideString readonly dispid 400;
|
|
// Path : Returns the path to the application.
|
|
property Path:WideString readonly dispid 401;
|
|
// Visible : Determines whether the application is visible or hidden.
|
|
property Visible:WordBool dispid 402;
|
|
// StatusBar : Turn on or off the statusbar.
|
|
property StatusBar:WordBool dispid 403;
|
|
// StatusText : Text of Status window.
|
|
property StatusText:WideString dispid 404;
|
|
// ToolBar : Controls which toolbar is shown.
|
|
property ToolBar:SYSINT dispid 405;
|
|
// MenuBar : Controls whether menubar is shown.
|
|
property MenuBar:WordBool dispid 406;
|
|
// FullScreen : Maximizes window and turns off statusbar, toolbar, menubar, and titlebar.
|
|
property FullScreen:WordBool dispid 407;
|
|
end;
|
|
|
|
|
|
// IWebBrowser2 : Web Browser Interface for IE4.
|
|
|
|
IWebBrowser2 = interface(IWebBrowserApp)
|
|
['{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}']
|
|
// Navigate2 : Navigates to a URL or file or pidl.
|
|
procedure Navigate2(var URL:OleVariant;var Flags:OleVariant;var TargetFrameName:OleVariant;var PostData:OleVariant;var Headers:OleVariant);safecall;
|
|
// QueryStatusWB : IOleCommandTarget::QueryStatus
|
|
function QueryStatusWB(cmdID:OLECMDID):OLECMDF;safecall;
|
|
// ExecWB : IOleCommandTarget::Exec
|
|
procedure ExecWB(cmdID:OLECMDID;cmdexecopt:OLECMDEXECOPT;var pvaIn:OleVariant;var pvaOut:OleVariant);safecall;
|
|
// ShowBrowserBar : Set BrowserBar to Clsid
|
|
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(const pbOffline:WordBool); safecall;
|
|
function Get_Silent : WordBool; safecall;
|
|
procedure Set_Silent(const pbSilent:WordBool); safecall;
|
|
function Get_RegisterAsBrowser : WordBool; safecall;
|
|
procedure Set_RegisterAsBrowser(const pbRegister:WordBool); safecall;
|
|
function Get_RegisterAsDropTarget : WordBool; safecall;
|
|
procedure Set_RegisterAsDropTarget(const pbRegister:WordBool); safecall;
|
|
function Get_TheaterMode : WordBool; safecall;
|
|
procedure Set_TheaterMode(const pbRegister:WordBool); safecall;
|
|
function Get_AddressBar : WordBool; safecall;
|
|
procedure Set_AddressBar(const Value:WordBool); safecall;
|
|
function Get_Resizable : WordBool; safecall;
|
|
procedure Set_Resizable(const Value:WordBool); safecall;
|
|
// ReadyState :
|
|
property ReadyState:tagREADYSTATE read Get_ReadyState;
|
|
// Offline : Controls if the frame is offline (read from cache)
|
|
property Offline:WordBool read Get_Offline write Set_Offline;
|
|
// Silent : Controls if any dialog boxes can be shown
|
|
property Silent:WordBool read Get_Silent write Set_Silent;
|
|
// RegisterAsBrowser : Registers OC as a top-level browser (for target name resolution)
|
|
property RegisterAsBrowser:WordBool read Get_RegisterAsBrowser write Set_RegisterAsBrowser;
|
|
// RegisterAsDropTarget : Registers OC as a drop target for navigation
|
|
property RegisterAsDropTarget:WordBool read Get_RegisterAsDropTarget write Set_RegisterAsDropTarget;
|
|
// TheaterMode : Controls if the browser is in theater mode
|
|
property TheaterMode:WordBool read Get_TheaterMode write Set_TheaterMode;
|
|
// AddressBar : Controls whether address bar is shown
|
|
property AddressBar:WordBool read Get_AddressBar write Set_AddressBar;
|
|
// Resizable : Controls whether the window is resizable
|
|
property Resizable:WordBool read Get_Resizable write Set_Resizable;
|
|
end;
|
|
|
|
|
|
// IWebBrowser2 : Web Browser Interface for IE4.
|
|
|
|
IWebBrowser2Disp = dispinterface
|
|
['{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}']
|
|
// GoBack : Navigates to the previous item in the history list.
|
|
procedure GoBack;dispid 100;
|
|
// GoForward : Navigates to the next item in the history list.
|
|
procedure GoForward;dispid 101;
|
|
// GoHome : Go home/start page.
|
|
procedure GoHome;dispid 102;
|
|
// GoSearch : Go Search Page.
|
|
procedure GoSearch;dispid 103;
|
|
// Navigate : Navigates to a URL or file.
|
|
procedure Navigate(URL:WideString;var Flags:OleVariant;var TargetFrameName:OleVariant;var PostData:OleVariant;var Headers:OleVariant);dispid 104;
|
|
// Refresh : Refresh the currently viewed page.
|
|
procedure Refresh;dispid -550;
|
|
// Refresh2 : Refresh the currently viewed page.
|
|
procedure Refresh2(var Level:OleVariant);dispid 105;
|
|
// Stop : Stops opening a file.
|
|
procedure Stop;dispid 106;
|
|
// Quit : Exits application and closes the open document.
|
|
procedure Quit;dispid 300;
|
|
// ClientToWindow : Converts client sizes into window sizes.
|
|
procedure ClientToWindow(var pcx:SYSINT;var pcy:SYSINT);dispid 301;
|
|
// PutProperty : Associates vtValue with the name szProperty in the context of the object.
|
|
procedure PutProperty(Property_:WideString;vtValue:OleVariant);dispid 302;
|
|
// GetProperty : Retrieve the Associated value for the property vtValue in the context of the object.
|
|
function GetProperty(Property_:WideString):OleVariant;dispid 303;
|
|
// Navigate2 : Navigates to a URL or file or pidl.
|
|
procedure Navigate2(var URL:OleVariant;var Flags:OleVariant;var TargetFrameName:OleVariant;var PostData:OleVariant;var Headers:OleVariant);dispid 500;
|
|
// QueryStatusWB : IOleCommandTarget::QueryStatus
|
|
function QueryStatusWB(cmdID:OLECMDID):OLECMDF;dispid 501;
|
|
// ExecWB : IOleCommandTarget::Exec
|
|
procedure ExecWB(cmdID:OLECMDID;cmdexecopt:OLECMDEXECOPT;var pvaIn:OleVariant;var pvaOut:OleVariant);dispid 502;
|
|
// ShowBrowserBar : Set BrowserBar to Clsid
|
|
procedure ShowBrowserBar(var pvaClsid:OleVariant;var pvarShow:OleVariant;var pvarSize:OleVariant);dispid 503;
|
|
// Application : Returns the application automation object if accessible, this automation object otherwise..
|
|
property Application:IDispatch readonly dispid 200;
|
|
// Parent : Returns the automation object of the container/parent if one exists or this automation object.
|
|
property Parent:IDispatch readonly dispid 201;
|
|
// Container : Returns the container/parent automation object, if any.
|
|
property Container:IDispatch readonly dispid 202;
|
|
// Document : Returns the active Document automation object, if any.
|
|
property Document:IDispatch readonly dispid 203;
|
|
// TopLevelContainer : Returns True if this is the top level object.
|
|
property TopLevelContainer:WordBool readonly dispid 204;
|
|
// Type : Returns the type of the contained document object.
|
|
property Type_:WideString readonly dispid 205;
|
|
// Left : The horizontal position (pixels) of the frame window relative to the screen/container.
|
|
property Left:Integer dispid 206;
|
|
// Top : The vertical position (pixels) of the frame window relative to the screen/container.
|
|
property Top:Integer dispid 207;
|
|
// Width : The horizontal dimension (pixels) of the frame window/object.
|
|
property Width:Integer dispid 208;
|
|
// Height : The vertical dimension (pixels) of the frame window/object.
|
|
property Height:Integer dispid 209;
|
|
// LocationName : Gets the short (UI-friendly) name of the URL/file currently viewed.
|
|
property LocationName:WideString readonly dispid 210;
|
|
// LocationURL : Gets the full URL/path currently viewed.
|
|
property LocationURL:WideString readonly dispid 211;
|
|
// Busy : Query to see if something is still in progress.
|
|
property Busy:WordBool readonly dispid 212;
|
|
// Name : Returns name of the application.
|
|
property Name:WideString readonly dispid 0;
|
|
// HWND : Returns the HWND of the current IE window.
|
|
property HWND:Integer readonly dispid -515;
|
|
// FullName : Returns file specification of the application, including path.
|
|
property FullName:WideString readonly dispid 400;
|
|
// Path : Returns the path to the application.
|
|
property Path:WideString readonly dispid 401;
|
|
// Visible : Determines whether the application is visible or hidden.
|
|
property Visible:WordBool dispid 402;
|
|
// StatusBar : Turn on or off the statusbar.
|
|
property StatusBar:WordBool dispid 403;
|
|
// StatusText : Text of Status window.
|
|
property StatusText:WideString dispid 404;
|
|
// ToolBar : Controls which toolbar is shown.
|
|
property ToolBar:SYSINT dispid 405;
|
|
// MenuBar : Controls whether menubar is shown.
|
|
property MenuBar:WordBool dispid 406;
|
|
// FullScreen : Maximizes window and turns off statusbar, toolbar, menubar, and titlebar.
|
|
property FullScreen:WordBool dispid 407;
|
|
// ReadyState :
|
|
property ReadyState:tagREADYSTATE readonly dispid -525;
|
|
// Offline : Controls if the frame is offline (read from cache)
|
|
property Offline:WordBool dispid 550;
|
|
// Silent : Controls if any dialog boxes can be shown
|
|
property Silent:WordBool dispid 551;
|
|
// RegisterAsBrowser : Registers OC as a top-level browser (for target name resolution)
|
|
property RegisterAsBrowser:WordBool dispid 552;
|
|
// RegisterAsDropTarget : Registers OC as a drop target for navigation
|
|
property RegisterAsDropTarget:WordBool dispid 553;
|
|
// TheaterMode : Controls if the browser is in theater mode
|
|
property TheaterMode:WordBool dispid 554;
|
|
// AddressBar : Controls whether address bar is shown
|
|
property AddressBar:WordBool dispid 555;
|
|
// Resizable : Controls whether the window is resizable
|
|
property Resizable:WordBool dispid 556;
|
|
end;
|
|
|
|
|
|
// DWebBrowserEvents2 : Web Browser Control events interface
|
|
|
|
DWebBrowserEvents2 = dispinterface
|
|
['{34A715A0-6587-11D0-924A-0020AFC7AC4D}']
|
|
// StatusTextChange : Statusbar text changed.
|
|
procedure StatusTextChange(Text_:WideString);dispid 102;
|
|
// ProgressChange : Fired when download progress is updated.
|
|
procedure ProgressChange(Progress:Integer;ProgressMax:Integer);dispid 108;
|
|
// CommandStateChange : The enabled state of a command changed.
|
|
procedure CommandStateChange(Command:Integer;Enable:WordBool);dispid 105;
|
|
// DownloadBegin : Download of a page started.
|
|
procedure DownloadBegin;dispid 106;
|
|
// DownloadComplete : Download of page complete.
|
|
procedure DownloadComplete;dispid 104;
|
|
// TitleChange : Document title changed.
|
|
procedure TitleChange(Text_:WideString);dispid 113;
|
|
// PropertyChange : Fired when the PutProperty method has been called.
|
|
procedure PropertyChange(szProperty:WideString);dispid 112;
|
|
// BeforeNavigate2 : Fired before navigate occurs in the given WebBrowser (window or frameset element). The processing of this navigation may be modified.
|
|
procedure BeforeNavigate2(pDisp:IDispatch;var URL:OleVariant;var Flags:OleVariant;var TargetFrameName:OleVariant;var PostData:OleVariant;var Headers:OleVariant;var Cancel:WordBool);dispid 250;
|
|
// NewWindow2 : A new, hidden, non-navigated WebBrowser window is needed.
|
|
procedure NewWindow2(var ppDisp:IDispatch;var Cancel:WordBool);dispid 251;
|
|
// NavigateComplete2 : Fired when the document being navigated to becomes visible and enters the navigation stack.
|
|
procedure NavigateComplete2(pDisp:IDispatch;var URL:OleVariant);dispid 252;
|
|
// DocumentComplete : Fired when the document being navigated to reaches ReadyState_Complete.
|
|
procedure DocumentComplete(pDisp:IDispatch;var URL:OleVariant);dispid 259;
|
|
// OnQuit : Fired when application is quiting.
|
|
procedure OnQuit;dispid 253;
|
|
// OnVisible : Fired when the window should be shown/hidden
|
|
procedure OnVisible(Visible:WordBool);dispid 254;
|
|
// OnToolBar : Fired when the toolbar should be shown/hidden
|
|
procedure OnToolBar(ToolBar:WordBool);dispid 255;
|
|
// OnMenuBar : Fired when the menubar should be shown/hidden
|
|
procedure OnMenuBar(MenuBar:WordBool);dispid 256;
|
|
// OnStatusBar : Fired when the statusbar should be shown/hidden
|
|
procedure OnStatusBar(StatusBar:WordBool);dispid 257;
|
|
// OnFullScreen : Fired when fullscreen mode should be on/off
|
|
procedure OnFullScreen(FullScreen:WordBool);dispid 258;
|
|
// OnTheaterMode : Fired when theater mode should be on/off
|
|
procedure OnTheaterMode(TheaterMode:WordBool);dispid 260;
|
|
// WindowSetResizable : Fired when the host window should allow/disallow resizing
|
|
procedure WindowSetResizable(Resizable:WordBool);dispid 262;
|
|
// WindowSetLeft : Fired when the host window should change its Left coordinate
|
|
procedure WindowSetLeft(Left:Integer);dispid 264;
|
|
// WindowSetTop : Fired when the host window should change its Top coordinate
|
|
procedure WindowSetTop(Top:Integer);dispid 265;
|
|
// WindowSetWidth : Fired when the host window should change its width
|
|
procedure WindowSetWidth(Width:Integer);dispid 266;
|
|
// WindowSetHeight : Fired when the host window should change its height
|
|
procedure WindowSetHeight(Height:Integer);dispid 267;
|
|
// WindowClosing : Fired when the WebBrowser is about to be closed by script
|
|
procedure WindowClosing(IsChildWindow:WordBool;var Cancel:WordBool);dispid 263;
|
|
// ClientToHostWindow : Fired to request client sizes be converted to host window sizes
|
|
procedure ClientToHostWindow(var CX:Integer;var CY:Integer);dispid 268;
|
|
// SetSecureLockIcon : Fired to indicate the security level of the current web page contents
|
|
procedure SetSecureLockIcon(SecureLockIcon:Integer);dispid 269;
|
|
// FileDownload : Fired to indicate the File Download dialog is opening
|
|
procedure FileDownload(ActiveDocument:WordBool;var Cancel:WordBool);dispid 270;
|
|
// NavigateError : Fired when a binding error occurs (window or frameset element).
|
|
procedure NavigateError(pDisp:IDispatch;var URL:OleVariant;var Frame:OleVariant;var StatusCode:OleVariant;var Cancel:WordBool);dispid 271;
|
|
// PrintTemplateInstantiation : Fired when a print template is instantiated.
|
|
procedure PrintTemplateInstantiation(pDisp:IDispatch);dispid 225;
|
|
// PrintTemplateTeardown : Fired when a print template destroyed.
|
|
procedure PrintTemplateTeardown(pDisp:IDispatch);dispid 226;
|
|
// UpdatePageStatus : Fired when a page is spooled. When it is fired can be changed by a custom template.
|
|
procedure UpdatePageStatus(pDisp:IDispatch;var nPage:OleVariant;var fDone:OleVariant);dispid 227;
|
|
// PrivacyImpactedStateChange : Fired when the global privacy impacted state changes
|
|
procedure PrivacyImpactedStateChange(bImpacted:WordBool);dispid 272;
|
|
// NewWindow3 : A new, hidden, non-navigated WebBrowser window is needed.
|
|
procedure NewWindow3(var ppDisp:IDispatch;var Cancel:WordBool;dwFlags:LongWord;bstrUrlContext:WideString;bstrUrl:WideString);dispid 273;
|
|
// SetPhishingFilterStatus : Fired to indicate the progress and status of the Phishing Filter analysis of the current web page
|
|
procedure SetPhishingFilterStatus(PhishingFilterStatus:Integer);dispid 282;
|
|
// WindowStateChanged : Fired to indicate that the browser window's visibility or enabled state has changed.
|
|
procedure WindowStateChanged(dwWindowStateFlags:LongWord;dwValidFlagsMask:LongWord);dispid 283;
|
|
// NewProcess : A new, hidden, non-navigated process is created to handle the navigation.
|
|
procedure NewProcess(lCauseFlag:Integer;pWB2:IDispatch;var Cancel:WordBool);dispid 284;
|
|
// ThirdPartyUrlBlocked : Fired when a third-party URL is blocked.
|
|
procedure ThirdPartyUrlBlocked(var URL:OleVariant;dwCount:LongWord);dispid 285;
|
|
// RedirectXDomainBlocked : Fired when a x-domain redirect is blocked.
|
|
procedure RedirectXDomainBlocked(pDisp:IDispatch;var StartURL:OleVariant;var RedirectURL:OleVariant;var Frame:OleVariant;var StatusCode:OleVariant);dispid 286;
|
|
// BeforeScriptExecute : Fired prior to the first script execution.
|
|
procedure BeforeScriptExecute(pDispWindow:IDispatch);dispid 290;
|
|
// WebWorkerStarted : Fired after a Web Worker has been started.
|
|
procedure WebWorkerStarted(dwUniqueID:LongWord;bstrWorkerLabel:WideString);dispid 288;
|
|
// WebWorkerFinsihed : Fired after a Web Worker has closed
|
|
procedure WebWorkerFinsihed(dwUniqueID:LongWord);dispid 289;
|
|
end;
|
|
|
|
|
|
// DShellWindowsEvents : Event interface for IShellWindows
|
|
|
|
DShellWindowsEvents = dispinterface
|
|
['{FE4106E0-399A-11D0-A48C-00A0C90A8F39}']
|
|
// WindowRegistered : A new window was registered.
|
|
procedure WindowRegistered(lCookie:Integer);dispid 200;
|
|
// WindowRevoked : A new window was revoked.
|
|
procedure WindowRevoked(lCookie:Integer);dispid 201;
|
|
end;
|
|
|
|
|
|
// IShellWindows : Definition of interface IShellWindows
|
|
|
|
IShellWindows = interface(IDispatch)
|
|
['{85CB6900-4D95-11CF-960C-0080C7F4EE85}']
|
|
function Get_Count : Integer; safecall;
|
|
// Item : Return the shell window for the given index
|
|
function Item(index:OleVariant):IDispatch;safecall;
|
|
// _NewEnum : Enumerates the figures
|
|
function _NewEnum:IUnknown;safecall;
|
|
// Register : Register a window with the list
|
|
procedure Register(pid:IDispatch;HWND:Integer;swClass:SYSINT;out plCookie:Integer);safecall;
|
|
// RegisterPending : Register a pending open with the list
|
|
procedure RegisterPending(lThreadId:Integer;var pvarloc:OleVariant;var pvarlocRoot:OleVariant;swClass:SYSINT;out plCookie:Integer);safecall;
|
|
// Revoke : Remove a window from the list
|
|
procedure Revoke(lCookie:Integer);safecall;
|
|
// OnNavigate : Notifies the new location
|
|
procedure OnNavigate(lCookie:Integer;var pvarloc:OleVariant);safecall;
|
|
// OnActivated : Notifies the activation
|
|
procedure OnActivated(lCookie:Integer;fActive:WordBool);safecall;
|
|
// FindWindowSW : Find the window based on the location
|
|
function FindWindowSW(var pvarloc:OleVariant;var pvarlocRoot:OleVariant;swClass:SYSINT;out pHWND:Integer;swfwOptions:SYSINT):IDispatch;safecall;
|
|
// OnCreated : Notifies on creation and frame name set
|
|
procedure OnCreated(lCookie:Integer;punk:IUnknown);safecall;
|
|
// ProcessAttachDetach : Used by IExplore to register different processes
|
|
procedure ProcessAttachDetach(fAttach:WordBool);safecall;
|
|
// Count : Get count of open Shell windows
|
|
property Count:Integer read Get_Count;
|
|
end;
|
|
|
|
|
|
// IShellWindows : Definition of interface IShellWindows
|
|
|
|
IShellWindowsDisp = dispinterface
|
|
['{85CB6900-4D95-11CF-960C-0080C7F4EE85}']
|
|
// Item : Return the shell window for the given index
|
|
function Item(index:OleVariant):IDispatch;dispid 0;
|
|
// _NewEnum : Enumerates the figures
|
|
function _NewEnum:IUnknown;dispid -4;
|
|
// Register : Register a window with the list
|
|
procedure Register(pid:IDispatch;HWND:Integer;swClass:SYSINT;out plCookie:Integer);dispid 1610743811;
|
|
// RegisterPending : Register a pending open with the list
|
|
procedure RegisterPending(lThreadId:Integer;var pvarloc:OleVariant;var pvarlocRoot:OleVariant;swClass:SYSINT;out plCookie:Integer);dispid 1610743812;
|
|
// Revoke : Remove a window from the list
|
|
procedure Revoke(lCookie:Integer);dispid 1610743813;
|
|
// OnNavigate : Notifies the new location
|
|
procedure OnNavigate(lCookie:Integer;var pvarloc:OleVariant);dispid 1610743814;
|
|
// OnActivated : Notifies the activation
|
|
procedure OnActivated(lCookie:Integer;fActive:WordBool);dispid 1610743815;
|
|
// FindWindowSW : Find the window based on the location
|
|
function FindWindowSW(var pvarloc:OleVariant;var pvarlocRoot:OleVariant;swClass:SYSINT;out pHWND:Integer;swfwOptions:SYSINT):IDispatch;dispid 1610743816;
|
|
// OnCreated : Notifies on creation and frame name set
|
|
procedure OnCreated(lCookie:Integer;punk:IUnknown);dispid 1610743817;
|
|
// ProcessAttachDetach : Used by IExplore to register different processes
|
|
procedure ProcessAttachDetach(fAttach:WordBool);dispid 1610743818;
|
|
// Count : Get count of open Shell windows
|
|
property Count:Integer readonly dispid 1610743808;
|
|
end;
|
|
|
|
|
|
// IShellUIHelper : Shell UI Helper Control Interface
|
|
|
|
IShellUIHelper = interface(IDispatch)
|
|
['{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}']
|
|
// ResetFirstBootMode :
|
|
procedure ResetFirstBootMode;safecall;
|
|
// ResetSafeMode :
|
|
procedure ResetSafeMode;safecall;
|
|
// RefreshOfflineDesktop :
|
|
procedure RefreshOfflineDesktop;safecall;
|
|
// AddFavorite :
|
|
procedure AddFavorite(URL:WideString;var Title:OleVariant);safecall;
|
|
// AddChannel :
|
|
procedure AddChannel(URL:WideString);safecall;
|
|
// AddDesktopComponent :
|
|
procedure AddDesktopComponent(URL:WideString;Type_:WideString;var Left:OleVariant;var Top:OleVariant;var Width:OleVariant;var Height:OleVariant);safecall;
|
|
// IsSubscribed :
|
|
function IsSubscribed(URL:WideString):WordBool;safecall;
|
|
// NavigateAndFind :
|
|
procedure NavigateAndFind(URL:WideString;strQuery:WideString;var varTargetFrame:OleVariant);safecall;
|
|
// ImportExportFavorites :
|
|
procedure ImportExportFavorites(fImport:WordBool;strImpExpPath:WideString);safecall;
|
|
// AutoCompleteSaveForm :
|
|
procedure AutoCompleteSaveForm(var Form:OleVariant);safecall;
|
|
// AutoScan :
|
|
procedure AutoScan(strSearch:WideString;strFailureUrl:WideString;var pvarTargetFrame:OleVariant);safecall;
|
|
// AutoCompleteAttach :
|
|
procedure AutoCompleteAttach(var Reserved:OleVariant);safecall;
|
|
// ShowBrowserUI :
|
|
function ShowBrowserUI(bstrName:WideString;var pvarIn:OleVariant):OleVariant;safecall;
|
|
end;
|
|
|
|
|
|
// IShellUIHelper : Shell UI Helper Control Interface
|
|
|
|
IShellUIHelperDisp = dispinterface
|
|
['{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}']
|
|
// ResetFirstBootMode :
|
|
procedure ResetFirstBootMode;dispid 1;
|
|
// ResetSafeMode :
|
|
procedure ResetSafeMode;dispid 2;
|
|
// RefreshOfflineDesktop :
|
|
procedure RefreshOfflineDesktop;dispid 3;
|
|
// AddFavorite :
|
|
procedure AddFavorite(URL:WideString;var Title:OleVariant);dispid 4;
|
|
// AddChannel :
|
|
procedure AddChannel(URL:WideString);dispid 5;
|
|
// AddDesktopComponent :
|
|
procedure AddDesktopComponent(URL:WideString;Type_:WideString;var Left:OleVariant;var Top:OleVariant;var Width:OleVariant;var Height:OleVariant);dispid 6;
|
|
// IsSubscribed :
|
|
function IsSubscribed(URL:WideString):WordBool;dispid 7;
|
|
// NavigateAndFind :
|
|
procedure NavigateAndFind(URL:WideString;strQuery:WideString;var varTargetFrame:OleVariant);dispid 8;
|
|
// ImportExportFavorites :
|
|
procedure ImportExportFavorites(fImport:WordBool;strImpExpPath:WideString);dispid 9;
|
|
// AutoCompleteSaveForm :
|
|
procedure AutoCompleteSaveForm(var Form:OleVariant);dispid 10;
|
|
// AutoScan :
|
|
procedure AutoScan(strSearch:WideString;strFailureUrl:WideString;var pvarTargetFrame:OleVariant);dispid 11;
|
|
// AutoCompleteAttach :
|
|
procedure AutoCompleteAttach(var Reserved:OleVariant);dispid 12;
|
|
// ShowBrowserUI :
|
|
function ShowBrowserUI(bstrName:WideString;var pvarIn:OleVariant):OleVariant;dispid 13;
|
|
end;
|
|
|
|
|
|
// IShellUIHelper2 : Shell UI Helper Control Interface 2
|
|
|
|
IShellUIHelper2 = interface(IShellUIHelper)
|
|
['{A7FE6EDA-1932-4281-B881-87B31B8BC52C}']
|
|
// AddSearchProvider :
|
|
procedure AddSearchProvider(URL:WideString);safecall;
|
|
// RunOnceShown :
|
|
procedure RunOnceShown;safecall;
|
|
// SkipRunOnce :
|
|
procedure SkipRunOnce;safecall;
|
|
// CustomizeSettings :
|
|
procedure CustomizeSettings(fSQM:WordBool;fPhishing:WordBool;bstrLocale:WideString);safecall;
|
|
// SqmEnabled :
|
|
function SqmEnabled:WordBool;safecall;
|
|
// PhishingEnabled :
|
|
function PhishingEnabled:WordBool;safecall;
|
|
// BrandImageUri :
|
|
function BrandImageUri:WideString;safecall;
|
|
// SkipTabsWelcome :
|
|
procedure SkipTabsWelcome;safecall;
|
|
// DiagnoseConnection :
|
|
procedure DiagnoseConnection;safecall;
|
|
// CustomizeClearType :
|
|
procedure CustomizeClearType(fSet:WordBool);safecall;
|
|
// IsSearchProviderInstalled :
|
|
function IsSearchProviderInstalled(URL:WideString):LongWord;safecall;
|
|
// IsSearchMigrated :
|
|
function IsSearchMigrated:WordBool;safecall;
|
|
// DefaultSearchProvider :
|
|
function DefaultSearchProvider:WideString;safecall;
|
|
// RunOnceRequiredSettingsComplete :
|
|
procedure RunOnceRequiredSettingsComplete(fComplete:WordBool);safecall;
|
|
// RunOnceHasShown :
|
|
function RunOnceHasShown:WordBool;safecall;
|
|
// SearchGuideUrl :
|
|
function SearchGuideUrl:WideString;safecall;
|
|
end;
|
|
|
|
|
|
// IShellUIHelper2 : Shell UI Helper Control Interface 2
|
|
|
|
IShellUIHelper2Disp = dispinterface
|
|
['{A7FE6EDA-1932-4281-B881-87B31B8BC52C}']
|
|
// ResetFirstBootMode :
|
|
procedure ResetFirstBootMode;dispid 1;
|
|
// ResetSafeMode :
|
|
procedure ResetSafeMode;dispid 2;
|
|
// RefreshOfflineDesktop :
|
|
procedure RefreshOfflineDesktop;dispid 3;
|
|
// AddFavorite :
|
|
procedure AddFavorite(URL:WideString;var Title:OleVariant);dispid 4;
|
|
// AddChannel :
|
|
procedure AddChannel(URL:WideString);dispid 5;
|
|
// AddDesktopComponent :
|
|
procedure AddDesktopComponent(URL:WideString;Type_:WideString;var Left:OleVariant;var Top:OleVariant;var Width:OleVariant;var Height:OleVariant);dispid 6;
|
|
// IsSubscribed :
|
|
function IsSubscribed(URL:WideString):WordBool;dispid 7;
|
|
// NavigateAndFind :
|
|
procedure NavigateAndFind(URL:WideString;strQuery:WideString;var varTargetFrame:OleVariant);dispid 8;
|
|
// ImportExportFavorites :
|
|
procedure ImportExportFavorites(fImport:WordBool;strImpExpPath:WideString);dispid 9;
|
|
// AutoCompleteSaveForm :
|
|
procedure AutoCompleteSaveForm(var Form:OleVariant);dispid 10;
|
|
// AutoScan :
|
|
procedure AutoScan(strSearch:WideString;strFailureUrl:WideString;var pvarTargetFrame:OleVariant);dispid 11;
|
|
// AutoCompleteAttach :
|
|
procedure AutoCompleteAttach(var Reserved:OleVariant);dispid 12;
|
|
// ShowBrowserUI :
|
|
function ShowBrowserUI(bstrName:WideString;var pvarIn:OleVariant):OleVariant;dispid 13;
|
|
// AddSearchProvider :
|
|
procedure AddSearchProvider(URL:WideString);dispid 14;
|
|
// RunOnceShown :
|
|
procedure RunOnceShown;dispid 15;
|
|
// SkipRunOnce :
|
|
procedure SkipRunOnce;dispid 16;
|
|
// CustomizeSettings :
|
|
procedure CustomizeSettings(fSQM:WordBool;fPhishing:WordBool;bstrLocale:WideString);dispid 17;
|
|
// SqmEnabled :
|
|
function SqmEnabled:WordBool;dispid 18;
|
|
// PhishingEnabled :
|
|
function PhishingEnabled:WordBool;dispid 19;
|
|
// BrandImageUri :
|
|
function BrandImageUri:WideString;dispid 20;
|
|
// SkipTabsWelcome :
|
|
procedure SkipTabsWelcome;dispid 21;
|
|
// DiagnoseConnection :
|
|
procedure DiagnoseConnection;dispid 22;
|
|
// CustomizeClearType :
|
|
procedure CustomizeClearType(fSet:WordBool);dispid 23;
|
|
// IsSearchProviderInstalled :
|
|
function IsSearchProviderInstalled(URL:WideString):LongWord;dispid 24;
|
|
// IsSearchMigrated :
|
|
function IsSearchMigrated:WordBool;dispid 25;
|
|
// DefaultSearchProvider :
|
|
function DefaultSearchProvider:WideString;dispid 26;
|
|
// RunOnceRequiredSettingsComplete :
|
|
procedure RunOnceRequiredSettingsComplete(fComplete:WordBool);dispid 27;
|
|
// RunOnceHasShown :
|
|
function RunOnceHasShown:WordBool;dispid 28;
|
|
// SearchGuideUrl :
|
|
function SearchGuideUrl:WideString;dispid 29;
|
|
end;
|
|
|
|
|
|
// IShellUIHelper3 : Shell UI Helper Control Interface 3
|
|
|
|
IShellUIHelper3 = interface(IShellUIHelper2)
|
|
['{528DF2EC-D419-40BC-9B6D-DCDBF9C1B25D}']
|
|
// AddService :
|
|
procedure AddService(URL:WideString);safecall;
|
|
// IsServiceInstalled :
|
|
function IsServiceInstalled(URL:WideString;Verb:WideString):LongWord;safecall;
|
|
// InPrivateFilteringEnabled :
|
|
function InPrivateFilteringEnabled:WordBool;safecall;
|
|
// AddToFavoritesBar :
|
|
procedure AddToFavoritesBar(URL:WideString;Title:WideString;var Type_:OleVariant);safecall;
|
|
// BuildNewTabPage :
|
|
procedure BuildNewTabPage;safecall;
|
|
// SetRecentlyClosedVisible :
|
|
procedure SetRecentlyClosedVisible(fVisible:WordBool);safecall;
|
|
// SetActivitiesVisible :
|
|
procedure SetActivitiesVisible(fVisible:WordBool);safecall;
|
|
// ContentDiscoveryReset :
|
|
procedure ContentDiscoveryReset;safecall;
|
|
// IsSuggestedSitesEnabled :
|
|
function IsSuggestedSitesEnabled:WordBool;safecall;
|
|
// EnableSuggestedSites :
|
|
procedure EnableSuggestedSites(fEnable:WordBool);safecall;
|
|
// NavigateToSuggestedSites :
|
|
procedure NavigateToSuggestedSites(bstrRelativeUrl:WideString);safecall;
|
|
// ShowTabsHelp :
|
|
procedure ShowTabsHelp;safecall;
|
|
// ShowInPrivateHelp :
|
|
procedure ShowInPrivateHelp;safecall;
|
|
end;
|
|
|
|
|
|
// IShellUIHelper3 : Shell UI Helper Control Interface 3
|
|
|
|
IShellUIHelper3Disp = dispinterface
|
|
['{528DF2EC-D419-40BC-9B6D-DCDBF9C1B25D}']
|
|
// ResetFirstBootMode :
|
|
procedure ResetFirstBootMode;dispid 1;
|
|
// ResetSafeMode :
|
|
procedure ResetSafeMode;dispid 2;
|
|
// RefreshOfflineDesktop :
|
|
procedure RefreshOfflineDesktop;dispid 3;
|
|
// AddFavorite :
|
|
procedure AddFavorite(URL:WideString;var Title:OleVariant);dispid 4;
|
|
// AddChannel :
|
|
procedure AddChannel(URL:WideString);dispid 5;
|
|
// AddDesktopComponent :
|
|
procedure AddDesktopComponent(URL:WideString;Type_:WideString;var Left:OleVariant;var Top:OleVariant;var Width:OleVariant;var Height:OleVariant);dispid 6;
|
|
// IsSubscribed :
|
|
function IsSubscribed(URL:WideString):WordBool;dispid 7;
|
|
// NavigateAndFind :
|
|
procedure NavigateAndFind(URL:WideString;strQuery:WideString;var varTargetFrame:OleVariant);dispid 8;
|
|
// ImportExportFavorites :
|
|
procedure ImportExportFavorites(fImport:WordBool;strImpExpPath:WideString);dispid 9;
|
|
// AutoCompleteSaveForm :
|
|
procedure AutoCompleteSaveForm(var Form:OleVariant);dispid 10;
|
|
// AutoScan :
|
|
procedure AutoScan(strSearch:WideString;strFailureUrl:WideString;var pvarTargetFrame:OleVariant);dispid 11;
|
|
// AutoCompleteAttach :
|
|
procedure AutoCompleteAttach(var Reserved:OleVariant);dispid 12;
|
|
// ShowBrowserUI :
|
|
function ShowBrowserUI(bstrName:WideString;var pvarIn:OleVariant):OleVariant;dispid 13;
|
|
// AddSearchProvider :
|
|
procedure AddSearchProvider(URL:WideString);dispid 14;
|
|
// RunOnceShown :
|
|
procedure RunOnceShown;dispid 15;
|
|
// SkipRunOnce :
|
|
procedure SkipRunOnce;dispid 16;
|
|
// CustomizeSettings :
|
|
procedure CustomizeSettings(fSQM:WordBool;fPhishing:WordBool;bstrLocale:WideString);dispid 17;
|
|
// SqmEnabled :
|
|
function SqmEnabled:WordBool;dispid 18;
|
|
// PhishingEnabled :
|
|
function PhishingEnabled:WordBool;dispid 19;
|
|
// BrandImageUri :
|
|
function BrandImageUri:WideString;dispid 20;
|
|
// SkipTabsWelcome :
|
|
procedure SkipTabsWelcome;dispid 21;
|
|
// DiagnoseConnection :
|
|
procedure DiagnoseConnection;dispid 22;
|
|
// CustomizeClearType :
|
|
procedure CustomizeClearType(fSet:WordBool);dispid 23;
|
|
// IsSearchProviderInstalled :
|
|
function IsSearchProviderInstalled(URL:WideString):LongWord;dispid 24;
|
|
// IsSearchMigrated :
|
|
function IsSearchMigrated:WordBool;dispid 25;
|
|
// DefaultSearchProvider :
|
|
function DefaultSearchProvider:WideString;dispid 26;
|
|
// RunOnceRequiredSettingsComplete :
|
|
procedure RunOnceRequiredSettingsComplete(fComplete:WordBool);dispid 27;
|
|
// RunOnceHasShown :
|
|
function RunOnceHasShown:WordBool;dispid 28;
|
|
// SearchGuideUrl :
|
|
function SearchGuideUrl:WideString;dispid 29;
|
|
// AddService :
|
|
procedure AddService(URL:WideString);dispid 30;
|
|
// IsServiceInstalled :
|
|
function IsServiceInstalled(URL:WideString;Verb:WideString):LongWord;dispid 31;
|
|
// InPrivateFilteringEnabled :
|
|
function InPrivateFilteringEnabled:WordBool;dispid 37;
|
|
// AddToFavoritesBar :
|
|
procedure AddToFavoritesBar(URL:WideString;Title:WideString;var Type_:OleVariant);dispid 32;
|
|
// BuildNewTabPage :
|
|
procedure BuildNewTabPage;dispid 33;
|
|
// SetRecentlyClosedVisible :
|
|
procedure SetRecentlyClosedVisible(fVisible:WordBool);dispid 34;
|
|
// SetActivitiesVisible :
|
|
procedure SetActivitiesVisible(fVisible:WordBool);dispid 35;
|
|
// ContentDiscoveryReset :
|
|
procedure ContentDiscoveryReset;dispid 36;
|
|
// IsSuggestedSitesEnabled :
|
|
function IsSuggestedSitesEnabled:WordBool;dispid 38;
|
|
// EnableSuggestedSites :
|
|
procedure EnableSuggestedSites(fEnable:WordBool);dispid 39;
|
|
// NavigateToSuggestedSites :
|
|
procedure NavigateToSuggestedSites(bstrRelativeUrl:WideString);dispid 40;
|
|
// ShowTabsHelp :
|
|
procedure ShowTabsHelp;dispid 41;
|
|
// ShowInPrivateHelp :
|
|
procedure ShowInPrivateHelp;dispid 42;
|
|
end;
|
|
|
|
|
|
// IShellUIHelper4 : Shell UI Helper Control Interface 4
|
|
|
|
IShellUIHelper4 = interface(IShellUIHelper3)
|
|
['{B36E6A53-8073-499E-824C-D776330A333E}']
|
|
// msIsSiteMode :
|
|
function msIsSiteMode:WordBool;safecall;
|
|
// msSiteModeShowThumbBar :
|
|
procedure msSiteModeShowThumbBar;safecall;
|
|
// msSiteModeAddThumbBarButton :
|
|
function msSiteModeAddThumbBarButton(bstrIconURL:WideString;bstrTooltip:WideString):OleVariant;safecall;
|
|
// msSiteModeUpdateThumbBarButton :
|
|
procedure msSiteModeUpdateThumbBarButton(ButtonID:OleVariant;fEnabled:WordBool;fVisible:WordBool);safecall;
|
|
// msSiteModeSetIconOverlay :
|
|
procedure msSiteModeSetIconOverlay(IconUrl:WideString;var pvarDescription:OleVariant);safecall;
|
|
// msSiteModeClearIconOverlay :
|
|
procedure msSiteModeClearIconOverlay;safecall;
|
|
// msAddSiteMode :
|
|
procedure msAddSiteMode;safecall;
|
|
// msSiteModeCreateJumpList :
|
|
procedure msSiteModeCreateJumpList(bstrHeader:WideString);safecall;
|
|
// msSiteModeAddJumpListItem :
|
|
procedure msSiteModeAddJumpListItem(bstrName:WideString;bstrActionUri:WideString;bstrIconUri:WideString;var pvarWindowType:OleVariant);safecall;
|
|
// msSiteModeClearJumpList :
|
|
procedure msSiteModeClearJumpList;safecall;
|
|
// msSiteModeShowJumpList :
|
|
procedure msSiteModeShowJumpList;safecall;
|
|
// msSiteModeAddButtonStyle :
|
|
function msSiteModeAddButtonStyle(uiButtonID:OleVariant;bstrIconURL:WideString;bstrTooltip:WideString):OleVariant;safecall;
|
|
// msSiteModeShowButtonStyle :
|
|
procedure msSiteModeShowButtonStyle(uiButtonID:OleVariant;uiStyleID:OleVariant);safecall;
|
|
// msSiteModeActivate :
|
|
procedure msSiteModeActivate;safecall;
|
|
// msIsSiteModeFirstRun :
|
|
function msIsSiteModeFirstRun(fPreserveState:WordBool):OleVariant;safecall;
|
|
// msAddTrackingProtectionList :
|
|
procedure msAddTrackingProtectionList(URL:WideString;bstrFilterName:WideString);safecall;
|
|
// msTrackingProtectionEnabled :
|
|
function msTrackingProtectionEnabled:WordBool;safecall;
|
|
// msActiveXFilteringEnabled :
|
|
function msActiveXFilteringEnabled:WordBool;safecall;
|
|
end;
|
|
|
|
|
|
// IShellUIHelper4 : Shell UI Helper Control Interface 4
|
|
|
|
IShellUIHelper4Disp = dispinterface
|
|
['{B36E6A53-8073-499E-824C-D776330A333E}']
|
|
// ResetFirstBootMode :
|
|
procedure ResetFirstBootMode;dispid 1;
|
|
// ResetSafeMode :
|
|
procedure ResetSafeMode;dispid 2;
|
|
// RefreshOfflineDesktop :
|
|
procedure RefreshOfflineDesktop;dispid 3;
|
|
// AddFavorite :
|
|
procedure AddFavorite(URL:WideString;var Title:OleVariant);dispid 4;
|
|
// AddChannel :
|
|
procedure AddChannel(URL:WideString);dispid 5;
|
|
// AddDesktopComponent :
|
|
procedure AddDesktopComponent(URL:WideString;Type_:WideString;var Left:OleVariant;var Top:OleVariant;var Width:OleVariant;var Height:OleVariant);dispid 6;
|
|
// IsSubscribed :
|
|
function IsSubscribed(URL:WideString):WordBool;dispid 7;
|
|
// NavigateAndFind :
|
|
procedure NavigateAndFind(URL:WideString;strQuery:WideString;var varTargetFrame:OleVariant);dispid 8;
|
|
// ImportExportFavorites :
|
|
procedure ImportExportFavorites(fImport:WordBool;strImpExpPath:WideString);dispid 9;
|
|
// AutoCompleteSaveForm :
|
|
procedure AutoCompleteSaveForm(var Form:OleVariant);dispid 10;
|
|
// AutoScan :
|
|
procedure AutoScan(strSearch:WideString;strFailureUrl:WideString;var pvarTargetFrame:OleVariant);dispid 11;
|
|
// AutoCompleteAttach :
|
|
procedure AutoCompleteAttach(var Reserved:OleVariant);dispid 12;
|
|
// ShowBrowserUI :
|
|
function ShowBrowserUI(bstrName:WideString;var pvarIn:OleVariant):OleVariant;dispid 13;
|
|
// AddSearchProvider :
|
|
procedure AddSearchProvider(URL:WideString);dispid 14;
|
|
// RunOnceShown :
|
|
procedure RunOnceShown;dispid 15;
|
|
// SkipRunOnce :
|
|
procedure SkipRunOnce;dispid 16;
|
|
// CustomizeSettings :
|
|
procedure CustomizeSettings(fSQM:WordBool;fPhishing:WordBool;bstrLocale:WideString);dispid 17;
|
|
// SqmEnabled :
|
|
function SqmEnabled:WordBool;dispid 18;
|
|
// PhishingEnabled :
|
|
function PhishingEnabled:WordBool;dispid 19;
|
|
// BrandImageUri :
|
|
function BrandImageUri:WideString;dispid 20;
|
|
// SkipTabsWelcome :
|
|
procedure SkipTabsWelcome;dispid 21;
|
|
// DiagnoseConnection :
|
|
procedure DiagnoseConnection;dispid 22;
|
|
// CustomizeClearType :
|
|
procedure CustomizeClearType(fSet:WordBool);dispid 23;
|
|
// IsSearchProviderInstalled :
|
|
function IsSearchProviderInstalled(URL:WideString):LongWord;dispid 24;
|
|
// IsSearchMigrated :
|
|
function IsSearchMigrated:WordBool;dispid 25;
|
|
// DefaultSearchProvider :
|
|
function DefaultSearchProvider:WideString;dispid 26;
|
|
// RunOnceRequiredSettingsComplete :
|
|
procedure RunOnceRequiredSettingsComplete(fComplete:WordBool);dispid 27;
|
|
// RunOnceHasShown :
|
|
function RunOnceHasShown:WordBool;dispid 28;
|
|
// SearchGuideUrl :
|
|
function SearchGuideUrl:WideString;dispid 29;
|
|
// AddService :
|
|
procedure AddService(URL:WideString);dispid 30;
|
|
// IsServiceInstalled :
|
|
function IsServiceInstalled(URL:WideString;Verb:WideString):LongWord;dispid 31;
|
|
// InPrivateFilteringEnabled :
|
|
function InPrivateFilteringEnabled:WordBool;dispid 37;
|
|
// AddToFavoritesBar :
|
|
procedure AddToFavoritesBar(URL:WideString;Title:WideString;var Type_:OleVariant);dispid 32;
|
|
// BuildNewTabPage :
|
|
procedure BuildNewTabPage;dispid 33;
|
|
// SetRecentlyClosedVisible :
|
|
procedure SetRecentlyClosedVisible(fVisible:WordBool);dispid 34;
|
|
// SetActivitiesVisible :
|
|
procedure SetActivitiesVisible(fVisible:WordBool);dispid 35;
|
|
// ContentDiscoveryReset :
|
|
procedure ContentDiscoveryReset;dispid 36;
|
|
// IsSuggestedSitesEnabled :
|
|
function IsSuggestedSitesEnabled:WordBool;dispid 38;
|
|
// EnableSuggestedSites :
|
|
procedure EnableSuggestedSites(fEnable:WordBool);dispid 39;
|
|
// NavigateToSuggestedSites :
|
|
procedure NavigateToSuggestedSites(bstrRelativeUrl:WideString);dispid 40;
|
|
// ShowTabsHelp :
|
|
procedure ShowTabsHelp;dispid 41;
|
|
// ShowInPrivateHelp :
|
|
procedure ShowInPrivateHelp;dispid 42;
|
|
// msIsSiteMode :
|
|
function msIsSiteMode:WordBool;dispid 43;
|
|
// msSiteModeShowThumbBar :
|
|
procedure msSiteModeShowThumbBar;dispid 47;
|
|
// msSiteModeAddThumbBarButton :
|
|
function msSiteModeAddThumbBarButton(bstrIconURL:WideString;bstrTooltip:WideString):OleVariant;dispid 48;
|
|
// msSiteModeUpdateThumbBarButton :
|
|
procedure msSiteModeUpdateThumbBarButton(ButtonID:OleVariant;fEnabled:WordBool;fVisible:WordBool);dispid 46;
|
|
// msSiteModeSetIconOverlay :
|
|
procedure msSiteModeSetIconOverlay(IconUrl:WideString;var pvarDescription:OleVariant);dispid 44;
|
|
// msSiteModeClearIconOverlay :
|
|
procedure msSiteModeClearIconOverlay;dispid 45;
|
|
// msAddSiteMode :
|
|
procedure msAddSiteMode;dispid 49;
|
|
// msSiteModeCreateJumpList :
|
|
procedure msSiteModeCreateJumpList(bstrHeader:WideString);dispid 51;
|
|
// msSiteModeAddJumpListItem :
|
|
procedure msSiteModeAddJumpListItem(bstrName:WideString;bstrActionUri:WideString;bstrIconUri:WideString;var pvarWindowType:OleVariant);dispid 52;
|
|
// msSiteModeClearJumpList :
|
|
procedure msSiteModeClearJumpList;dispid 53;
|
|
// msSiteModeShowJumpList :
|
|
procedure msSiteModeShowJumpList;dispid 56;
|
|
// msSiteModeAddButtonStyle :
|
|
function msSiteModeAddButtonStyle(uiButtonID:OleVariant;bstrIconURL:WideString;bstrTooltip:WideString):OleVariant;dispid 54;
|
|
// msSiteModeShowButtonStyle :
|
|
procedure msSiteModeShowButtonStyle(uiButtonID:OleVariant;uiStyleID:OleVariant);dispid 55;
|
|
// msSiteModeActivate :
|
|
procedure msSiteModeActivate;dispid 58;
|
|
// msIsSiteModeFirstRun :
|
|
function msIsSiteModeFirstRun(fPreserveState:WordBool):OleVariant;dispid 59;
|
|
// msAddTrackingProtectionList :
|
|
procedure msAddTrackingProtectionList(URL:WideString;bstrFilterName:WideString);dispid 57;
|
|
// msTrackingProtectionEnabled :
|
|
function msTrackingProtectionEnabled:WordBool;dispid 60;
|
|
// msActiveXFilteringEnabled :
|
|
function msActiveXFilteringEnabled:WordBool;dispid 61;
|
|
end;
|
|
|
|
|
|
// IShellUIHelper5 : Shell UI Helper Control Interface 5
|
|
|
|
IShellUIHelper5 = interface(IShellUIHelper4)
|
|
['{A2A08B09-103D-4D3F-B91C-EA455CA82EFA}']
|
|
// msProvisionNetworks :
|
|
function msProvisionNetworks(bstrProvisioningXml:WideString):OleVariant;safecall;
|
|
// msReportSafeUrl :
|
|
procedure msReportSafeUrl;safecall;
|
|
// msSiteModeRefreshBadge :
|
|
procedure msSiteModeRefreshBadge;safecall;
|
|
// msSiteModeClearBadge :
|
|
procedure msSiteModeClearBadge;safecall;
|
|
// msDiagnoseConnectionUILess :
|
|
procedure msDiagnoseConnectionUILess;safecall;
|
|
// msLaunchNetworkClientHelp :
|
|
procedure msLaunchNetworkClientHelp;safecall;
|
|
// msChangeDefaultBrowser :
|
|
procedure msChangeDefaultBrowser(fChange:WordBool);safecall;
|
|
end;
|
|
|
|
|
|
// IShellUIHelper5 : Shell UI Helper Control Interface 5
|
|
|
|
IShellUIHelper5Disp = dispinterface
|
|
['{A2A08B09-103D-4D3F-B91C-EA455CA82EFA}']
|
|
// ResetFirstBootMode :
|
|
procedure ResetFirstBootMode;dispid 1;
|
|
// ResetSafeMode :
|
|
procedure ResetSafeMode;dispid 2;
|
|
// RefreshOfflineDesktop :
|
|
procedure RefreshOfflineDesktop;dispid 3;
|
|
// AddFavorite :
|
|
procedure AddFavorite(URL:WideString;var Title:OleVariant);dispid 4;
|
|
// AddChannel :
|
|
procedure AddChannel(URL:WideString);dispid 5;
|
|
// AddDesktopComponent :
|
|
procedure AddDesktopComponent(URL:WideString;Type_:WideString;var Left:OleVariant;var Top:OleVariant;var Width:OleVariant;var Height:OleVariant);dispid 6;
|
|
// IsSubscribed :
|
|
function IsSubscribed(URL:WideString):WordBool;dispid 7;
|
|
// NavigateAndFind :
|
|
procedure NavigateAndFind(URL:WideString;strQuery:WideString;var varTargetFrame:OleVariant);dispid 8;
|
|
// ImportExportFavorites :
|
|
procedure ImportExportFavorites(fImport:WordBool;strImpExpPath:WideString);dispid 9;
|
|
// AutoCompleteSaveForm :
|
|
procedure AutoCompleteSaveForm(var Form:OleVariant);dispid 10;
|
|
// AutoScan :
|
|
procedure AutoScan(strSearch:WideString;strFailureUrl:WideString;var pvarTargetFrame:OleVariant);dispid 11;
|
|
// AutoCompleteAttach :
|
|
procedure AutoCompleteAttach(var Reserved:OleVariant);dispid 12;
|
|
// ShowBrowserUI :
|
|
function ShowBrowserUI(bstrName:WideString;var pvarIn:OleVariant):OleVariant;dispid 13;
|
|
// AddSearchProvider :
|
|
procedure AddSearchProvider(URL:WideString);dispid 14;
|
|
// RunOnceShown :
|
|
procedure RunOnceShown;dispid 15;
|
|
// SkipRunOnce :
|
|
procedure SkipRunOnce;dispid 16;
|
|
// CustomizeSettings :
|
|
procedure CustomizeSettings(fSQM:WordBool;fPhishing:WordBool;bstrLocale:WideString);dispid 17;
|
|
// SqmEnabled :
|
|
function SqmEnabled:WordBool;dispid 18;
|
|
// PhishingEnabled :
|
|
function PhishingEnabled:WordBool;dispid 19;
|
|
// BrandImageUri :
|
|
function BrandImageUri:WideString;dispid 20;
|
|
// SkipTabsWelcome :
|
|
procedure SkipTabsWelcome;dispid 21;
|
|
// DiagnoseConnection :
|
|
procedure DiagnoseConnection;dispid 22;
|
|
// CustomizeClearType :
|
|
procedure CustomizeClearType(fSet:WordBool);dispid 23;
|
|
// IsSearchProviderInstalled :
|
|
function IsSearchProviderInstalled(URL:WideString):LongWord;dispid 24;
|
|
// IsSearchMigrated :
|
|
function IsSearchMigrated:WordBool;dispid 25;
|
|
// DefaultSearchProvider :
|
|
function DefaultSearchProvider:WideString;dispid 26;
|
|
// RunOnceRequiredSettingsComplete :
|
|
procedure RunOnceRequiredSettingsComplete(fComplete:WordBool);dispid 27;
|
|
// RunOnceHasShown :
|
|
function RunOnceHasShown:WordBool;dispid 28;
|
|
// SearchGuideUrl :
|
|
function SearchGuideUrl:WideString;dispid 29;
|
|
// AddService :
|
|
procedure AddService(URL:WideString);dispid 30;
|
|
// IsServiceInstalled :
|
|
function IsServiceInstalled(URL:WideString;Verb:WideString):LongWord;dispid 31;
|
|
// InPrivateFilteringEnabled :
|
|
function InPrivateFilteringEnabled:WordBool;dispid 37;
|
|
// AddToFavoritesBar :
|
|
procedure AddToFavoritesBar(URL:WideString;Title:WideString;var Type_:OleVariant);dispid 32;
|
|
// BuildNewTabPage :
|
|
procedure BuildNewTabPage;dispid 33;
|
|
// SetRecentlyClosedVisible :
|
|
procedure SetRecentlyClosedVisible(fVisible:WordBool);dispid 34;
|
|
// SetActivitiesVisible :
|
|
procedure SetActivitiesVisible(fVisible:WordBool);dispid 35;
|
|
// ContentDiscoveryReset :
|
|
procedure ContentDiscoveryReset;dispid 36;
|
|
// IsSuggestedSitesEnabled :
|
|
function IsSuggestedSitesEnabled:WordBool;dispid 38;
|
|
// EnableSuggestedSites :
|
|
procedure EnableSuggestedSites(fEnable:WordBool);dispid 39;
|
|
// NavigateToSuggestedSites :
|
|
procedure NavigateToSuggestedSites(bstrRelativeUrl:WideString);dispid 40;
|
|
// ShowTabsHelp :
|
|
procedure ShowTabsHelp;dispid 41;
|
|
// ShowInPrivateHelp :
|
|
procedure ShowInPrivateHelp;dispid 42;
|
|
// msIsSiteMode :
|
|
function msIsSiteMode:WordBool;dispid 43;
|
|
// msSiteModeShowThumbBar :
|
|
procedure msSiteModeShowThumbBar;dispid 47;
|
|
// msSiteModeAddThumbBarButton :
|
|
function msSiteModeAddThumbBarButton(bstrIconURL:WideString;bstrTooltip:WideString):OleVariant;dispid 48;
|
|
// msSiteModeUpdateThumbBarButton :
|
|
procedure msSiteModeUpdateThumbBarButton(ButtonID:OleVariant;fEnabled:WordBool;fVisible:WordBool);dispid 46;
|
|
// msSiteModeSetIconOverlay :
|
|
procedure msSiteModeSetIconOverlay(IconUrl:WideString;var pvarDescription:OleVariant);dispid 44;
|
|
// msSiteModeClearIconOverlay :
|
|
procedure msSiteModeClearIconOverlay;dispid 45;
|
|
// msAddSiteMode :
|
|
procedure msAddSiteMode;dispid 49;
|
|
// msSiteModeCreateJumpList :
|
|
procedure msSiteModeCreateJumpList(bstrHeader:WideString);dispid 51;
|
|
// msSiteModeAddJumpListItem :
|
|
procedure msSiteModeAddJumpListItem(bstrName:WideString;bstrActionUri:WideString;bstrIconUri:WideString;var pvarWindowType:OleVariant);dispid 52;
|
|
// msSiteModeClearJumpList :
|
|
procedure msSiteModeClearJumpList;dispid 53;
|
|
// msSiteModeShowJumpList :
|
|
procedure msSiteModeShowJumpList;dispid 56;
|
|
// msSiteModeAddButtonStyle :
|
|
function msSiteModeAddButtonStyle(uiButtonID:OleVariant;bstrIconURL:WideString;bstrTooltip:WideString):OleVariant;dispid 54;
|
|
// msSiteModeShowButtonStyle :
|
|
procedure msSiteModeShowButtonStyle(uiButtonID:OleVariant;uiStyleID:OleVariant);dispid 55;
|
|
// msSiteModeActivate :
|
|
procedure msSiteModeActivate;dispid 58;
|
|
// msIsSiteModeFirstRun :
|
|
function msIsSiteModeFirstRun(fPreserveState:WordBool):OleVariant;dispid 59;
|
|
// msAddTrackingProtectionList :
|
|
procedure msAddTrackingProtectionList(URL:WideString;bstrFilterName:WideString);dispid 57;
|
|
// msTrackingProtectionEnabled :
|
|
function msTrackingProtectionEnabled:WordBool;dispid 60;
|
|
// msActiveXFilteringEnabled :
|
|
function msActiveXFilteringEnabled:WordBool;dispid 61;
|
|
// msProvisionNetworks :
|
|
function msProvisionNetworks(bstrProvisioningXml:WideString):OleVariant;dispid 62;
|
|
// msReportSafeUrl :
|
|
procedure msReportSafeUrl;dispid 63;
|
|
// msSiteModeRefreshBadge :
|
|
procedure msSiteModeRefreshBadge;dispid 64;
|
|
// msSiteModeClearBadge :
|
|
procedure msSiteModeClearBadge;dispid 65;
|
|
// msDiagnoseConnectionUILess :
|
|
procedure msDiagnoseConnectionUILess;dispid 66;
|
|
// msLaunchNetworkClientHelp :
|
|
procedure msLaunchNetworkClientHelp;dispid 67;
|
|
// msChangeDefaultBrowser :
|
|
procedure msChangeDefaultBrowser(fChange:WordBool);dispid 68;
|
|
end;
|
|
|
|
|
|
// DShellNameSpaceEvents :
|
|
|
|
DShellNameSpaceEvents = dispinterface
|
|
['{55136806-B2DE-11D1-B9F2-00A0C98BC547}']
|
|
// FavoritesSelectionChange :
|
|
procedure FavoritesSelectionChange(cItems:Integer;hItem:Integer;strName:WideString;strUrl:WideString;cVisits:Integer;strDate:WideString;fAvailableOffline:Integer);dispid 1;
|
|
// SelectionChange :
|
|
procedure SelectionChange;dispid 2;
|
|
// DoubleClick :
|
|
procedure DoubleClick;dispid 3;
|
|
// Initialized :
|
|
procedure Initialized;dispid 4;
|
|
end;
|
|
|
|
|
|
// IShellFavoritesNameSpace : IShellFavoritesNameSpace Interface
|
|
|
|
IShellFavoritesNameSpace = interface(IDispatch)
|
|
['{55136804-B2DE-11D1-B9F2-00A0C98BC547}']
|
|
// MoveSelectionUp : method MoveSelectionUp
|
|
procedure MoveSelectionUp;safecall;
|
|
// MoveSelectionDown : method MoveSelectionDown
|
|
procedure MoveSelectionDown;safecall;
|
|
// ResetSort : method ResetSort
|
|
procedure ResetSort;safecall;
|
|
// NewFolder : method NewFolder
|
|
procedure NewFolder;safecall;
|
|
// Synchronize : method Synchronize
|
|
procedure Synchronize;safecall;
|
|
// Import : method Import
|
|
procedure Import;safecall;
|
|
// Export : method Export
|
|
procedure Export;safecall;
|
|
// InvokeContextMenuCommand : method InvokeContextMenuCommand
|
|
procedure InvokeContextMenuCommand(strCommand:WideString);safecall;
|
|
// MoveSelectionTo : method MoveSelectionTo
|
|
procedure MoveSelectionTo;safecall;
|
|
function Get_SubscriptionsEnabled : WordBool; safecall;
|
|
// CreateSubscriptionForSelection : method CreateSubscriptionForSelection
|
|
function CreateSubscriptionForSelection:WordBool;safecall;
|
|
// DeleteSubscriptionForSelection : method DeleteSubscriptionForSelection
|
|
function DeleteSubscriptionForSelection:WordBool;safecall;
|
|
// SetRoot : old, use put_Root() instead
|
|
procedure SetRoot(bstrFullPath:WideString);safecall;
|
|
// SubscriptionsEnabled : Query to see if subscriptions are enabled
|
|
property SubscriptionsEnabled:WordBool read Get_SubscriptionsEnabled;
|
|
end;
|
|
|
|
|
|
// IShellFavoritesNameSpace : IShellFavoritesNameSpace Interface
|
|
|
|
IShellFavoritesNameSpaceDisp = dispinterface
|
|
['{55136804-B2DE-11D1-B9F2-00A0C98BC547}']
|
|
// MoveSelectionUp : method MoveSelectionUp
|
|
procedure MoveSelectionUp;dispid 1;
|
|
// MoveSelectionDown : method MoveSelectionDown
|
|
procedure MoveSelectionDown;dispid 2;
|
|
// ResetSort : method ResetSort
|
|
procedure ResetSort;dispid 3;
|
|
// NewFolder : method NewFolder
|
|
procedure NewFolder;dispid 4;
|
|
// Synchronize : method Synchronize
|
|
procedure Synchronize;dispid 5;
|
|
// Import : method Import
|
|
procedure Import;dispid 6;
|
|
// Export : method Export
|
|
procedure Export;dispid 7;
|
|
// InvokeContextMenuCommand : method InvokeContextMenuCommand
|
|
procedure InvokeContextMenuCommand(strCommand:WideString);dispid 8;
|
|
// MoveSelectionTo : method MoveSelectionTo
|
|
procedure MoveSelectionTo;dispid 9;
|
|
// CreateSubscriptionForSelection : method CreateSubscriptionForSelection
|
|
function CreateSubscriptionForSelection:WordBool;dispid 11;
|
|
// DeleteSubscriptionForSelection : method DeleteSubscriptionForSelection
|
|
function DeleteSubscriptionForSelection:WordBool;dispid 12;
|
|
// SetRoot : old, use put_Root() instead
|
|
procedure SetRoot(bstrFullPath:WideString);dispid 13;
|
|
// SubscriptionsEnabled : Query to see if subscriptions are enabled
|
|
property SubscriptionsEnabled:WordBool readonly dispid 10;
|
|
end;
|
|
|
|
|
|
// IShellNameSpace : IShellNameSpace Interface
|
|
|
|
IShellNameSpace = interface(IShellFavoritesNameSpace)
|
|
['{E572D3C9-37BE-4AE2-825D-D521763E3108}']
|
|
function Get_EnumOptions : Integer; safecall;
|
|
procedure Set_EnumOptions(const pgrfEnumFlags:Integer); safecall;
|
|
function Get_SelectedItem : IDispatch; safecall;
|
|
procedure Set_SelectedItem(const pItem:IDispatch); safecall;
|
|
function Get_Root : OleVariant; safecall;
|
|
procedure Set_Root(const pvar:OleVariant); safecall;
|
|
function Get_Depth : SYSINT; safecall;
|
|
procedure Set_Depth(const piDepth:SYSINT); safecall;
|
|
function Get_Mode : UInt; safecall;
|
|
procedure Set_Mode(const puMode:UInt); safecall;
|
|
function Get_Flags : LongWord; safecall;
|
|
procedure Set_Flags(const pdwFlags:LongWord); safecall;
|
|
procedure Set_TVFlags(const 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;
|
|
// SetViewType : set view type
|
|
procedure SetViewType(iType:SYSINT);safecall;
|
|
// SelectedItems : collection of selected items
|
|
function SelectedItems:IDispatch;safecall;
|
|
// Expand : expands item specified depth
|
|
procedure Expand(var_:OleVariant;iDepth:SYSINT);safecall;
|
|
// UnselectAll : unselects all items
|
|
procedure UnselectAll;safecall;
|
|
// EnumOptions : options
|
|
property EnumOptions:Integer read Get_EnumOptions write Set_EnumOptions;
|
|
// SelectedItem : get the selected item
|
|
property SelectedItem:IDispatch read Get_SelectedItem write Set_SelectedItem;
|
|
// Root : get the root item
|
|
property Root:OleVariant read Get_Root write Set_Root;
|
|
// Depth :
|
|
property Depth:SYSINT read Get_Depth write Set_Depth;
|
|
// Mode :
|
|
property Mode:UInt read Get_Mode write Set_Mode;
|
|
// Flags :
|
|
property Flags:LongWord read Get_Flags write Set_Flags;
|
|
// TVFlags :
|
|
property TVFlags:LongWord read Get_TVFlags write Set_TVFlags;
|
|
// Columns :
|
|
property Columns:WideString read Get_Columns write Set_Columns;
|
|
// CountViewTypes : number of view types
|
|
property CountViewTypes:SYSINT read Get_CountViewTypes;
|
|
end;
|
|
|
|
|
|
// IShellNameSpace : IShellNameSpace Interface
|
|
|
|
IShellNameSpaceDisp = dispinterface
|
|
['{E572D3C9-37BE-4AE2-825D-D521763E3108}']
|
|
// MoveSelectionUp : method MoveSelectionUp
|
|
procedure MoveSelectionUp;dispid 1;
|
|
// MoveSelectionDown : method MoveSelectionDown
|
|
procedure MoveSelectionDown;dispid 2;
|
|
// ResetSort : method ResetSort
|
|
procedure ResetSort;dispid 3;
|
|
// NewFolder : method NewFolder
|
|
procedure NewFolder;dispid 4;
|
|
// Synchronize : method Synchronize
|
|
procedure Synchronize;dispid 5;
|
|
// Import : method Import
|
|
procedure Import;dispid 6;
|
|
// Export : method Export
|
|
procedure Export;dispid 7;
|
|
// InvokeContextMenuCommand : method InvokeContextMenuCommand
|
|
procedure InvokeContextMenuCommand(strCommand:WideString);dispid 8;
|
|
// MoveSelectionTo : method MoveSelectionTo
|
|
procedure MoveSelectionTo;dispid 9;
|
|
// CreateSubscriptionForSelection : method CreateSubscriptionForSelection
|
|
function CreateSubscriptionForSelection:WordBool;dispid 11;
|
|
// DeleteSubscriptionForSelection : method DeleteSubscriptionForSelection
|
|
function DeleteSubscriptionForSelection:WordBool;dispid 12;
|
|
// SetRoot : old, use put_Root() instead
|
|
procedure SetRoot(bstrFullPath:WideString);dispid 13;
|
|
// SetViewType : set view type
|
|
procedure SetViewType(iType:SYSINT);dispid 23;
|
|
// SelectedItems : collection of selected items
|
|
function SelectedItems:IDispatch;dispid 24;
|
|
// Expand : expands item specified depth
|
|
procedure Expand(var_:OleVariant;iDepth:SYSINT);dispid 25;
|
|
// UnselectAll : unselects all items
|
|
procedure UnselectAll;dispid 26;
|
|
// SubscriptionsEnabled : Query to see if subscriptions are enabled
|
|
property SubscriptionsEnabled:WordBool readonly dispid 10;
|
|
// EnumOptions : options
|
|
property EnumOptions:Integer dispid 14;
|
|
// SelectedItem : get the selected item
|
|
property SelectedItem:IDispatch dispid 15;
|
|
// Root : get the root item
|
|
property Root:OleVariant dispid 16;
|
|
// Depth :
|
|
property Depth:SYSINT dispid 17;
|
|
// Mode :
|
|
property Mode:UInt dispid 18;
|
|
// Flags :
|
|
property Flags:LongWord dispid 19;
|
|
// TVFlags :
|
|
property TVFlags:LongWord dispid 20;
|
|
// Columns :
|
|
property Columns:WideString dispid 21;
|
|
// CountViewTypes : number of view types
|
|
property CountViewTypes:SYSINT readonly dispid 22;
|
|
end;
|
|
|
|
|
|
// IScriptErrorList : Script Error List Interface
|
|
|
|
IScriptErrorList = interface(IDispatch)
|
|
['{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}']
|
|
// advanceError :
|
|
procedure advanceError;safecall;
|
|
// retreatError :
|
|
procedure retreatError;safecall;
|
|
// canAdvanceError :
|
|
function canAdvanceError:Integer;safecall;
|
|
// canRetreatError :
|
|
function canRetreatError:Integer;safecall;
|
|
// getErrorLine :
|
|
function getErrorLine:Integer;safecall;
|
|
// getErrorChar :
|
|
function getErrorChar:Integer;safecall;
|
|
// getErrorCode :
|
|
function getErrorCode:Integer;safecall;
|
|
// getErrorMsg :
|
|
function getErrorMsg:WideString;safecall;
|
|
// getErrorUrl :
|
|
function getErrorUrl:WideString;safecall;
|
|
// getAlwaysShowLockState :
|
|
function getAlwaysShowLockState:Integer;safecall;
|
|
// getDetailsPaneOpen :
|
|
function getDetailsPaneOpen:Integer;safecall;
|
|
// setDetailsPaneOpen :
|
|
procedure setDetailsPaneOpen(fDetailsPaneOpen:Integer);safecall;
|
|
// getPerErrorDisplay :
|
|
function getPerErrorDisplay:Integer;safecall;
|
|
// setPerErrorDisplay :
|
|
procedure setPerErrorDisplay(fPerErrorDisplay:Integer);safecall;
|
|
end;
|
|
|
|
|
|
// IScriptErrorList : Script Error List Interface
|
|
|
|
IScriptErrorListDisp = dispinterface
|
|
['{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}']
|
|
// advanceError :
|
|
procedure advanceError;dispid 10;
|
|
// retreatError :
|
|
procedure retreatError;dispid 11;
|
|
// canAdvanceError :
|
|
function canAdvanceError:Integer;dispid 12;
|
|
// canRetreatError :
|
|
function canRetreatError:Integer;dispid 13;
|
|
// getErrorLine :
|
|
function getErrorLine:Integer;dispid 14;
|
|
// getErrorChar :
|
|
function getErrorChar:Integer;dispid 15;
|
|
// getErrorCode :
|
|
function getErrorCode:Integer;dispid 16;
|
|
// getErrorMsg :
|
|
function getErrorMsg:WideString;dispid 17;
|
|
// getErrorUrl :
|
|
function getErrorUrl:WideString;dispid 18;
|
|
// getAlwaysShowLockState :
|
|
function getAlwaysShowLockState:Integer;dispid 23;
|
|
// getDetailsPaneOpen :
|
|
function getDetailsPaneOpen:Integer;dispid 19;
|
|
// setDetailsPaneOpen :
|
|
procedure setDetailsPaneOpen(fDetailsPaneOpen:Integer);dispid 20;
|
|
// getPerErrorDisplay :
|
|
function getPerErrorDisplay:Integer;dispid 21;
|
|
// setPerErrorDisplay :
|
|
procedure setPerErrorDisplay(fPerErrorDisplay:Integer);dispid 22;
|
|
end;
|
|
|
|
//CoClasses
|
|
TDWebBrowserEventsBeforeNavigate = procedure(Sender: TObject;URL:WideString;Flags:Integer;TargetFrameName:WideString;PostData:OleVariant;Headers:WideString;var Cancel:WordBool) of object;
|
|
TDWebBrowserEventsNavigateComplete = procedure(Sender: TObject;URL:WideString) of object;
|
|
TDWebBrowserEventsStatusTextChange = procedure(Sender: TObject;Text_:WideString) of object;
|
|
TDWebBrowserEventsProgressChange = procedure(Sender: TObject;Progress:Integer;ProgressMax:Integer) of object;
|
|
TDWebBrowserEventsDownloadComplete = procedure(Sender: TObject) of object;
|
|
TDWebBrowserEventsCommandStateChange = procedure(Sender: TObject;Command:Integer;Enable:WordBool) of object;
|
|
TDWebBrowserEventsDownloadBegin = procedure(Sender: TObject) of object;
|
|
TDWebBrowserEventsNewWindow = procedure(Sender: TObject;URL:WideString;Flags:Integer;TargetFrameName:WideString;var PostData:OleVariant;Headers:WideString;var Processed:WordBool) of object;
|
|
TDWebBrowserEventsTitleChange = procedure(Sender: TObject;Text_:WideString) of object;
|
|
TDWebBrowserEventsFrameBeforeNavigate = procedure(Sender: TObject;URL:WideString;Flags:Integer;TargetFrameName:WideString;PostData:OleVariant;Headers:WideString;var Cancel:WordBool) of object;
|
|
TDWebBrowserEventsFrameNavigateComplete = procedure(Sender: TObject;URL:WideString) of object;
|
|
TDWebBrowserEventsFrameNewWindow = procedure(Sender: TObject;URL:WideString;Flags:Integer;TargetFrameName:WideString;var PostData:OleVariant;Headers:WideString;var Processed:WordBool) of object;
|
|
TDWebBrowserEventsQuit = procedure(Sender: TObject;var Cancel:WordBool) of object;
|
|
TDWebBrowserEventsWindowMove = procedure(Sender: TObject) of object;
|
|
TDWebBrowserEventsWindowResize = procedure(Sender: TObject) of object;
|
|
TDWebBrowserEventsWindowActivate = procedure(Sender: TObject) of object;
|
|
TDWebBrowserEventsPropertyChange = procedure(Sender: TObject;Property_:WideString) of object;
|
|
|
|
{$IFDEF TWebBrowser_V1}
|
|
|
|
CoWebBrowser_V1 = Class
|
|
Public
|
|
Class Function Create: IWebBrowser;
|
|
Class Function CreateRemote(const MachineName: string): IWebBrowser;
|
|
end;
|
|
|
|
TWebBrowser_V1 = Class(TActiveXContainer)
|
|
Private
|
|
FServer:IWebBrowser;
|
|
FOnBeforeNavigate:TDWebBrowserEventsBeforeNavigate;
|
|
FOnNavigateComplete:TDWebBrowserEventsNavigateComplete;
|
|
FOnStatusTextChange:TDWebBrowserEventsStatusTextChange;
|
|
FOnProgressChange:TDWebBrowserEventsProgressChange;
|
|
FOnDownloadComplete:TDWebBrowserEventsDownloadComplete;
|
|
FOnCommandStateChange:TDWebBrowserEventsCommandStateChange;
|
|
FOnDownloadBegin:TDWebBrowserEventsDownloadBegin;
|
|
FOnNewWindow:TDWebBrowserEventsNewWindow;
|
|
FOnTitleChange:TDWebBrowserEventsTitleChange;
|
|
FOnFrameBeforeNavigate:TDWebBrowserEventsFrameBeforeNavigate;
|
|
FOnFrameNavigateComplete:TDWebBrowserEventsFrameNavigateComplete;
|
|
FOnFrameNewWindow:TDWebBrowserEventsFrameNewWindow;
|
|
FOnQuit:TDWebBrowserEventsQuit;
|
|
FOnWindowMove:TDWebBrowserEventsWindowMove;
|
|
FOnWindowResize:TDWebBrowserEventsWindowResize;
|
|
FOnWindowActivate:TDWebBrowserEventsWindowActivate;
|
|
FOnPropertyChange:TDWebBrowserEventsPropertyChange;
|
|
|
|
FEventSink:TEventSink;
|
|
procedure EventSinkInvoke(Sender: TObject; DispID: Integer;
|
|
const IID: TGUID; LocaleID: Integer; Flags: Word;
|
|
Params: tagDISPPARAMS; VarResult, ExcepInfo, ArgErr: Pointer);
|
|
Public
|
|
constructor Create(TheOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
property OleServer:IWebBrowser read FServer;
|
|
Published
|
|
property Align;
|
|
property Anchors;
|
|
property AutoSize;
|
|
property BorderSpacing;
|
|
property ChildSizing;
|
|
property ClientHeight;
|
|
property ClientWidth;
|
|
property Constraints;
|
|
property DockSite;
|
|
property DragCursor;
|
|
property DragKind;
|
|
property DragMode;
|
|
property Enabled;
|
|
property ParentShowHint;
|
|
property PopupMenu;
|
|
property ShowHint;
|
|
property TabOrder;
|
|
property TabStop;
|
|
property UseDockManager default True;
|
|
property Visible;
|
|
property OnContextPopup;
|
|
property OnDockDrop;
|
|
property OnDockOver;
|
|
property OnDragDrop;
|
|
property OnDragOver;
|
|
property OnEndDock;
|
|
property OnEndDrag;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnGetSiteInfo;
|
|
property OnGetDockCaption;
|
|
property OnResize;
|
|
property OnStartDock;
|
|
property OnStartDrag;
|
|
property OnStatusText;
|
|
property OnUnDock;
|
|
property OnBeforeNavigate : TDWebBrowserEventsBeforeNavigate read FOnBeforeNavigate write FOnBeforeNavigate;
|
|
property OnNavigateComplete : TDWebBrowserEventsNavigateComplete read FOnNavigateComplete write FOnNavigateComplete;
|
|
property OnStatusTextChange : TDWebBrowserEventsStatusTextChange read FOnStatusTextChange write FOnStatusTextChange;
|
|
property OnProgressChange : TDWebBrowserEventsProgressChange read FOnProgressChange write FOnProgressChange;
|
|
property OnDownloadComplete : TDWebBrowserEventsDownloadComplete read FOnDownloadComplete write FOnDownloadComplete;
|
|
property OnCommandStateChange : TDWebBrowserEventsCommandStateChange read FOnCommandStateChange write FOnCommandStateChange;
|
|
property OnDownloadBegin : TDWebBrowserEventsDownloadBegin read FOnDownloadBegin write FOnDownloadBegin;
|
|
property OnNewWindow : TDWebBrowserEventsNewWindow read FOnNewWindow write FOnNewWindow;
|
|
property OnTitleChange : TDWebBrowserEventsTitleChange read FOnTitleChange write FOnTitleChange;
|
|
property OnFrameBeforeNavigate : TDWebBrowserEventsFrameBeforeNavigate read FOnFrameBeforeNavigate write FOnFrameBeforeNavigate;
|
|
property OnFrameNavigateComplete : TDWebBrowserEventsFrameNavigateComplete read FOnFrameNavigateComplete write FOnFrameNavigateComplete;
|
|
property OnFrameNewWindow : TDWebBrowserEventsFrameNewWindow read FOnFrameNewWindow write FOnFrameNewWindow;
|
|
property OnQuit : TDWebBrowserEventsQuit read FOnQuit write FOnQuit;
|
|
property OnWindowMove : TDWebBrowserEventsWindowMove read FOnWindowMove write FOnWindowMove;
|
|
property OnWindowResize : TDWebBrowserEventsWindowResize read FOnWindowResize write FOnWindowResize;
|
|
property OnWindowActivate : TDWebBrowserEventsWindowActivate read FOnWindowActivate write FOnWindowActivate;
|
|
property OnPropertyChange : TDWebBrowserEventsPropertyChange read FOnPropertyChange write FOnPropertyChange;
|
|
|
|
property Active;
|
|
end;
|
|
|
|
{$ENDIF TWebBrowser_V1}
|
|
|
|
TDWebBrowserEvents2StatusTextChange = procedure(Sender: TObject;Text_:WideString) of object;
|
|
TDWebBrowserEvents2ProgressChange = procedure(Sender: TObject;Progress:Integer;ProgressMax:Integer) of object;
|
|
TDWebBrowserEvents2CommandStateChange = procedure(Sender: TObject;Command:Integer;Enable:WordBool) of object;
|
|
TDWebBrowserEvents2DownloadBegin = procedure(Sender: TObject) of object;
|
|
TDWebBrowserEvents2DownloadComplete = procedure(Sender: TObject) of object;
|
|
TDWebBrowserEvents2TitleChange = procedure(Sender: TObject;Text_:WideString) of object;
|
|
TDWebBrowserEvents2PropertyChange = procedure(Sender: TObject;szProperty:WideString) of object;
|
|
TDWebBrowserEvents2BeforeNavigate2 = procedure(Sender: TObject;pDisp:IDispatch;var URL:OleVariant;var Flags:OleVariant;var TargetFrameName:OleVariant;var PostData:OleVariant;var Headers:OleVariant;var Cancel:WordBool) of object;
|
|
TDWebBrowserEvents2NewWindow2 = procedure(Sender: TObject;var ppDisp:IDispatch;var Cancel:WordBool) of object;
|
|
TDWebBrowserEvents2NavigateComplete2 = procedure(Sender: TObject;pDisp:IDispatch;var URL:OleVariant) of object;
|
|
TDWebBrowserEvents2DocumentComplete = procedure(Sender: TObject;pDisp:IDispatch;var URL:OleVariant) of object;
|
|
TDWebBrowserEvents2OnQuit = procedure(Sender: TObject) of object;
|
|
TDWebBrowserEvents2OnVisible = procedure(Sender: TObject;Visible:WordBool) of object;
|
|
TDWebBrowserEvents2OnToolBar = procedure(Sender: TObject;ToolBar:WordBool) of object;
|
|
TDWebBrowserEvents2OnMenuBar = procedure(Sender: TObject;MenuBar:WordBool) of object;
|
|
TDWebBrowserEvents2OnStatusBar = procedure(Sender: TObject;StatusBar:WordBool) of object;
|
|
TDWebBrowserEvents2OnFullScreen = procedure(Sender: TObject;FullScreen:WordBool) of object;
|
|
TDWebBrowserEvents2OnTheaterMode = procedure(Sender: TObject;TheaterMode:WordBool) of object;
|
|
TDWebBrowserEvents2WindowSetResizable = procedure(Sender: TObject;Resizable:WordBool) of object;
|
|
TDWebBrowserEvents2WindowSetLeft = procedure(Sender: TObject;Left:Integer) of object;
|
|
TDWebBrowserEvents2WindowSetTop = procedure(Sender: TObject;Top:Integer) of object;
|
|
TDWebBrowserEvents2WindowSetWidth = procedure(Sender: TObject;Width:Integer) of object;
|
|
TDWebBrowserEvents2WindowSetHeight = procedure(Sender: TObject;Height:Integer) of object;
|
|
TDWebBrowserEvents2WindowClosing = procedure(Sender: TObject;IsChildWindow:WordBool;var Cancel:WordBool) of object;
|
|
TDWebBrowserEvents2ClientToHostWindow = procedure(Sender: TObject;var CX:Integer;var CY:Integer) of object;
|
|
TDWebBrowserEvents2SetSecureLockIcon = procedure(Sender: TObject;SecureLockIcon:Integer) of object;
|
|
TDWebBrowserEvents2FileDownload = procedure(Sender: TObject;ActiveDocument:WordBool;var Cancel:WordBool) of object;
|
|
TDWebBrowserEvents2NavigateError = procedure(Sender: TObject;pDisp:IDispatch;var URL:OleVariant;var Frame:OleVariant;var StatusCode:OleVariant;var Cancel:WordBool) of object;
|
|
TDWebBrowserEvents2PrintTemplateInstantiation = procedure(Sender: TObject;pDisp:IDispatch) of object;
|
|
TDWebBrowserEvents2PrintTemplateTeardown = procedure(Sender: TObject;pDisp:IDispatch) of object;
|
|
TDWebBrowserEvents2UpdatePageStatus = procedure(Sender: TObject;pDisp:IDispatch;var nPage:OleVariant;var fDone:OleVariant) of object;
|
|
TDWebBrowserEvents2PrivacyImpactedStateChange = procedure(Sender: TObject;bImpacted:WordBool) of object;
|
|
TDWebBrowserEvents2NewWindow3 = procedure(Sender: TObject;var ppDisp:IDispatch;var Cancel:WordBool;dwFlags:LongWord;bstrUrlContext:WideString;bstrUrl:WideString) of object;
|
|
TDWebBrowserEvents2SetPhishingFilterStatus = procedure(Sender: TObject;PhishingFilterStatus:Integer) of object;
|
|
TDWebBrowserEvents2WindowStateChanged = procedure(Sender: TObject;dwWindowStateFlags:LongWord;dwValidFlagsMask:LongWord) of object;
|
|
TDWebBrowserEvents2NewProcess = procedure(Sender: TObject;lCauseFlag:Integer;pWB2:IDispatch;var Cancel:WordBool) of object;
|
|
TDWebBrowserEvents2ThirdPartyUrlBlocked = procedure(Sender: TObject;var URL:OleVariant;dwCount:LongWord) of object;
|
|
TDWebBrowserEvents2RedirectXDomainBlocked = procedure(Sender: TObject;pDisp:IDispatch;var StartURL:OleVariant;var RedirectURL:OleVariant;var Frame:OleVariant;var StatusCode:OleVariant) of object;
|
|
TDWebBrowserEvents2BeforeScriptExecute = procedure(Sender: TObject;pDispWindow:IDispatch) of object;
|
|
TDWebBrowserEvents2WebWorkerStarted = procedure(Sender: TObject;dwUniqueID:LongWord;bstrWorkerLabel:WideString) of object;
|
|
TDWebBrowserEvents2WebWorkerFinsihed = procedure(Sender: TObject;dwUniqueID:LongWord) of object;
|
|
|
|
{$IFDEF TWebBrowser}
|
|
|
|
CoWebBrowser = Class
|
|
Public
|
|
Class Function Create: IWebBrowser2;
|
|
Class Function CreateRemote(const MachineName: string): IWebBrowser2;
|
|
end;
|
|
|
|
{ TWebBrowser }
|
|
|
|
TWebBrowser = Class(TActiveXContainer)
|
|
Private
|
|
FServer:IWebBrowser2;
|
|
FOnStatusTextChange:TDWebBrowserEvents2StatusTextChange;
|
|
FOnProgressChange:TDWebBrowserEvents2ProgressChange;
|
|
FOnCommandStateChange:TDWebBrowserEvents2CommandStateChange;
|
|
FOnDownloadBegin:TDWebBrowserEvents2DownloadBegin;
|
|
FOnDownloadComplete:TDWebBrowserEvents2DownloadComplete;
|
|
FOnTitleChange:TDWebBrowserEvents2TitleChange;
|
|
FOnPropertyChange:TDWebBrowserEvents2PropertyChange;
|
|
FOnBeforeNavigate2:TDWebBrowserEvents2BeforeNavigate2;
|
|
FOnNewWindow2:TDWebBrowserEvents2NewWindow2;
|
|
FOnNavigateComplete2:TDWebBrowserEvents2NavigateComplete2;
|
|
FOnDocumentComplete:TDWebBrowserEvents2DocumentComplete;
|
|
FOnOnQuit:TDWebBrowserEvents2OnQuit;
|
|
FOnOnVisible:TDWebBrowserEvents2OnVisible;
|
|
FOnOnToolBar:TDWebBrowserEvents2OnToolBar;
|
|
FOnOnMenuBar:TDWebBrowserEvents2OnMenuBar;
|
|
FOnOnStatusBar:TDWebBrowserEvents2OnStatusBar;
|
|
FOnOnFullScreen:TDWebBrowserEvents2OnFullScreen;
|
|
FOnOnTheaterMode:TDWebBrowserEvents2OnTheaterMode;
|
|
FOnWindowSetResizable:TDWebBrowserEvents2WindowSetResizable;
|
|
FOnWindowSetLeft:TDWebBrowserEvents2WindowSetLeft;
|
|
FOnWindowSetTop:TDWebBrowserEvents2WindowSetTop;
|
|
FOnWindowSetWidth:TDWebBrowserEvents2WindowSetWidth;
|
|
FOnWindowSetHeight:TDWebBrowserEvents2WindowSetHeight;
|
|
FOnWindowClosing:TDWebBrowserEvents2WindowClosing;
|
|
FOnClientToHostWindow:TDWebBrowserEvents2ClientToHostWindow;
|
|
FOnSetSecureLockIcon:TDWebBrowserEvents2SetSecureLockIcon;
|
|
FOnFileDownload:TDWebBrowserEvents2FileDownload;
|
|
FOnNavigateError:TDWebBrowserEvents2NavigateError;
|
|
FOnPrintTemplateInstantiation:TDWebBrowserEvents2PrintTemplateInstantiation;
|
|
FOnPrintTemplateTeardown:TDWebBrowserEvents2PrintTemplateTeardown;
|
|
FOnUpdatePageStatus:TDWebBrowserEvents2UpdatePageStatus;
|
|
FOnPrivacyImpactedStateChange:TDWebBrowserEvents2PrivacyImpactedStateChange;
|
|
FOnNewWindow3:TDWebBrowserEvents2NewWindow3;
|
|
FOnSetPhishingFilterStatus:TDWebBrowserEvents2SetPhishingFilterStatus;
|
|
FOnWindowStateChanged:TDWebBrowserEvents2WindowStateChanged;
|
|
FOnNewProcess:TDWebBrowserEvents2NewProcess;
|
|
FOnThirdPartyUrlBlocked:TDWebBrowserEvents2ThirdPartyUrlBlocked;
|
|
FOnRedirectXDomainBlocked:TDWebBrowserEvents2RedirectXDomainBlocked;
|
|
FOnBeforeScriptExecute:TDWebBrowserEvents2BeforeScriptExecute;
|
|
FOnWebWorkerStarted:TDWebBrowserEvents2WebWorkerStarted;
|
|
FOnWebWorkerFinsihed:TDWebBrowserEvents2WebWorkerFinsihed;
|
|
|
|
FEventSink:TEventSink;
|
|
procedure EventSinkInvoke(Sender: TObject; DispID: Integer;
|
|
const IID: TGUID; LocaleID: Integer; Flags: Word;
|
|
Params: tagDISPPARAMS; VarResult, ExcepInfo, ArgErr: Pointer);
|
|
function GetAddressBar: WordBool;
|
|
function GetApplication:IDispatch;
|
|
function GetBusy: WordBool;
|
|
function GetContainer: IDispatch;
|
|
function GetDocument: IDispatch;
|
|
function GetFullName: WideString;
|
|
function GetFullScreen: WordBool;
|
|
function GetHWND: HWND;
|
|
function GetLocationName: WideString;
|
|
function GetLocationURL: WideString;
|
|
function GetMenuBar: WordBool;
|
|
function GetName: WideString;
|
|
function GetOffline: WordBool;
|
|
function GetParent: IDispatch;
|
|
function GetPath: WideString;
|
|
function GetReadyState: TOleEnum;
|
|
function GetRegisterAsBrowser: WordBool;
|
|
function GetRegisterAsDropTarget: WordBool;
|
|
function GetResizable: WordBool;
|
|
function GetSilent: WordBool;
|
|
function GetStatusBar: WordBool;
|
|
function GetStatusText: WideString;
|
|
function GetTheaterMode: WordBool;
|
|
function GetToolBar: SYSINT;
|
|
function GetTopLevelContainer: WordBool;
|
|
function Gettype_: WideString;
|
|
procedure SetAddressBar(AValue: WordBool);
|
|
procedure SetFullScreen(AValue: WordBool);
|
|
procedure SetMenuBar(AValue: WordBool);
|
|
procedure SetOffline(AValue: WordBool);
|
|
procedure SetRegisterAsBrowser(AValue: WordBool);
|
|
procedure SetRegisterAsDropTarget(AValue: WordBool);
|
|
procedure SetResizable(AValue: WordBool);
|
|
procedure SetSilent(AValue: WordBool);
|
|
procedure SetStatusBar(AValue: WordBool);
|
|
procedure SetStatusText(AValue: WideString);
|
|
procedure SetTheaterMode(AValue: WordBool);
|
|
procedure SetToolBar(AValue: SYSINT);
|
|
|
|
Public
|
|
constructor Create(TheOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
property OleServer:IWebBrowser2 read FServer;
|
|
procedure GoBack;
|
|
procedure GoForward;
|
|
procedure GoHome;
|
|
procedure GoSearch;
|
|
procedure Navigate(const URL: WideString); overload;
|
|
procedure Navigate(const URL: WideString; const Flags: OleVariant); overload;
|
|
procedure Navigate(const URL: WideString; const Flags: OleVariant;
|
|
const TargetFrameName: OleVariant); overload;
|
|
procedure Navigate(const URL: WideString; const Flags: OleVariant;
|
|
const TargetFrameName: OleVariant; const PostData: OleVariant); overload;
|
|
procedure Navigate(const URL: WideString; const Flags: OleVariant;
|
|
const TargetFrameName: OleVariant; const PostData: OleVariant;
|
|
const Headers: OleVariant); overload;
|
|
procedure Refresh;
|
|
procedure Refresh2; overload;
|
|
procedure Refresh2(const Level: OleVariant); overload;
|
|
procedure Stop;
|
|
procedure Quit;
|
|
procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT);
|
|
procedure PutProperty(const Property_: WideString; vtValue: OleVariant);
|
|
function GetProperty(const Property_: WideString): OleVariant;
|
|
procedure Navigate2(const URL: OleVariant); overload;
|
|
procedure Navigate2(const URL: OleVariant; const Flags: OleVariant); overload;
|
|
procedure Navigate2(const URL: OleVariant; const Flags: OleVariant;
|
|
const TargetFrameName: OleVariant); overload;
|
|
procedure Navigate2(const URL: OleVariant; const Flags: OleVariant;
|
|
const TargetFrameName: OleVariant; const PostData: OleVariant); overload;
|
|
procedure Navigate2(const URL: OleVariant; const Flags: OleVariant;
|
|
const TargetFrameName: OleVariant; const PostData: OleVariant;
|
|
const Headers: OleVariant); overload;
|
|
function QueryStatusWB(cmdID: OLECMDID): OLECMDF;
|
|
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); overload;
|
|
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; const pvaIn: OleVariant); overload;
|
|
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; const pvaIn: OleVariant;
|
|
var pvaOut: OleVariant); overload;
|
|
procedure ShowBrowserBar(const pvaClsid: OleVariant); overload;
|
|
procedure ShowBrowserBar(const pvaClsid: OleVariant; const pvarShow: OleVariant); overload;
|
|
procedure ShowBrowserBar(const pvaClsid: OleVariant; const pvarShow: OleVariant;
|
|
const pvarSize: OleVariant); overload;
|
|
property Application: IDispatch read GetApplication;
|
|
property Parent: IDispatch read GetParent;
|
|
property Container: IDispatch read GetContainer;
|
|
property Document: IDispatch read GetDocument;
|
|
property TopLevelContainer: WordBool read GetTopLevelContainer;
|
|
property type_: WideString read Gettype_;
|
|
property LocationName: WideString read GetLocationName;
|
|
property LocationURL: WideString read GetLocationURL;
|
|
property Busy: WordBool read GetBusy;
|
|
property Name: WideString read GetName;
|
|
property HWND: HWND read GetHWND;
|
|
property FullName: WideString read GetFullName;
|
|
property Path: WideString read GetPath;
|
|
property ReadyState: TOleEnum read GetReadyState;
|
|
Published
|
|
property Align;
|
|
property Anchors;
|
|
property AutoSize;
|
|
property BorderSpacing;
|
|
property ChildSizing;
|
|
property ClientHeight;
|
|
property ClientWidth;
|
|
property Constraints;
|
|
property DockSite;
|
|
property DragCursor;
|
|
property DragKind;
|
|
property DragMode;
|
|
property Enabled;
|
|
property ParentShowHint;
|
|
property PopupMenu;
|
|
property ShowHint;
|
|
property TabOrder;
|
|
property TabStop;
|
|
property UseDockManager default True;
|
|
property Visible;
|
|
property OnContextPopup;
|
|
property OnDockDrop;
|
|
property OnDockOver;
|
|
property OnDragDrop;
|
|
property OnDragOver;
|
|
property OnEndDock;
|
|
property OnEndDrag;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnGetSiteInfo;
|
|
property OnGetDockCaption;
|
|
property OnResize;
|
|
property OnStartDock;
|
|
property OnStartDrag;
|
|
property OnStatusText;
|
|
property OnUnDock;
|
|
property AddressBar:WordBool read GetAddressBar write SetAddressBar stored False;
|
|
property MenuBar:WordBool read GetMenuBar write SetMenuBar stored False;
|
|
property RegisterAsBrowser:WordBool read GetRegisterAsBrowser write SetRegisterAsBrowser stored False;
|
|
property RegisterAsDropTarget:WordBool read GetRegisterAsDropTarget write SetRegisterAsDropTarget stored False;
|
|
property TheaterMode:WordBool read GetTheaterMode write SetTheaterMode stored False;
|
|
property Offline:WordBool read GetOffline write SetOffline stored False;
|
|
property Silent:WordBool read GetSilent write SetSilent stored False;
|
|
property ToolBar:SYSINT read GetToolBar write SetToolBar stored False;
|
|
property FullScreen:WordBool read GetFullScreen write SetFullScreen stored False;
|
|
property StatusBar:WordBool read GetStatusBar write SetStatusBar stored False;
|
|
property StatusText:WideString read GetStatusText write SetStatusText stored False;
|
|
property Resizable:WordBool read GetResizable write SetResizable stored False;
|
|
property OnStatusTextChange : TDWebBrowserEvents2StatusTextChange read FOnStatusTextChange write FOnStatusTextChange;
|
|
property OnProgressChange : TDWebBrowserEvents2ProgressChange read FOnProgressChange write FOnProgressChange;
|
|
property OnCommandStateChange : TDWebBrowserEvents2CommandStateChange read FOnCommandStateChange write FOnCommandStateChange;
|
|
property OnDownloadBegin : TDWebBrowserEvents2DownloadBegin read FOnDownloadBegin write FOnDownloadBegin;
|
|
property OnDownloadComplete : TDWebBrowserEvents2DownloadComplete read FOnDownloadComplete write FOnDownloadComplete;
|
|
property OnTitleChange : TDWebBrowserEvents2TitleChange read FOnTitleChange write FOnTitleChange;
|
|
property OnPropertyChange : TDWebBrowserEvents2PropertyChange read FOnPropertyChange write FOnPropertyChange;
|
|
property OnBeforeNavigate2 : TDWebBrowserEvents2BeforeNavigate2 read FOnBeforeNavigate2 write FOnBeforeNavigate2;
|
|
property OnNewWindow2 : TDWebBrowserEvents2NewWindow2 read FOnNewWindow2 write FOnNewWindow2;
|
|
property OnNavigateComplete2 : TDWebBrowserEvents2NavigateComplete2 read FOnNavigateComplete2 write FOnNavigateComplete2;
|
|
property OnDocumentComplete : TDWebBrowserEvents2DocumentComplete read FOnDocumentComplete write FOnDocumentComplete;
|
|
property OnOnQuit : TDWebBrowserEvents2OnQuit read FOnOnQuit write FOnOnQuit;
|
|
property OnOnVisible : TDWebBrowserEvents2OnVisible read FOnOnVisible write FOnOnVisible;
|
|
property OnOnToolBar : TDWebBrowserEvents2OnToolBar read FOnOnToolBar write FOnOnToolBar;
|
|
property OnOnMenuBar : TDWebBrowserEvents2OnMenuBar read FOnOnMenuBar write FOnOnMenuBar;
|
|
property OnOnStatusBar : TDWebBrowserEvents2OnStatusBar read FOnOnStatusBar write FOnOnStatusBar;
|
|
property OnOnFullScreen : TDWebBrowserEvents2OnFullScreen read FOnOnFullScreen write FOnOnFullScreen;
|
|
property OnOnTheaterMode : TDWebBrowserEvents2OnTheaterMode read FOnOnTheaterMode write FOnOnTheaterMode;
|
|
property OnWindowSetResizable : TDWebBrowserEvents2WindowSetResizable read FOnWindowSetResizable write FOnWindowSetResizable;
|
|
property OnWindowSetLeft : TDWebBrowserEvents2WindowSetLeft read FOnWindowSetLeft write FOnWindowSetLeft;
|
|
property OnWindowSetTop : TDWebBrowserEvents2WindowSetTop read FOnWindowSetTop write FOnWindowSetTop;
|
|
property OnWindowSetWidth : TDWebBrowserEvents2WindowSetWidth read FOnWindowSetWidth write FOnWindowSetWidth;
|
|
property OnWindowSetHeight : TDWebBrowserEvents2WindowSetHeight read FOnWindowSetHeight write FOnWindowSetHeight;
|
|
property OnWindowClosing : TDWebBrowserEvents2WindowClosing read FOnWindowClosing write FOnWindowClosing;
|
|
property OnClientToHostWindow : TDWebBrowserEvents2ClientToHostWindow read FOnClientToHostWindow write FOnClientToHostWindow;
|
|
property OnSetSecureLockIcon : TDWebBrowserEvents2SetSecureLockIcon read FOnSetSecureLockIcon write FOnSetSecureLockIcon;
|
|
property OnFileDownload : TDWebBrowserEvents2FileDownload read FOnFileDownload write FOnFileDownload;
|
|
property OnNavigateError : TDWebBrowserEvents2NavigateError read FOnNavigateError write FOnNavigateError;
|
|
property OnPrintTemplateInstantiation : TDWebBrowserEvents2PrintTemplateInstantiation read FOnPrintTemplateInstantiation write FOnPrintTemplateInstantiation;
|
|
property OnPrintTemplateTeardown : TDWebBrowserEvents2PrintTemplateTeardown read FOnPrintTemplateTeardown write FOnPrintTemplateTeardown;
|
|
property OnUpdatePageStatus : TDWebBrowserEvents2UpdatePageStatus read FOnUpdatePageStatus write FOnUpdatePageStatus;
|
|
property OnPrivacyImpactedStateChange : TDWebBrowserEvents2PrivacyImpactedStateChange read FOnPrivacyImpactedStateChange write FOnPrivacyImpactedStateChange;
|
|
property OnNewWindow3 : TDWebBrowserEvents2NewWindow3 read FOnNewWindow3 write FOnNewWindow3;
|
|
property OnSetPhishingFilterStatus : TDWebBrowserEvents2SetPhishingFilterStatus read FOnSetPhishingFilterStatus write FOnSetPhishingFilterStatus;
|
|
property OnWindowStateChanged : TDWebBrowserEvents2WindowStateChanged read FOnWindowStateChanged write FOnWindowStateChanged;
|
|
property OnNewProcess : TDWebBrowserEvents2NewProcess read FOnNewProcess write FOnNewProcess;
|
|
property OnThirdPartyUrlBlocked : TDWebBrowserEvents2ThirdPartyUrlBlocked read FOnThirdPartyUrlBlocked write FOnThirdPartyUrlBlocked;
|
|
property OnRedirectXDomainBlocked : TDWebBrowserEvents2RedirectXDomainBlocked read FOnRedirectXDomainBlocked write FOnRedirectXDomainBlocked;
|
|
property OnBeforeScriptExecute : TDWebBrowserEvents2BeforeScriptExecute read FOnBeforeScriptExecute write FOnBeforeScriptExecute;
|
|
property OnWebWorkerStarted : TDWebBrowserEvents2WebWorkerStarted read FOnWebWorkerStarted write FOnWebWorkerStarted;
|
|
property OnWebWorkerFinsihed : TDWebBrowserEvents2WebWorkerFinsihed read FOnWebWorkerFinsihed write FOnWebWorkerFinsihed;
|
|
property Active;
|
|
|
|
end;
|
|
|
|
{$ENDIF TWebBrowser}
|
|
|
|
{$IFDEF TInternetExplorer}
|
|
|
|
|
|
CoInternetExplorer = Class
|
|
Public
|
|
Class Function Create: IWebBrowser2;
|
|
Class Function CreateRemote(const MachineName: string): IWebBrowser2;
|
|
end;
|
|
|
|
TInternetExplorer = Class(TActiveXContainer)
|
|
Private
|
|
FServer:IWebBrowser2;
|
|
FOnStatusTextChange:TDWebBrowserEvents2StatusTextChange;
|
|
FOnProgressChange:TDWebBrowserEvents2ProgressChange;
|
|
FOnCommandStateChange:TDWebBrowserEvents2CommandStateChange;
|
|
FOnDownloadBegin:TDWebBrowserEvents2DownloadBegin;
|
|
FOnDownloadComplete:TDWebBrowserEvents2DownloadComplete;
|
|
FOnTitleChange:TDWebBrowserEvents2TitleChange;
|
|
FOnPropertyChange:TDWebBrowserEvents2PropertyChange;
|
|
FOnBeforeNavigate2:TDWebBrowserEvents2BeforeNavigate2;
|
|
FOnNewWindow2:TDWebBrowserEvents2NewWindow2;
|
|
FOnNavigateComplete2:TDWebBrowserEvents2NavigateComplete2;
|
|
FOnDocumentComplete:TDWebBrowserEvents2DocumentComplete;
|
|
FOnOnQuit:TDWebBrowserEvents2OnQuit;
|
|
FOnOnVisible:TDWebBrowserEvents2OnVisible;
|
|
FOnOnToolBar:TDWebBrowserEvents2OnToolBar;
|
|
FOnOnMenuBar:TDWebBrowserEvents2OnMenuBar;
|
|
FOnOnStatusBar:TDWebBrowserEvents2OnStatusBar;
|
|
FOnOnFullScreen:TDWebBrowserEvents2OnFullScreen;
|
|
FOnOnTheaterMode:TDWebBrowserEvents2OnTheaterMode;
|
|
FOnWindowSetResizable:TDWebBrowserEvents2WindowSetResizable;
|
|
FOnWindowSetLeft:TDWebBrowserEvents2WindowSetLeft;
|
|
FOnWindowSetTop:TDWebBrowserEvents2WindowSetTop;
|
|
FOnWindowSetWidth:TDWebBrowserEvents2WindowSetWidth;
|
|
FOnWindowSetHeight:TDWebBrowserEvents2WindowSetHeight;
|
|
FOnWindowClosing:TDWebBrowserEvents2WindowClosing;
|
|
FOnClientToHostWindow:TDWebBrowserEvents2ClientToHostWindow;
|
|
FOnSetSecureLockIcon:TDWebBrowserEvents2SetSecureLockIcon;
|
|
FOnFileDownload:TDWebBrowserEvents2FileDownload;
|
|
FOnNavigateError:TDWebBrowserEvents2NavigateError;
|
|
FOnPrintTemplateInstantiation:TDWebBrowserEvents2PrintTemplateInstantiation;
|
|
FOnPrintTemplateTeardown:TDWebBrowserEvents2PrintTemplateTeardown;
|
|
FOnUpdatePageStatus:TDWebBrowserEvents2UpdatePageStatus;
|
|
FOnPrivacyImpactedStateChange:TDWebBrowserEvents2PrivacyImpactedStateChange;
|
|
FOnNewWindow3:TDWebBrowserEvents2NewWindow3;
|
|
FOnSetPhishingFilterStatus:TDWebBrowserEvents2SetPhishingFilterStatus;
|
|
FOnWindowStateChanged:TDWebBrowserEvents2WindowStateChanged;
|
|
FOnNewProcess:TDWebBrowserEvents2NewProcess;
|
|
FOnThirdPartyUrlBlocked:TDWebBrowserEvents2ThirdPartyUrlBlocked;
|
|
FOnRedirectXDomainBlocked:TDWebBrowserEvents2RedirectXDomainBlocked;
|
|
FOnBeforeScriptExecute:TDWebBrowserEvents2BeforeScriptExecute;
|
|
FOnWebWorkerStarted:TDWebBrowserEvents2WebWorkerStarted;
|
|
FOnWebWorkerFinsihed:TDWebBrowserEvents2WebWorkerFinsihed;
|
|
|
|
FEventSink:TEventSink;
|
|
procedure EventSinkInvoke(Sender: TObject; DispID: Integer;
|
|
const IID: TGUID; LocaleID: Integer; Flags: Word;
|
|
Params: tagDISPPARAMS; VarResult, ExcepInfo, ArgErr: Pointer);
|
|
Public
|
|
constructor Create(TheOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
property OleServer:IWebBrowser2 read FServer;
|
|
Published
|
|
property Align;
|
|
property Anchors;
|
|
property AutoSize;
|
|
property BorderSpacing;
|
|
property ChildSizing;
|
|
property ClientHeight;
|
|
property ClientWidth;
|
|
property Constraints;
|
|
property DockSite;
|
|
property DragCursor;
|
|
property DragKind;
|
|
property DragMode;
|
|
property Enabled;
|
|
property ParentShowHint;
|
|
property PopupMenu;
|
|
property ShowHint;
|
|
property TabOrder;
|
|
property TabStop;
|
|
property UseDockManager default True;
|
|
property Visible;
|
|
property OnContextPopup;
|
|
property OnDockDrop;
|
|
property OnDockOver;
|
|
property OnDragDrop;
|
|
property OnDragOver;
|
|
property OnEndDock;
|
|
property OnEndDrag;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnGetSiteInfo;
|
|
property OnGetDockCaption;
|
|
property OnResize;
|
|
property OnStartDock;
|
|
property OnStartDrag;
|
|
property OnStatusText;
|
|
property OnUnDock;
|
|
property OnStatusTextChange : TDWebBrowserEvents2StatusTextChange read FOnStatusTextChange write FOnStatusTextChange;
|
|
property OnProgressChange : TDWebBrowserEvents2ProgressChange read FOnProgressChange write FOnProgressChange;
|
|
property OnCommandStateChange : TDWebBrowserEvents2CommandStateChange read FOnCommandStateChange write FOnCommandStateChange;
|
|
property OnDownloadBegin : TDWebBrowserEvents2DownloadBegin read FOnDownloadBegin write FOnDownloadBegin;
|
|
property OnDownloadComplete : TDWebBrowserEvents2DownloadComplete read FOnDownloadComplete write FOnDownloadComplete;
|
|
property OnTitleChange : TDWebBrowserEvents2TitleChange read FOnTitleChange write FOnTitleChange;
|
|
property OnPropertyChange : TDWebBrowserEvents2PropertyChange read FOnPropertyChange write FOnPropertyChange;
|
|
property OnBeforeNavigate2 : TDWebBrowserEvents2BeforeNavigate2 read FOnBeforeNavigate2 write FOnBeforeNavigate2;
|
|
property OnNewWindow2 : TDWebBrowserEvents2NewWindow2 read FOnNewWindow2 write FOnNewWindow2;
|
|
property OnNavigateComplete2 : TDWebBrowserEvents2NavigateComplete2 read FOnNavigateComplete2 write FOnNavigateComplete2;
|
|
property OnDocumentComplete : TDWebBrowserEvents2DocumentComplete read FOnDocumentComplete write FOnDocumentComplete;
|
|
property OnOnQuit : TDWebBrowserEvents2OnQuit read FOnOnQuit write FOnOnQuit;
|
|
property OnOnVisible : TDWebBrowserEvents2OnVisible read FOnOnVisible write FOnOnVisible;
|
|
property OnOnToolBar : TDWebBrowserEvents2OnToolBar read FOnOnToolBar write FOnOnToolBar;
|
|
property OnOnMenuBar : TDWebBrowserEvents2OnMenuBar read FOnOnMenuBar write FOnOnMenuBar;
|
|
property OnOnStatusBar : TDWebBrowserEvents2OnStatusBar read FOnOnStatusBar write FOnOnStatusBar;
|
|
property OnOnFullScreen : TDWebBrowserEvents2OnFullScreen read FOnOnFullScreen write FOnOnFullScreen;
|
|
property OnOnTheaterMode : TDWebBrowserEvents2OnTheaterMode read FOnOnTheaterMode write FOnOnTheaterMode;
|
|
property OnWindowSetResizable : TDWebBrowserEvents2WindowSetResizable read FOnWindowSetResizable write FOnWindowSetResizable;
|
|
property OnWindowSetLeft : TDWebBrowserEvents2WindowSetLeft read FOnWindowSetLeft write FOnWindowSetLeft;
|
|
property OnWindowSetTop : TDWebBrowserEvents2WindowSetTop read FOnWindowSetTop write FOnWindowSetTop;
|
|
property OnWindowSetWidth : TDWebBrowserEvents2WindowSetWidth read FOnWindowSetWidth write FOnWindowSetWidth;
|
|
property OnWindowSetHeight : TDWebBrowserEvents2WindowSetHeight read FOnWindowSetHeight write FOnWindowSetHeight;
|
|
property OnWindowClosing : TDWebBrowserEvents2WindowClosing read FOnWindowClosing write FOnWindowClosing;
|
|
property OnClientToHostWindow : TDWebBrowserEvents2ClientToHostWindow read FOnClientToHostWindow write FOnClientToHostWindow;
|
|
property OnSetSecureLockIcon : TDWebBrowserEvents2SetSecureLockIcon read FOnSetSecureLockIcon write FOnSetSecureLockIcon;
|
|
property OnFileDownload : TDWebBrowserEvents2FileDownload read FOnFileDownload write FOnFileDownload;
|
|
property OnNavigateError : TDWebBrowserEvents2NavigateError read FOnNavigateError write FOnNavigateError;
|
|
property OnPrintTemplateInstantiation : TDWebBrowserEvents2PrintTemplateInstantiation read FOnPrintTemplateInstantiation write FOnPrintTemplateInstantiation;
|
|
property OnPrintTemplateTeardown : TDWebBrowserEvents2PrintTemplateTeardown read FOnPrintTemplateTeardown write FOnPrintTemplateTeardown;
|
|
property OnUpdatePageStatus : TDWebBrowserEvents2UpdatePageStatus read FOnUpdatePageStatus write FOnUpdatePageStatus;
|
|
property OnPrivacyImpactedStateChange : TDWebBrowserEvents2PrivacyImpactedStateChange read FOnPrivacyImpactedStateChange write FOnPrivacyImpactedStateChange;
|
|
property OnNewWindow3 : TDWebBrowserEvents2NewWindow3 read FOnNewWindow3 write FOnNewWindow3;
|
|
property OnSetPhishingFilterStatus : TDWebBrowserEvents2SetPhishingFilterStatus read FOnSetPhishingFilterStatus write FOnSetPhishingFilterStatus;
|
|
property OnWindowStateChanged : TDWebBrowserEvents2WindowStateChanged read FOnWindowStateChanged write FOnWindowStateChanged;
|
|
property OnNewProcess : TDWebBrowserEvents2NewProcess read FOnNewProcess write FOnNewProcess;
|
|
property OnThirdPartyUrlBlocked : TDWebBrowserEvents2ThirdPartyUrlBlocked read FOnThirdPartyUrlBlocked write FOnThirdPartyUrlBlocked;
|
|
property OnRedirectXDomainBlocked : TDWebBrowserEvents2RedirectXDomainBlocked read FOnRedirectXDomainBlocked write FOnRedirectXDomainBlocked;
|
|
property OnBeforeScriptExecute : TDWebBrowserEvents2BeforeScriptExecute read FOnBeforeScriptExecute write FOnBeforeScriptExecute;
|
|
property OnWebWorkerStarted : TDWebBrowserEvents2WebWorkerStarted read FOnWebWorkerStarted write FOnWebWorkerStarted;
|
|
property OnWebWorkerFinsihed : TDWebBrowserEvents2WebWorkerFinsihed read FOnWebWorkerFinsihed write FOnWebWorkerFinsihed;
|
|
|
|
property Active;
|
|
end;
|
|
|
|
{$ENDIF TInternetExplorer}
|
|
|
|
{$IFDEF TInternetExplorerMedium}
|
|
|
|
CoInternetExplorerMedium = Class
|
|
Public
|
|
Class Function Create: IWebBrowser2;
|
|
Class Function CreateRemote(const MachineName: string): IWebBrowser2;
|
|
end;
|
|
|
|
TInternetExplorerMedium = Class(TActiveXContainer)
|
|
Private
|
|
FServer:IWebBrowser2;
|
|
FOnStatusTextChange:TDWebBrowserEvents2StatusTextChange;
|
|
FOnProgressChange:TDWebBrowserEvents2ProgressChange;
|
|
FOnCommandStateChange:TDWebBrowserEvents2CommandStateChange;
|
|
FOnDownloadBegin:TDWebBrowserEvents2DownloadBegin;
|
|
FOnDownloadComplete:TDWebBrowserEvents2DownloadComplete;
|
|
FOnTitleChange:TDWebBrowserEvents2TitleChange;
|
|
FOnPropertyChange:TDWebBrowserEvents2PropertyChange;
|
|
FOnBeforeNavigate2:TDWebBrowserEvents2BeforeNavigate2;
|
|
FOnNewWindow2:TDWebBrowserEvents2NewWindow2;
|
|
FOnNavigateComplete2:TDWebBrowserEvents2NavigateComplete2;
|
|
FOnDocumentComplete:TDWebBrowserEvents2DocumentComplete;
|
|
FOnOnQuit:TDWebBrowserEvents2OnQuit;
|
|
FOnOnVisible:TDWebBrowserEvents2OnVisible;
|
|
FOnOnToolBar:TDWebBrowserEvents2OnToolBar;
|
|
FOnOnMenuBar:TDWebBrowserEvents2OnMenuBar;
|
|
FOnOnStatusBar:TDWebBrowserEvents2OnStatusBar;
|
|
FOnOnFullScreen:TDWebBrowserEvents2OnFullScreen;
|
|
FOnOnTheaterMode:TDWebBrowserEvents2OnTheaterMode;
|
|
FOnWindowSetResizable:TDWebBrowserEvents2WindowSetResizable;
|
|
FOnWindowSetLeft:TDWebBrowserEvents2WindowSetLeft;
|
|
FOnWindowSetTop:TDWebBrowserEvents2WindowSetTop;
|
|
FOnWindowSetWidth:TDWebBrowserEvents2WindowSetWidth;
|
|
FOnWindowSetHeight:TDWebBrowserEvents2WindowSetHeight;
|
|
FOnWindowClosing:TDWebBrowserEvents2WindowClosing;
|
|
FOnClientToHostWindow:TDWebBrowserEvents2ClientToHostWindow;
|
|
FOnSetSecureLockIcon:TDWebBrowserEvents2SetSecureLockIcon;
|
|
FOnFileDownload:TDWebBrowserEvents2FileDownload;
|
|
FOnNavigateError:TDWebBrowserEvents2NavigateError;
|
|
FOnPrintTemplateInstantiation:TDWebBrowserEvents2PrintTemplateInstantiation;
|
|
FOnPrintTemplateTeardown:TDWebBrowserEvents2PrintTemplateTeardown;
|
|
FOnUpdatePageStatus:TDWebBrowserEvents2UpdatePageStatus;
|
|
FOnPrivacyImpactedStateChange:TDWebBrowserEvents2PrivacyImpactedStateChange;
|
|
FOnNewWindow3:TDWebBrowserEvents2NewWindow3;
|
|
FOnSetPhishingFilterStatus:TDWebBrowserEvents2SetPhishingFilterStatus;
|
|
FOnWindowStateChanged:TDWebBrowserEvents2WindowStateChanged;
|
|
FOnNewProcess:TDWebBrowserEvents2NewProcess;
|
|
FOnThirdPartyUrlBlocked:TDWebBrowserEvents2ThirdPartyUrlBlocked;
|
|
FOnRedirectXDomainBlocked:TDWebBrowserEvents2RedirectXDomainBlocked;
|
|
FOnBeforeScriptExecute:TDWebBrowserEvents2BeforeScriptExecute;
|
|
FOnWebWorkerStarted:TDWebBrowserEvents2WebWorkerStarted;
|
|
FOnWebWorkerFinsihed:TDWebBrowserEvents2WebWorkerFinsihed;
|
|
|
|
FEventSink:TEventSink;
|
|
procedure EventSinkInvoke(Sender: TObject; DispID: Integer;
|
|
const IID: TGUID; LocaleID: Integer; Flags: Word;
|
|
Params: tagDISPPARAMS; VarResult, ExcepInfo, ArgErr: Pointer);
|
|
Public
|
|
constructor Create(TheOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
property OleServer:IWebBrowser2 read FServer;
|
|
Published
|
|
property Align;
|
|
property Anchors;
|
|
property AutoSize;
|
|
property BorderSpacing;
|
|
property ChildSizing;
|
|
property ClientHeight;
|
|
property ClientWidth;
|
|
property Constraints;
|
|
property DockSite;
|
|
property DragCursor;
|
|
property DragKind;
|
|
property DragMode;
|
|
property Enabled;
|
|
property ParentShowHint;
|
|
property PopupMenu;
|
|
property ShowHint;
|
|
property TabOrder;
|
|
property TabStop;
|
|
property UseDockManager default True;
|
|
property Visible;
|
|
property OnContextPopup;
|
|
property OnDockDrop;
|
|
property OnDockOver;
|
|
property OnDragDrop;
|
|
property OnDragOver;
|
|
property OnEndDock;
|
|
property OnEndDrag;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnGetSiteInfo;
|
|
property OnGetDockCaption;
|
|
property OnResize;
|
|
property OnStartDock;
|
|
property OnStartDrag;
|
|
property OnStatusText;
|
|
property OnUnDock;
|
|
property OnStatusTextChange : TDWebBrowserEvents2StatusTextChange read FOnStatusTextChange write FOnStatusTextChange;
|
|
property OnProgressChange : TDWebBrowserEvents2ProgressChange read FOnProgressChange write FOnProgressChange;
|
|
property OnCommandStateChange : TDWebBrowserEvents2CommandStateChange read FOnCommandStateChange write FOnCommandStateChange;
|
|
property OnDownloadBegin : TDWebBrowserEvents2DownloadBegin read FOnDownloadBegin write FOnDownloadBegin;
|
|
property OnDownloadComplete : TDWebBrowserEvents2DownloadComplete read FOnDownloadComplete write FOnDownloadComplete;
|
|
property OnTitleChange : TDWebBrowserEvents2TitleChange read FOnTitleChange write FOnTitleChange;
|
|
property OnPropertyChange : TDWebBrowserEvents2PropertyChange read FOnPropertyChange write FOnPropertyChange;
|
|
property OnBeforeNavigate2 : TDWebBrowserEvents2BeforeNavigate2 read FOnBeforeNavigate2 write FOnBeforeNavigate2;
|
|
property OnNewWindow2 : TDWebBrowserEvents2NewWindow2 read FOnNewWindow2 write FOnNewWindow2;
|
|
property OnNavigateComplete2 : TDWebBrowserEvents2NavigateComplete2 read FOnNavigateComplete2 write FOnNavigateComplete2;
|
|
property OnDocumentComplete : TDWebBrowserEvents2DocumentComplete read FOnDocumentComplete write FOnDocumentComplete;
|
|
property OnOnQuit : TDWebBrowserEvents2OnQuit read FOnOnQuit write FOnOnQuit;
|
|
property OnOnVisible : TDWebBrowserEvents2OnVisible read FOnOnVisible write FOnOnVisible;
|
|
property OnOnToolBar : TDWebBrowserEvents2OnToolBar read FOnOnToolBar write FOnOnToolBar;
|
|
property OnOnMenuBar : TDWebBrowserEvents2OnMenuBar read FOnOnMenuBar write FOnOnMenuBar;
|
|
property OnOnStatusBar : TDWebBrowserEvents2OnStatusBar read FOnOnStatusBar write FOnOnStatusBar;
|
|
property OnOnFullScreen : TDWebBrowserEvents2OnFullScreen read FOnOnFullScreen write FOnOnFullScreen;
|
|
property OnOnTheaterMode : TDWebBrowserEvents2OnTheaterMode read FOnOnTheaterMode write FOnOnTheaterMode;
|
|
property OnWindowSetResizable : TDWebBrowserEvents2WindowSetResizable read FOnWindowSetResizable write FOnWindowSetResizable;
|
|
property OnWindowSetLeft : TDWebBrowserEvents2WindowSetLeft read FOnWindowSetLeft write FOnWindowSetLeft;
|
|
property OnWindowSetTop : TDWebBrowserEvents2WindowSetTop read FOnWindowSetTop write FOnWindowSetTop;
|
|
property OnWindowSetWidth : TDWebBrowserEvents2WindowSetWidth read FOnWindowSetWidth write FOnWindowSetWidth;
|
|
property OnWindowSetHeight : TDWebBrowserEvents2WindowSetHeight read FOnWindowSetHeight write FOnWindowSetHeight;
|
|
property OnWindowClosing : TDWebBrowserEvents2WindowClosing read FOnWindowClosing write FOnWindowClosing;
|
|
property OnClientToHostWindow : TDWebBrowserEvents2ClientToHostWindow read FOnClientToHostWindow write FOnClientToHostWindow;
|
|
property OnSetSecureLockIcon : TDWebBrowserEvents2SetSecureLockIcon read FOnSetSecureLockIcon write FOnSetSecureLockIcon;
|
|
property OnFileDownload : TDWebBrowserEvents2FileDownload read FOnFileDownload write FOnFileDownload;
|
|
property OnNavigateError : TDWebBrowserEvents2NavigateError read FOnNavigateError write FOnNavigateError;
|
|
property OnPrintTemplateInstantiation : TDWebBrowserEvents2PrintTemplateInstantiation read FOnPrintTemplateInstantiation write FOnPrintTemplateInstantiation;
|
|
property OnPrintTemplateTeardown : TDWebBrowserEvents2PrintTemplateTeardown read FOnPrintTemplateTeardown write FOnPrintTemplateTeardown;
|
|
property OnUpdatePageStatus : TDWebBrowserEvents2UpdatePageStatus read FOnUpdatePageStatus write FOnUpdatePageStatus;
|
|
property OnPrivacyImpactedStateChange : TDWebBrowserEvents2PrivacyImpactedStateChange read FOnPrivacyImpactedStateChange write FOnPrivacyImpactedStateChange;
|
|
property OnNewWindow3 : TDWebBrowserEvents2NewWindow3 read FOnNewWindow3 write FOnNewWindow3;
|
|
property OnSetPhishingFilterStatus : TDWebBrowserEvents2SetPhishingFilterStatus read FOnSetPhishingFilterStatus write FOnSetPhishingFilterStatus;
|
|
property OnWindowStateChanged : TDWebBrowserEvents2WindowStateChanged read FOnWindowStateChanged write FOnWindowStateChanged;
|
|
property OnNewProcess : TDWebBrowserEvents2NewProcess read FOnNewProcess write FOnNewProcess;
|
|
property OnThirdPartyUrlBlocked : TDWebBrowserEvents2ThirdPartyUrlBlocked read FOnThirdPartyUrlBlocked write FOnThirdPartyUrlBlocked;
|
|
property OnRedirectXDomainBlocked : TDWebBrowserEvents2RedirectXDomainBlocked read FOnRedirectXDomainBlocked write FOnRedirectXDomainBlocked;
|
|
property OnBeforeScriptExecute : TDWebBrowserEvents2BeforeScriptExecute read FOnBeforeScriptExecute write FOnBeforeScriptExecute;
|
|
property OnWebWorkerStarted : TDWebBrowserEvents2WebWorkerStarted read FOnWebWorkerStarted write FOnWebWorkerStarted;
|
|
property OnWebWorkerFinsihed : TDWebBrowserEvents2WebWorkerFinsihed read FOnWebWorkerFinsihed write FOnWebWorkerFinsihed;
|
|
|
|
property Active;
|
|
end;
|
|
|
|
{$ENDIF TInternetExplorerMedium}
|
|
|
|
{$IFDEF TShellBrowserWindow}
|
|
|
|
CoShellBrowserWindow = Class
|
|
Public
|
|
Class Function Create: IWebBrowser2;
|
|
Class Function CreateRemote(const MachineName: string): IWebBrowser2;
|
|
end;
|
|
|
|
TShellBrowserWindow = Class(TActiveXContainer)
|
|
Private
|
|
FServer:IWebBrowser2;
|
|
FOnStatusTextChange:TDWebBrowserEvents2StatusTextChange;
|
|
FOnProgressChange:TDWebBrowserEvents2ProgressChange;
|
|
FOnCommandStateChange:TDWebBrowserEvents2CommandStateChange;
|
|
FOnDownloadBegin:TDWebBrowserEvents2DownloadBegin;
|
|
FOnDownloadComplete:TDWebBrowserEvents2DownloadComplete;
|
|
FOnTitleChange:TDWebBrowserEvents2TitleChange;
|
|
FOnPropertyChange:TDWebBrowserEvents2PropertyChange;
|
|
FOnBeforeNavigate2:TDWebBrowserEvents2BeforeNavigate2;
|
|
FOnNewWindow2:TDWebBrowserEvents2NewWindow2;
|
|
FOnNavigateComplete2:TDWebBrowserEvents2NavigateComplete2;
|
|
FOnDocumentComplete:TDWebBrowserEvents2DocumentComplete;
|
|
FOnOnQuit:TDWebBrowserEvents2OnQuit;
|
|
FOnOnVisible:TDWebBrowserEvents2OnVisible;
|
|
FOnOnToolBar:TDWebBrowserEvents2OnToolBar;
|
|
FOnOnMenuBar:TDWebBrowserEvents2OnMenuBar;
|
|
FOnOnStatusBar:TDWebBrowserEvents2OnStatusBar;
|
|
FOnOnFullScreen:TDWebBrowserEvents2OnFullScreen;
|
|
FOnOnTheaterMode:TDWebBrowserEvents2OnTheaterMode;
|
|
FOnWindowSetResizable:TDWebBrowserEvents2WindowSetResizable;
|
|
FOnWindowSetLeft:TDWebBrowserEvents2WindowSetLeft;
|
|
FOnWindowSetTop:TDWebBrowserEvents2WindowSetTop;
|
|
FOnWindowSetWidth:TDWebBrowserEvents2WindowSetWidth;
|
|
FOnWindowSetHeight:TDWebBrowserEvents2WindowSetHeight;
|
|
FOnWindowClosing:TDWebBrowserEvents2WindowClosing;
|
|
FOnClientToHostWindow:TDWebBrowserEvents2ClientToHostWindow;
|
|
FOnSetSecureLockIcon:TDWebBrowserEvents2SetSecureLockIcon;
|
|
FOnFileDownload:TDWebBrowserEvents2FileDownload;
|
|
FOnNavigateError:TDWebBrowserEvents2NavigateError;
|
|
FOnPrintTemplateInstantiation:TDWebBrowserEvents2PrintTemplateInstantiation;
|
|
FOnPrintTemplateTeardown:TDWebBrowserEvents2PrintTemplateTeardown;
|
|
FOnUpdatePageStatus:TDWebBrowserEvents2UpdatePageStatus;
|
|
FOnPrivacyImpactedStateChange:TDWebBrowserEvents2PrivacyImpactedStateChange;
|
|
FOnNewWindow3:TDWebBrowserEvents2NewWindow3;
|
|
FOnSetPhishingFilterStatus:TDWebBrowserEvents2SetPhishingFilterStatus;
|
|
FOnWindowStateChanged:TDWebBrowserEvents2WindowStateChanged;
|
|
FOnNewProcess:TDWebBrowserEvents2NewProcess;
|
|
FOnThirdPartyUrlBlocked:TDWebBrowserEvents2ThirdPartyUrlBlocked;
|
|
FOnRedirectXDomainBlocked:TDWebBrowserEvents2RedirectXDomainBlocked;
|
|
FOnBeforeScriptExecute:TDWebBrowserEvents2BeforeScriptExecute;
|
|
FOnWebWorkerStarted:TDWebBrowserEvents2WebWorkerStarted;
|
|
FOnWebWorkerFinsihed:TDWebBrowserEvents2WebWorkerFinsihed;
|
|
|
|
FEventSink:TEventSink;
|
|
procedure EventSinkInvoke(Sender: TObject; DispID: Integer;
|
|
const IID: TGUID; LocaleID: Integer; Flags: Word;
|
|
Params: tagDISPPARAMS; VarResult, ExcepInfo, ArgErr: Pointer);
|
|
Public
|
|
constructor Create(TheOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
property OleServer:IWebBrowser2 read FServer;
|
|
Published
|
|
property Align;
|
|
property Anchors;
|
|
property AutoSize;
|
|
property BorderSpacing;
|
|
property ChildSizing;
|
|
property ClientHeight;
|
|
property ClientWidth;
|
|
property Constraints;
|
|
property DockSite;
|
|
property DragCursor;
|
|
property DragKind;
|
|
property DragMode;
|
|
property Enabled;
|
|
property ParentShowHint;
|
|
property PopupMenu;
|
|
property ShowHint;
|
|
property TabOrder;
|
|
property TabStop;
|
|
property UseDockManager default True;
|
|
property Visible;
|
|
property OnContextPopup;
|
|
property OnDockDrop;
|
|
property OnDockOver;
|
|
property OnDragDrop;
|
|
property OnDragOver;
|
|
property OnEndDock;
|
|
property OnEndDrag;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnGetSiteInfo;
|
|
property OnGetDockCaption;
|
|
property OnResize;
|
|
property OnStartDock;
|
|
property OnStartDrag;
|
|
property OnStatusText;
|
|
property OnUnDock;
|
|
property OnStatusTextChange : TDWebBrowserEvents2StatusTextChange read FOnStatusTextChange write FOnStatusTextChange;
|
|
property OnProgressChange : TDWebBrowserEvents2ProgressChange read FOnProgressChange write FOnProgressChange;
|
|
property OnCommandStateChange : TDWebBrowserEvents2CommandStateChange read FOnCommandStateChange write FOnCommandStateChange;
|
|
property OnDownloadBegin : TDWebBrowserEvents2DownloadBegin read FOnDownloadBegin write FOnDownloadBegin;
|
|
property OnDownloadComplete : TDWebBrowserEvents2DownloadComplete read FOnDownloadComplete write FOnDownloadComplete;
|
|
property OnTitleChange : TDWebBrowserEvents2TitleChange read FOnTitleChange write FOnTitleChange;
|
|
property OnPropertyChange : TDWebBrowserEvents2PropertyChange read FOnPropertyChange write FOnPropertyChange;
|
|
property OnBeforeNavigate2 : TDWebBrowserEvents2BeforeNavigate2 read FOnBeforeNavigate2 write FOnBeforeNavigate2;
|
|
property OnNewWindow2 : TDWebBrowserEvents2NewWindow2 read FOnNewWindow2 write FOnNewWindow2;
|
|
property OnNavigateComplete2 : TDWebBrowserEvents2NavigateComplete2 read FOnNavigateComplete2 write FOnNavigateComplete2;
|
|
property OnDocumentComplete : TDWebBrowserEvents2DocumentComplete read FOnDocumentComplete write FOnDocumentComplete;
|
|
property OnOnQuit : TDWebBrowserEvents2OnQuit read FOnOnQuit write FOnOnQuit;
|
|
property OnOnVisible : TDWebBrowserEvents2OnVisible read FOnOnVisible write FOnOnVisible;
|
|
property OnOnToolBar : TDWebBrowserEvents2OnToolBar read FOnOnToolBar write FOnOnToolBar;
|
|
property OnOnMenuBar : TDWebBrowserEvents2OnMenuBar read FOnOnMenuBar write FOnOnMenuBar;
|
|
property OnOnStatusBar : TDWebBrowserEvents2OnStatusBar read FOnOnStatusBar write FOnOnStatusBar;
|
|
property OnOnFullScreen : TDWebBrowserEvents2OnFullScreen read FOnOnFullScreen write FOnOnFullScreen;
|
|
property OnOnTheaterMode : TDWebBrowserEvents2OnTheaterMode read FOnOnTheaterMode write FOnOnTheaterMode;
|
|
property OnWindowSetResizable : TDWebBrowserEvents2WindowSetResizable read FOnWindowSetResizable write FOnWindowSetResizable;
|
|
property OnWindowSetLeft : TDWebBrowserEvents2WindowSetLeft read FOnWindowSetLeft write FOnWindowSetLeft;
|
|
property OnWindowSetTop : TDWebBrowserEvents2WindowSetTop read FOnWindowSetTop write FOnWindowSetTop;
|
|
property OnWindowSetWidth : TDWebBrowserEvents2WindowSetWidth read FOnWindowSetWidth write FOnWindowSetWidth;
|
|
property OnWindowSetHeight : TDWebBrowserEvents2WindowSetHeight read FOnWindowSetHeight write FOnWindowSetHeight;
|
|
property OnWindowClosing : TDWebBrowserEvents2WindowClosing read FOnWindowClosing write FOnWindowClosing;
|
|
property OnClientToHostWindow : TDWebBrowserEvents2ClientToHostWindow read FOnClientToHostWindow write FOnClientToHostWindow;
|
|
property OnSetSecureLockIcon : TDWebBrowserEvents2SetSecureLockIcon read FOnSetSecureLockIcon write FOnSetSecureLockIcon;
|
|
property OnFileDownload : TDWebBrowserEvents2FileDownload read FOnFileDownload write FOnFileDownload;
|
|
property OnNavigateError : TDWebBrowserEvents2NavigateError read FOnNavigateError write FOnNavigateError;
|
|
property OnPrintTemplateInstantiation : TDWebBrowserEvents2PrintTemplateInstantiation read FOnPrintTemplateInstantiation write FOnPrintTemplateInstantiation;
|
|
property OnPrintTemplateTeardown : TDWebBrowserEvents2PrintTemplateTeardown read FOnPrintTemplateTeardown write FOnPrintTemplateTeardown;
|
|
property OnUpdatePageStatus : TDWebBrowserEvents2UpdatePageStatus read FOnUpdatePageStatus write FOnUpdatePageStatus;
|
|
property OnPrivacyImpactedStateChange : TDWebBrowserEvents2PrivacyImpactedStateChange read FOnPrivacyImpactedStateChange write FOnPrivacyImpactedStateChange;
|
|
property OnNewWindow3 : TDWebBrowserEvents2NewWindow3 read FOnNewWindow3 write FOnNewWindow3;
|
|
property OnSetPhishingFilterStatus : TDWebBrowserEvents2SetPhishingFilterStatus read FOnSetPhishingFilterStatus write FOnSetPhishingFilterStatus;
|
|
property OnWindowStateChanged : TDWebBrowserEvents2WindowStateChanged read FOnWindowStateChanged write FOnWindowStateChanged;
|
|
property OnNewProcess : TDWebBrowserEvents2NewProcess read FOnNewProcess write FOnNewProcess;
|
|
property OnThirdPartyUrlBlocked : TDWebBrowserEvents2ThirdPartyUrlBlocked read FOnThirdPartyUrlBlocked write FOnThirdPartyUrlBlocked;
|
|
property OnRedirectXDomainBlocked : TDWebBrowserEvents2RedirectXDomainBlocked read FOnRedirectXDomainBlocked write FOnRedirectXDomainBlocked;
|
|
property OnBeforeScriptExecute : TDWebBrowserEvents2BeforeScriptExecute read FOnBeforeScriptExecute write FOnBeforeScriptExecute;
|
|
property OnWebWorkerStarted : TDWebBrowserEvents2WebWorkerStarted read FOnWebWorkerStarted write FOnWebWorkerStarted;
|
|
property OnWebWorkerFinsihed : TDWebBrowserEvents2WebWorkerFinsihed read FOnWebWorkerFinsihed write FOnWebWorkerFinsihed;
|
|
|
|
property Active;
|
|
end;
|
|
|
|
{$ENDIF TShellBrowserWindow}
|
|
|
|
TDShellWindowsEventsWindowRegistered = procedure(Sender: TObject;lCookie:Integer) of object;
|
|
TDShellWindowsEventsWindowRevoked = procedure(Sender: TObject;lCookie:Integer) of object;
|
|
|
|
|
|
{$IFDEF TShellWindows}
|
|
|
|
CoShellWindows = Class
|
|
Public
|
|
Class Function Create: IShellWindows;
|
|
Class Function CreateRemote(const MachineName: string): IShellWindows;
|
|
end;
|
|
|
|
TShellWindows = Class(TActiveXContainer)
|
|
Private
|
|
FServer:IShellWindows;
|
|
FOnWindowRegistered:TDShellWindowsEventsWindowRegistered;
|
|
FOnWindowRevoked:TDShellWindowsEventsWindowRevoked;
|
|
|
|
FEventSink:TEventSink;
|
|
procedure EventSinkInvoke(Sender: TObject; DispID: Integer;
|
|
const IID: TGUID; LocaleID: Integer; Flags: Word;
|
|
Params: tagDISPPARAMS; VarResult, ExcepInfo, ArgErr: Pointer);
|
|
Public
|
|
constructor Create(TheOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
property OleServer:IShellWindows read FServer;
|
|
Published
|
|
property Align;
|
|
property Anchors;
|
|
property AutoSize;
|
|
property BorderSpacing;
|
|
property ChildSizing;
|
|
property ClientHeight;
|
|
property ClientWidth;
|
|
property Constraints;
|
|
property DockSite;
|
|
property DragCursor;
|
|
property DragKind;
|
|
property DragMode;
|
|
property Enabled;
|
|
property ParentShowHint;
|
|
property PopupMenu;
|
|
property ShowHint;
|
|
property TabOrder;
|
|
property TabStop;
|
|
property UseDockManager default True;
|
|
property Visible;
|
|
property OnContextPopup;
|
|
property OnDockDrop;
|
|
property OnDockOver;
|
|
property OnDragDrop;
|
|
property OnDragOver;
|
|
property OnEndDock;
|
|
property OnEndDrag;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnGetSiteInfo;
|
|
property OnGetDockCaption;
|
|
property OnResize;
|
|
property OnStartDock;
|
|
property OnStartDrag;
|
|
property OnStatusText;
|
|
property OnUnDock;
|
|
property OnWindowRegistered : TDShellWindowsEventsWindowRegistered read FOnWindowRegistered write FOnWindowRegistered;
|
|
property OnWindowRevoked : TDShellWindowsEventsWindowRevoked read FOnWindowRevoked write FOnWindowRevoked;
|
|
|
|
property Active;
|
|
end;
|
|
|
|
{$ENDIF TShellWindows}
|
|
|
|
{$IFDEF TShellUIHelper}
|
|
|
|
CoShellUIHelper = Class
|
|
Public
|
|
Class Function Create: IShellUIHelper5;
|
|
Class Function CreateRemote(const MachineName: string): IShellUIHelper5;
|
|
end;
|
|
|
|
TShellUIHelper = Class(TActiveXContainer)
|
|
Private
|
|
FServer:IShellUIHelper5;
|
|
Public
|
|
constructor Create(TheOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
property OleServer:IShellUIHelper5 read FServer;
|
|
Published
|
|
property Align;
|
|
property Anchors;
|
|
property AutoSize;
|
|
property BorderSpacing;
|
|
property ChildSizing;
|
|
property ClientHeight;
|
|
property ClientWidth;
|
|
property Constraints;
|
|
property DockSite;
|
|
property DragCursor;
|
|
property DragKind;
|
|
property DragMode;
|
|
property Enabled;
|
|
property ParentShowHint;
|
|
property PopupMenu;
|
|
property ShowHint;
|
|
property TabOrder;
|
|
property TabStop;
|
|
property UseDockManager default True;
|
|
property Visible;
|
|
property OnContextPopup;
|
|
property OnDockDrop;
|
|
property OnDockOver;
|
|
property OnDragDrop;
|
|
property OnDragOver;
|
|
property OnEndDock;
|
|
property OnEndDrag;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnGetSiteInfo;
|
|
property OnGetDockCaption;
|
|
property OnResize;
|
|
property OnStartDock;
|
|
property OnStartDrag;
|
|
property OnStatusText;
|
|
property OnUnDock;
|
|
property Active;
|
|
end;
|
|
|
|
{$ENDIF TShellUIHelper}
|
|
|
|
TDShellNameSpaceEventsFavoritesSelectionChange = procedure(Sender: TObject;cItems:Integer;hItem:Integer;strName:WideString;strUrl:WideString;cVisits:Integer;strDate:WideString;fAvailableOffline:Integer) of object;
|
|
TDShellNameSpaceEventsSelectionChange = procedure(Sender: TObject) of object;
|
|
TDShellNameSpaceEventsDoubleClick = procedure(Sender: TObject) of object;
|
|
TDShellNameSpaceEventsInitialized = procedure(Sender: TObject) of object;
|
|
|
|
|
|
{$IFDEF TShellNameSpace}
|
|
|
|
CoShellNameSpace = Class
|
|
Public
|
|
Class Function Create: IShellNameSpace;
|
|
Class Function CreateRemote(const MachineName: string): IShellNameSpace;
|
|
end;
|
|
|
|
TShellNameSpace = Class(TActiveXContainer)
|
|
Private
|
|
FServer:IShellNameSpace;
|
|
FOnFavoritesSelectionChange:TDShellNameSpaceEventsFavoritesSelectionChange;
|
|
FOnSelectionChange:TDShellNameSpaceEventsSelectionChange;
|
|
FOnDoubleClick:TDShellNameSpaceEventsDoubleClick;
|
|
FOnInitialized:TDShellNameSpaceEventsInitialized;
|
|
|
|
FEventSink:TEventSink;
|
|
procedure EventSinkInvoke(Sender: TObject; DispID: Integer;
|
|
const IID: TGUID; LocaleID: Integer; Flags: Word;
|
|
Params: tagDISPPARAMS; VarResult, ExcepInfo, ArgErr: Pointer);
|
|
Public
|
|
constructor Create(TheOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
property OleServer:IShellNameSpace read FServer;
|
|
Published
|
|
property Align;
|
|
property Anchors;
|
|
property AutoSize;
|
|
property BorderSpacing;
|
|
property ChildSizing;
|
|
property ClientHeight;
|
|
property ClientWidth;
|
|
property Constraints;
|
|
property DockSite;
|
|
property DragCursor;
|
|
property DragKind;
|
|
property DragMode;
|
|
property Enabled;
|
|
property ParentShowHint;
|
|
property PopupMenu;
|
|
property ShowHint;
|
|
property TabOrder;
|
|
property TabStop;
|
|
property UseDockManager default True;
|
|
property Visible;
|
|
property OnContextPopup;
|
|
property OnDockDrop;
|
|
property OnDockOver;
|
|
property OnDragDrop;
|
|
property OnDragOver;
|
|
property OnEndDock;
|
|
property OnEndDrag;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnGetSiteInfo;
|
|
property OnGetDockCaption;
|
|
property OnResize;
|
|
property OnStartDock;
|
|
property OnStartDrag;
|
|
property OnStatusText;
|
|
property OnUnDock;
|
|
property OnFavoritesSelectionChange : TDShellNameSpaceEventsFavoritesSelectionChange read FOnFavoritesSelectionChange write FOnFavoritesSelectionChange;
|
|
property OnSelectionChange : TDShellNameSpaceEventsSelectionChange read FOnSelectionChange write FOnSelectionChange;
|
|
property OnDoubleClick : TDShellNameSpaceEventsDoubleClick read FOnDoubleClick write FOnDoubleClick;
|
|
property OnInitialized : TDShellNameSpaceEventsInitialized read FOnInitialized write FOnInitialized;
|
|
|
|
property Active;
|
|
end;
|
|
|
|
{$ENDIF TShellNameSpace}
|
|
|
|
|
|
{$IFDEF TCScriptErrorList}
|
|
CoCScriptErrorList = Class
|
|
Public
|
|
Class Function Create: IScriptErrorList;
|
|
Class Function CreateRemote(const MachineName: string): IScriptErrorList;
|
|
end;
|
|
|
|
TCScriptErrorList = Class(TActiveXContainer)
|
|
Private
|
|
FServer:IScriptErrorList;
|
|
Public
|
|
constructor Create(TheOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
property OleServer:IScriptErrorList read FServer;
|
|
Published
|
|
property Align;
|
|
property Anchors;
|
|
property AutoSize;
|
|
property BorderSpacing;
|
|
property ChildSizing;
|
|
property ClientHeight;
|
|
property ClientWidth;
|
|
property Constraints;
|
|
property DockSite;
|
|
property DragCursor;
|
|
property DragKind;
|
|
property DragMode;
|
|
property Enabled;
|
|
property ParentShowHint;
|
|
property PopupMenu;
|
|
property ShowHint;
|
|
property TabOrder;
|
|
property TabStop;
|
|
property UseDockManager default True;
|
|
property Visible;
|
|
property OnContextPopup;
|
|
property OnDockDrop;
|
|
property OnDockOver;
|
|
property OnDragDrop;
|
|
property OnDragOver;
|
|
property OnEndDock;
|
|
property OnEndDrag;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnGetSiteInfo;
|
|
property OnGetDockCaption;
|
|
property OnResize;
|
|
property OnStartDock;
|
|
property OnStartDrag;
|
|
property OnStatusText;
|
|
property OnUnDock;
|
|
property Active;
|
|
end;
|
|
|
|
{$ENDIF TCScriptErrorList}
|
|
|
|
implementation
|
|
|
|
uses comobj;
|
|
|
|
{$IFDEF TWebBrowser_V1}
|
|
|
|
Class Function CoWebBrowser_V1.Create: IWebBrowser;
|
|
begin
|
|
Result := CreateComObject(CLASS_WebBrowser_V1) as IWebBrowser;
|
|
end;
|
|
|
|
Class Function CoWebBrowser_V1.CreateRemote(const MachineName: string): IWebBrowser;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_WebBrowser_V1) as IWebBrowser;
|
|
end;
|
|
|
|
|
|
constructor TWebBrowser_V1.Create(TheOwner: TComponent);
|
|
begin
|
|
inherited Create(TheOwner);
|
|
FServer:=CoWebBrowser_V1.Create;
|
|
ComServer:=FServer;
|
|
FEventSink:=TEventSink.Create(Self);
|
|
FEventSink.OnInvoke:=EventSinkInvoke;
|
|
FEventSink.Connect(FServer,DWebBrowserEvents);
|
|
end;
|
|
|
|
destructor TWebBrowser_V1.Destroy;
|
|
begin
|
|
FEventSink.Destroy;
|
|
inherited destroy;
|
|
end;
|
|
|
|
procedure TWebBrowser_V1.EventSinkInvoke(Sender: TObject; DispID: Integer;
|
|
const IID: TGUID; LocaleID: Integer; Flags: Word; Params: tagDISPPARAMS;
|
|
VarResult, ExcepInfo, ArgErr: Pointer);
|
|
begin
|
|
case DispID of
|
|
100: if assigned(OnBeforeNavigate) then
|
|
OnBeforeNavigate(Self, OleVariant(Params.rgvarg[5]), OleVariant(Params.rgvarg[4]), OleVariant(Params.rgvarg[3]), OleVariant(Params.rgvarg[2].byRef^), OleVariant(Params.rgvarg[1]), Params.rgvarg[0].pbool^);
|
|
101: if assigned(OnNavigateComplete) then
|
|
OnNavigateComplete(Self, OleVariant(Params.rgvarg[0]));
|
|
102: if assigned(OnStatusTextChange) then
|
|
OnStatusTextChange(Self, OleVariant(Params.rgvarg[0]));
|
|
108: if assigned(OnProgressChange) then
|
|
OnProgressChange(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
104: if assigned(OnDownloadComplete) then
|
|
OnDownloadComplete(Self);
|
|
105: if assigned(OnCommandStateChange) then
|
|
OnCommandStateChange(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
106: if assigned(OnDownloadBegin) then
|
|
OnDownloadBegin(Self);
|
|
107: if assigned(OnNewWindow) then
|
|
OnNewWindow(Self, OleVariant(Params.rgvarg[5]), OleVariant(Params.rgvarg[4]), OleVariant(Params.rgvarg[3]), OleVariant(Params.rgvarg[2].byRef^), OleVariant(Params.rgvarg[1]), Params.rgvarg[0].pbool^);
|
|
113: if assigned(OnTitleChange) then
|
|
OnTitleChange(Self, OleVariant(Params.rgvarg[0]));
|
|
200: if assigned(OnFrameBeforeNavigate) then
|
|
OnFrameBeforeNavigate(Self, OleVariant(Params.rgvarg[5]), OleVariant(Params.rgvarg[4]), OleVariant(Params.rgvarg[3]), OleVariant(Params.rgvarg[2].byRef^), OleVariant(Params.rgvarg[1]), Params.rgvarg[0].pbool^);
|
|
201: if assigned(OnFrameNavigateComplete) then
|
|
OnFrameNavigateComplete(Self, OleVariant(Params.rgvarg[0]));
|
|
204: if assigned(OnFrameNewWindow) then
|
|
OnFrameNewWindow(Self, OleVariant(Params.rgvarg[5]), OleVariant(Params.rgvarg[4]), OleVariant(Params.rgvarg[3]), OleVariant(Params.rgvarg[2].byRef^), OleVariant(Params.rgvarg[1]), Params.rgvarg[0].pbool^);
|
|
103: if assigned(OnQuit) then
|
|
OnQuit(Self, Params.rgvarg[0].pbool^);
|
|
109: if assigned(OnWindowMove) then
|
|
OnWindowMove(Self);
|
|
110: if assigned(OnWindowResize) then
|
|
OnWindowResize(Self);
|
|
111: if assigned(OnWindowActivate) then
|
|
OnWindowActivate(Self);
|
|
112: if assigned(OnPropertyChange) then
|
|
OnPropertyChange(Self, OleVariant(Params.rgvarg[0]));
|
|
|
|
end;
|
|
end;
|
|
|
|
{$ENDIF TWebBrowser_V1}
|
|
|
|
|
|
{$IFDEF TWebBrowser}
|
|
|
|
Class Function CoWebBrowser.Create: IWebBrowser2;
|
|
begin
|
|
Result := CreateComObject(CLASS_WebBrowser) as IWebBrowser2;
|
|
end;
|
|
|
|
Class Function CoWebBrowser.CreateRemote(const MachineName: string): IWebBrowser2;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_WebBrowser) as IWebBrowser2;
|
|
end;
|
|
|
|
constructor TWebBrowser.Create(TheOwner: TComponent);
|
|
begin
|
|
inherited Create(TheOwner);
|
|
FServer:=CoWebBrowser.Create;
|
|
ComServer:=FServer;
|
|
// Don't move the code "Active:=True;" any lower
|
|
Self.Active:=True;
|
|
// initial default size
|
|
Width:= 300;
|
|
Height:=150;
|
|
// This code should be after "Active:=True;" Otherwise it will fail
|
|
FEventSink:=TEventSink.Create(Self);
|
|
FEventSink.OnInvoke:=EventSinkInvoke;
|
|
FEventSink.Connect(FServer,DWebBrowserEvents2);
|
|
end;
|
|
|
|
destructor TWebBrowser.Destroy;
|
|
begin
|
|
FEventSink.Destroy;
|
|
inherited destroy;
|
|
end;
|
|
|
|
procedure TWebBrowser.GoBack;
|
|
begin
|
|
FServer.GoBack;
|
|
end;
|
|
|
|
procedure TWebBrowser.GoForward;
|
|
begin
|
|
FServer.GoForward;
|
|
end;
|
|
|
|
procedure TWebBrowser.GoHome;
|
|
begin
|
|
FServer.GoHome;
|
|
end;
|
|
|
|
procedure TWebBrowser.GoSearch;
|
|
begin
|
|
FServer.GoSearch;
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate(const URL: WideString);
|
|
var
|
|
oURL,oNull:Olevariant;
|
|
begin
|
|
onull:=NULL;
|
|
oURL:=Utf8decode(URL);
|
|
OleServer.Navigate(oURL,oNull,oNull,oNull,oNull);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate(const URL: WideString; const Flags: OleVariant);
|
|
var
|
|
oURL, oFlags,oNull:Olevariant;
|
|
begin
|
|
oNull:=NULL;
|
|
oURL:=Utf8decode(URL);
|
|
oFlags:=Flags;
|
|
OleServer.Navigate(oURL, oFlags,oNull,oNull,oNull);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate(const URL: WideString; const Flags: OleVariant;
|
|
const TargetFrameName: OleVariant);
|
|
var
|
|
oURL, oFlags,oNull, oTargetFrameName:Olevariant;
|
|
begin
|
|
oNull:=NULL;
|
|
oURL:=Utf8decode(URL);
|
|
oFlags:=Flags;
|
|
oTargetFrameName:=TargetFrameName;
|
|
OleServer.Navigate(oURL, oFlags,oTargetFrameName,oNull,oNull);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate(const URL: WideString; const Flags: OleVariant;
|
|
const TargetFrameName: OleVariant; const PostData: OleVariant);
|
|
var
|
|
oURL, oFlags,oNull, oTargetFrameName, oPostData:Olevariant;
|
|
begin
|
|
oNull:=NULL;
|
|
oURL:=Utf8decode(URL);
|
|
oFlags:=Flags;
|
|
oTargetFrameName:=TargetFrameName;
|
|
oPostData:=PostData;
|
|
OleServer.Navigate(oURL, oFlags,oTargetFrameName,oPostData,oNull);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate(const URL: WideString; const Flags: OleVariant;
|
|
const TargetFrameName: OleVariant; const PostData: OleVariant;
|
|
const Headers: OleVariant);
|
|
var
|
|
oURL, oFlags, oTargetFrameName, oPostData, oHeaders:Olevariant;
|
|
begin
|
|
oURL:=Utf8decode(URL);
|
|
oFlags:=Flags;
|
|
oTargetFrameName:=TargetFrameName;
|
|
oPostData:=PostData;
|
|
oHeaders:=Headers;
|
|
OleServer.Navigate(oURL, oFlags,oTargetFrameName,oPostData,oHeaders);
|
|
end;
|
|
|
|
procedure TWebBrowser.Refresh;
|
|
begin
|
|
FServer.Refresh;
|
|
end;
|
|
|
|
procedure TWebBrowser.Refresh2;
|
|
var
|
|
oNull:Olevariant;
|
|
begin
|
|
oNull:=NULL;
|
|
FServer.Refresh2(oNull);
|
|
end;
|
|
|
|
procedure TWebBrowser.Refresh2(const Level: OleVariant);
|
|
var
|
|
oLevel:Olevariant;
|
|
|
|
begin
|
|
oLevel:=Level;
|
|
FServer.Refresh2(oLevel);
|
|
end;
|
|
|
|
procedure TWebBrowser.Stop;
|
|
begin
|
|
FServer.Stop;
|
|
end;
|
|
|
|
procedure TWebBrowser.Quit;
|
|
begin
|
|
FServer.Quit;
|
|
end;
|
|
|
|
procedure TWebBrowser.ClientToWindow(var pcx: SYSINT; var pcy: SYSINT);
|
|
begin
|
|
FServer.ClientToWindow(pcx,pcy);
|
|
end;
|
|
|
|
procedure TWebBrowser.PutProperty(const Property_: WideString;
|
|
vtValue: OleVariant);
|
|
begin
|
|
FServer.PutProperty(Property_,vtValue);
|
|
end;
|
|
|
|
function TWebBrowser.GetProperty(const Property_: WideString): OleVariant;
|
|
begin
|
|
FServer.GetProperty(Property_);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate2(const URL: OleVariant);
|
|
var
|
|
oURL,oNull:Olevariant;
|
|
begin
|
|
onull:=NULL;
|
|
oURL:=URL;
|
|
OleServer.Navigate2(oURL,oNull,oNull,oNull,oNull);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate2(const URL: OleVariant; const Flags: OleVariant);
|
|
var
|
|
oURL, oFlags,oNull:Olevariant;
|
|
begin
|
|
oNull:=NULL;
|
|
oURL:=URL;
|
|
oFlags:=Flags;
|
|
OleServer.Navigate2(oURL, oFlags,oNull,oNull,oNull);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate2(const URL: OleVariant; const Flags: OleVariant;
|
|
const TargetFrameName: OleVariant);
|
|
var
|
|
oURL, oFlags,oNull, oTargetFrameName:Olevariant;
|
|
begin
|
|
oNull:=NULL;
|
|
oURL:=URL;
|
|
oFlags:=Flags;
|
|
oTargetFrameName:=TargetFrameName;
|
|
OleServer.Navigate2(oURL, oFlags,oTargetFrameName,oNull,oNull);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate2(const URL: OleVariant; const Flags: OleVariant;
|
|
const TargetFrameName: OleVariant; const PostData: OleVariant);
|
|
var
|
|
oURL, oFlags,oNull, oTargetFrameName, oPostData:Olevariant;
|
|
begin
|
|
oNull:=NULL;
|
|
oURL:=URL;
|
|
oFlags:=Flags;
|
|
oTargetFrameName:=TargetFrameName;
|
|
oPostData:=PostData;
|
|
OleServer.Navigate2(oURL, oFlags,oTargetFrameName,oPostData,oNull);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate2(const URL: OleVariant; const Flags: OleVariant;
|
|
const TargetFrameName: OleVariant; const PostData: OleVariant;
|
|
const Headers: OleVariant);
|
|
var
|
|
oURL, oFlags, oTargetFrameName, oPostData, oHeaders:Olevariant;
|
|
begin
|
|
oURL:=URL;
|
|
oFlags:=Flags;
|
|
oTargetFrameName:=TargetFrameName;
|
|
oPostData:=PostData;
|
|
oHeaders:=Headers;
|
|
OleServer.Navigate2(oURL, oFlags,oTargetFrameName,oPostData,oHeaders);
|
|
end;
|
|
|
|
function TWebBrowser.QueryStatusWB(cmdID: OLECMDID): OLECMDF;
|
|
begin
|
|
FServer.QueryStatusWB(cmdID);
|
|
end;
|
|
|
|
procedure TWebBrowser.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT);
|
|
var
|
|
oNull:Olevariant;
|
|
begin
|
|
oNull:=Null;
|
|
FServer.ExecWB(cmdID, cmdexecopt, oNull, oNull);
|
|
end;
|
|
|
|
procedure TWebBrowser.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT;
|
|
const pvaIn: OleVariant);
|
|
var
|
|
oNull,opvaIn:Olevariant;
|
|
begin
|
|
oNull:=Null;
|
|
opvaIn:=pvaIn;
|
|
FServer.ExecWB(cmdID, cmdexecopt, opvaIn, oNull);
|
|
end;
|
|
|
|
procedure TWebBrowser.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT;
|
|
const pvaIn: OleVariant; var pvaOut: OleVariant);
|
|
var
|
|
opvaIn, opvaOut:Olevariant;
|
|
begin
|
|
opvaIn:=pvaIn;
|
|
opvaOut:=pvaOut;
|
|
FServer.ExecWB(cmdID, cmdexecopt, opvaIn, opvaOut);
|
|
end;
|
|
|
|
procedure TWebBrowser.ShowBrowserBar(const pvaClsid: OleVariant);
|
|
var oNull, opvaClsid: OleVariant;
|
|
begin
|
|
oNull:=Null;
|
|
opvaClsid:=pvaClsid;
|
|
FServer.ShowBrowserBar(opvaClsid, EmptyParam, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser.ShowBrowserBar(const pvaClsid: OleVariant;
|
|
const pvarShow: OleVariant);
|
|
var oNull, opvaClsid, opvarShow: OleVariant;
|
|
begin
|
|
oNull:=Null;
|
|
opvaClsid:=pvaClsid;
|
|
opvarShow:=pvarShow;
|
|
FServer.ShowBrowserBar(opvaClsid, opvarShow, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser.ShowBrowserBar(const pvaClsid: OleVariant;
|
|
const pvarShow: OleVariant; const pvarSize: OleVariant);
|
|
var opvaClsid, opvarShow, opvarSize: OleVariant;
|
|
begin
|
|
opvaClsid:=pvaClsid;
|
|
opvarShow:=pvarShow;
|
|
opvarSize:=pvarSize;
|
|
FServer.ShowBrowserBar(opvaClsid, opvarShow, opvarSize);
|
|
end;
|
|
|
|
procedure TWebBrowser.EventSinkInvoke(Sender: TObject; DispID: Integer;
|
|
const IID: TGUID; LocaleID: Integer; Flags: Word; Params: tagDISPPARAMS;
|
|
VarResult, ExcepInfo, ArgErr: Pointer);
|
|
begin
|
|
case DispID of
|
|
102: if assigned(OnStatusTextChange) then
|
|
OnStatusTextChange(Self, OleVariant(Params.rgvarg[0]));
|
|
108: if assigned(OnProgressChange) then
|
|
OnProgressChange(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
105: if assigned(OnCommandStateChange) then
|
|
OnCommandStateChange(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
106: if assigned(OnDownloadBegin) then
|
|
OnDownloadBegin(Self);
|
|
104: if assigned(OnDownloadComplete) then
|
|
OnDownloadComplete(Self);
|
|
113: if assigned(OnTitleChange) then
|
|
OnTitleChange(Self, OleVariant(Params.rgvarg[0]));
|
|
112: if assigned(OnPropertyChange) then
|
|
OnPropertyChange(Self, OleVariant(Params.rgvarg[0]));
|
|
250: if assigned(OnBeforeNavigate2) then
|
|
OnBeforeNavigate2(Self, OleVariant(Params.rgvarg[6]), OleVariant(Params.rgvarg[5].byRef^), OleVariant(Params.rgvarg[4].byRef^), OleVariant(Params.rgvarg[3].byRef^), OleVariant(Params.rgvarg[2].byRef^), OleVariant(Params.rgvarg[1].byRef^), Params.rgvarg[0].pbool^);
|
|
251: if assigned(OnNewWindow2) then
|
|
OnNewWindow2(Self, Params.rgvarg[1].pdispVal^, Params.rgvarg[0].pbool^);
|
|
252: if assigned(OnNavigateComplete2) then
|
|
OnNavigateComplete2(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0].byRef^));
|
|
259: if assigned(OnDocumentComplete) then
|
|
OnDocumentComplete(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0].byRef^));
|
|
253: if assigned(OnOnQuit) then
|
|
OnOnQuit(Self);
|
|
254: if assigned(OnOnVisible) then
|
|
OnOnVisible(Self, OleVariant(Params.rgvarg[0]));
|
|
255: if assigned(OnOnToolBar) then
|
|
OnOnToolBar(Self, OleVariant(Params.rgvarg[0]));
|
|
256: if assigned(OnOnMenuBar) then
|
|
OnOnMenuBar(Self, OleVariant(Params.rgvarg[0]));
|
|
257: if assigned(OnOnStatusBar) then
|
|
OnOnStatusBar(Self, OleVariant(Params.rgvarg[0]));
|
|
258: if assigned(OnOnFullScreen) then
|
|
OnOnFullScreen(Self, OleVariant(Params.rgvarg[0]));
|
|
260: if assigned(OnOnTheaterMode) then
|
|
OnOnTheaterMode(Self, OleVariant(Params.rgvarg[0]));
|
|
262: if assigned(OnWindowSetResizable) then
|
|
OnWindowSetResizable(Self, OleVariant(Params.rgvarg[0]));
|
|
264: if assigned(OnWindowSetLeft) then
|
|
OnWindowSetLeft(Self, OleVariant(Params.rgvarg[0]));
|
|
265: if assigned(OnWindowSetTop) then
|
|
OnWindowSetTop(Self, OleVariant(Params.rgvarg[0]));
|
|
266: if assigned(OnWindowSetWidth) then
|
|
OnWindowSetWidth(Self, OleVariant(Params.rgvarg[0]));
|
|
267: if assigned(OnWindowSetHeight) then
|
|
OnWindowSetHeight(Self, OleVariant(Params.rgvarg[0]));
|
|
263: if assigned(OnWindowClosing) then
|
|
OnWindowClosing(Self, OleVariant(Params.rgvarg[1]), Params.rgvarg[0].pbool^);
|
|
268: if assigned(OnClientToHostWindow) then
|
|
OnClientToHostWindow(Self, Params.rgvarg[1].plVal^, Params.rgvarg[0].plVal^);
|
|
269: if assigned(OnSetSecureLockIcon) then
|
|
OnSetSecureLockIcon(Self, OleVariant(Params.rgvarg[0]));
|
|
270: if assigned(OnFileDownload) then
|
|
OnFileDownload(Self, OleVariant(Params.rgvarg[1]), Params.rgvarg[0].pbool^);
|
|
271: if assigned(OnNavigateError) then
|
|
OnNavigateError(Self, OleVariant(Params.rgvarg[4]), OleVariant(Params.rgvarg[3].byRef^), OleVariant(Params.rgvarg[2].byRef^), OleVariant(Params.rgvarg[1].byRef^), Params.rgvarg[0].pbool^);
|
|
225: if assigned(OnPrintTemplateInstantiation) then
|
|
OnPrintTemplateInstantiation(Self, OleVariant(Params.rgvarg[0]));
|
|
226: if assigned(OnPrintTemplateTeardown) then
|
|
OnPrintTemplateTeardown(Self, OleVariant(Params.rgvarg[0]));
|
|
227: if assigned(OnUpdatePageStatus) then
|
|
OnUpdatePageStatus(Self, OleVariant(Params.rgvarg[2]), OleVariant(Params.rgvarg[1].byRef^), OleVariant(Params.rgvarg[0].byRef^));
|
|
272: if assigned(OnPrivacyImpactedStateChange) then
|
|
OnPrivacyImpactedStateChange(Self, OleVariant(Params.rgvarg[0]));
|
|
273: if assigned(OnNewWindow3) then
|
|
OnNewWindow3(Self, Params.rgvarg[4].pdispVal^, Params.rgvarg[3].pbool^, OleVariant(Params.rgvarg[2]), OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
282: if assigned(OnSetPhishingFilterStatus) then
|
|
OnSetPhishingFilterStatus(Self, OleVariant(Params.rgvarg[0]));
|
|
283: if assigned(OnWindowStateChanged) then
|
|
OnWindowStateChanged(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
284: if assigned(OnNewProcess) then
|
|
OnNewProcess(Self, OleVariant(Params.rgvarg[2]), OleVariant(Params.rgvarg[1]), Params.rgvarg[0].pbool^);
|
|
285: if assigned(OnThirdPartyUrlBlocked) then
|
|
OnThirdPartyUrlBlocked(Self, OleVariant(Params.rgvarg[1].byRef^), OleVariant(Params.rgvarg[0]));
|
|
286: if assigned(OnRedirectXDomainBlocked) then
|
|
OnRedirectXDomainBlocked(Self, OleVariant(Params.rgvarg[4]), OleVariant(Params.rgvarg[3].byRef^), OleVariant(Params.rgvarg[2].byRef^), OleVariant(Params.rgvarg[1].byRef^), OleVariant(Params.rgvarg[0].byRef^));
|
|
290: if assigned(OnBeforeScriptExecute) then
|
|
OnBeforeScriptExecute(Self, OleVariant(Params.rgvarg[0]));
|
|
288: if assigned(OnWebWorkerStarted) then
|
|
OnWebWorkerStarted(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
289: if assigned(OnWebWorkerFinsihed) then
|
|
OnWebWorkerFinsihed(Self, OleVariant(Params.rgvarg[0]));
|
|
|
|
end;
|
|
end;
|
|
|
|
function TWebBrowser.GetAddressBar: WordBool;
|
|
begin
|
|
Result:=FServer.Get_AddressBar;
|
|
end;
|
|
|
|
function TWebBrowser.GetApplication: IDispatch;
|
|
begin
|
|
Result:=FServer.Get_Application;
|
|
end;
|
|
|
|
function TWebBrowser.GetBusy: WordBool;
|
|
begin
|
|
Result:=FServer.Get_Busy;
|
|
end;
|
|
|
|
function TWebBrowser.GetContainer: IDispatch;
|
|
begin
|
|
Result:=FServer.Get_Container;
|
|
end;
|
|
|
|
function TWebBrowser.GetDocument: IDispatch;
|
|
begin
|
|
Result:=FServer.Get_Document;
|
|
end;
|
|
|
|
function TWebBrowser.GetFullName: WideString;
|
|
begin
|
|
Result:=FServer.Get_FullName;
|
|
end;
|
|
|
|
function TWebBrowser.GetFullScreen: WordBool;
|
|
begin
|
|
Result:=FServer.Get_FullScreen;
|
|
end;
|
|
|
|
function TWebBrowser.GetHWND: HWND;
|
|
begin
|
|
Result:=FServer.Get_HWND;
|
|
end;
|
|
|
|
|
|
function TWebBrowser.GetLocationName: WideString;
|
|
begin
|
|
Result:=FServer.Get_LocationName;
|
|
end;
|
|
|
|
function TWebBrowser.GetLocationURL: WideString;
|
|
begin
|
|
Result:= FServer.Get_LocationURL;
|
|
end;
|
|
|
|
function TWebBrowser.GetMenuBar: WordBool;
|
|
begin
|
|
Result:=FServer.Get_MenuBar;
|
|
end;
|
|
|
|
function TWebBrowser.GetName: WideString;
|
|
begin
|
|
Result:=FServer.Get_Name;
|
|
end;
|
|
|
|
function TWebBrowser.GetOffline: WordBool;
|
|
begin
|
|
Result:=FServer.Get_Offline;
|
|
end;
|
|
|
|
function TWebBrowser.GetParent: IDispatch;
|
|
begin
|
|
Result:=FServer.Get_Parent;
|
|
end;
|
|
|
|
function TWebBrowser.GetPath: WideString;
|
|
begin
|
|
Result:=FServer.Get_Path;
|
|
end;
|
|
|
|
function TWebBrowser.GetReadyState: TOleEnum;
|
|
begin
|
|
Result:=FServer.Get_ReadyState;
|
|
end;
|
|
|
|
function TWebBrowser.GetRegisterAsBrowser: WordBool;
|
|
begin
|
|
Result:=FServer.Get_RegisterAsBrowser;
|
|
end;
|
|
|
|
function TWebBrowser.GetRegisterAsDropTarget: WordBool;
|
|
begin
|
|
Result:=FServer.Get_RegisterAsDropTarget;
|
|
end;
|
|
|
|
function TWebBrowser.GetResizable: WordBool;
|
|
begin
|
|
try
|
|
Result:=FServer.Get_Resizable;
|
|
except
|
|
Result:=False;
|
|
end;
|
|
end;
|
|
|
|
function TWebBrowser.GetSilent: WordBool;
|
|
begin
|
|
Result:=FServer.Get_Silent;
|
|
end;
|
|
|
|
function TWebBrowser.GetStatusBar: WordBool;
|
|
begin
|
|
Result:=FServer.Get_StatusBar;
|
|
end;
|
|
|
|
function TWebBrowser.GetStatusText: WideString;
|
|
begin
|
|
try
|
|
Result:=FServer.Get_StatusText;
|
|
except
|
|
Result:='';
|
|
end;
|
|
end;
|
|
|
|
function TWebBrowser.GetTheaterMode: WordBool;
|
|
begin
|
|
Result:=FServer.Get_TheaterMode;
|
|
end;
|
|
|
|
function TWebBrowser.GetToolBar: SYSINT;
|
|
begin
|
|
Result:=FServer.Get_ToolBar;
|
|
end;
|
|
|
|
function TWebBrowser.GetTopLevelContainer: WordBool;
|
|
begin
|
|
Result:=FServer.Get_TopLevelContainer;
|
|
end;
|
|
|
|
function TWebBrowser.Gettype_: WideString;
|
|
begin
|
|
Result:=FServer.Get_Type_;
|
|
end;
|
|
|
|
procedure TWebBrowser.SetAddressBar(AValue: WordBool);
|
|
begin
|
|
FServer.Set_AddressBar(AValue);
|
|
end;
|
|
|
|
procedure TWebBrowser.SetFullScreen(AValue: WordBool);
|
|
begin
|
|
FServer.Set_FullScreen(AValue);
|
|
end;
|
|
|
|
procedure TWebBrowser.SetMenuBar(AValue: WordBool);
|
|
begin
|
|
FServer.Set_MenuBar(AValue);
|
|
end;
|
|
|
|
procedure TWebBrowser.SetOffline(AValue: WordBool);
|
|
begin
|
|
FServer.Set_Offline(AValue);
|
|
end;
|
|
|
|
procedure TWebBrowser.SetRegisterAsBrowser(AValue: WordBool);
|
|
begin
|
|
FServer.Set_RegisterAsBrowser(AValue);
|
|
end;
|
|
|
|
procedure TWebBrowser.SetRegisterAsDropTarget(AValue: WordBool);
|
|
begin
|
|
FServer.Set_RegisterAsDropTarget(AValue);
|
|
end;
|
|
|
|
procedure TWebBrowser.SetResizable(AValue: WordBool);
|
|
begin
|
|
FServer.Set_Resizable(AValue);
|
|
end;
|
|
|
|
procedure TWebBrowser.SetSilent(AValue: WordBool);
|
|
var
|
|
Temp: TVarData;
|
|
begin
|
|
FServer.Set_Silent(AValue);
|
|
end;
|
|
|
|
procedure TWebBrowser.SetStatusBar(AValue: WordBool);
|
|
begin
|
|
FServer.Set_StatusBar(AValue);
|
|
end;
|
|
|
|
procedure TWebBrowser.SetStatusText(AValue: WideString);
|
|
begin
|
|
FServer.Set_StatusText(AValue);
|
|
end;
|
|
|
|
procedure TWebBrowser.SetTheaterMode(AValue: WordBool);
|
|
begin
|
|
FServer.Set_TheaterMode(AValue);
|
|
end;
|
|
|
|
procedure TWebBrowser.SetToolBar(AValue: SYSINT);
|
|
begin
|
|
FServer.Set_ToolBar(AValue);
|
|
end;
|
|
|
|
|
|
{$ENDIF TWebBrowser}
|
|
|
|
{$IFDEF TInternetExplorer}
|
|
|
|
Class Function CoInternetExplorer.Create: IWebBrowser2;
|
|
begin
|
|
Result := CreateComObject(CLASS_InternetExplorer) as IWebBrowser2;
|
|
end;
|
|
|
|
Class Function CoInternetExplorer.CreateRemote(const MachineName: string): IWebBrowser2;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_InternetExplorer) as IWebBrowser2;
|
|
end;
|
|
|
|
constructor TInternetExplorer.Create(TheOwner: TComponent);
|
|
begin
|
|
inherited Create(TheOwner);
|
|
FServer:=CoInternetExplorer.Create;
|
|
ComServer:=FServer;
|
|
FEventSink:=TEventSink.Create(Self);
|
|
FEventSink.OnInvoke:=EventSinkInvoke;
|
|
FEventSink.Connect(FServer,DWebBrowserEvents2);
|
|
end;
|
|
|
|
destructor TInternetExplorer.Destroy;
|
|
begin
|
|
FEventSink.Destroy;
|
|
inherited destroy;
|
|
end;
|
|
|
|
procedure TInternetExplorer.EventSinkInvoke(Sender: TObject; DispID: Integer;
|
|
const IID: TGUID; LocaleID: Integer; Flags: Word; Params: tagDISPPARAMS;
|
|
VarResult, ExcepInfo, ArgErr: Pointer);
|
|
begin
|
|
case DispID of
|
|
102: if assigned(OnStatusTextChange) then
|
|
OnStatusTextChange(Self, OleVariant(Params.rgvarg[0]));
|
|
108: if assigned(OnProgressChange) then
|
|
OnProgressChange(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
105: if assigned(OnCommandStateChange) then
|
|
OnCommandStateChange(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
106: if assigned(OnDownloadBegin) then
|
|
OnDownloadBegin(Self);
|
|
104: if assigned(OnDownloadComplete) then
|
|
OnDownloadComplete(Self);
|
|
113: if assigned(OnTitleChange) then
|
|
OnTitleChange(Self, OleVariant(Params.rgvarg[0]));
|
|
112: if assigned(OnPropertyChange) then
|
|
OnPropertyChange(Self, OleVariant(Params.rgvarg[0]));
|
|
250: if assigned(OnBeforeNavigate2) then
|
|
OnBeforeNavigate2(Self, OleVariant(Params.rgvarg[6]), OleVariant(Params.rgvarg[5].byRef^), OleVariant(Params.rgvarg[4].byRef^), OleVariant(Params.rgvarg[3].byRef^), OleVariant(Params.rgvarg[2].byRef^), OleVariant(Params.rgvarg[1].byRef^), Params.rgvarg[0].pbool^);
|
|
251: if assigned(OnNewWindow2) then
|
|
OnNewWindow2(Self, Params.rgvarg[1].pdispVal^, Params.rgvarg[0].pbool^);
|
|
252: if assigned(OnNavigateComplete2) then
|
|
OnNavigateComplete2(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0].byRef^));
|
|
259: if assigned(OnDocumentComplete) then
|
|
OnDocumentComplete(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0].byRef^));
|
|
253: if assigned(OnOnQuit) then
|
|
OnOnQuit(Self);
|
|
254: if assigned(OnOnVisible) then
|
|
OnOnVisible(Self, OleVariant(Params.rgvarg[0]));
|
|
255: if assigned(OnOnToolBar) then
|
|
OnOnToolBar(Self, OleVariant(Params.rgvarg[0]));
|
|
256: if assigned(OnOnMenuBar) then
|
|
OnOnMenuBar(Self, OleVariant(Params.rgvarg[0]));
|
|
257: if assigned(OnOnStatusBar) then
|
|
OnOnStatusBar(Self, OleVariant(Params.rgvarg[0]));
|
|
258: if assigned(OnOnFullScreen) then
|
|
OnOnFullScreen(Self, OleVariant(Params.rgvarg[0]));
|
|
260: if assigned(OnOnTheaterMode) then
|
|
OnOnTheaterMode(Self, OleVariant(Params.rgvarg[0]));
|
|
262: if assigned(OnWindowSetResizable) then
|
|
OnWindowSetResizable(Self, OleVariant(Params.rgvarg[0]));
|
|
264: if assigned(OnWindowSetLeft) then
|
|
OnWindowSetLeft(Self, OleVariant(Params.rgvarg[0]));
|
|
265: if assigned(OnWindowSetTop) then
|
|
OnWindowSetTop(Self, OleVariant(Params.rgvarg[0]));
|
|
266: if assigned(OnWindowSetWidth) then
|
|
OnWindowSetWidth(Self, OleVariant(Params.rgvarg[0]));
|
|
267: if assigned(OnWindowSetHeight) then
|
|
OnWindowSetHeight(Self, OleVariant(Params.rgvarg[0]));
|
|
263: if assigned(OnWindowClosing) then
|
|
OnWindowClosing(Self, OleVariant(Params.rgvarg[1]), Params.rgvarg[0].pbool^);
|
|
268: if assigned(OnClientToHostWindow) then
|
|
OnClientToHostWindow(Self, Params.rgvarg[1].plVal^, Params.rgvarg[0].plVal^);
|
|
269: if assigned(OnSetSecureLockIcon) then
|
|
OnSetSecureLockIcon(Self, OleVariant(Params.rgvarg[0]));
|
|
270: if assigned(OnFileDownload) then
|
|
OnFileDownload(Self, OleVariant(Params.rgvarg[1]), Params.rgvarg[0].pbool^);
|
|
271: if assigned(OnNavigateError) then
|
|
OnNavigateError(Self, OleVariant(Params.rgvarg[4]), OleVariant(Params.rgvarg[3].byRef^), OleVariant(Params.rgvarg[2].byRef^), OleVariant(Params.rgvarg[1].byRef^), Params.rgvarg[0].pbool^);
|
|
225: if assigned(OnPrintTemplateInstantiation) then
|
|
OnPrintTemplateInstantiation(Self, OleVariant(Params.rgvarg[0]));
|
|
226: if assigned(OnPrintTemplateTeardown) then
|
|
OnPrintTemplateTeardown(Self, OleVariant(Params.rgvarg[0]));
|
|
227: if assigned(OnUpdatePageStatus) then
|
|
OnUpdatePageStatus(Self, OleVariant(Params.rgvarg[2]), OleVariant(Params.rgvarg[1].byRef^), OleVariant(Params.rgvarg[0].byRef^));
|
|
272: if assigned(OnPrivacyImpactedStateChange) then
|
|
OnPrivacyImpactedStateChange(Self, OleVariant(Params.rgvarg[0]));
|
|
273: if assigned(OnNewWindow3) then
|
|
OnNewWindow3(Self, Params.rgvarg[4].pdispVal^, Params.rgvarg[3].pbool^, OleVariant(Params.rgvarg[2]), OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
282: if assigned(OnSetPhishingFilterStatus) then
|
|
OnSetPhishingFilterStatus(Self, OleVariant(Params.rgvarg[0]));
|
|
283: if assigned(OnWindowStateChanged) then
|
|
OnWindowStateChanged(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
284: if assigned(OnNewProcess) then
|
|
OnNewProcess(Self, OleVariant(Params.rgvarg[2]), OleVariant(Params.rgvarg[1]), Params.rgvarg[0].pbool^);
|
|
285: if assigned(OnThirdPartyUrlBlocked) then
|
|
OnThirdPartyUrlBlocked(Self, OleVariant(Params.rgvarg[1].byRef^), OleVariant(Params.rgvarg[0]));
|
|
286: if assigned(OnRedirectXDomainBlocked) then
|
|
OnRedirectXDomainBlocked(Self, OleVariant(Params.rgvarg[4]), OleVariant(Params.rgvarg[3].byRef^), OleVariant(Params.rgvarg[2].byRef^), OleVariant(Params.rgvarg[1].byRef^), OleVariant(Params.rgvarg[0].byRef^));
|
|
290: if assigned(OnBeforeScriptExecute) then
|
|
OnBeforeScriptExecute(Self, OleVariant(Params.rgvarg[0]));
|
|
288: if assigned(OnWebWorkerStarted) then
|
|
OnWebWorkerStarted(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
289: if assigned(OnWebWorkerFinsihed) then
|
|
OnWebWorkerFinsihed(Self, OleVariant(Params.rgvarg[0]));
|
|
|
|
end;
|
|
end;
|
|
|
|
{$ENDIF TInternetExplorer}
|
|
|
|
{$IFDEF TInternetExplorerMedium}
|
|
|
|
Class Function CoInternetExplorerMedium.Create: IWebBrowser2;
|
|
begin
|
|
Result := CreateComObject(CLASS_InternetExplorerMedium) as IWebBrowser2;
|
|
end;
|
|
|
|
Class Function CoInternetExplorerMedium.CreateRemote(const MachineName: string): IWebBrowser2;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_InternetExplorerMedium) as IWebBrowser2;
|
|
end;
|
|
|
|
constructor TInternetExplorerMedium.Create(TheOwner: TComponent);
|
|
begin
|
|
inherited Create(TheOwner);
|
|
FServer:=CoInternetExplorerMedium.Create;
|
|
ComServer:=FServer;
|
|
FEventSink:=TEventSink.Create(Self);
|
|
FEventSink.OnInvoke:=EventSinkInvoke;
|
|
FEventSink.Connect(FServer,DWebBrowserEvents2);
|
|
end;
|
|
|
|
destructor TInternetExplorerMedium.Destroy;
|
|
begin
|
|
FEventSink.Destroy;
|
|
inherited destroy;
|
|
end;
|
|
|
|
procedure TInternetExplorerMedium.EventSinkInvoke(Sender: TObject; DispID: Integer;
|
|
const IID: TGUID; LocaleID: Integer; Flags: Word; Params: tagDISPPARAMS;
|
|
VarResult, ExcepInfo, ArgErr: Pointer);
|
|
begin
|
|
case DispID of
|
|
102: if assigned(OnStatusTextChange) then
|
|
OnStatusTextChange(Self, OleVariant(Params.rgvarg[0]));
|
|
108: if assigned(OnProgressChange) then
|
|
OnProgressChange(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
105: if assigned(OnCommandStateChange) then
|
|
OnCommandStateChange(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
106: if assigned(OnDownloadBegin) then
|
|
OnDownloadBegin(Self);
|
|
104: if assigned(OnDownloadComplete) then
|
|
OnDownloadComplete(Self);
|
|
113: if assigned(OnTitleChange) then
|
|
OnTitleChange(Self, OleVariant(Params.rgvarg[0]));
|
|
112: if assigned(OnPropertyChange) then
|
|
OnPropertyChange(Self, OleVariant(Params.rgvarg[0]));
|
|
250: if assigned(OnBeforeNavigate2) then
|
|
OnBeforeNavigate2(Self, OleVariant(Params.rgvarg[6]), OleVariant(Params.rgvarg[5].byRef^), OleVariant(Params.rgvarg[4].byRef^), OleVariant(Params.rgvarg[3].byRef^), OleVariant(Params.rgvarg[2].byRef^), OleVariant(Params.rgvarg[1].byRef^), Params.rgvarg[0].pbool^);
|
|
251: if assigned(OnNewWindow2) then
|
|
OnNewWindow2(Self, Params.rgvarg[1].pdispVal^, Params.rgvarg[0].pbool^);
|
|
252: if assigned(OnNavigateComplete2) then
|
|
OnNavigateComplete2(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0].byRef^));
|
|
259: if assigned(OnDocumentComplete) then
|
|
OnDocumentComplete(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0].byRef^));
|
|
253: if assigned(OnOnQuit) then
|
|
OnOnQuit(Self);
|
|
254: if assigned(OnOnVisible) then
|
|
OnOnVisible(Self, OleVariant(Params.rgvarg[0]));
|
|
255: if assigned(OnOnToolBar) then
|
|
OnOnToolBar(Self, OleVariant(Params.rgvarg[0]));
|
|
256: if assigned(OnOnMenuBar) then
|
|
OnOnMenuBar(Self, OleVariant(Params.rgvarg[0]));
|
|
257: if assigned(OnOnStatusBar) then
|
|
OnOnStatusBar(Self, OleVariant(Params.rgvarg[0]));
|
|
258: if assigned(OnOnFullScreen) then
|
|
OnOnFullScreen(Self, OleVariant(Params.rgvarg[0]));
|
|
260: if assigned(OnOnTheaterMode) then
|
|
OnOnTheaterMode(Self, OleVariant(Params.rgvarg[0]));
|
|
262: if assigned(OnWindowSetResizable) then
|
|
OnWindowSetResizable(Self, OleVariant(Params.rgvarg[0]));
|
|
264: if assigned(OnWindowSetLeft) then
|
|
OnWindowSetLeft(Self, OleVariant(Params.rgvarg[0]));
|
|
265: if assigned(OnWindowSetTop) then
|
|
OnWindowSetTop(Self, OleVariant(Params.rgvarg[0]));
|
|
266: if assigned(OnWindowSetWidth) then
|
|
OnWindowSetWidth(Self, OleVariant(Params.rgvarg[0]));
|
|
267: if assigned(OnWindowSetHeight) then
|
|
OnWindowSetHeight(Self, OleVariant(Params.rgvarg[0]));
|
|
263: if assigned(OnWindowClosing) then
|
|
OnWindowClosing(Self, OleVariant(Params.rgvarg[1]), Params.rgvarg[0].pbool^);
|
|
268: if assigned(OnClientToHostWindow) then
|
|
OnClientToHostWindow(Self, Params.rgvarg[1].plVal^, Params.rgvarg[0].plVal^);
|
|
269: if assigned(OnSetSecureLockIcon) then
|
|
OnSetSecureLockIcon(Self, OleVariant(Params.rgvarg[0]));
|
|
270: if assigned(OnFileDownload) then
|
|
OnFileDownload(Self, OleVariant(Params.rgvarg[1]), Params.rgvarg[0].pbool^);
|
|
271: if assigned(OnNavigateError) then
|
|
OnNavigateError(Self, OleVariant(Params.rgvarg[4]), OleVariant(Params.rgvarg[3].byRef^), OleVariant(Params.rgvarg[2].byRef^), OleVariant(Params.rgvarg[1].byRef^), Params.rgvarg[0].pbool^);
|
|
225: if assigned(OnPrintTemplateInstantiation) then
|
|
OnPrintTemplateInstantiation(Self, OleVariant(Params.rgvarg[0]));
|
|
226: if assigned(OnPrintTemplateTeardown) then
|
|
OnPrintTemplateTeardown(Self, OleVariant(Params.rgvarg[0]));
|
|
227: if assigned(OnUpdatePageStatus) then
|
|
OnUpdatePageStatus(Self, OleVariant(Params.rgvarg[2]), OleVariant(Params.rgvarg[1].byRef^), OleVariant(Params.rgvarg[0].byRef^));
|
|
272: if assigned(OnPrivacyImpactedStateChange) then
|
|
OnPrivacyImpactedStateChange(Self, OleVariant(Params.rgvarg[0]));
|
|
273: if assigned(OnNewWindow3) then
|
|
OnNewWindow3(Self, Params.rgvarg[4].pdispVal^, Params.rgvarg[3].pbool^, OleVariant(Params.rgvarg[2]), OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
282: if assigned(OnSetPhishingFilterStatus) then
|
|
OnSetPhishingFilterStatus(Self, OleVariant(Params.rgvarg[0]));
|
|
283: if assigned(OnWindowStateChanged) then
|
|
OnWindowStateChanged(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
284: if assigned(OnNewProcess) then
|
|
OnNewProcess(Self, OleVariant(Params.rgvarg[2]), OleVariant(Params.rgvarg[1]), Params.rgvarg[0].pbool^);
|
|
285: if assigned(OnThirdPartyUrlBlocked) then
|
|
OnThirdPartyUrlBlocked(Self, OleVariant(Params.rgvarg[1].byRef^), OleVariant(Params.rgvarg[0]));
|
|
286: if assigned(OnRedirectXDomainBlocked) then
|
|
OnRedirectXDomainBlocked(Self, OleVariant(Params.rgvarg[4]), OleVariant(Params.rgvarg[3].byRef^), OleVariant(Params.rgvarg[2].byRef^), OleVariant(Params.rgvarg[1].byRef^), OleVariant(Params.rgvarg[0].byRef^));
|
|
290: if assigned(OnBeforeScriptExecute) then
|
|
OnBeforeScriptExecute(Self, OleVariant(Params.rgvarg[0]));
|
|
288: if assigned(OnWebWorkerStarted) then
|
|
OnWebWorkerStarted(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
289: if assigned(OnWebWorkerFinsihed) then
|
|
OnWebWorkerFinsihed(Self, OleVariant(Params.rgvarg[0]));
|
|
|
|
end;
|
|
end;
|
|
|
|
{$ENDIF TInternetExplorerMedium}
|
|
|
|
{$IFDEF TShellBrowserWindow}
|
|
|
|
Class Function CoShellBrowserWindow.Create: IWebBrowser2;
|
|
begin
|
|
Result := CreateComObject(CLASS_ShellBrowserWindow) as IWebBrowser2;
|
|
end;
|
|
|
|
Class Function CoShellBrowserWindow.CreateRemote(const MachineName: string): IWebBrowser2;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_ShellBrowserWindow) as IWebBrowser2;
|
|
end;
|
|
|
|
constructor TShellBrowserWindow.Create(TheOwner: TComponent);
|
|
begin
|
|
inherited Create(TheOwner);
|
|
FServer:=CoShellBrowserWindow.Create;
|
|
ComServer:=FServer;
|
|
FEventSink:=TEventSink.Create(Self);
|
|
FEventSink.OnInvoke:=EventSinkInvoke;
|
|
FEventSink.Connect(FServer,DWebBrowserEvents2);
|
|
end;
|
|
|
|
destructor TShellBrowserWindow.Destroy;
|
|
begin
|
|
FEventSink.Destroy;
|
|
inherited destroy;
|
|
end;
|
|
|
|
procedure TShellBrowserWindow.EventSinkInvoke(Sender: TObject; DispID: Integer;
|
|
const IID: TGUID; LocaleID: Integer; Flags: Word; Params: tagDISPPARAMS;
|
|
VarResult, ExcepInfo, ArgErr: Pointer);
|
|
begin
|
|
case DispID of
|
|
102: if assigned(OnStatusTextChange) then
|
|
OnStatusTextChange(Self, OleVariant(Params.rgvarg[0]));
|
|
108: if assigned(OnProgressChange) then
|
|
OnProgressChange(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
105: if assigned(OnCommandStateChange) then
|
|
OnCommandStateChange(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
106: if assigned(OnDownloadBegin) then
|
|
OnDownloadBegin(Self);
|
|
104: if assigned(OnDownloadComplete) then
|
|
OnDownloadComplete(Self);
|
|
113: if assigned(OnTitleChange) then
|
|
OnTitleChange(Self, OleVariant(Params.rgvarg[0]));
|
|
112: if assigned(OnPropertyChange) then
|
|
OnPropertyChange(Self, OleVariant(Params.rgvarg[0]));
|
|
250: if assigned(OnBeforeNavigate2) then
|
|
OnBeforeNavigate2(Self, OleVariant(Params.rgvarg[6]), OleVariant(Params.rgvarg[5].byRef^), OleVariant(Params.rgvarg[4].byRef^), OleVariant(Params.rgvarg[3].byRef^), OleVariant(Params.rgvarg[2].byRef^), OleVariant(Params.rgvarg[1].byRef^), Params.rgvarg[0].pbool^);
|
|
251: if assigned(OnNewWindow2) then
|
|
OnNewWindow2(Self, Params.rgvarg[1].pdispVal^, Params.rgvarg[0].pbool^);
|
|
252: if assigned(OnNavigateComplete2) then
|
|
OnNavigateComplete2(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0].byRef^));
|
|
259: if assigned(OnDocumentComplete) then
|
|
OnDocumentComplete(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0].byRef^));
|
|
253: if assigned(OnOnQuit) then
|
|
OnOnQuit(Self);
|
|
254: if assigned(OnOnVisible) then
|
|
OnOnVisible(Self, OleVariant(Params.rgvarg[0]));
|
|
255: if assigned(OnOnToolBar) then
|
|
OnOnToolBar(Self, OleVariant(Params.rgvarg[0]));
|
|
256: if assigned(OnOnMenuBar) then
|
|
OnOnMenuBar(Self, OleVariant(Params.rgvarg[0]));
|
|
257: if assigned(OnOnStatusBar) then
|
|
OnOnStatusBar(Self, OleVariant(Params.rgvarg[0]));
|
|
258: if assigned(OnOnFullScreen) then
|
|
OnOnFullScreen(Self, OleVariant(Params.rgvarg[0]));
|
|
260: if assigned(OnOnTheaterMode) then
|
|
OnOnTheaterMode(Self, OleVariant(Params.rgvarg[0]));
|
|
262: if assigned(OnWindowSetResizable) then
|
|
OnWindowSetResizable(Self, OleVariant(Params.rgvarg[0]));
|
|
264: if assigned(OnWindowSetLeft) then
|
|
OnWindowSetLeft(Self, OleVariant(Params.rgvarg[0]));
|
|
265: if assigned(OnWindowSetTop) then
|
|
OnWindowSetTop(Self, OleVariant(Params.rgvarg[0]));
|
|
266: if assigned(OnWindowSetWidth) then
|
|
OnWindowSetWidth(Self, OleVariant(Params.rgvarg[0]));
|
|
267: if assigned(OnWindowSetHeight) then
|
|
OnWindowSetHeight(Self, OleVariant(Params.rgvarg[0]));
|
|
263: if assigned(OnWindowClosing) then
|
|
OnWindowClosing(Self, OleVariant(Params.rgvarg[1]), Params.rgvarg[0].pbool^);
|
|
268: if assigned(OnClientToHostWindow) then
|
|
OnClientToHostWindow(Self, Params.rgvarg[1].plVal^, Params.rgvarg[0].plVal^);
|
|
269: if assigned(OnSetSecureLockIcon) then
|
|
OnSetSecureLockIcon(Self, OleVariant(Params.rgvarg[0]));
|
|
270: if assigned(OnFileDownload) then
|
|
OnFileDownload(Self, OleVariant(Params.rgvarg[1]), Params.rgvarg[0].pbool^);
|
|
271: if assigned(OnNavigateError) then
|
|
OnNavigateError(Self, OleVariant(Params.rgvarg[4]), OleVariant(Params.rgvarg[3].byRef^), OleVariant(Params.rgvarg[2].byRef^), OleVariant(Params.rgvarg[1].byRef^), Params.rgvarg[0].pbool^);
|
|
225: if assigned(OnPrintTemplateInstantiation) then
|
|
OnPrintTemplateInstantiation(Self, OleVariant(Params.rgvarg[0]));
|
|
226: if assigned(OnPrintTemplateTeardown) then
|
|
OnPrintTemplateTeardown(Self, OleVariant(Params.rgvarg[0]));
|
|
227: if assigned(OnUpdatePageStatus) then
|
|
OnUpdatePageStatus(Self, OleVariant(Params.rgvarg[2]), OleVariant(Params.rgvarg[1].byRef^), OleVariant(Params.rgvarg[0].byRef^));
|
|
272: if assigned(OnPrivacyImpactedStateChange) then
|
|
OnPrivacyImpactedStateChange(Self, OleVariant(Params.rgvarg[0]));
|
|
273: if assigned(OnNewWindow3) then
|
|
OnNewWindow3(Self, Params.rgvarg[4].pdispVal^, Params.rgvarg[3].pbool^, OleVariant(Params.rgvarg[2]), OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
282: if assigned(OnSetPhishingFilterStatus) then
|
|
OnSetPhishingFilterStatus(Self, OleVariant(Params.rgvarg[0]));
|
|
283: if assigned(OnWindowStateChanged) then
|
|
OnWindowStateChanged(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
284: if assigned(OnNewProcess) then
|
|
OnNewProcess(Self, OleVariant(Params.rgvarg[2]), OleVariant(Params.rgvarg[1]), Params.rgvarg[0].pbool^);
|
|
285: if assigned(OnThirdPartyUrlBlocked) then
|
|
OnThirdPartyUrlBlocked(Self, OleVariant(Params.rgvarg[1].byRef^), OleVariant(Params.rgvarg[0]));
|
|
286: if assigned(OnRedirectXDomainBlocked) then
|
|
OnRedirectXDomainBlocked(Self, OleVariant(Params.rgvarg[4]), OleVariant(Params.rgvarg[3].byRef^), OleVariant(Params.rgvarg[2].byRef^), OleVariant(Params.rgvarg[1].byRef^), OleVariant(Params.rgvarg[0].byRef^));
|
|
290: if assigned(OnBeforeScriptExecute) then
|
|
OnBeforeScriptExecute(Self, OleVariant(Params.rgvarg[0]));
|
|
288: if assigned(OnWebWorkerStarted) then
|
|
OnWebWorkerStarted(Self, OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
289: if assigned(OnWebWorkerFinsihed) then
|
|
OnWebWorkerFinsihed(Self, OleVariant(Params.rgvarg[0]));
|
|
|
|
end;
|
|
end;
|
|
|
|
{$ENDIF TShellBrowserWindow}
|
|
|
|
{$IFDEF TShellWindows}
|
|
|
|
Class Function CoShellWindows.Create: IShellWindows;
|
|
begin
|
|
Result := CreateComObject(CLASS_ShellWindows) as IShellWindows;
|
|
end;
|
|
|
|
Class Function CoShellWindows.CreateRemote(const MachineName: string): IShellWindows;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_ShellWindows) as IShellWindows;
|
|
end;
|
|
|
|
constructor TShellWindows.Create(TheOwner: TComponent);
|
|
begin
|
|
inherited Create(TheOwner);
|
|
FServer:=CoShellWindows.Create;
|
|
ComServer:=FServer;
|
|
FEventSink:=TEventSink.Create(Self);
|
|
FEventSink.OnInvoke:=EventSinkInvoke;
|
|
FEventSink.Connect(FServer,DShellWindowsEvents);
|
|
end;
|
|
|
|
destructor TShellWindows.Destroy;
|
|
begin
|
|
FEventSink.Destroy;
|
|
inherited destroy;
|
|
end;
|
|
|
|
procedure TShellWindows.EventSinkInvoke(Sender: TObject; DispID: Integer;
|
|
const IID: TGUID; LocaleID: Integer; Flags: Word; Params: tagDISPPARAMS;
|
|
VarResult, ExcepInfo, ArgErr: Pointer);
|
|
begin
|
|
case DispID of
|
|
200: if assigned(OnWindowRegistered) then
|
|
OnWindowRegistered(Self, OleVariant(Params.rgvarg[0]));
|
|
201: if assigned(OnWindowRevoked) then
|
|
OnWindowRevoked(Self, OleVariant(Params.rgvarg[0]));
|
|
|
|
end;
|
|
end;
|
|
|
|
{$ENDIF TShellWindows}
|
|
|
|
{$IFDEF TShellUIHelper}
|
|
|
|
Class Function CoShellUIHelper.Create: IShellUIHelper5;
|
|
begin
|
|
Result := CreateComObject(CLASS_ShellUIHelper) as IShellUIHelper5;
|
|
end;
|
|
|
|
Class Function CoShellUIHelper.CreateRemote(const MachineName: string): IShellUIHelper5;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_ShellUIHelper) as IShellUIHelper5;
|
|
end;
|
|
|
|
constructor TShellUIHelper.Create(TheOwner: TComponent);
|
|
begin
|
|
inherited Create(TheOwner);
|
|
FServer:=CoShellUIHelper.Create;
|
|
ComServer:=FServer;
|
|
end;
|
|
|
|
destructor TShellUIHelper.Destroy;
|
|
begin
|
|
inherited destroy;
|
|
end;
|
|
|
|
{$ENDIF TShellUIHelper}
|
|
|
|
{$IFDEF TShellNameSpace}
|
|
|
|
Class Function CoShellNameSpace.Create: IShellNameSpace;
|
|
begin
|
|
Result := CreateComObject(CLASS_ShellNameSpace) as IShellNameSpace;
|
|
end;
|
|
|
|
Class Function CoShellNameSpace.CreateRemote(const MachineName: string): IShellNameSpace;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_ShellNameSpace) as IShellNameSpace;
|
|
end;
|
|
|
|
constructor TShellNameSpace.Create(TheOwner: TComponent);
|
|
begin
|
|
inherited Create(TheOwner);
|
|
FServer:=CoShellNameSpace.Create;
|
|
ComServer:=FServer;
|
|
FEventSink:=TEventSink.Create(Self);
|
|
FEventSink.OnInvoke:=EventSinkInvoke;
|
|
FEventSink.Connect(FServer,DShellNameSpaceEvents);
|
|
end;
|
|
|
|
destructor TShellNameSpace.Destroy;
|
|
begin
|
|
FEventSink.Destroy;
|
|
inherited destroy;
|
|
end;
|
|
|
|
procedure TShellNameSpace.EventSinkInvoke(Sender: TObject; DispID: Integer;
|
|
const IID: TGUID; LocaleID: Integer; Flags: Word; Params: tagDISPPARAMS;
|
|
VarResult, ExcepInfo, ArgErr: Pointer);
|
|
begin
|
|
case DispID of
|
|
1: if assigned(OnFavoritesSelectionChange) then
|
|
OnFavoritesSelectionChange(Self, OleVariant(Params.rgvarg[6]), OleVariant(Params.rgvarg[5]), OleVariant(Params.rgvarg[4]), OleVariant(Params.rgvarg[3]), OleVariant(Params.rgvarg[2]), OleVariant(Params.rgvarg[1]), OleVariant(Params.rgvarg[0]));
|
|
2: if assigned(OnSelectionChange) then
|
|
OnSelectionChange(Self);
|
|
3: if assigned(OnDoubleClick) then
|
|
OnDoubleClick(Self);
|
|
4: if assigned(OnInitialized) then
|
|
OnInitialized(Self);
|
|
|
|
end;
|
|
end;
|
|
|
|
{$ENDIF TShellNameSpace}
|
|
|
|
{$IFDEF TCScriptErrorList}
|
|
|
|
Class Function CoCScriptErrorList.Create: IScriptErrorList;
|
|
begin
|
|
Result := CreateComObject(CLASS_CScriptErrorList) as IScriptErrorList;
|
|
end;
|
|
|
|
Class Function CoCScriptErrorList.CreateRemote(const MachineName: string): IScriptErrorList;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_CScriptErrorList) as IScriptErrorList;
|
|
end;
|
|
|
|
constructor TCScriptErrorList.Create(TheOwner: TComponent);
|
|
begin
|
|
inherited Create(TheOwner);
|
|
FServer:=CoCScriptErrorList.Create;
|
|
ComServer:=FServer;
|
|
end;
|
|
|
|
destructor TCScriptErrorList.Destroy;
|
|
begin
|
|
inherited destroy;
|
|
end;
|
|
{$ENDIF TCScriptErrorList}
|
|
end.
|