mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 19:49:31 +02:00
21 lines
885 B
ObjectPascal
21 lines
885 B
ObjectPascal
{$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. |