95a2f54683
git-svn-id: https://svn.code.sf.net/p/apophysis7x/svn/trunk@1 a5d1c0f9-a0e9-45c6-87dd-9d276e40c949
21 lines
366 B
ObjectPascal
21 lines
366 B
ObjectPascal
unit dwObjectArray;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows;
|
|
|
|
const
|
|
IID_IObjectArray: TGUID = '{92CA9DCD-5622-4BBA-A805-5E9F541BD8C9}';
|
|
|
|
type
|
|
IObjectArray = interface
|
|
['{92CA9DCD-5622-4BBA-A805-5E9F541BD8C9}']
|
|
function GetCount(): UInt; safecall;
|
|
function GetAt(uiIndex: UInt; riid: PGUID): IUnknown; safecall;
|
|
end;
|
|
|
|
implementation
|
|
|
|
end.
|