1932 lines
92 KiB
ObjectPascal
1932 lines
92 KiB
ObjectPascal
unit SHDocVw_TLB;
|
|
|
|
// ************************************************************************ //
|
|
// WARNING
|
|
// -------
|
|
// The types declared in this file were generated from data read from a
|
|
// Type Library. If this type library is explicitly or indirectly (via
|
|
// another type library referring to this type library) re-imported, or the
|
|
// 'Refresh' command of the Type Library Editor activated while editing the
|
|
// Type Library, the contents of this file will be regenerated and all
|
|
// manual modifications will be lost.
|
|
// ************************************************************************ //
|
|
|
|
// PASTLWTR : $Revision: 1.1 $
|
|
// File generated on 12.3.2002 14:05:12 from Type Library described below.
|
|
|
|
// ************************************************************************ //
|
|
// Type Lib: C:\WINDOWS\SYSTEM\SHDOCVW.DLL (1)
|
|
// LIBID: {EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}
|
|
// LCID: 0
|
|
// Helpfile:
|
|
// DepndLst:
|
|
// (1) v2.0 stdole, (C:\WINDOWS\SYSTEM\stdole2.tlb)
|
|
// (2) v4.0 StdVCL, (C:\WINDOWS\SYSTEM\stdvcl40.dll)
|
|
// Errors:
|
|
// Hint: Member 'Type' of 'IWebBrowser' changed to 'Type_'
|
|
// Hint: Parameter 'Type' of IWebBrowser.Type changed to 'Type_'
|
|
// Hint: Parameter 'Property' of DWebBrowserEvents.PropertyChange changed to 'Property_'
|
|
// Hint: Parameter 'Property' of IWebBrowserApp.PutProperty changed to 'Property_'
|
|
// Hint: Parameter 'Property' of IWebBrowserApp.GetProperty changed to 'Property_'
|
|
// Hint: Parameter 'Type' of IShellUIHelper.AddDesktopComponent changed to 'Type_'
|
|
// Hint: Parameter 'var' of IShellNameSpace.Expand changed to 'var_'
|
|
// ************************************************************************ //
|
|
{$I jcl.inc}
|
|
{$I windowsonly.inc}
|
|
|
|
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
|
|
{$WRITEABLECONST ON}
|
|
|
|
interface
|
|
|
|
{$IFDEF DELPHI6_UP}
|
|
{$VARPROPSETTER ON}
|
|
{$ENDIF}
|
|
|
|
uses
|
|
Windows, ActiveX, Classes, Graphics, OleCtrls,
|
|
{$IFDEF DELPHI5_UP}
|
|
OleServer,
|
|
{$ENDIF}
|
|
{$IFDEF DELPHI6_UP}
|
|
Variants,
|
|
{$ENDIF}
|
|
StdVCL;
|
|
|
|
|
|
|
|
// *********************************************************************//
|
|
// GUIDS declared in the TypeLibrary. Following prefixes are used:
|
|
// Type Libraries : LIBID_xxxx
|
|
// CoClasses : CLASS_xxxx
|
|
// DISPInterfaces : DIID_xxxx
|
|
// Non-DISP interfaces: IID_xxxx
|
|
// *********************************************************************//
|
|
const
|
|
// TypeLibrary Major and minor versions
|
|
SHDocVwMajorVersion = 1;
|
|
SHDocVwMinorVersion = 1;
|
|
|
|
LIBID_SHDocVw: TGUID = '{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}';
|
|
|
|
IID_IWebBrowser: TGUID = '{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}';
|
|
DIID_DWebBrowserEvents: TGUID = '{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}';
|
|
IID_IWebBrowserApp: TGUID = '{0002DF05-0000-0000-C000-000000000046}';
|
|
IID_IWebBrowser2: TGUID = '{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}';
|
|
DIID_DWebBrowserEvents2: TGUID = '{34A715A0-6587-11D0-924A-0020AFC7AC4D}';
|
|
CLASS_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_ShellBrowserWindow: TGUID = '{C08AFD90-F2A1-11D1-8455-00A0C91F3880}';
|
|
DIID_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}';
|
|
CLASS_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
|
|
DIID_DShellNameSpaceEvents: TGUID = '{55136806-B2DE-11D1-B9F2-00A0C98BC547}';
|
|
IID_IShellFavoritesNameSpace: TGUID = '{55136804-B2DE-11D1-B9F2-00A0C98BC547}';
|
|
IID_IShellNameSpace: TGUID = '{E572D3C9-37BE-4AE2-825D-D521763E3108}';
|
|
CLASS_ShellNameSpace: TGUID = '{55136805-B2DE-11D1-B9F2-00A0C98BC547}';
|
|
IID_IScriptErrorList: TGUID = '{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}';
|
|
CLASS_CScriptErrorList: TGUID = '{EFD01300-160F-11D2-BB2E-00805FF7EFCA}';
|
|
IID_ISearch: TGUID = '{BA9239A4-3DD5-11D2-BF8B-00C04FB93661}';
|
|
IID_ISearches: TGUID = '{47C922A2-3DD5-11D2-BF8B-00C04FB93661}';
|
|
IID_ISearchAssistantOC: TGUID = '{72423E8F-8011-11D2-BE79-00A0C9A83DA1}';
|
|
IID_ISearchAssistantOC2: TGUID = '{72423E8F-8011-11D2-BE79-00A0C9A83DA2}';
|
|
DIID__SearchAssistantEvents: TGUID = '{1611FDDA-445B-11D2-85DE-00C04FA35C89}';
|
|
CLASS_SearchAssistantOC: TGUID = '{B45FF030-4447-11D2-85DE-00C04FA35C89}';
|
|
|
|
// *********************************************************************//
|
|
// Declaration of Enumerations defined in Type Library
|
|
// *********************************************************************//
|
|
// Constants for enum CommandStateChangeConstants
|
|
type
|
|
CommandStateChangeConstants = TOleEnum;
|
|
const
|
|
CSC_UPDATECOMMANDS = $FFFFFFFF;
|
|
CSC_NAVIGATEFORWARD = $00000001;
|
|
CSC_NAVIGATEBACK = $00000002;
|
|
|
|
// Constants for enum OLECMDID
|
|
type
|
|
OLECMDID = TOleEnum;
|
|
const
|
|
OLECMDID_OPEN = $00000001;
|
|
OLECMDID_NEW = $00000002;
|
|
OLECMDID_SAVE = $00000003;
|
|
OLECMDID_SAVEAS = $00000004;
|
|
OLECMDID_SAVECOPYAS = $00000005;
|
|
OLECMDID_PRINT = $00000006;
|
|
OLECMDID_PRINTPREVIEW = $00000007;
|
|
OLECMDID_PAGESETUP = $00000008;
|
|
OLECMDID_SPELL = $00000009;
|
|
OLECMDID_PROPERTIES = $0000000A;
|
|
OLECMDID_CUT = $0000000B;
|
|
OLECMDID_COPY = $0000000C;
|
|
OLECMDID_PASTE = $0000000D;
|
|
OLECMDID_PASTESPECIAL = $0000000E;
|
|
OLECMDID_UNDO = $0000000F;
|
|
OLECMDID_REDO = $00000010;
|
|
OLECMDID_SELECTALL = $00000011;
|
|
OLECMDID_CLEARSELECTION = $00000012;
|
|
OLECMDID_ZOOM = $00000013;
|
|
OLECMDID_GETZOOMRANGE = $00000014;
|
|
OLECMDID_UPDATECOMMANDS = $00000015;
|
|
OLECMDID_REFRESH = $00000016;
|
|
OLECMDID_STOP = $00000017;
|
|
OLECMDID_HIDETOOLBARS = $00000018;
|
|
OLECMDID_SETPROGRESSMAX = $00000019;
|
|
OLECMDID_SETPROGRESSPOS = $0000001A;
|
|
OLECMDID_SETPROGRESSTEXT = $0000001B;
|
|
OLECMDID_SETTITLE = $0000001C;
|
|
OLECMDID_SETDOWNLOADSTATE = $0000001D;
|
|
OLECMDID_STOPDOWNLOAD = $0000001E;
|
|
OLECMDID_ONTOOLBARACTIVATED = $0000001F;
|
|
OLECMDID_FIND = $00000020;
|
|
OLECMDID_DELETE = $00000021;
|
|
OLECMDID_HTTPEQUIV = $00000022;
|
|
OLECMDID_HTTPEQUIV_DONE = $00000023;
|
|
OLECMDID_ENABLE_INTERACTION = $00000024;
|
|
OLECMDID_ONUNLOAD = $00000025;
|
|
OLECMDID_PROPERTYBAG2 = $00000026;
|
|
OLECMDID_PREREFRESH = $00000027;
|
|
OLECMDID_SHOWSCRIPTERROR = $00000028;
|
|
OLECMDID_SHOWMESSAGE = $00000029;
|
|
OLECMDID_SHOWFIND = $0000002A;
|
|
OLECMDID_SHOWPAGESETUP = $0000002B;
|
|
OLECMDID_SHOWPRINT = $0000002C;
|
|
OLECMDID_CLOSE = $0000002D;
|
|
OLECMDID_ALLOWUILESSSAVEAS = $0000002E;
|
|
OLECMDID_DONTDOWNLOADCSS = $0000002F;
|
|
OLECMDID_UPDATEPAGESTATUS = $00000030;
|
|
|
|
// Constants for enum OLECMDF
|
|
type
|
|
OLECMDF = TOleEnum;
|
|
const
|
|
OLECMDF_SUPPORTED = $00000001;
|
|
OLECMDF_ENABLED = $00000002;
|
|
OLECMDF_LATCHED = $00000004;
|
|
OLECMDF_NINCHED = $00000008;
|
|
OLECMDF_INVISIBLE = $00000010;
|
|
OLECMDF_DEFHIDEONCTXTMENU = $00000020;
|
|
|
|
// Constants for enum OLECMDEXECOPT
|
|
type
|
|
OLECMDEXECOPT = TOleEnum;
|
|
const
|
|
OLECMDEXECOPT_DODEFAULT = $00000000;
|
|
OLECMDEXECOPT_PROMPTUSER = $00000001;
|
|
OLECMDEXECOPT_DONTPROMPTUSER = $00000002;
|
|
OLECMDEXECOPT_SHOWHELP = $00000003;
|
|
|
|
// Constants for enum tagREADYSTATE
|
|
type
|
|
tagREADYSTATE = TOleEnum;
|
|
const
|
|
READYSTATE_UNINITIALIZED = $00000000;
|
|
READYSTATE_LOADING = $00000001;
|
|
READYSTATE_LOADED = $00000002;
|
|
READYSTATE_INTERACTIVE = $00000003;
|
|
READYSTATE_COMPLETE = $00000004;
|
|
|
|
// Constants for enum SecureLockIconConstants
|
|
type
|
|
SecureLockIconConstants = TOleEnum;
|
|
const
|
|
secureLockIconUnsecure = $00000000;
|
|
secureLockIconMixed = $00000001;
|
|
secureLockIconSecureUnknownBits = $00000002;
|
|
secureLockIconSecure40Bit = $00000003;
|
|
secureLockIconSecure56Bit = $00000004;
|
|
secureLockIconSecureFortezza = $00000005;
|
|
secureLockIconSecure128Bit = $00000006;
|
|
|
|
// Constants for enum ShellWindowTypeConstants
|
|
type
|
|
ShellWindowTypeConstants = TOleEnum;
|
|
const
|
|
SWC_EXPLORER = $00000000;
|
|
SWC_BROWSER = $00000001;
|
|
SWC_3RDPARTY = $00000002;
|
|
SWC_CALLBACK = $00000004;
|
|
|
|
// Constants for enum ShellWindowFindWindowOptions
|
|
type
|
|
ShellWindowFindWindowOptions = TOleEnum;
|
|
const
|
|
SWFO_NEEDDISPATCH = $00000001;
|
|
SWFO_INCLUDEPENDING = $00000002;
|
|
SWFO_COOKIEPASSED = $00000004;
|
|
|
|
type
|
|
|
|
// *********************************************************************//
|
|
// Forward declaration of types defined in TypeLibrary
|
|
// *********************************************************************//
|
|
IWebBrowser = interface;
|
|
IWebBrowserDisp = dispinterface;
|
|
DWebBrowserEvents = dispinterface;
|
|
IWebBrowserApp = interface;
|
|
IWebBrowserAppDisp = dispinterface;
|
|
IWebBrowser2 = interface;
|
|
IWebBrowser2Disp = dispinterface;
|
|
DWebBrowserEvents2 = dispinterface;
|
|
DShellWindowsEvents = dispinterface;
|
|
IShellWindows = interface;
|
|
IShellWindowsDisp = dispinterface;
|
|
IShellUIHelper = interface;
|
|
IShellUIHelperDisp = dispinterface;
|
|
DShellNameSpaceEvents = dispinterface;
|
|
IShellFavoritesNameSpace = interface;
|
|
IShellFavoritesNameSpaceDisp = dispinterface;
|
|
IShellNameSpace = interface;
|
|
IShellNameSpaceDisp = dispinterface;
|
|
IScriptErrorList = interface;
|
|
IScriptErrorListDisp = dispinterface;
|
|
ISearch = interface;
|
|
ISearchDisp = dispinterface;
|
|
ISearches = interface;
|
|
ISearchesDisp = dispinterface;
|
|
ISearchAssistantOC = interface;
|
|
ISearchAssistantOCDisp = dispinterface;
|
|
ISearchAssistantOC2 = interface;
|
|
ISearchAssistantOC2Disp = dispinterface;
|
|
_SearchAssistantEvents = dispinterface;
|
|
|
|
// *********************************************************************//
|
|
// Declaration of CoClasses defined in Type Library
|
|
// (NOTE: Here we map each CoClass to its Default Interface)
|
|
// *********************************************************************//
|
|
WebBrowser_V1 = IWebBrowser;
|
|
WebBrowser = IWebBrowser2;
|
|
InternetExplorer = IWebBrowser2;
|
|
ShellBrowserWindow = IWebBrowser2;
|
|
ShellWindows = IShellWindows;
|
|
ShellUIHelper = IShellUIHelper;
|
|
ShellNameSpace = IShellNameSpace;
|
|
CScriptErrorList = IScriptErrorList;
|
|
SearchAssistantOC = ISearchAssistantOC2;
|
|
|
|
|
|
// *********************************************************************//
|
|
// Declaration of structures, unions and aliases.
|
|
// *********************************************************************//
|
|
POleVariant1 = ^OleVariant; {*}
|
|
|
|
|
|
// *********************************************************************//
|
|
// Interface: IWebBrowser
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}
|
|
// *********************************************************************//
|
|
IWebBrowser = interface(IDispatch)
|
|
['{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}']
|
|
procedure GoBack; safecall;
|
|
procedure GoForward; safecall;
|
|
procedure GoHome; safecall;
|
|
procedure GoSearch; safecall;
|
|
procedure Navigate(const URL: WideString; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant;
|
|
var Headers: OleVariant); safecall;
|
|
procedure Refresh; safecall;
|
|
procedure Refresh2(var Level: OleVariant); safecall;
|
|
procedure Stop; safecall;
|
|
function Get_Application: IDispatch; safecall;
|
|
function Get_Parent: IDispatch; safecall;
|
|
function Get_Container: IDispatch; safecall;
|
|
function Get_Document: IDispatch; safecall;
|
|
function Get_TopLevelContainer: WordBool; safecall;
|
|
function Get_Type_: WideString; safecall;
|
|
function Get_Left: Integer; safecall;
|
|
procedure Set_Left(pl: Integer); safecall;
|
|
function Get_Top: Integer; safecall;
|
|
procedure Set_Top(pl: Integer); safecall;
|
|
function Get_Width: Integer; safecall;
|
|
procedure Set_Width(pl: Integer); safecall;
|
|
function Get_Height: Integer; safecall;
|
|
procedure Set_Height(pl: Integer); safecall;
|
|
function Get_LocationName: WideString; safecall;
|
|
function Get_LocationURL: WideString; safecall;
|
|
function Get_Busy: WordBool; safecall;
|
|
property Application: IDispatch read Get_Application;
|
|
property Parent: IDispatch read Get_Parent;
|
|
property Container: IDispatch read Get_Container;
|
|
property Document: IDispatch read Get_Document;
|
|
property TopLevelContainer: WordBool read Get_TopLevelContainer;
|
|
property Type_: WideString read Get_Type_;
|
|
property Left: Integer read Get_Left write Set_Left;
|
|
property Top: Integer read Get_Top write Set_Top;
|
|
property Width: Integer read Get_Width write Set_Width;
|
|
property Height: Integer read Get_Height write Set_Height;
|
|
property LocationName: WideString read Get_LocationName;
|
|
property LocationURL: WideString read Get_LocationURL;
|
|
property Busy: WordBool read Get_Busy;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: IWebBrowserDisp
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}
|
|
// *********************************************************************//
|
|
IWebBrowserDisp = dispinterface
|
|
['{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}']
|
|
procedure GoBack; dispid 100;
|
|
procedure GoForward; dispid 101;
|
|
procedure GoHome; dispid 102;
|
|
procedure GoSearch; dispid 103;
|
|
procedure Navigate(const URL: WideString; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant;
|
|
var Headers: OleVariant); dispid 104;
|
|
procedure Refresh; dispid -550;
|
|
procedure Refresh2(var Level: OleVariant); dispid 105;
|
|
procedure Stop; dispid 106;
|
|
property Application: IDispatch readonly dispid 200;
|
|
property Parent: IDispatch readonly dispid 201;
|
|
property Container: IDispatch readonly dispid 202;
|
|
property Document: IDispatch readonly dispid 203;
|
|
property TopLevelContainer: WordBool readonly dispid 204;
|
|
property Type_: WideString readonly dispid 205;
|
|
property Left: Integer dispid 206;
|
|
property Top: Integer dispid 207;
|
|
property Width: Integer dispid 208;
|
|
property Height: Integer dispid 209;
|
|
property LocationName: WideString readonly dispid 210;
|
|
property LocationURL: WideString readonly dispid 211;
|
|
property Busy: WordBool readonly dispid 212;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: DWebBrowserEvents
|
|
// Flags: (4112) Hidden Dispatchable
|
|
// GUID: {EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}
|
|
// *********************************************************************//
|
|
DWebBrowserEvents = dispinterface
|
|
['{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}']
|
|
procedure BeforeNavigate(const URL: WideString; Flags: Integer;
|
|
const TargetFrameName: WideString; var PostData: OleVariant;
|
|
const Headers: WideString; var Cancel: WordBool); dispid 100;
|
|
procedure NavigateComplete(const URL: WideString); dispid 101;
|
|
procedure StatusTextChange(const Text: WideString); dispid 102;
|
|
procedure ProgressChange(Progress: Integer; ProgressMax: Integer); dispid 108;
|
|
procedure DownloadComplete; dispid 104;
|
|
procedure CommandStateChange(Command: Integer; Enable: WordBool); dispid 105;
|
|
procedure DownloadBegin; dispid 106;
|
|
procedure NewWindow(const URL: WideString; Flags: Integer; const TargetFrameName: WideString;
|
|
var PostData: OleVariant; const Headers: WideString; var Processed: WordBool); dispid 107;
|
|
procedure TitleChange(const Text: WideString); dispid 113;
|
|
procedure FrameBeforeNavigate(const URL: WideString; Flags: Integer;
|
|
const TargetFrameName: WideString; var PostData: OleVariant;
|
|
const Headers: WideString; var Cancel: WordBool); dispid 200;
|
|
procedure FrameNavigateComplete(const URL: WideString); dispid 201;
|
|
procedure FrameNewWindow(const URL: WideString; Flags: Integer;
|
|
const TargetFrameName: WideString; var PostData: OleVariant;
|
|
const Headers: WideString; var Processed: WordBool); dispid 204;
|
|
procedure Quit(var Cancel: WordBool); dispid 103;
|
|
procedure WindowMove; dispid 109;
|
|
procedure WindowResize; dispid 110;
|
|
procedure WindowActivate; dispid 111;
|
|
procedure PropertyChange(const Property_: WideString); dispid 112;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// Interface: IWebBrowserApp
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {0002DF05-0000-0000-C000-000000000046}
|
|
// *********************************************************************//
|
|
IWebBrowserApp = interface(IWebBrowser)
|
|
['{0002DF05-0000-0000-C000-000000000046}']
|
|
procedure Quit; safecall;
|
|
procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); safecall;
|
|
procedure PutProperty(const Property_: WideString; vtValue: OleVariant); safecall;
|
|
function GetProperty(const Property_: WideString): OleVariant; safecall;
|
|
function Get_Name: WideString; safecall;
|
|
function Get_HWND: Integer; safecall;
|
|
function Get_FullName: WideString; safecall;
|
|
function Get_Path: WideString; safecall;
|
|
function Get_Visible: WordBool; safecall;
|
|
procedure Set_Visible(pBool: WordBool); safecall;
|
|
function Get_StatusBar: WordBool; safecall;
|
|
procedure Set_StatusBar(pBool: WordBool); safecall;
|
|
function Get_StatusText: WideString; safecall;
|
|
procedure Set_StatusText(const StatusText: WideString); safecall;
|
|
function Get_ToolBar: SYSINT; safecall;
|
|
procedure Set_ToolBar(Value: SYSINT); safecall;
|
|
function Get_MenuBar: WordBool; safecall;
|
|
procedure Set_MenuBar(Value: WordBool); safecall;
|
|
function Get_FullScreen: WordBool; safecall;
|
|
procedure Set_FullScreen(pbFullScreen: WordBool); safecall;
|
|
property Name: WideString read Get_Name;
|
|
property HWND: Integer read Get_HWND;
|
|
property FullName: WideString read Get_FullName;
|
|
property Path: WideString read Get_Path;
|
|
property Visible: WordBool read Get_Visible write Set_Visible;
|
|
property StatusBar: WordBool read Get_StatusBar write Set_StatusBar;
|
|
property StatusText: WideString read Get_StatusText write Set_StatusText;
|
|
property ToolBar: SYSINT read Get_ToolBar write Set_ToolBar;
|
|
property MenuBar: WordBool read Get_MenuBar write Set_MenuBar;
|
|
property FullScreen: WordBool read Get_FullScreen write Set_FullScreen;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: IWebBrowserAppDisp
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {0002DF05-0000-0000-C000-000000000046}
|
|
// *********************************************************************//
|
|
IWebBrowserAppDisp = dispinterface
|
|
['{0002DF05-0000-0000-C000-000000000046}']
|
|
procedure Quit; dispid 300;
|
|
procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); dispid 301;
|
|
procedure PutProperty(const Property_: WideString; vtValue: OleVariant); dispid 302;
|
|
function GetProperty(const Property_: WideString): OleVariant; dispid 303;
|
|
property Name: WideString readonly dispid 0;
|
|
property HWND: Integer readonly dispid -515;
|
|
property FullName: WideString readonly dispid 400;
|
|
property Path: WideString readonly dispid 401;
|
|
property Visible: WordBool dispid 402;
|
|
property StatusBar: WordBool dispid 403;
|
|
property StatusText: WideString dispid 404;
|
|
property ToolBar: SYSINT dispid 405;
|
|
property MenuBar: WordBool dispid 406;
|
|
property FullScreen: WordBool dispid 407;
|
|
procedure GoBack; dispid 100;
|
|
procedure GoForward; dispid 101;
|
|
procedure GoHome; dispid 102;
|
|
procedure GoSearch; dispid 103;
|
|
procedure Navigate(const URL: WideString; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant;
|
|
var Headers: OleVariant); dispid 104;
|
|
procedure Refresh; dispid -550;
|
|
procedure Refresh2(var Level: OleVariant); dispid 105;
|
|
procedure Stop; dispid 106;
|
|
property Application: IDispatch readonly dispid 200;
|
|
property Parent: IDispatch readonly dispid 201;
|
|
property Container: IDispatch readonly dispid 202;
|
|
property Document: IDispatch readonly dispid 203;
|
|
property TopLevelContainer: WordBool readonly dispid 204;
|
|
property Type_: WideString readonly dispid 205;
|
|
property Left: Integer dispid 206;
|
|
property Top: Integer dispid 207;
|
|
property Width: Integer dispid 208;
|
|
property Height: Integer dispid 209;
|
|
property LocationName: WideString readonly dispid 210;
|
|
property LocationURL: WideString readonly dispid 211;
|
|
property Busy: WordBool readonly dispid 212;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// Interface: IWebBrowser2
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}
|
|
// *********************************************************************//
|
|
IWebBrowser2 = interface(IWebBrowserApp)
|
|
['{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}']
|
|
procedure Navigate2(var URL: OleVariant; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant;
|
|
var Headers: OleVariant); safecall;
|
|
function QueryStatusWB(cmdID: OLECMDID): OLECMDF; safecall;
|
|
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant;
|
|
var pvaOut: OleVariant); safecall;
|
|
procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant;
|
|
var pvarSize: OleVariant); safecall;
|
|
function Get_ReadyState: tagREADYSTATE; safecall;
|
|
function Get_Offline: WordBool; safecall;
|
|
procedure Set_Offline(pbOffline: WordBool); safecall;
|
|
function Get_Silent: WordBool; safecall;
|
|
procedure Set_Silent(pbSilent: WordBool); safecall;
|
|
function Get_RegisterAsBrowser: WordBool; safecall;
|
|
procedure Set_RegisterAsBrowser(pbRegister: WordBool); safecall;
|
|
function Get_RegisterAsDropTarget: WordBool; safecall;
|
|
procedure Set_RegisterAsDropTarget(pbRegister: WordBool); safecall;
|
|
function Get_TheaterMode: WordBool; safecall;
|
|
procedure Set_TheaterMode(pbRegister: WordBool); safecall;
|
|
function Get_AddressBar: WordBool; safecall;
|
|
procedure Set_AddressBar(Value: WordBool); safecall;
|
|
function Get_Resizable: WordBool; safecall;
|
|
procedure Set_Resizable(Value: WordBool); safecall;
|
|
property ReadyState: tagREADYSTATE read Get_ReadyState;
|
|
property Offline: WordBool read Get_Offline write Set_Offline;
|
|
property Silent: WordBool read Get_Silent write Set_Silent;
|
|
property RegisterAsBrowser: WordBool read Get_RegisterAsBrowser write Set_RegisterAsBrowser;
|
|
property RegisterAsDropTarget: WordBool read Get_RegisterAsDropTarget write Set_RegisterAsDropTarget;
|
|
property TheaterMode: WordBool read Get_TheaterMode write Set_TheaterMode;
|
|
property AddressBar: WordBool read Get_AddressBar write Set_AddressBar;
|
|
property Resizable: WordBool read Get_Resizable write Set_Resizable;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: IWebBrowser2Disp
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}
|
|
// *********************************************************************//
|
|
IWebBrowser2Disp = dispinterface
|
|
['{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}']
|
|
procedure Navigate2(var URL: OleVariant; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant;
|
|
var Headers: OleVariant); dispid 500;
|
|
function QueryStatusWB(cmdID: OLECMDID): OLECMDF; dispid 501;
|
|
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant;
|
|
var pvaOut: OleVariant); dispid 502;
|
|
procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant;
|
|
var pvarSize: OleVariant); dispid 503;
|
|
property ReadyState: tagREADYSTATE readonly dispid -525;
|
|
property Offline: WordBool dispid 550;
|
|
property Silent: WordBool dispid 551;
|
|
property RegisterAsBrowser: WordBool dispid 552;
|
|
property RegisterAsDropTarget: WordBool dispid 553;
|
|
property TheaterMode: WordBool dispid 554;
|
|
property AddressBar: WordBool dispid 555;
|
|
property Resizable: WordBool dispid 556;
|
|
procedure Quit; dispid 300;
|
|
procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); dispid 301;
|
|
procedure PutProperty(const Property_: WideString; vtValue: OleVariant); dispid 302;
|
|
function GetProperty(const Property_: WideString): OleVariant; dispid 303;
|
|
property Name: WideString readonly dispid 0;
|
|
property HWND: Integer readonly dispid -515;
|
|
property FullName: WideString readonly dispid 400;
|
|
property Path: WideString readonly dispid 401;
|
|
property Visible: WordBool dispid 402;
|
|
property StatusBar: WordBool dispid 403;
|
|
property StatusText: WideString dispid 404;
|
|
property ToolBar: SYSINT dispid 405;
|
|
property MenuBar: WordBool dispid 406;
|
|
property FullScreen: WordBool dispid 407;
|
|
procedure GoBack; dispid 100;
|
|
procedure GoForward; dispid 101;
|
|
procedure GoHome; dispid 102;
|
|
procedure GoSearch; dispid 103;
|
|
procedure Navigate(const URL: WideString; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant;
|
|
var Headers: OleVariant); dispid 104;
|
|
procedure Refresh; dispid -550;
|
|
procedure Refresh2(var Level: OleVariant); dispid 105;
|
|
procedure Stop; dispid 106;
|
|
property Application: IDispatch readonly dispid 200;
|
|
property Parent: IDispatch readonly dispid 201;
|
|
property Container: IDispatch readonly dispid 202;
|
|
property Document: IDispatch readonly dispid 203;
|
|
property TopLevelContainer: WordBool readonly dispid 204;
|
|
property Type_: WideString readonly dispid 205;
|
|
property Left: Integer dispid 206;
|
|
property Top: Integer dispid 207;
|
|
property Width: Integer dispid 208;
|
|
property Height: Integer dispid 209;
|
|
property LocationName: WideString readonly dispid 210;
|
|
property LocationURL: WideString readonly dispid 211;
|
|
property Busy: WordBool readonly dispid 212;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: DWebBrowserEvents2
|
|
// Flags: (4112) Hidden Dispatchable
|
|
// GUID: {34A715A0-6587-11D0-924A-0020AFC7AC4D}
|
|
// *********************************************************************//
|
|
DWebBrowserEvents2 = dispinterface
|
|
['{34A715A0-6587-11D0-924A-0020AFC7AC4D}']
|
|
procedure StatusTextChange(const Text: WideString); dispid 102;
|
|
procedure ProgressChange(Progress: Integer; ProgressMax: Integer); dispid 108;
|
|
procedure CommandStateChange(Command: Integer; Enable: WordBool); dispid 105;
|
|
procedure DownloadBegin; dispid 106;
|
|
procedure DownloadComplete; dispid 104;
|
|
procedure TitleChange(const Text: WideString); dispid 113;
|
|
procedure PropertyChange(const szProperty: WideString); dispid 112;
|
|
procedure BeforeNavigate2(const pDisp: IDispatch; var URL: OleVariant; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant;
|
|
var Headers: OleVariant; var Cancel: WordBool); dispid 250;
|
|
procedure NewWindow2(var ppDisp: IDispatch; var Cancel: WordBool); dispid 251;
|
|
procedure NavigateComplete2(const pDisp: IDispatch; var URL: OleVariant); dispid 252;
|
|
procedure DocumentComplete(const pDisp: IDispatch; var URL: OleVariant); dispid 259;
|
|
procedure OnQuit; dispid 253;
|
|
procedure OnVisible(Visible: WordBool); dispid 254;
|
|
procedure OnToolBar(ToolBar: WordBool); dispid 255;
|
|
procedure OnMenuBar(MenuBar: WordBool); dispid 256;
|
|
procedure OnStatusBar(StatusBar: WordBool); dispid 257;
|
|
procedure OnFullScreen(FullScreen: WordBool); dispid 258;
|
|
procedure OnTheaterMode(TheaterMode: WordBool); dispid 260;
|
|
procedure WindowSetResizable(Resizable: WordBool); dispid 262;
|
|
procedure WindowSetLeft(Left: Integer); dispid 264;
|
|
procedure WindowSetTop(Top: Integer); dispid 265;
|
|
procedure WindowSetWidth(Width: Integer); dispid 266;
|
|
procedure WindowSetHeight(Height: Integer); dispid 267;
|
|
procedure WindowClosing(IsChildWindow: WordBool; var Cancel: WordBool); dispid 263;
|
|
procedure ClientToHostWindow(var CX: Integer; var CY: Integer); dispid 268;
|
|
procedure SetSecureLockIcon(SecureLockIcon: Integer); dispid 269;
|
|
procedure FileDownload(var Cancel: WordBool); dispid 270;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: DShellWindowsEvents
|
|
// Flags: (4096) Dispatchable
|
|
// GUID: {FE4106E0-399A-11D0-A48C-00A0C90A8F39}
|
|
// *********************************************************************//
|
|
DShellWindowsEvents = dispinterface
|
|
['{FE4106E0-399A-11D0-A48C-00A0C90A8F39}']
|
|
procedure WindowRegistered(lCookie: Integer); dispid 200;
|
|
procedure WindowRevoked(lCookie: Integer); dispid 201;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// Interface: IShellWindows
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {85CB6900-4D95-11CF-960C-0080C7F4EE85}
|
|
// *********************************************************************//
|
|
IShellWindows = interface(IDispatch)
|
|
['{85CB6900-4D95-11CF-960C-0080C7F4EE85}']
|
|
function Get_Count: Integer; safecall;
|
|
function Item(index: OleVariant): IDispatch; safecall;
|
|
function _NewEnum: IUnknown; safecall;
|
|
procedure Register(const pid: IDispatch; HWND: Integer; swClass: SYSINT; out plCookie: Integer); safecall;
|
|
procedure RegisterPending(lThreadId: Integer; var pvarloc: OleVariant;
|
|
var pvarlocRoot: OleVariant; swClass: SYSINT; out plCookie: Integer); safecall;
|
|
procedure Revoke(lCookie: Integer); safecall;
|
|
procedure OnNavigate(lCookie: Integer; var pvarloc: OleVariant); safecall;
|
|
procedure OnActivated(lCookie: Integer; fActive: WordBool); safecall;
|
|
function FindWindowSW(var pvarloc: OleVariant; var pvarlocRoot: OleVariant; swClass: SYSINT;
|
|
out pHWND: Integer; swfwOptions: SYSINT): IDispatch; safecall;
|
|
procedure OnCreated(lCookie: Integer; const punk: IUnknown); safecall;
|
|
procedure ProcessAttachDetach(fAttach: WordBool); safecall;
|
|
property Count: Integer read Get_Count;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: IShellWindowsDisp
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {85CB6900-4D95-11CF-960C-0080C7F4EE85}
|
|
// *********************************************************************//
|
|
IShellWindowsDisp = dispinterface
|
|
['{85CB6900-4D95-11CF-960C-0080C7F4EE85}']
|
|
property Count: Integer readonly dispid 1610743808;
|
|
function Item(index: OleVariant): IDispatch; dispid 0;
|
|
function _NewEnum: IUnknown; dispid -4;
|
|
procedure Register(const pid: IDispatch; HWND: Integer; swClass: SYSINT; out plCookie: Integer); dispid 1610743811;
|
|
procedure RegisterPending(lThreadId: Integer; var pvarloc: OleVariant;
|
|
var pvarlocRoot: OleVariant; swClass: SYSINT; out plCookie: Integer); dispid 1610743812;
|
|
procedure Revoke(lCookie: Integer); dispid 1610743813;
|
|
procedure OnNavigate(lCookie: Integer; var pvarloc: OleVariant); dispid 1610743814;
|
|
procedure OnActivated(lCookie: Integer; fActive: WordBool); dispid 1610743815;
|
|
function FindWindowSW(var pvarloc: OleVariant; var pvarlocRoot: OleVariant; swClass: SYSINT;
|
|
out pHWND: Integer; swfwOptions: SYSINT): IDispatch; dispid 1610743816;
|
|
procedure OnCreated(lCookie: Integer; const punk: IUnknown); dispid 1610743817;
|
|
procedure ProcessAttachDetach(fAttach: WordBool); dispid 1610743818;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// Interface: IShellUIHelper
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}
|
|
// *********************************************************************//
|
|
IShellUIHelper = interface(IDispatch)
|
|
['{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}']
|
|
procedure ResetFirstBootMode; safecall;
|
|
procedure ResetSafeMode; safecall;
|
|
procedure RefreshOfflineDesktop; safecall;
|
|
procedure AddFavorite(const URL: WideString; var Title: OleVariant); safecall;
|
|
procedure AddChannel(const URL: WideString); safecall;
|
|
procedure AddDesktopComponent(const URL: WideString; const Type_: WideString;
|
|
var Left: OleVariant; var Top: OleVariant; var Width: OleVariant;
|
|
var Height: OleVariant); safecall;
|
|
function IsSubscribed(const URL: WideString): WordBool; safecall;
|
|
procedure NavigateAndFind(const URL: WideString; const strQuery: WideString;
|
|
var varTargetFrame: OleVariant); safecall;
|
|
procedure ImportExportFavorites(fImport: WordBool; const strImpExpPath: WideString); safecall;
|
|
procedure AutoCompleteSaveForm(var Form: OleVariant); safecall;
|
|
procedure AutoScan(const strSearch: WideString; const strFailureUrl: WideString;
|
|
var pvarTargetFrame: OleVariant); safecall;
|
|
procedure AutoCompleteAttach(var Reserved: OleVariant); safecall;
|
|
function ShowBrowserUI(const bstrName: WideString; var pvarIn: OleVariant): OleVariant; safecall;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: IShellUIHelperDisp
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}
|
|
// *********************************************************************//
|
|
IShellUIHelperDisp = dispinterface
|
|
['{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}']
|
|
procedure ResetFirstBootMode; dispid 1;
|
|
procedure ResetSafeMode; dispid 2;
|
|
procedure RefreshOfflineDesktop; dispid 3;
|
|
procedure AddFavorite(const URL: WideString; var Title: OleVariant); dispid 4;
|
|
procedure AddChannel(const URL: WideString); dispid 5;
|
|
procedure AddDesktopComponent(const URL: WideString; const Type_: WideString;
|
|
var Left: OleVariant; var Top: OleVariant; var Width: OleVariant;
|
|
var Height: OleVariant); dispid 6;
|
|
function IsSubscribed(const URL: WideString): WordBool; dispid 7;
|
|
procedure NavigateAndFind(const URL: WideString; const strQuery: WideString;
|
|
var varTargetFrame: OleVariant); dispid 8;
|
|
procedure ImportExportFavorites(fImport: WordBool; const strImpExpPath: WideString); dispid 9;
|
|
procedure AutoCompleteSaveForm(var Form: OleVariant); dispid 10;
|
|
procedure AutoScan(const strSearch: WideString; const strFailureUrl: WideString;
|
|
var pvarTargetFrame: OleVariant); dispid 11;
|
|
procedure AutoCompleteAttach(var Reserved: OleVariant); dispid 12;
|
|
function ShowBrowserUI(const bstrName: WideString; var pvarIn: OleVariant): OleVariant; dispid 13;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: DShellNameSpaceEvents
|
|
// Flags: (4096) Dispatchable
|
|
// GUID: {55136806-B2DE-11D1-B9F2-00A0C98BC547}
|
|
// *********************************************************************//
|
|
DShellNameSpaceEvents = dispinterface
|
|
['{55136806-B2DE-11D1-B9F2-00A0C98BC547}']
|
|
procedure FavoritesSelectionChange(cItems: Integer; hItem: Integer; const strName: WideString;
|
|
const strUrl: WideString; cVisits: Integer;
|
|
const strDate: WideString; fAvailableOffline: Integer); dispid 1;
|
|
procedure SelectionChange; dispid 2;
|
|
procedure DoubleClick; dispid 3;
|
|
procedure Initialized; dispid 4;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// Interface: IShellFavoritesNameSpace
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {55136804-B2DE-11D1-B9F2-00A0C98BC547}
|
|
// *********************************************************************//
|
|
IShellFavoritesNameSpace = interface(IDispatch)
|
|
['{55136804-B2DE-11D1-B9F2-00A0C98BC547}']
|
|
procedure MoveSelectionUp; safecall;
|
|
procedure MoveSelectionDown; safecall;
|
|
procedure ResetSort; safecall;
|
|
procedure NewFolder; safecall;
|
|
procedure Synchronize; safecall;
|
|
procedure Import; safecall;
|
|
procedure Export; safecall;
|
|
procedure InvokeContextMenuCommand(const strCommand: WideString); safecall;
|
|
procedure MoveSelectionTo; safecall;
|
|
function Get_SubscriptionsEnabled: WordBool; safecall;
|
|
function CreateSubscriptionForSelection: WordBool; safecall;
|
|
function DeleteSubscriptionForSelection: WordBool; safecall;
|
|
procedure SetRoot(const bstrFullPath: WideString); safecall;
|
|
property SubscriptionsEnabled: WordBool read Get_SubscriptionsEnabled;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: IShellFavoritesNameSpaceDisp
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {55136804-B2DE-11D1-B9F2-00A0C98BC547}
|
|
// *********************************************************************//
|
|
IShellFavoritesNameSpaceDisp = dispinterface
|
|
['{55136804-B2DE-11D1-B9F2-00A0C98BC547}']
|
|
procedure MoveSelectionUp; dispid 1;
|
|
procedure MoveSelectionDown; dispid 2;
|
|
procedure ResetSort; dispid 3;
|
|
procedure NewFolder; dispid 4;
|
|
procedure Synchronize; dispid 5;
|
|
procedure Import; dispid 6;
|
|
procedure Export; dispid 7;
|
|
procedure InvokeContextMenuCommand(const strCommand: WideString); dispid 8;
|
|
procedure MoveSelectionTo; dispid 9;
|
|
property SubscriptionsEnabled: WordBool readonly dispid 10;
|
|
function CreateSubscriptionForSelection: WordBool; dispid 11;
|
|
function DeleteSubscriptionForSelection: WordBool; dispid 12;
|
|
procedure SetRoot(const bstrFullPath: WideString); dispid 13;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// Interface: IShellNameSpace
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {E572D3C9-37BE-4AE2-825D-D521763E3108}
|
|
// *********************************************************************//
|
|
IShellNameSpace = interface(IShellFavoritesNameSpace)
|
|
['{E572D3C9-37BE-4AE2-825D-D521763E3108}']
|
|
function Get_EnumOptions: Integer; safecall;
|
|
procedure Set_EnumOptions(pgrfEnumFlags: Integer); safecall;
|
|
function Get_SelectedItem: IDispatch; safecall;
|
|
procedure Set_SelectedItem(const pItem: IDispatch); safecall;
|
|
function Get_Root: OleVariant; safecall;
|
|
procedure Set_Root(pvar: OleVariant); safecall;
|
|
function Get_Depth: SYSINT; safecall;
|
|
procedure Set_Depth(piDepth: SYSINT); safecall;
|
|
function Get_Mode: SYSUINT; safecall;
|
|
procedure Set_Mode(puMode: SYSUINT); safecall;
|
|
function Get_Flags: LongWord; safecall;
|
|
procedure Set_Flags(pdwFlags: LongWord); safecall;
|
|
procedure Set_TVFlags(dwFlags: LongWord); safecall;
|
|
function Get_TVFlags: LongWord; safecall;
|
|
function Get_Columns: WideString; safecall;
|
|
procedure Set_Columns(const bstrColumns: WideString); safecall;
|
|
function Get_CountViewTypes: SYSINT; safecall;
|
|
procedure SetViewType(iType: SYSINT); safecall;
|
|
function SelectedItems: IDispatch; safecall;
|
|
procedure Expand(var_: OleVariant; iDepth: SYSINT); safecall;
|
|
procedure UnselectAll; safecall;
|
|
property EnumOptions: Integer read Get_EnumOptions write Set_EnumOptions;
|
|
property SelectedItem: IDispatch read Get_SelectedItem write Set_SelectedItem;
|
|
property Root: OleVariant read Get_Root write Set_Root;
|
|
property Depth: SYSINT read Get_Depth write Set_Depth;
|
|
property Mode: SYSUINT read Get_Mode write Set_Mode;
|
|
property Flags: LongWord read Get_Flags write Set_Flags;
|
|
property TVFlags: LongWord read Get_TVFlags write Set_TVFlags;
|
|
property Columns: WideString read Get_Columns write Set_Columns;
|
|
property CountViewTypes: SYSINT read Get_CountViewTypes;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: IShellNameSpaceDisp
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {E572D3C9-37BE-4AE2-825D-D521763E3108}
|
|
// *********************************************************************//
|
|
IShellNameSpaceDisp = dispinterface
|
|
['{E572D3C9-37BE-4AE2-825D-D521763E3108}']
|
|
property EnumOptions: Integer dispid 14;
|
|
property SelectedItem: IDispatch dispid 15;
|
|
property Root: OleVariant dispid 16;
|
|
property Depth: SYSINT dispid 17;
|
|
property Mode: SYSUINT dispid 18;
|
|
property Flags: LongWord dispid 19;
|
|
property TVFlags: LongWord dispid 20;
|
|
property Columns: WideString dispid 21;
|
|
property CountViewTypes: SYSINT readonly dispid 22;
|
|
procedure SetViewType(iType: SYSINT); dispid 23;
|
|
function SelectedItems: IDispatch; dispid 24;
|
|
procedure Expand(var_: OleVariant; iDepth: SYSINT); dispid 25;
|
|
procedure UnselectAll; dispid 26;
|
|
procedure MoveSelectionUp; dispid 1;
|
|
procedure MoveSelectionDown; dispid 2;
|
|
procedure ResetSort; dispid 3;
|
|
procedure NewFolder; dispid 4;
|
|
procedure Synchronize; dispid 5;
|
|
procedure Import; dispid 6;
|
|
procedure Export; dispid 7;
|
|
procedure InvokeContextMenuCommand(const strCommand: WideString); dispid 8;
|
|
procedure MoveSelectionTo; dispid 9;
|
|
property SubscriptionsEnabled: WordBool readonly dispid 10;
|
|
function CreateSubscriptionForSelection: WordBool; dispid 11;
|
|
function DeleteSubscriptionForSelection: WordBool; dispid 12;
|
|
procedure SetRoot(const bstrFullPath: WideString); dispid 13;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// Interface: IScriptErrorList
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {F3470F24-15FD-11D2-BB2E-00805FF7EFCA}
|
|
// *********************************************************************//
|
|
IScriptErrorList = interface(IDispatch)
|
|
['{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}']
|
|
procedure advanceError; safecall;
|
|
procedure retreatError; safecall;
|
|
function canAdvanceError: Integer; safecall;
|
|
function canRetreatError: Integer; safecall;
|
|
function getErrorLine: Integer; safecall;
|
|
function getErrorChar: Integer; safecall;
|
|
function getErrorCode: Integer; safecall;
|
|
function getErrorMsg: WideString; safecall;
|
|
function getErrorUrl: WideString; safecall;
|
|
function getAlwaysShowLockState: Integer; safecall;
|
|
function getDetailsPaneOpen: Integer; safecall;
|
|
procedure setDetailsPaneOpen(fDetailsPaneOpen: Integer); safecall;
|
|
function getPerErrorDisplay: Integer; safecall;
|
|
procedure setPerErrorDisplay(fPerErrorDisplay: Integer); safecall;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: IScriptErrorListDisp
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {F3470F24-15FD-11D2-BB2E-00805FF7EFCA}
|
|
// *********************************************************************//
|
|
IScriptErrorListDisp = dispinterface
|
|
['{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}']
|
|
procedure advanceError; dispid 10;
|
|
procedure retreatError; dispid 11;
|
|
function canAdvanceError: Integer; dispid 12;
|
|
function canRetreatError: Integer; dispid 13;
|
|
function getErrorLine: Integer; dispid 14;
|
|
function getErrorChar: Integer; dispid 15;
|
|
function getErrorCode: Integer; dispid 16;
|
|
function getErrorMsg: WideString; dispid 17;
|
|
function getErrorUrl: WideString; dispid 18;
|
|
function getAlwaysShowLockState: Integer; dispid 23;
|
|
function getDetailsPaneOpen: Integer; dispid 19;
|
|
procedure setDetailsPaneOpen(fDetailsPaneOpen: Integer); dispid 20;
|
|
function getPerErrorDisplay: Integer; dispid 21;
|
|
procedure setPerErrorDisplay(fPerErrorDisplay: Integer); dispid 22;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// Interface: ISearch
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {BA9239A4-3DD5-11D2-BF8B-00C04FB93661}
|
|
// *********************************************************************//
|
|
ISearch = interface(IDispatch)
|
|
['{BA9239A4-3DD5-11D2-BF8B-00C04FB93661}']
|
|
function Get_Title: WideString; safecall;
|
|
function Get_Id: WideString; safecall;
|
|
function Get_URL: WideString; safecall;
|
|
property Title: WideString read Get_Title;
|
|
property Id: WideString read Get_Id;
|
|
property URL: WideString read Get_URL;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: ISearchDisp
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {BA9239A4-3DD5-11D2-BF8B-00C04FB93661}
|
|
// *********************************************************************//
|
|
ISearchDisp = dispinterface
|
|
['{BA9239A4-3DD5-11D2-BF8B-00C04FB93661}']
|
|
property Title: WideString readonly dispid 1610743808;
|
|
property Id: WideString readonly dispid 1610743809;
|
|
property URL: WideString readonly dispid 1610743810;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// Interface: ISearches
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {47C922A2-3DD5-11D2-BF8B-00C04FB93661}
|
|
// *********************************************************************//
|
|
ISearches = interface(IDispatch)
|
|
['{47C922A2-3DD5-11D2-BF8B-00C04FB93661}']
|
|
function Get_Count: Integer; safecall;
|
|
function Get_Default: WideString; safecall;
|
|
function Item(index: OleVariant): ISearch; safecall;
|
|
function _NewEnum: IUnknown; safecall;
|
|
property Count: Integer read Get_Count;
|
|
property Default: WideString read Get_Default;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: ISearchesDisp
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {47C922A2-3DD5-11D2-BF8B-00C04FB93661}
|
|
// *********************************************************************//
|
|
ISearchesDisp = dispinterface
|
|
['{47C922A2-3DD5-11D2-BF8B-00C04FB93661}']
|
|
property Count: Integer readonly dispid 1610743808;
|
|
property Default: WideString readonly dispid 1610743809;
|
|
function Item(index: OleVariant): ISearch; dispid 1610743810;
|
|
function _NewEnum: IUnknown; dispid -4;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// Interface: ISearchAssistantOC
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {72423E8F-8011-11D2-BE79-00A0C9A83DA1}
|
|
// *********************************************************************//
|
|
ISearchAssistantOC = interface(IDispatch)
|
|
['{72423E8F-8011-11D2-BE79-00A0C9A83DA1}']
|
|
procedure AddNextMenuItem(const bstrText: WideString; idItem: Integer); safecall;
|
|
procedure SetDefaultSearchUrl(const bstrUrl: WideString); safecall;
|
|
procedure NavigateToDefaultSearch; safecall;
|
|
function IsRestricted(const bstrGuid: WideString): WordBool; safecall;
|
|
function Get_ShellFeaturesEnabled: WordBool; safecall;
|
|
function Get_SearchAssistantDefault: WordBool; safecall;
|
|
function Get_Searches: ISearches; safecall;
|
|
function Get_InWebFolder: WordBool; safecall;
|
|
procedure PutProperty(bPerLocale: WordBool; const bstrName: WideString;
|
|
const bstrValue: WideString); safecall;
|
|
function GetProperty(bPerLocale: WordBool; const bstrName: WideString): WideString; safecall;
|
|
procedure Set_EventHandled(Param1: WordBool); safecall;
|
|
procedure ResetNextMenu; safecall;
|
|
procedure FindOnWeb; safecall;
|
|
procedure FindFilesOrFolders; safecall;
|
|
procedure FindComputer; safecall;
|
|
procedure FindPrinter; safecall;
|
|
procedure FindPeople; safecall;
|
|
function GetSearchAssistantURL(bSubstitute: WordBool; bCustomize: WordBool): WideString; safecall;
|
|
procedure NotifySearchSettingsChanged; safecall;
|
|
procedure Set_ASProvider(const pProvider: WideString); safecall;
|
|
function Get_ASProvider: WideString; safecall;
|
|
procedure Set_ASSetting(pSetting: SYSINT); safecall;
|
|
function Get_ASSetting: SYSINT; safecall;
|
|
procedure NETDetectNextNavigate; safecall;
|
|
procedure PutFindText(const FindText: WideString); safecall;
|
|
function Get_Version: SYSINT; safecall;
|
|
function EncodeString(const bstrValue: WideString; const bstrCharSet: WideString;
|
|
bUseUTF8: WordBool): WideString; safecall;
|
|
property ShellFeaturesEnabled: WordBool read Get_ShellFeaturesEnabled;
|
|
property SearchAssistantDefault: WordBool read Get_SearchAssistantDefault;
|
|
property Searches: ISearches read Get_Searches;
|
|
property InWebFolder: WordBool read Get_InWebFolder;
|
|
property EventHandled: WordBool write Set_EventHandled;
|
|
property ASProvider: WideString read Get_ASProvider write Set_ASProvider;
|
|
property ASSetting: SYSINT read Get_ASSetting write Set_ASSetting;
|
|
property Version: SYSINT read Get_Version;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: ISearchAssistantOCDisp
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {72423E8F-8011-11D2-BE79-00A0C9A83DA1}
|
|
// *********************************************************************//
|
|
ISearchAssistantOCDisp = dispinterface
|
|
['{72423E8F-8011-11D2-BE79-00A0C9A83DA1}']
|
|
procedure AddNextMenuItem(const bstrText: WideString; idItem: Integer); dispid 1;
|
|
procedure SetDefaultSearchUrl(const bstrUrl: WideString); dispid 2;
|
|
procedure NavigateToDefaultSearch; dispid 3;
|
|
function IsRestricted(const bstrGuid: WideString): WordBool; dispid 4;
|
|
property ShellFeaturesEnabled: WordBool readonly dispid 5;
|
|
property SearchAssistantDefault: WordBool readonly dispid 6;
|
|
property Searches: ISearches readonly dispid 7;
|
|
property InWebFolder: WordBool readonly dispid 8;
|
|
procedure PutProperty(bPerLocale: WordBool; const bstrName: WideString;
|
|
const bstrValue: WideString); dispid 9;
|
|
function GetProperty(bPerLocale: WordBool; const bstrName: WideString): WideString; dispid 10;
|
|
property EventHandled: WordBool writeonly dispid 11;
|
|
procedure ResetNextMenu; dispid 12;
|
|
procedure FindOnWeb; dispid 13;
|
|
procedure FindFilesOrFolders; dispid 14;
|
|
procedure FindComputer; dispid 15;
|
|
procedure FindPrinter; dispid 16;
|
|
procedure FindPeople; dispid 17;
|
|
function GetSearchAssistantURL(bSubstitute: WordBool; bCustomize: WordBool): WideString; dispid 18;
|
|
procedure NotifySearchSettingsChanged; dispid 19;
|
|
property ASProvider: WideString dispid 20;
|
|
property ASSetting: SYSINT dispid 21;
|
|
procedure NETDetectNextNavigate; dispid 22;
|
|
procedure PutFindText(const FindText: WideString); dispid 23;
|
|
property Version: SYSINT readonly dispid 24;
|
|
function EncodeString(const bstrValue: WideString; const bstrCharSet: WideString;
|
|
bUseUTF8: WordBool): WideString; dispid 25;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// Interface: ISearchAssistantOC2
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {72423E8F-8011-11D2-BE79-00A0C9A83DA2}
|
|
// *********************************************************************//
|
|
ISearchAssistantOC2 = interface(ISearchAssistantOC)
|
|
['{72423E8F-8011-11D2-BE79-00A0C9A83DA2}']
|
|
function Get_ShowFindPrinter: WordBool; safecall;
|
|
property ShowFindPrinter: WordBool read Get_ShowFindPrinter;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: ISearchAssistantOC2Disp
|
|
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
|
// GUID: {72423E8F-8011-11D2-BE79-00A0C9A83DA2}
|
|
// *********************************************************************//
|
|
ISearchAssistantOC2Disp = dispinterface
|
|
['{72423E8F-8011-11D2-BE79-00A0C9A83DA2}']
|
|
property ShowFindPrinter: WordBool readonly dispid 26;
|
|
procedure AddNextMenuItem(const bstrText: WideString; idItem: Integer); dispid 1;
|
|
procedure SetDefaultSearchUrl(const bstrUrl: WideString); dispid 2;
|
|
procedure NavigateToDefaultSearch; dispid 3;
|
|
function IsRestricted(const bstrGuid: WideString): WordBool; dispid 4;
|
|
property ShellFeaturesEnabled: WordBool readonly dispid 5;
|
|
property SearchAssistantDefault: WordBool readonly dispid 6;
|
|
property Searches: ISearches readonly dispid 7;
|
|
property InWebFolder: WordBool readonly dispid 8;
|
|
procedure PutProperty(bPerLocale: WordBool; const bstrName: WideString;
|
|
const bstrValue: WideString); dispid 9;
|
|
function GetProperty(bPerLocale: WordBool; const bstrName: WideString): WideString; dispid 10;
|
|
property EventHandled: WordBool writeonly dispid 11;
|
|
procedure ResetNextMenu; dispid 12;
|
|
procedure FindOnWeb; dispid 13;
|
|
procedure FindFilesOrFolders; dispid 14;
|
|
procedure FindComputer; dispid 15;
|
|
procedure FindPrinter; dispid 16;
|
|
procedure FindPeople; dispid 17;
|
|
function GetSearchAssistantURL(bSubstitute: WordBool; bCustomize: WordBool): WideString; dispid 18;
|
|
procedure NotifySearchSettingsChanged; dispid 19;
|
|
property ASProvider: WideString dispid 20;
|
|
property ASSetting: SYSINT dispid 21;
|
|
procedure NETDetectNextNavigate; dispid 22;
|
|
procedure PutFindText(const FindText: WideString); dispid 23;
|
|
property Version: SYSINT readonly dispid 24;
|
|
function EncodeString(const bstrValue: WideString; const bstrCharSet: WideString;
|
|
bUseUTF8: WordBool): WideString; dispid 25;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: _SearchAssistantEvents
|
|
// Flags: (4112) Hidden Dispatchable
|
|
// GUID: {1611FDDA-445B-11D2-85DE-00C04FA35C89}
|
|
// *********************************************************************//
|
|
_SearchAssistantEvents = dispinterface
|
|
['{1611FDDA-445B-11D2-85DE-00C04FA35C89}']
|
|
procedure OnNextMenuSelect(idItem: Integer); dispid 1;
|
|
procedure OnNewSearch; dispid 2;
|
|
end;
|
|
|
|
|
|
// *********************************************************************//
|
|
// OLE Control Proxy class declaration
|
|
// Control Name : TWebBrowser_V1
|
|
// Help String : WebBrowser Control
|
|
// Default Interface: IWebBrowser
|
|
// Def. Intf. DISP? : No
|
|
// Event Interface: DWebBrowserEvents
|
|
// TypeFlags : (34) CanCreate Control
|
|
// *********************************************************************//
|
|
TWebBrowser_V1BeforeNavigate = procedure(Sender: TObject; const URL: WideString; Flags: Integer;
|
|
const TargetFrameName: WideString;
|
|
var PostData: OleVariant;
|
|
const Headers: WideString;
|
|
var Cancel: WordBool) of object;
|
|
TWebBrowser_V1NavigateComplete = procedure(Sender: TObject; const URL: WideString) of object;
|
|
TWebBrowser_V1StatusTextChange = procedure(Sender: TObject; const Text: WideString) of object;
|
|
TWebBrowser_V1ProgressChange = procedure(Sender: TObject; Progress: Integer; ProgressMax: Integer) of object;
|
|
TWebBrowser_V1CommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object;
|
|
TWebBrowser_V1NewWindow = procedure(Sender: TObject; const URL: WideString; Flags: Integer;
|
|
const TargetFrameName: WideString;
|
|
var PostData: OleVariant;
|
|
const Headers: WideString;
|
|
var Processed: WordBool) of object;
|
|
TWebBrowser_V1TitleChange = procedure(Sender: TObject; const Text: WideString) of object;
|
|
TWebBrowser_V1FrameBeforeNavigate = procedure(Sender: TObject; const URL: WideString;
|
|
Flags: Integer;
|
|
const TargetFrameName: WideString;
|
|
var PostData: OleVariant;
|
|
const Headers: WideString;
|
|
var Cancel: WordBool) of object;
|
|
TWebBrowser_V1FrameNavigateComplete = procedure(Sender: TObject; const URL: WideString) of object;
|
|
TWebBrowser_V1FrameNewWindow = procedure(Sender: TObject; const URL: WideString; Flags: Integer;
|
|
const TargetFrameName: WideString;
|
|
var PostData: OleVariant;
|
|
const Headers: WideString;
|
|
var Processed: WordBool) of object;
|
|
TWebBrowser_V1Quit = procedure(Sender: TObject; var Cancel: WordBool) of object;
|
|
TWebBrowser_V1PropertyChange = procedure(Sender: TObject; const Property_: WideString) of object;
|
|
|
|
TWebBrowser_V1 = class(TOleControl)
|
|
private
|
|
FOnBeforeNavigate: TWebBrowser_V1BeforeNavigate;
|
|
FOnNavigateComplete: TWebBrowser_V1NavigateComplete;
|
|
FOnStatusTextChange: TWebBrowser_V1StatusTextChange;
|
|
FOnProgressChange: TWebBrowser_V1ProgressChange;
|
|
FOnDownloadComplete: TNotifyEvent;
|
|
FOnCommandStateChange: TWebBrowser_V1CommandStateChange;
|
|
FOnDownloadBegin: TNotifyEvent;
|
|
FOnNewWindow: TWebBrowser_V1NewWindow;
|
|
FOnTitleChange: TWebBrowser_V1TitleChange;
|
|
FOnFrameBeforeNavigate: TWebBrowser_V1FrameBeforeNavigate;
|
|
FOnFrameNavigateComplete: TWebBrowser_V1FrameNavigateComplete;
|
|
FOnFrameNewWindow: TWebBrowser_V1FrameNewWindow;
|
|
FOnQuit: TWebBrowser_V1Quit;
|
|
FOnWindowMove: TNotifyEvent;
|
|
FOnWindowResize: TNotifyEvent;
|
|
FOnWindowActivate: TNotifyEvent;
|
|
FOnPropertyChange: TWebBrowser_V1PropertyChange;
|
|
FIntf: IWebBrowser;
|
|
function GetControlInterface: IWebBrowser;
|
|
protected
|
|
procedure CreateControl;
|
|
procedure InitControlData; override;
|
|
function Get_Application: IDispatch;
|
|
function Get_Parent: IDispatch;
|
|
function Get_Container: IDispatch;
|
|
function Get_Document: IDispatch;
|
|
public
|
|
procedure GoBack;
|
|
procedure GoForward;
|
|
procedure GoHome;
|
|
procedure GoSearch;
|
|
procedure Navigate(const URL: WideString); overload;
|
|
procedure Navigate(const URL: WideString; var Flags: OleVariant); overload;
|
|
procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); overload;
|
|
procedure Navigate(const URL: WideString; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant); overload;
|
|
procedure Navigate(const URL: WideString; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant;
|
|
var Headers: OleVariant); overload;
|
|
procedure Refresh;
|
|
procedure Refresh2; overload;
|
|
procedure Refresh2(var Level: OleVariant); overload;
|
|
procedure Stop;
|
|
property ControlInterface: IWebBrowser read GetControlInterface;
|
|
property DefaultInterface: IWebBrowser read GetControlInterface;
|
|
property Application: IDispatch index 200 read GetIDispatchProp;
|
|
property Parent: IDispatch index 201 read GetIDispatchProp;
|
|
property Container: IDispatch index 202 read GetIDispatchProp;
|
|
property Document: IDispatch index 203 read GetIDispatchProp;
|
|
property TopLevelContainer: WordBool index 204 read GetWordBoolProp;
|
|
property Type_: WideString index 205 read GetWideStringProp;
|
|
property LocationName: WideString index 210 read GetWideStringProp;
|
|
property LocationURL: WideString index 211 read GetWideStringProp;
|
|
property Busy: WordBool index 212 read GetWordBoolProp;
|
|
published
|
|
property TabStop;
|
|
property Align;
|
|
property DragCursor;
|
|
property DragMode;
|
|
property ParentShowHint;
|
|
property PopupMenu;
|
|
property ShowHint;
|
|
property TabOrder;
|
|
property Visible;
|
|
property OnDragDrop;
|
|
property OnDragOver;
|
|
property OnEndDrag;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnStartDrag;
|
|
property OnBeforeNavigate: TWebBrowser_V1BeforeNavigate read FOnBeforeNavigate write FOnBeforeNavigate;
|
|
property OnNavigateComplete: TWebBrowser_V1NavigateComplete read FOnNavigateComplete write FOnNavigateComplete;
|
|
property OnStatusTextChange: TWebBrowser_V1StatusTextChange read FOnStatusTextChange write FOnStatusTextChange;
|
|
property OnProgressChange: TWebBrowser_V1ProgressChange read FOnProgressChange write FOnProgressChange;
|
|
property OnDownloadComplete: TNotifyEvent read FOnDownloadComplete write FOnDownloadComplete;
|
|
property OnCommandStateChange: TWebBrowser_V1CommandStateChange read FOnCommandStateChange write FOnCommandStateChange;
|
|
property OnDownloadBegin: TNotifyEvent read FOnDownloadBegin write FOnDownloadBegin;
|
|
property OnNewWindow: TWebBrowser_V1NewWindow read FOnNewWindow write FOnNewWindow;
|
|
property OnTitleChange: TWebBrowser_V1TitleChange read FOnTitleChange write FOnTitleChange;
|
|
property OnFrameBeforeNavigate: TWebBrowser_V1FrameBeforeNavigate read FOnFrameBeforeNavigate write FOnFrameBeforeNavigate;
|
|
property OnFrameNavigateComplete: TWebBrowser_V1FrameNavigateComplete read FOnFrameNavigateComplete write FOnFrameNavigateComplete;
|
|
property OnFrameNewWindow: TWebBrowser_V1FrameNewWindow read FOnFrameNewWindow write FOnFrameNewWindow;
|
|
property OnQuit: TWebBrowser_V1Quit read FOnQuit write FOnQuit;
|
|
property OnWindowMove: TNotifyEvent read FOnWindowMove write FOnWindowMove;
|
|
property OnWindowResize: TNotifyEvent read FOnWindowResize write FOnWindowResize;
|
|
property OnWindowActivate: TNotifyEvent read FOnWindowActivate write FOnWindowActivate;
|
|
property OnPropertyChange: TWebBrowser_V1PropertyChange read FOnPropertyChange write FOnPropertyChange;
|
|
end;
|
|
|
|
|
|
// *********************************************************************//
|
|
// OLE Control Proxy class declaration
|
|
// Control Name : TWebBrowser
|
|
// Help String : WebBrowser Control
|
|
// Default Interface: IWebBrowser2
|
|
// Def. Intf. DISP? : No
|
|
// Event Interface: DWebBrowserEvents2
|
|
// TypeFlags : (34) CanCreate Control
|
|
// *********************************************************************//
|
|
TWebBrowserStatusTextChange = procedure(Sender: TObject; const Text: WideString) of object;
|
|
TWebBrowserProgressChange = procedure(Sender: TObject; Progress: Integer; ProgressMax: Integer) of object;
|
|
TWebBrowserCommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object;
|
|
TWebBrowserTitleChange = procedure(Sender: TObject; const Text: WideString) of object;
|
|
TWebBrowserPropertyChange = procedure(Sender: TObject; const szProperty: WideString) of object;
|
|
TWebBrowserBeforeNavigate2 = procedure(Sender: TObject; const pDisp: IDispatch;
|
|
var URL: OleVariant;
|
|
var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant;
|
|
var PostData: OleVariant;
|
|
var Headers: OleVariant;
|
|
var Cancel: WordBool) of object;
|
|
TWebBrowserNewWindow2 = procedure(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool) of object;
|
|
TWebBrowserNavigateComplete2 = procedure(Sender: TObject; const pDisp: IDispatch;
|
|
var URL: OleVariant) of object;
|
|
TWebBrowserDocumentComplete = procedure(Sender: TObject; const pDisp: IDispatch;
|
|
var URL: OleVariant) of object;
|
|
TWebBrowserOnVisible = procedure(Sender: TObject; Visible: WordBool) of object;
|
|
TWebBrowserOnToolBar = procedure(Sender: TObject; ToolBar: WordBool) of object;
|
|
TWebBrowserOnMenuBar = procedure(Sender: TObject; MenuBar: WordBool) of object;
|
|
TWebBrowserOnStatusBar = procedure(Sender: TObject; StatusBar: WordBool) of object;
|
|
TWebBrowserOnFullScreen = procedure(Sender: TObject; FullScreen: WordBool) of object;
|
|
TWebBrowserOnTheaterMode = procedure(Sender: TObject; TheaterMode: WordBool) of object;
|
|
TWebBrowserWindowSetResizable = procedure(Sender: TObject; Resizable: WordBool) of object;
|
|
TWebBrowserWindowSetLeft = procedure(Sender: TObject; Left: Integer) of object;
|
|
TWebBrowserWindowSetTop = procedure(Sender: TObject; Top: Integer) of object;
|
|
TWebBrowserWindowSetWidth = procedure(Sender: TObject; Width: Integer) of object;
|
|
TWebBrowserWindowSetHeight = procedure(Sender: TObject; Height: Integer) of object;
|
|
TWebBrowserWindowClosing = procedure(Sender: TObject; IsChildWindow: WordBool;
|
|
var Cancel: WordBool) of object;
|
|
TWebBrowserClientToHostWindow = procedure(Sender: TObject; var CX: Integer; var CY: Integer) of object;
|
|
TWebBrowserSetSecureLockIcon = procedure(Sender: TObject; SecureLockIcon: Integer) of object;
|
|
TWebBrowserFileDownload = procedure(Sender: TObject; var Cancel: WordBool) of object;
|
|
|
|
TWebBrowser = class(TOleControl)
|
|
private
|
|
FOnStatusTextChange: TWebBrowserStatusTextChange;
|
|
FOnProgressChange: TWebBrowserProgressChange;
|
|
FOnCommandStateChange: TWebBrowserCommandStateChange;
|
|
FOnDownloadBegin: TNotifyEvent;
|
|
FOnDownloadComplete: TNotifyEvent;
|
|
FOnTitleChange: TWebBrowserTitleChange;
|
|
FOnPropertyChange: TWebBrowserPropertyChange;
|
|
FOnBeforeNavigate2: TWebBrowserBeforeNavigate2;
|
|
FOnNewWindow2: TWebBrowserNewWindow2;
|
|
FOnNavigateComplete2: TWebBrowserNavigateComplete2;
|
|
FOnDocumentComplete: TWebBrowserDocumentComplete;
|
|
FOnQuit: TNotifyEvent;
|
|
FOnVisible: TWebBrowserOnVisible;
|
|
FOnToolBar: TWebBrowserOnToolBar;
|
|
FOnMenuBar: TWebBrowserOnMenuBar;
|
|
FOnStatusBar: TWebBrowserOnStatusBar;
|
|
FOnFullScreen: TWebBrowserOnFullScreen;
|
|
FOnTheaterMode: TWebBrowserOnTheaterMode;
|
|
FOnWindowSetResizable: TWebBrowserWindowSetResizable;
|
|
FOnWindowSetLeft: TWebBrowserWindowSetLeft;
|
|
FOnWindowSetTop: TWebBrowserWindowSetTop;
|
|
FOnWindowSetWidth: TWebBrowserWindowSetWidth;
|
|
FOnWindowSetHeight: TWebBrowserWindowSetHeight;
|
|
FOnWindowClosing: TWebBrowserWindowClosing;
|
|
FOnClientToHostWindow: TWebBrowserClientToHostWindow;
|
|
FOnSetSecureLockIcon: TWebBrowserSetSecureLockIcon;
|
|
FOnFileDownload: TWebBrowserFileDownload;
|
|
FIntf: IWebBrowser2;
|
|
function GetControlInterface: IWebBrowser2;
|
|
protected
|
|
procedure CreateControl;
|
|
procedure InitControlData; override;
|
|
function Get_Application: IDispatch;
|
|
function Get_Parent: IDispatch;
|
|
function Get_Container: IDispatch;
|
|
function Get_Document: IDispatch;
|
|
public
|
|
procedure GoBack;
|
|
procedure GoForward;
|
|
procedure GoHome;
|
|
procedure GoSearch;
|
|
procedure Navigate(const URL: WideString); overload;
|
|
procedure Navigate(const URL: WideString; var Flags: OleVariant); overload;
|
|
procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); overload;
|
|
procedure Navigate(const URL: WideString; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant); overload;
|
|
procedure Navigate(const URL: WideString; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant;
|
|
var Headers: OleVariant); overload;
|
|
procedure Refresh;
|
|
procedure Refresh2; overload;
|
|
procedure Refresh2(var 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(var URL: OleVariant); overload;
|
|
procedure Navigate2(var URL: OleVariant; var Flags: OleVariant); overload;
|
|
procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant); overload;
|
|
procedure Navigate2(var URL: OleVariant; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant); overload;
|
|
procedure Navigate2(var URL: OleVariant; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant;
|
|
var Headers: OleVariant); overload;
|
|
function QueryStatusWB(cmdID: OLECMDID): OLECMDF;
|
|
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); overload;
|
|
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant); overload;
|
|
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant;
|
|
var pvaOut: OleVariant); overload;
|
|
procedure ShowBrowserBar(var pvaClsid: OleVariant); overload;
|
|
procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant); overload;
|
|
procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant;
|
|
var pvarSize: OleVariant); overload;
|
|
property ControlInterface: IWebBrowser2 read GetControlInterface;
|
|
property DefaultInterface: IWebBrowser2 read GetControlInterface;
|
|
property Application: IDispatch index 200 read GetIDispatchProp;
|
|
property Parent: IDispatch index 201 read GetIDispatchProp;
|
|
property Container: IDispatch index 202 read GetIDispatchProp;
|
|
property Document: IDispatch index 203 read GetIDispatchProp;
|
|
property TopLevelContainer: WordBool index 204 read GetWordBoolProp;
|
|
property Type_: WideString index 205 read GetWideStringProp;
|
|
property LocationName: WideString index 210 read GetWideStringProp;
|
|
property LocationURL: WideString index 211 read GetWideStringProp;
|
|
property Busy: WordBool index 212 read GetWordBoolProp;
|
|
property Name: WideString index 0 read GetWideStringProp;
|
|
property HWND: Integer index -515 read GetIntegerProp;
|
|
property FullName: WideString index 400 read GetWideStringProp;
|
|
property Path: WideString index 401 read GetWideStringProp;
|
|
property ReadyState: TOleEnum index -525 read GetTOleEnumProp;
|
|
published
|
|
property TabStop;
|
|
property Align;
|
|
property DragCursor;
|
|
property DragMode;
|
|
property ParentShowHint;
|
|
property PopupMenu;
|
|
property ShowHint;
|
|
property TabOrder;
|
|
property OnDragDrop;
|
|
property OnDragOver;
|
|
property OnEndDrag;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnStartDrag;
|
|
property Visible: WordBool index 402 read GetWordBoolProp write SetWordBoolProp stored False;
|
|
property StatusBar: WordBool index 403 read GetWordBoolProp write SetWordBoolProp stored False;
|
|
property StatusText: WideString index 404 read GetWideStringProp write SetWideStringProp stored False;
|
|
property ToolBar: Integer index 405 read GetIntegerProp write SetIntegerProp stored False;
|
|
property MenuBar: WordBool index 406 read GetWordBoolProp write SetWordBoolProp stored False;
|
|
property FullScreen: WordBool index 407 read GetWordBoolProp write SetWordBoolProp stored False;
|
|
property Offline: WordBool index 550 read GetWordBoolProp write SetWordBoolProp stored False;
|
|
property Silent: WordBool index 551 read GetWordBoolProp write SetWordBoolProp stored False;
|
|
property RegisterAsBrowser: WordBool index 552 read GetWordBoolProp write SetWordBoolProp stored False;
|
|
property RegisterAsDropTarget: WordBool index 553 read GetWordBoolProp write SetWordBoolProp stored False;
|
|
property TheaterMode: WordBool index 554 read GetWordBoolProp write SetWordBoolProp stored False;
|
|
property AddressBar: WordBool index 555 read GetWordBoolProp write SetWordBoolProp stored False;
|
|
property Resizable: WordBool index 556 read GetWordBoolProp write SetWordBoolProp stored False;
|
|
property OnStatusTextChange: TWebBrowserStatusTextChange read FOnStatusTextChange write FOnStatusTextChange;
|
|
property OnProgressChange: TWebBrowserProgressChange read FOnProgressChange write FOnProgressChange;
|
|
property OnCommandStateChange: TWebBrowserCommandStateChange read FOnCommandStateChange write FOnCommandStateChange;
|
|
property OnDownloadBegin: TNotifyEvent read FOnDownloadBegin write FOnDownloadBegin;
|
|
property OnDownloadComplete: TNotifyEvent read FOnDownloadComplete write FOnDownloadComplete;
|
|
property OnTitleChange: TWebBrowserTitleChange read FOnTitleChange write FOnTitleChange;
|
|
property OnPropertyChange: TWebBrowserPropertyChange read FOnPropertyChange write FOnPropertyChange;
|
|
property OnBeforeNavigate2: TWebBrowserBeforeNavigate2 read FOnBeforeNavigate2 write FOnBeforeNavigate2;
|
|
property OnNewWindow2: TWebBrowserNewWindow2 read FOnNewWindow2 write FOnNewWindow2;
|
|
property OnNavigateComplete2: TWebBrowserNavigateComplete2 read FOnNavigateComplete2 write FOnNavigateComplete2;
|
|
property OnDocumentComplete: TWebBrowserDocumentComplete read FOnDocumentComplete write FOnDocumentComplete;
|
|
property OnQuit: TNotifyEvent read FOnQuit write FOnQuit;
|
|
property OnVisible: TWebBrowserOnVisible read FOnVisible write FOnVisible;
|
|
property OnToolBar: TWebBrowserOnToolBar read FOnToolBar write FOnToolBar;
|
|
property OnMenuBar: TWebBrowserOnMenuBar read FOnMenuBar write FOnMenuBar;
|
|
property OnStatusBar: TWebBrowserOnStatusBar read FOnStatusBar write FOnStatusBar;
|
|
property OnFullScreen: TWebBrowserOnFullScreen read FOnFullScreen write FOnFullScreen;
|
|
property OnTheaterMode: TWebBrowserOnTheaterMode read FOnTheaterMode write FOnTheaterMode;
|
|
property OnWindowSetResizable: TWebBrowserWindowSetResizable read FOnWindowSetResizable write FOnWindowSetResizable;
|
|
property OnWindowSetLeft: TWebBrowserWindowSetLeft read FOnWindowSetLeft write FOnWindowSetLeft;
|
|
property OnWindowSetTop: TWebBrowserWindowSetTop read FOnWindowSetTop write FOnWindowSetTop;
|
|
property OnWindowSetWidth: TWebBrowserWindowSetWidth read FOnWindowSetWidth write FOnWindowSetWidth;
|
|
property OnWindowSetHeight: TWebBrowserWindowSetHeight read FOnWindowSetHeight write FOnWindowSetHeight;
|
|
property OnWindowClosing: TWebBrowserWindowClosing read FOnWindowClosing write FOnWindowClosing;
|
|
property OnClientToHostWindow: TWebBrowserClientToHostWindow read FOnClientToHostWindow write FOnClientToHostWindow;
|
|
property OnSetSecureLockIcon: TWebBrowserSetSecureLockIcon read FOnSetSecureLockIcon write FOnSetSecureLockIcon;
|
|
property OnFileDownload: TWebBrowserFileDownload read FOnFileDownload write FOnFileDownload;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// The Class CoInternetExplorer provides a Create and CreateRemote method to
|
|
// create instances of the default interface IWebBrowser2 exposed by
|
|
// the CoClass InternetExplorer. The functions are intended to be used by
|
|
// clients wishing to automate the CoClass objects exposed by the
|
|
// server of this typelibrary.
|
|
// *********************************************************************//
|
|
CoInternetExplorer = class
|
|
class function Create: IWebBrowser2;
|
|
class function CreateRemote(const MachineName: string): IWebBrowser2;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// The Class CoShellBrowserWindow provides a Create and CreateRemote method to
|
|
// create instances of the default interface IWebBrowser2 exposed by
|
|
// the CoClass ShellBrowserWindow. The functions are intended to be used by
|
|
// clients wishing to automate the CoClass objects exposed by the
|
|
// server of this typelibrary.
|
|
// *********************************************************************//
|
|
CoShellBrowserWindow = class
|
|
class function Create: IWebBrowser2;
|
|
class function CreateRemote(const MachineName: string): IWebBrowser2;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// The Class CoShellWindows provides a Create and CreateRemote method to
|
|
// create instances of the default interface IShellWindows exposed by
|
|
// the CoClass ShellWindows. The functions are intended to be used by
|
|
// clients wishing to automate the CoClass objects exposed by the
|
|
// server of this typelibrary.
|
|
// *********************************************************************//
|
|
CoShellWindows = class
|
|
class function Create: IShellWindows;
|
|
class function CreateRemote(const MachineName: string): IShellWindows;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// The Class CoShellUIHelper provides a Create and CreateRemote method to
|
|
// create instances of the default interface IShellUIHelper exposed by
|
|
// the CoClass ShellUIHelper. The functions are intended to be used by
|
|
// clients wishing to automate the CoClass objects exposed by the
|
|
// server of this typelibrary.
|
|
// *********************************************************************//
|
|
CoShellUIHelper = class
|
|
class function Create: IShellUIHelper;
|
|
class function CreateRemote(const MachineName: string): IShellUIHelper;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// The Class CoShellNameSpace provides a Create and CreateRemote method to
|
|
// create instances of the default interface IShellNameSpace exposed by
|
|
// the CoClass ShellNameSpace. The functions are intended to be used by
|
|
// clients wishing to automate the CoClass objects exposed by the
|
|
// server of this typelibrary.
|
|
// *********************************************************************//
|
|
CoShellNameSpace = class
|
|
class function Create: IShellNameSpace;
|
|
class function CreateRemote(const MachineName: string): IShellNameSpace;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// The Class CoCScriptErrorList provides a Create and CreateRemote method to
|
|
// create instances of the default interface IScriptErrorList exposed by
|
|
// the CoClass CScriptErrorList. The functions are intended to be used by
|
|
// clients wishing to automate the CoClass objects exposed by the
|
|
// server of this typelibrary.
|
|
// *********************************************************************//
|
|
CoCScriptErrorList = class
|
|
class function Create: IScriptErrorList;
|
|
class function CreateRemote(const MachineName: string): IScriptErrorList;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// The Class CoSearchAssistantOC provides a Create and CreateRemote method to
|
|
// create instances of the default interface ISearchAssistantOC2 exposed by
|
|
// the CoClass SearchAssistantOC. The functions are intended to be used by
|
|
// clients wishing to automate the CoClass objects exposed by the
|
|
// server of this typelibrary.
|
|
// *********************************************************************//
|
|
CoSearchAssistantOC = class
|
|
class function Create: ISearchAssistantOC2;
|
|
class function CreateRemote(const MachineName: string): ISearchAssistantOC2;
|
|
end;
|
|
|
|
procedure Register;
|
|
|
|
resourcestring
|
|
dtlServerPage = 'ActiveX';
|
|
|
|
implementation
|
|
|
|
uses ComObj;
|
|
|
|
procedure TWebBrowser_V1.InitControlData;
|
|
const
|
|
CEventDispIDs: array [0..16] of DWORD = (
|
|
$00000064, $00000065, $00000066, $0000006C, $00000068, $00000069,
|
|
$0000006A, $0000006B, $00000071, $000000C8, $000000C9, $000000CC,
|
|
$00000067, $0000006D, $0000006E, $0000006F, $00000070);
|
|
CControlData: TControlData2 = (
|
|
ClassID: '{EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B}';
|
|
EventIID: '{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}';
|
|
EventCount: 17;
|
|
EventDispIDs: @CEventDispIDs;
|
|
LicenseKey: nil (*HR:$80040154*);
|
|
Flags: $00000000;
|
|
Version: 401);
|
|
begin
|
|
ControlData := @CControlData;
|
|
TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnBeforeNavigate) - Cardinal(Self);
|
|
end;
|
|
|
|
procedure TWebBrowser_V1.CreateControl;
|
|
|
|
procedure DoCreate;
|
|
begin
|
|
FIntf := IUnknown(OleObject) as IWebBrowser;
|
|
end;
|
|
|
|
begin
|
|
if FIntf = nil then DoCreate;
|
|
end;
|
|
|
|
function TWebBrowser_V1.GetControlInterface: IWebBrowser;
|
|
begin
|
|
CreateControl;
|
|
Result := FIntf;
|
|
end;
|
|
|
|
function TWebBrowser_V1.Get_Application: IDispatch;
|
|
begin
|
|
Result := DefaultInterface.Application;
|
|
end;
|
|
|
|
function TWebBrowser_V1.Get_Parent: IDispatch;
|
|
begin
|
|
Result := DefaultInterface.Parent;
|
|
end;
|
|
|
|
function TWebBrowser_V1.Get_Container: IDispatch;
|
|
begin
|
|
Result := DefaultInterface.Container;
|
|
end;
|
|
|
|
function TWebBrowser_V1.Get_Document: IDispatch;
|
|
begin
|
|
Result := DefaultInterface.Document;
|
|
end;
|
|
|
|
procedure TWebBrowser_V1.GoBack;
|
|
begin
|
|
DefaultInterface.GoBack;
|
|
end;
|
|
|
|
procedure TWebBrowser_V1.GoForward;
|
|
begin
|
|
DefaultInterface.GoForward;
|
|
end;
|
|
|
|
procedure TWebBrowser_V1.GoHome;
|
|
begin
|
|
DefaultInterface.GoHome;
|
|
end;
|
|
|
|
procedure TWebBrowser_V1.GoSearch;
|
|
begin
|
|
DefaultInterface.GoSearch;
|
|
end;
|
|
|
|
procedure TWebBrowser_V1.Navigate(const URL: WideString);
|
|
begin
|
|
DefaultInterface.Navigate(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser_V1.Navigate(const URL: WideString; var Flags: OleVariant);
|
|
begin
|
|
DefaultInterface.Navigate(URL, Flags, EmptyParam, EmptyParam, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser_V1.Navigate(const URL: WideString; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant);
|
|
begin
|
|
DefaultInterface.Navigate(URL, Flags, TargetFrameName, EmptyParam, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser_V1.Navigate(const URL: WideString; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant);
|
|
begin
|
|
DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser_V1.Navigate(const URL: WideString; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant;
|
|
var Headers: OleVariant);
|
|
begin
|
|
DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, Headers);
|
|
end;
|
|
|
|
procedure TWebBrowser_V1.Refresh;
|
|
begin
|
|
DefaultInterface.Refresh;
|
|
end;
|
|
|
|
procedure TWebBrowser_V1.Refresh2;
|
|
begin
|
|
DefaultInterface.Refresh2(EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser_V1.Refresh2(var Level: OleVariant);
|
|
begin
|
|
DefaultInterface.Refresh2(Level);
|
|
end;
|
|
|
|
procedure TWebBrowser_V1.Stop;
|
|
begin
|
|
DefaultInterface.Stop;
|
|
end;
|
|
|
|
procedure TWebBrowser.InitControlData;
|
|
const
|
|
CEventDispIDs: array [0..26] of DWORD = (
|
|
$00000066, $0000006C, $00000069, $0000006A, $00000068, $00000071,
|
|
$00000070, $000000FA, $000000FB, $000000FC, $00000103, $000000FD,
|
|
$000000FE, $000000FF, $00000100, $00000101, $00000102, $00000104,
|
|
$00000106, $00000108, $00000109, $0000010A, $0000010B, $00000107,
|
|
$0000010C, $0000010D, $0000010E);
|
|
CControlData: TControlData2 = (
|
|
ClassID: '{8856F961-340A-11D0-A96B-00C04FD705A2}';
|
|
EventIID: '{34A715A0-6587-11D0-924A-0020AFC7AC4D}';
|
|
EventCount: 27;
|
|
EventDispIDs: @CEventDispIDs;
|
|
LicenseKey: nil (*HR:$80040154*);
|
|
Flags: $00000000;
|
|
Version: 401);
|
|
begin
|
|
ControlData := @CControlData;
|
|
TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnStatusTextChange) - Cardinal(Self);
|
|
end;
|
|
|
|
procedure TWebBrowser.CreateControl;
|
|
|
|
procedure DoCreate;
|
|
begin
|
|
FIntf := IUnknown(OleObject) as IWebBrowser2;
|
|
end;
|
|
|
|
begin
|
|
if FIntf = nil then DoCreate;
|
|
end;
|
|
|
|
function TWebBrowser.GetControlInterface: IWebBrowser2;
|
|
begin
|
|
CreateControl;
|
|
Result := FIntf;
|
|
end;
|
|
|
|
function TWebBrowser.Get_Application: IDispatch;
|
|
begin
|
|
Result := DefaultInterface.Application;
|
|
end;
|
|
|
|
function TWebBrowser.Get_Parent: IDispatch;
|
|
begin
|
|
Result := DefaultInterface.Parent;
|
|
end;
|
|
|
|
function TWebBrowser.Get_Container: IDispatch;
|
|
begin
|
|
Result := DefaultInterface.Container;
|
|
end;
|
|
|
|
function TWebBrowser.Get_Document: IDispatch;
|
|
begin
|
|
Result := DefaultInterface.Document;
|
|
end;
|
|
|
|
procedure TWebBrowser.GoBack;
|
|
begin
|
|
DefaultInterface.GoBack;
|
|
end;
|
|
|
|
procedure TWebBrowser.GoForward;
|
|
begin
|
|
DefaultInterface.GoForward;
|
|
end;
|
|
|
|
procedure TWebBrowser.GoHome;
|
|
begin
|
|
DefaultInterface.GoHome;
|
|
end;
|
|
|
|
procedure TWebBrowser.GoSearch;
|
|
begin
|
|
DefaultInterface.GoSearch;
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate(const URL: WideString);
|
|
begin
|
|
DefaultInterface.Navigate(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate(const URL: WideString; var Flags: OleVariant);
|
|
begin
|
|
DefaultInterface.Navigate(URL, Flags, EmptyParam, EmptyParam, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate(const URL: WideString; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant);
|
|
begin
|
|
DefaultInterface.Navigate(URL, Flags, TargetFrameName, EmptyParam, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate(const URL: WideString; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant);
|
|
begin
|
|
DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate(const URL: WideString; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant;
|
|
var Headers: OleVariant);
|
|
begin
|
|
DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, Headers);
|
|
end;
|
|
|
|
procedure TWebBrowser.Refresh;
|
|
begin
|
|
DefaultInterface.Refresh;
|
|
end;
|
|
|
|
procedure TWebBrowser.Refresh2;
|
|
begin
|
|
DefaultInterface.Refresh2(EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser.Refresh2(var Level: OleVariant);
|
|
begin
|
|
DefaultInterface.Refresh2(Level);
|
|
end;
|
|
|
|
procedure TWebBrowser.Stop;
|
|
begin
|
|
DefaultInterface.Stop;
|
|
end;
|
|
|
|
procedure TWebBrowser.Quit;
|
|
begin
|
|
DefaultInterface.Quit;
|
|
end;
|
|
|
|
procedure TWebBrowser.ClientToWindow(var pcx: SYSINT; var pcy: SYSINT);
|
|
begin
|
|
DefaultInterface.ClientToWindow(pcx, pcy);
|
|
end;
|
|
|
|
procedure TWebBrowser.PutProperty(const Property_: WideString; vtValue: OleVariant);
|
|
begin
|
|
DefaultInterface.PutProperty(Property_, vtValue);
|
|
end;
|
|
|
|
function TWebBrowser.GetProperty(const Property_: WideString): OleVariant;
|
|
begin
|
|
Result := DefaultInterface.GetProperty(Property_);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate2(var URL: OleVariant);
|
|
begin
|
|
DefaultInterface.Navigate2(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate2(var URL: OleVariant; var Flags: OleVariant);
|
|
begin
|
|
DefaultInterface.Navigate2(URL, Flags, EmptyParam, EmptyParam, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate2(var URL: OleVariant; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant);
|
|
begin
|
|
DefaultInterface.Navigate2(URL, Flags, TargetFrameName, EmptyParam, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate2(var URL: OleVariant; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant);
|
|
begin
|
|
DefaultInterface.Navigate2(URL, Flags, TargetFrameName, PostData, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser.Navigate2(var URL: OleVariant; var Flags: OleVariant;
|
|
var TargetFrameName: OleVariant; var PostData: OleVariant;
|
|
var Headers: OleVariant);
|
|
begin
|
|
DefaultInterface.Navigate2(URL, Flags, TargetFrameName, PostData, Headers);
|
|
end;
|
|
|
|
function TWebBrowser.QueryStatusWB(cmdID: OLECMDID): OLECMDF;
|
|
begin
|
|
Result := DefaultInterface.QueryStatusWB(cmdID);
|
|
end;
|
|
|
|
procedure TWebBrowser.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT);
|
|
begin
|
|
DefaultInterface.ExecWB(cmdID, cmdexecopt, EmptyParam, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant);
|
|
begin
|
|
DefaultInterface.ExecWB(cmdID, cmdexecopt, pvaIn, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant;
|
|
var pvaOut: OleVariant);
|
|
begin
|
|
DefaultInterface.ExecWB(cmdID, cmdexecopt, pvaIn, pvaOut);
|
|
end;
|
|
|
|
procedure TWebBrowser.ShowBrowserBar(var pvaClsid: OleVariant);
|
|
begin
|
|
DefaultInterface.ShowBrowserBar(pvaClsid, EmptyParam, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser.ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant);
|
|
begin
|
|
DefaultInterface.ShowBrowserBar(pvaClsid, pvarShow, EmptyParam);
|
|
end;
|
|
|
|
procedure TWebBrowser.ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant;
|
|
var pvarSize: OleVariant);
|
|
begin
|
|
DefaultInterface.ShowBrowserBar(pvaClsid, pvarShow, pvarSize);
|
|
end;
|
|
|
|
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;
|
|
|
|
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;
|
|
|
|
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;
|
|
|
|
class function CoShellUIHelper.Create: IShellUIHelper;
|
|
begin
|
|
Result := CreateComObject(CLASS_ShellUIHelper) as IShellUIHelper;
|
|
end;
|
|
|
|
class function CoShellUIHelper.CreateRemote(const MachineName: string): IShellUIHelper;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName, CLASS_ShellUIHelper) as IShellUIHelper;
|
|
end;
|
|
|
|
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;
|
|
|
|
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;
|
|
|
|
class function CoSearchAssistantOC.Create: ISearchAssistantOC2;
|
|
begin
|
|
Result := CreateComObject(CLASS_SearchAssistantOC) as ISearchAssistantOC2;
|
|
end;
|
|
|
|
class function CoSearchAssistantOC.CreateRemote(const MachineName: string): ISearchAssistantOC2;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName, CLASS_SearchAssistantOC) as ISearchAssistantOC2;
|
|
end;
|
|
|
|
procedure Register;
|
|
begin
|
|
RegisterComponents('ActiveX',[TWebBrowser_V1, TWebBrowser]);
|
|
end;
|
|
|
|
end.
|