📄 msscriptcontrol_tlb.pas
字号:
unit MSScriptControl_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 2005-12-20 13:43:49 from Type Library described below.
// ************************************************************************ //
// Type Lib: C:\WINNT\System32\msscript.ocx (1)
// LIBID: {0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}
// LCID: 0
// Helpfile: C:\WINNT\System32\MSSCRIPT.HLP
// DepndLst:
// (1) v2.0 stdole, (C:\WINNT\system32\stdole2.tlb)
// (2) v4.0 StdVCL, (C:\WINNT\system32\stdvcl40.dll)
// Errors:
// Hint: TypeInfo 'Procedure' changed to 'Procedure_'
// Hint: Parameter 'Object' of IScriptModuleCollection.Add changed to 'Object_'
// Hint: Parameter 'Object' of IScriptControl.AddObject changed to 'Object_'
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface
uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
MSScriptControlMajorVersion = 1;
MSScriptControlMinorVersion = 0;
LIBID_MSScriptControl: TGUID = '{0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}';
IID_IScriptProcedure: TGUID = '{70841C73-067D-11D0-95D8-00A02463AB28}';
IID_IScriptProcedureCollection: TGUID = '{70841C71-067D-11D0-95D8-00A02463AB28}';
IID_IScriptModule: TGUID = '{70841C70-067D-11D0-95D8-00A02463AB28}';
IID_IScriptModuleCollection: TGUID = '{70841C6F-067D-11D0-95D8-00A02463AB28}';
IID_IScriptError: TGUID = '{70841C78-067D-11D0-95D8-00A02463AB28}';
IID_IScriptControl: TGUID = '{0E59F1D3-1FBE-11D0-8FF2-00A0D10038BC}';
DIID_DScriptControlSource: TGUID = '{8B167D60-8605-11D0-ABCB-00A0C90FFFC0}';
CLASS_Procedure_: TGUID = '{0E59F1DA-1FBE-11D0-8FF2-00A0D10038BC}';
CLASS_Procedures: TGUID = '{0E59F1DB-1FBE-11D0-8FF2-00A0D10038BC}';
CLASS_Module: TGUID = '{0E59F1DC-1FBE-11D0-8FF2-00A0D10038BC}';
CLASS_Modules: TGUID = '{0E59F1DD-1FBE-11D0-8FF2-00A0D10038BC}';
CLASS_Error: TGUID = '{0E59F1DE-1FBE-11D0-8FF2-00A0D10038BC}';
CLASS_ScriptControl: TGUID = '{0E59F1D5-1FBE-11D0-8FF2-00A0D10038BC}';
// *********************************************************************//
// Declaration of Enumerations defined in Type Library
// *********************************************************************//
// Constants for enum ScriptControlStates
type
ScriptControlStates = TOleEnum;
const
Initialized = $00000000;
Connected = $00000001;
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
IScriptProcedure = interface;
IScriptProcedureDisp = dispinterface;
IScriptProcedureCollection = interface;
IScriptProcedureCollectionDisp = dispinterface;
IScriptModule = interface;
IScriptModuleDisp = dispinterface;
IScriptModuleCollection = interface;
IScriptModuleCollectionDisp = dispinterface;
IScriptError = interface;
IScriptErrorDisp = dispinterface;
IScriptControl = interface;
IScriptControlDisp = dispinterface;
DScriptControlSource = dispinterface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
Procedure_ = IScriptProcedure;
Procedures = IScriptProcedureCollection;
Module = IScriptModule;
Modules = IScriptModuleCollection;
Error = IScriptError;
ScriptControl = IScriptControl;
// *********************************************************************//
// Declaration of structures, unions and aliases.
// *********************************************************************//
PPSafeArray1 = ^PSafeArray; {*}
POleVariant1 = ^OleVariant; {*}
// *********************************************************************//
// Interface: IScriptProcedure
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {70841C73-067D-11D0-95D8-00A02463AB28}
// *********************************************************************//
IScriptProcedure = interface(IDispatch)
['{70841C73-067D-11D0-95D8-00A02463AB28}']
function Get_Name: WideString; safecall;
function Get_NumArgs: Integer; safecall;
function Get_HasReturnValue: WordBool; safecall;
property Name: WideString read Get_Name;
property NumArgs: Integer read Get_NumArgs;
property HasReturnValue: WordBool read Get_HasReturnValue;
end;
// *********************************************************************//
// DispIntf: IScriptProcedureDisp
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {70841C73-067D-11D0-95D8-00A02463AB28}
// *********************************************************************//
IScriptProcedureDisp = dispinterface
['{70841C73-067D-11D0-95D8-00A02463AB28}']
property Name: WideString readonly dispid 0;
property NumArgs: Integer readonly dispid 100;
property HasReturnValue: WordBool readonly dispid 101;
end;
// *********************************************************************//
// Interface: IScriptProcedureCollection
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {70841C71-067D-11D0-95D8-00A02463AB28}
// *********************************************************************//
IScriptProcedureCollection = interface(IDispatch)
['{70841C71-067D-11D0-95D8-00A02463AB28}']
function Get__NewEnum: IUnknown; safecall;
function Get_Item(Index: OleVariant): IScriptProcedure; safecall;
function Get_Count: Integer; safecall;
property _NewEnum: IUnknown read Get__NewEnum;
property Item[Index: OleVariant]: IScriptProcedure read Get_Item; default;
property Count: Integer read Get_Count;
end;
// *********************************************************************//
// DispIntf: IScriptProcedureCollectionDisp
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {70841C71-067D-11D0-95D8-00A02463AB28}
// *********************************************************************//
IScriptProcedureCollectionDisp = dispinterface
['{70841C71-067D-11D0-95D8-00A02463AB28}']
property _NewEnum: IUnknown readonly dispid -4;
property Item[Index: OleVariant]: IScriptProcedure readonly dispid 0; default;
property Count: Integer readonly dispid 1;
end;
// *********************************************************************//
// Interface: IScriptModule
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {70841C70-067D-11D0-95D8-00A02463AB28}
// *********************************************************************//
IScriptModule = interface(IDispatch)
['{70841C70-067D-11D0-95D8-00A02463AB28}']
function Get_Name: WideString; safecall;
function Get_CodeObject: IDispatch; safecall;
function Get_Procedures: IScriptProcedureCollection; safecall;
procedure AddCode(const Code: WideString); safecall;
function Eval(const Expression: WideString): OleVariant; safecall;
procedure ExecuteStatement(const Statement: WideString); safecall;
function Run(const ProcedureName: WideString; var Parameters: PSafeArray): OleVariant; safecall;
property Name: WideString read Get_Name;
property CodeObject: IDispatch read Get_CodeObject;
property Procedures: IScriptProcedureCollection read Get_Procedures;
end;
// *********************************************************************//
// DispIntf: IScriptModuleDisp
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {70841C70-067D-11D0-95D8-00A02463AB28}
// *********************************************************************//
IScriptModuleDisp = dispinterface
['{70841C70-067D-11D0-95D8-00A02463AB28}']
property Name: WideString readonly dispid 0;
property CodeObject: IDispatch readonly dispid 1000;
property Procedures: IScriptProcedureCollection readonly dispid 1001;
procedure AddCode(const Code: WideString); dispid 2000;
function Eval(const Expression: WideString): OleVariant; dispid 2001;
procedure ExecuteStatement(const Statement: WideString); dispid 2002;
function Run(const ProcedureName: WideString; var Parameters: {??PSafeArray}OleVariant): OleVariant; dispid 2003;
end;
// *********************************************************************//
// Interface: IScriptModuleCollection
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {70841C6F-067D-11D0-95D8-00A02463AB28}
// *********************************************************************//
IScriptModuleCollection = interface(IDispatch)
['{70841C6F-067D-11D0-95D8-00A02463AB28}']
function Get__NewEnum: IUnknown; safecall;
function Get_Item(Index: OleVariant): IScriptModule; safecall;
function Get_Count: Integer; safecall;
function Add(const Name: WideString; var Object_: OleVariant): IScriptModule; safecall;
property _NewEnum: IUnknown read Get__NewEnum;
property Item[Index: OleVariant]: IScriptModule read Get_Item; default;
property Count: Integer read Get_Count;
end;
// *********************************************************************//
// DispIntf: IScriptModuleCollectionDisp
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {70841C6F-067D-11D0-95D8-00A02463AB28}
// *********************************************************************//
IScriptModuleCollectionDisp = dispinterface
['{70841C6F-067D-11D0-95D8-00A02463AB28}']
property _NewEnum: IUnknown readonly dispid -4;
property Item[Index: OleVariant]: IScriptModule readonly dispid 0; default;
property Count: Integer readonly dispid 1;
function Add(const Name: WideString; var Object_: OleVariant): IScriptModule; dispid 2;
end;
// *********************************************************************//
// Interface: IScriptError
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {70841C78-067D-11D0-95D8-00A02463AB28}
// *********************************************************************//
IScriptError = interface(IDispatch)
['{70841C78-067D-11D0-95D8-00A02463AB28}']
function Get_Number: Integer; safecall;
function Get_Source: WideString; safecall;
function Get_Description: WideString; safecall;
function Get_HelpFile: WideString; safecall;
function Get_HelpContext: Integer; safecall;
function Get_Text: WideString; safecall;
function Get_Line: Integer; safecall;
function Get_Column: Integer; safecall;
procedure Clear; safecall;
property Number: Integer read Get_Number;
property Source: WideString read Get_Source;
property Description: WideString read Get_Description;
property HelpFile: WideString read Get_HelpFile;
property HelpContext: Integer read Get_HelpContext;
property Text: WideString read Get_Text;
property Line: Integer read Get_Line;
property Column: Integer read Get_Column;
end;
// *********************************************************************//
// DispIntf: IScriptErrorDisp
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {70841C78-067D-11D0-95D8-00A02463AB28}
// *********************************************************************//
IScriptErrorDisp = dispinterface
['{70841C78-067D-11D0-95D8-00A02463AB28}']
property Number: Integer readonly dispid 201;
property Source: WideString readonly dispid 202;
property Description: WideString readonly dispid 203;
property HelpFile: WideString readonly dispid 204;
property HelpContext: Integer readonly dispid 205;
property Text: WideString readonly dispid -517;
property Line: Integer readonly dispid 206;
property Column: Integer readonly dispid -529;
procedure Clear; dispid 208;
end;
// *********************************************************************//
// Interface: IScriptControl
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {0E59F1D3-1FBE-11D0-8FF2-00A0D10038BC}
// *********************************************************************//
IScriptControl = interface(IDispatch)
['{0E59F1D3-1FBE-11D0-8FF2-00A0D10038BC}']
function Get_Language: WideString; safecall;
procedure Set_Language(const pbstrLanguage: WideString); safecall;
function Get_State: ScriptControlStates; safecall;
procedure Set_State(pssState: ScriptControlStates); safecall;
procedure Set_SitehWnd(phwnd: Integer); safecall;
function Get_SitehWnd: Integer; safecall;
function Get_Timeout: Integer; safecall;
procedure Set_Timeout(plMilleseconds: Integer); safecall;
function Get_AllowUI: WordBool; safecall;
procedure Set_AllowUI(pfAllowUI: WordBool); safecall;
function Get_UseSafeSubset: WordBool; safecall;
procedure Set_UseSafeSubset(pfUseSafeSubset: WordBool); safecall;
function Get_Modules: IScriptModuleCollection; safecall;
function Get_Error: IScriptError; safecall;
function Get_CodeObject: IDispatch; safecall;
function Get_Procedures: IScriptProcedureCollection; safecall;
procedure _AboutBox; safecall;
procedure AddObject(const Name: WideString; const Object_: IDispatch; AddMembers: WordBool); safecall;
procedure Reset; safecall;
procedure AddCode(const Code: WideString); safecall;
function Eval(const Expression: WideString): OleVariant; safecall;
procedure ExecuteStatement(const Statement: WideString); safecall;
function Run(const ProcedureName: WideString; var Parameters: PSafeArray): OleVariant; safecall;
property Language: WideString read Get_Language write Set_Language;
property State: ScriptControlStates read Get_State write Set_State;
property SitehWnd: Integer read Get_SitehWnd write Set_SitehWnd;
property Timeout: Integer read Get_Timeout write Set_Timeout;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -