blob: 6ce992e28d3035b321677025df8bd9960eb49495 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{$mode objfpc}
type
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;
begin
end.
|
