📄 webbrowser4_tlb.pas
字号:
IShellUIHelper2 = interface(IShellUIHelper)
['{F849B80C-A19C-496D-AEFB-F405971E8962}']
procedure AddSearchProvider(const URL: WideString); safecall;
procedure RunOnceShown; safecall;
procedure SkipRunOnce; safecall;
procedure CustomizeSettings(fSQM: WordBool; fPhishing: WordBool; const bstrLocale: WideString); safecall;
function SqmEnabled: WordBool; safecall;
function PhishingEnabled: WordBool; safecall;
function BrandImageUri: WideString; safecall;
procedure SkipTabsWelcome; safecall;
procedure DiagnoseConnection; safecall;
procedure CustomizeClearType(fSet: WordBool); safecall;
end;
// *********************************************************************//
// DispIntf: IShellUIHelper2Disp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {F849B80C-A19C-496D-AEFB-F405971E8962}
// *********************************************************************//
IShellUIHelper2Disp = dispinterface
['{F849B80C-A19C-496D-AEFB-F405971E8962}']
procedure AddSearchProvider(const URL: WideString); dispid 14;
procedure RunOnceShown; dispid 15;
procedure SkipRunOnce; dispid 16;
procedure CustomizeSettings(fSQM: WordBool; fPhishing: WordBool; const bstrLocale: WideString); dispid 17;
function SqmEnabled: WordBool; dispid 18;
function PhishingEnabled: WordBool; dispid 19;
function BrandImageUri: WideString; dispid 20;
procedure SkipTabsWelcome; dispid 21;
procedure DiagnoseConnection; dispid 22;
procedure CustomizeClearType(fSet: WordBool); dispid 23;
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;
// *********************************************************************//
// 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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -