📄 activeds_tlb.pas
字号:
__MIDL_0013: __MIDL_IOleAutomationTypes_0005;
vt: Word;
end;
tagSAFEARRAYBOUND = packed record
cElements: LongWord;
lLbound: Integer;
end;
tagIDLDESC = packed record
dwReserved: LongWord;
wIDLFlags: Word;
end;
DWORD = LongWord;
tagPARAMDESCEX = packed record
cBytes: LongWord;
varDefaultValue: OleVariant;
end;
tagPARAMDESC = packed record
pparamdescex: ^TGUID;
wParamFlags: Word;
end;
tagELEMDESC = packed record
tdesc: TGUID;
paramdesc: TGUID;
end;
tagFUNCDESC = packed record
memid: Integer;
lprgscode: ^SCODE;
lprgelemdescParam: ^TGUID;
funckind: tagFUNCKIND;
invkind: tagINVOKEKIND;
callconv: tagCALLCONV;
cParams: Smallint;
cParamsOpt: Smallint;
oVft: Smallint;
cScodes: Smallint;
elemdescFunc: TGUID;
wFuncFlags: Word;
end;
__MIDL_IOleAutomationTypes_0006 = record
case Integer of
0: (oInst: LongWord);
1: (lpvarValue: ^OleVariant);
end;
tagVARDESC = packed record
memid: Integer;
lpstrSchema: PWideChar;
__MIDL_0014: __MIDL_IOleAutomationTypes_0006;
elemdescVar: TGUID;
wVarFlags: Word;
varkind: tagVARKIND;
end;
tagTLIBATTR = packed record
GUID: TGUID;
lcid: LongWord;
syskind: tagSYSKIND;
wMajorVerNum: Word;
wMinorVerNum: Word;
wLibFlags: Word;
end;
ADS_SYSTEMFLAG_ENUM = __MIDL___MIDL__intf_0087_0001;
ADS_GROUP_TYPE_ENUM = __MIDL___MIDL__intf_0093_0001;
ADS_RIGHTS_ENUM = __MIDL___MIDL__intf_0115_0001;
ADS_ACETYPE_ENUM = __MIDL___MIDL__intf_0115_0002;
ADS_ACEFLAG_ENUM = __MIDL___MIDL__intf_0115_0003;
ADS_FLAGTYPE_ENUM = __MIDL___MIDL__intf_0115_0004;
ADS_SD_CONTROL_ENUM = __MIDL___MIDL__intf_0115_0005;
ADS_SD_REVISION_ENUM = __MIDL___MIDL__intf_0115_0006;
ADS_NAME_TYPE_ENUM = __MIDL___MIDL__intf_0116_0001;
ADS_NAME_INITTYPE_ENUM = __MIDL___MIDL__intf_0116_0002;
ADS_OPTION_ENUM = __MIDL___MIDL__intf_0130_0001;
ADS_SECURITY_INFO_ENUM = __MIDL___MIDL__intf_0130_0002;
ADS_SETTYPE_ENUM = __MIDL___MIDL__intf_0131_0001;
ADS_FORMAT_ENUM = __MIDL___MIDL__intf_0131_0002;
ADS_DISPLAY_ENUM = __MIDL___MIDL__intf_0131_0003;
ADS_ESCAPE_MODE_ENUM = __MIDL___MIDL__intf_0131_0004;
_ads_attr_info = packed record
pszAttrName: PWideChar;
dwControlCode: LongWord;
dwADsType: ADSTYPEENUM;
pADsValues: ^TGUID;
dwNumValues: LongWord;
end;
Pads_searchpref_info = ^ads_searchpref_info;
ads_searchpref_info = packed record
dwSearchPref: Int64;
vValue: _adsvalue;
dwStatus: Int64;
end;
_ads_class_def = packed record
pszClassName: PWideChar;
dwMandatoryAttrs: LongWord;
ppszMandatoryAttrs: ^PWideChar;
optionalAttrs: LongWord;
ppszOptionalAttrs: ^PPWideChar1;
dwNamingAttrs: LongWord;
ppszNamingAttrs: ^PPWideChar1;
dwSuperClasses: LongWord;
ppszSuperClasses: ^PPWideChar1;
fIsContainer: Integer;
end;
tagTYPEATTR = packed record
GUID: TGUID;
lcid: LongWord;
dwReserved: LongWord;
memidConstructor: Integer;
memidDestructor: Integer;
lpstrSchema: PWideChar;
cbSizeInstance: LongWord;
typekind: tagTYPEKIND;
cFuncs: Word;
cVars: Word;
cImplTypes: Word;
cbSizeVft: Word;
cbAlignment: Word;
wTypeFlags: Word;
wMajorVerNum: Word;
wMinorVerNum: Word;
tdescAlias: TGUID;
idldescType: TGUID;
end;
tagARRAYDESC = packed record
tdescElem: TGUID;
cDims: Word;
rgbounds: ^TGUID;
end;
// *********************************************************************//
// Interface: IADs
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {FD8256D0-FD15-11CE-ABC4-02608C9E7553}
// *********************************************************************//
IADs = interface(IDispatch)
['{FD8256D0-FD15-11CE-ABC4-02608C9E7553}']
function Get_Name: WideString; safecall;
function Get_Class_: WideString; safecall;
function Get_GUID: WideString; safecall;
function Get_ADsPath: WideString; safecall;
function Get_Parent: WideString; safecall;
function Get_Schema: WideString; safecall;
procedure GetInfo; safecall;
procedure SetInfo; safecall;
function Get(const bstrName: WideString): OleVariant; safecall;
procedure Put(const bstrName: WideString; vProp: OleVariant); safecall;
function GetEx(const bstrName: WideString): OleVariant; safecall;
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); safecall;
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); safecall;
property Name: WideString read Get_Name;
property Class_: WideString read Get_Class_;
property GUID: WideString read Get_GUID;
property ADsPath: WideString read Get_ADsPath;
property Parent: WideString read Get_Parent;
property Schema: WideString read Get_Schema;
end;
// *********************************************************************//
// DispIntf: IADsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {FD8256D0-FD15-11CE-ABC4-02608C9E7553}
// *********************************************************************//
IADsDisp = dispinterface
['{FD8256D0-FD15-11CE-ABC4-02608C9E7553}']
property Name: WideString readonly dispid 2;
property Class_: WideString readonly dispid 3;
property GUID: WideString readonly dispid 4;
property ADsPath: WideString readonly dispid 5;
property Parent: WideString readonly dispid 6;
property Schema: WideString readonly dispid 7;
procedure GetInfo; dispid 8;
procedure SetInfo; dispid 9;
function Get(const bstrName: WideString): OleVariant; dispid 10;
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
end;
// *********************************************************************//
// Interface: IADsContainer
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {001677D0-FD16-11CE-ABC4-02608C9E7553}
// *********************************************************************//
IADsContainer = interface(IDispatch)
['{001677D0-FD16-11CE-ABC4-02608C9E7553}']
function Get_Count: Integer; safecall;
function Get__NewEnum: IUnknown; safecall;
function Get_Filter: OleVariant; safecall;
procedure Set_Filter(pVar: OleVariant); safecall;
function Get_Hints: OleVariant; safecall;
procedure Set_Hints(pvFilter: OleVariant); safecall;
function GetObject(const ClassName: WideString; const RelativeName: WideString): IDispatch; safecall;
function Create(const ClassName: WideString; const RelativeName: WideString): IDispatch; safecall;
procedure Delete(const bstrClassName: WideString; const bstrRelativeName: WideString); safecall;
function CopyHere(const SourceName: WideString; const NewName: WideString): IDispatch; safecall;
function MoveHere(const SourceName: WideString; const NewName: WideString): IDispatch; safecall;
property Count: Integer read Get_Count;
property _NewEnum: IUnknown read Get__NewEnum;
property Filter: OleVariant read Get_Filter write Set_Filter;
property Hints: OleVariant read Get_Hints write Set_Hints;
end;
// *********************************************************************//
// DispIntf: IADsContainerDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {001677D0-FD16-11CE-ABC4-02608C9E7553}
// *********************************************************************//
IADsContainerDisp = dispinterface
['{001677D0-FD16-11CE-ABC4-02608C9E7553}']
property Count: Integer readonly dispid 2;
property _NewEnum: IUnknown readonly dispid -4;
property Filter: OleVariant dispid 3;
property Hints: OleVariant dispid 4;
function GetObject(const ClassName: WideString; const RelativeName: WideString): IDispatch; dispid 5;
function Create(const ClassName: WideString; const RelativeName: WideString): IDispatch; dispid 6;
procedure Delete(const bstrClassName: WideString; const bstrRelativeName: WideString); dispid 7;
function CopyHere(const SourceName: WideString; const NewName: WideString): IDispatch; dispid 8;
function MoveHere(const SourceName: WideString; const NewName: WideString): IDispatch; dispid 9;
end;
// *********************************************************************//
// Interface: IADsCollection
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {72B945E0-253B-11CF-A988-00AA006BC149}
// *********************************************************************//
IADsCollection = interface(IDispatch)
['{72B945E0-253B-11CF-A988-00AA006BC149}']
function Get__NewEnum: IUnknown; safecall;
procedure Add(const bstrName: WideString; vItem: OleVariant); safecall;
procedure Remove(const bstrItemToBeRemoved: WideString); safecall;
function GetObject(const bstrName: WideString): OleVariant; safecall;
property _NewEnum: IUnknown read Get__NewEnum;
end;
// *********************************************************************//
// DispIntf: IADsCollectionDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {72B945E0-253B-11CF-A988-00AA006BC149}
// *********************************************************************//
IADsCollectionDisp = dispinterface
['{72B945E0-253B-11CF-A988-00AA006BC149}']
property _NewEnum: IUnknown readonly dispid -4;
procedure Add(const bstrName: WideString; vItem: OleVariant); dispid 4;
procedure Remove(const bstrItemToBeRemoved: WideString); dispid 5;
function GetObject(const bstrName: WideString): OleVariant; dispid 6;
end;
// *********************************************************************//
// Interface: IADsMembers
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {451A0030-72EC-11CF-B03B-00AA006E0975}
// *********************************************************************//
IADsMembers = interface(IDispatch)
['{451A0030-72EC-11CF-B03B-00AA006E0975}']
function Get_Count: Integer; safecall;
function Get__NewEnum: IUnknown; safecall;
function Get_Filter: OleVariant; safecall;
procedure Set_Filter(pvFilter: OleVariant); safecall;
property Count: Integer read Get_Count;
property _NewEnum: IUnknown read Get__NewEnum;
property Filter: OleVariant read Get_Filter write Set_Filter;
end;
// *********************************************************************//
// DispIntf: IADsMembersDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {451A0030-72EC-11CF-B03B-00AA006E0975}
// *********************************************************************//
IADsMembersDisp = dispinterface
['{451A0030-72EC-11CF-B03B-00AA006E0975}']
property Count: Integer readonly dispid 2;
property _NewEnum: IUnknown readonly dispid -4;
property Filter: OleVariant dispid 3;
end;
// *********************************************************************//
// Interface: IADsPropertyList
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {C6F602B6-8F69-11D0-8528-00C04FD8D503}
// *********************************************************************//
IADsPropertyList = interface(IDispatch)
['{C6F602B6-8F69-11D0-8528-00C04FD8D503}']
function Get_PropertyCount: Integer; safecall;
function Next: OleVariant; safecall;
procedure Skip(cElements: Integer); safecall;
procedure Reset; safecall;
function Item(varIndex: OleVariant): OleVariant; safecall;
function GetPropertyItem(const bstrName: WideString; lnADsType: Integer): OleVariant; safecall;
procedure PutPropertyItem(varData: OleVariant); safecall;
procedure ResetPropertyItem(varEntry: OleVariant); safecall;
procedure PurgePropertyList; safecall;
property PropertyCount: Integer read Get_PropertyCount;
end;
// *********************************************************************//
// DispIntf: IADsPropertyListDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {C6F602B6-8F69-11D0-8528-00C04FD8D503}
// *********************************************************************//
IADsPropertyListDisp = dispinterface
['{C6F602B6-8F69-11D0-8528-00C04FD8D503}']
property PropertyCount: Integer readonly dispid 2;
function Next: OleVariant; dispid 3;
procedure Skip(cElements: Integer); dispid 4;
procedure Reset; dispid 5;
function Item(varIndex: OleVariant): OleVariant; dispid 0;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -