'oleidl.ab #require Dim IID_IOleAdviseHolder = [&h00000111, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID Interface IOleAdviseHolder Inherits IUnknown Function Advise( /* [unique][in] */ Advise As IAdviseSink, /* [out] */ ByRef dwConnection As DWord) As HRESULT Function Unadvise( /* [in] */ dwConnection As DWord) As HRESULT Function EnumAdvise( /* [out] */ ByRef enumAdvise As IEnumSTATDATA) As HRESULT Function SendOnRename( /* [unique][in] */ pmk As IMoniker) As HRESULT Function SendOnSave() As HRESULT Function SendOnClose() As HRESULT End Interface 'IOleCache 'IOleCache2 'IOleCacheControl /* interface IParseDisplayName */ /* [unique][uuid][object] */ Dim IID_IParseDisplayName = [&h0000011a, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID Interface IParseDisplayName Inherits IUnknown Function ParseDisplayName( /* [unique][in] */ bc As IBindCtx, /* [in] */ pszDisplayName As LPOLESTR, /* [out] */ ByRef chEaten As DWord, /* [out] */ ByRef mkOut As IMoniker) As HRESULT End Interface /* interface IOleContainer */ /* [unique][uuid][object] */ Dim IID_IOleContainer = [&h0000011b, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID Interface IOleContainer Inherits IParseDisplayName Function EnumObjects( /* [in] */ grfFlags As DWord, /* [out] */ ByRef enumUnk As IEnumUnknown) As HRESULT Function LockContainer( /* [in] */ fLock As BOOL) As HRESULT End Interface Const Enum OLERENDER OLERENDER_NONE = 0 OLERENDER_DRAW = 1 OLERENDER_FORMAT = 2 OLERENDER_ASIS = 3 End Enum Dim IID_IOleClientSite = [&h00000118, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID Interface IOleClientSite Inherits IUnknown Function SaveObject() As HRESULT Function GetMoniker( /* [in] */ dwAssign As DWord, /* [in] */ dwWhichMoniker As DWord, /* [out] */ ByRef mk As IMoniker) As HRESULT Function GetContainer( /* [out] */ ByRef Container As IOleContainer) As HRESULT Function ShowObject() As HRESULT Function OnShowWindow( fShow As BOOL) As HRESULT Function RequestNewObjectLayout() As HRESULT End Interface /* interface IOleObject */ /* [unique][uuid][object] */ Const Enum OLEGETMONIKER OLEGETMONIKER_ONLYIFTHERE = 1 OLEGETMONIKER_FORCEASSIGN = 2 OLEGETMONIKER_UNASSIGN = 3 OLEGETMONIKER_TEMPFORUSER = 4 End Enum Const Enum OLEWHICHMK OLEWHICHMK_CONTAINER = 1 OLEWHICHMK_OBJREL = 2 OLEWHICHMK_OBJFULL = 3 End Enum Const Enum USERCLASSTYPE USERCLASSTYPE_FULL = 1 USERCLASSTYPE_SHORT = 2 USERCLASSTYPE_APPNAME = 3 End Enum Const Enum OLEMISC OLEMISC_RECOMPOSEONRESIZE = &h1 OLEMISC_ONLYICONIC = &h2 OLEMISC_INSERTNOTREPLACE = &h4 OLEMISC_STATIC = &h8 OLEMISC_CANTLINKINSIDE = &h10 OLEMISC_CANLINKBYOLE1 = &h20 OLEMISC_ISLINKOBJECT = &h40 OLEMISC_INSIDEOUT = &h80 OLEMISC_ACTIVATEWHENVISIBLE = &h100 OLEMISC_RENDERINGISDEVICEINDEPENDENT = &h200 OLEMISC_INVISIBLEATRUNTIME = &h400 OLEMISC_ALWAYSRUN = &h800 OLEMISC_ACTSLIKEBUTTON = &h1000 OLEMISC_ACTSLIKELABEL = &h2000 OLEMISC_NOUIACTIVATE = &h4000 OLEMISC_ALIGNABLE = &h8000 OLEMISC_SIMPLEFRAME = &h10000 OLEMISC_SETCLIENTSITEFIRST = &h20000 OLEMISC_IMEMODE = &h40000 OLEMISC_IGNOREACTIVATEWHENVISIBLE = &h80000 OLEMISC_WANTSTOMENUMERGE = &h100000 OLEMISC_SUPPORTSMULTILEVELUNDO = &h200000 End Enum Const Enum OLECLOSE OLECLOSE_SAVEIFDIRTY = 0 OLECLOSE_NOSAVE = 1 OLECLOSE_PROMPTSAVE = 2 End Enum Dim IID_IOleObject = [&h00000112, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID Interface IOleObject Inherits IUnknown Function SetClientSite( /* [unique][in] */ ClientSite As IOleClientSite) As HRESULT Function GetClientSite( /* [out] */ ByRef ClientSite As IOleClientSite) As HRESULT Function SetHostNames( /* [in] */ szContainerApp As LPCOLESTR, /* [unique][in] */ szContainerObj As LPCOLESTR) As HRESULT Function Close( /* [in] */ dwSaveOption As DWord) As HRESULT Function SetMoniker( /* [in] */ dwWhichMoniker As DWord, /* [unique][in] */ mk As IMoniker) As HRESULT Function GetMoniker( /* [in] */ dwAssign As DWord, /* [in] */ dwWhichMoniker As DWord, /* [out] */ ByRef mk As IMoniker) As HRESULT Function InitFromData( /* [unique][in] */ DataObject As IDataObject, /* [in] */ fCreation As BOOL, /* [in] */ dwReserved As DWord) As HRESULT Function GetClipboardData( /* [in] */ dwReserved As DWord, /* [out] */ ByRef DataObject As IDataObject) As HRESULT Function DoVerb( /* [in] */ iVerb As Long, /* [unique][in] */ lpmsg As *MSG, /* [unique][in] */ ActiveSite As IOleClientSite, /* [in] */ lindex As Long, /* [in] */ hwndParent As HWND, /* [unique][in] */ lprcPosRect As *RECT /*LPCRECT*/) As HRESULT Function EnumVerbs( /* [out] */ ByRef EnumOleVerb As IUnknown /*IEnumOLEVERB*/) As HRESULT Function Update() As HRESULT Function IsUpToDate() As HRESULT Function GetUserClassID( /* [out] */ ByRef Clsid As CLSID) As HRESULT Function GetUserType( /* [in] */ dwFormOfType As DWord, /* [out] */ ByRef pszUserType As LPOLESTR) As HRESULT Function SetExtent( /* [in] */ dwDrawAspect As DWord, /* [in] */ ByRef sizel As SIZEL) As HRESULT Function GetExtent( /* [in] */ dwDrawAspect As DWord, /* [out] */ ByRef sizel As SIZEL) As HRESULT Function Advise( /* [unique][in] */ AdvSink As IAdviseSink, /* [out] */ ByRef dwConnection As DWord) As HRESULT Function Unadvise( /* [in] */ dwConnection As DWord) As HRESULT Function EnumAdvise( /* [out] */ ByRef penumAdvise As IEnumSTATDATA) As HRESULT Function GetMiscStatus( /* [in] */ dwAspect As DWord, /* [out] */ ByRef dwStatus As DWord) As HRESULT Function SetColorScheme( /* [in] */ ByRef Logpal As LOGPALETTE) As HRESULT End Interface /* interface IOleWindow */ /* [unique][uuid][object] */ Dim IID_IOleWindow = [&h00000114, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID Interface IOleWindow Inherits IUnknown /* [input_sync] */ Function GetWindow( /* [out] */ ByRef hwnd As HWND) As HRESULT Function ContextSensitiveHelp( /* [in] */ fEnterMode As BOOL) As HRESULT End Interface 'IOleLink 'IOleItemContainer 'IOleInPlaceUIWindow 'IOleInPlaceActiveObject Interface IOleInPlaceActiveObject Inherits IOleWindow End Interface 'IOleInPlaceFrame Interface IOleInPlaceFrame Inherits IOleWindow End Interface 'IOleInPlaceObject 'IOleInPlaceSite 'IContinue 'IViewObject 'IViewObject2 /* interface IDropSource */ /* [uuid][object][local] */ Dim IID_IDropSource = [&h00000121, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID Interface IDropSource Inherits IUnknown Function QueryContinueDrag( fEscapePressed As DWord, grfKeyState As DWord) As HRESULT Function GiveFeedback( dwEffect As DWord) As HRESULT End Interface /* interface IDropTarget */ /* [unique][uuid][object] */ Const MK_ALT = &h20 Const DROPEFFECT_NONE = 0 Const DROPEFFECT_COPY = 1 Const DROPEFFECT_MOVE = 2 Const DROPEFFECT_LINK = 4 Const DROPEFFECT_SCROLL = &h80000000 Const DD_DEFSCROLLINSET = 11 Const DD_DEFSCROLLDELAY = 50 Const DD_DEFSCROLLINTERVAL = 50 Const DD_DEFDRAGDELAY = 200 Const DD_DEFDRAGMINDIST = 2 Dim IID_IDropTarget = [&h00000122, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID Interface IDropTarget Inherits IUnknown Function DragEnter( /* [unique][in] */ DataObj As IDataObject, /* [in] */ grfKeyState As DWord, /* [in] */ x As Long, y As Long, /* [out][in] */ ByRef effect As DWord) As HRESULT Function DragOver( /* [in] */ grfKeyState As DWord, /* [in] */ x As Long, y As Long, /* [out][in] */ ByRef effect As DWord) As HRESULT Function DragLeave() As HRESULT Function Drop( /* [unique][in] */ DataObj As IDataObject, /* [in] */ grfKeyState As DWord, /* [in] */ x As Long, y As Long, /* [out][in] */ ByRef effect As DWord) As HRESULT End Interface /* interface IDropSourceNotify */ /* [unique][uuid][object][local] */ Dim IID_IDropSourceNotify = [&h0000012B, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID Interface IDropSourceNotify Inherits IUnknown Function DragEnterTarget( /* [in] */ hwndTarget As HWND) As HRESULT Function DragLeaveTarget() As HRESULT End Interface /* interface IEnumOLEVERB */ /* [unique][uuid][object] */ Type OLEVERB lVerb As Long lpszVerbName As LPOLESTR fuFlags As DWord grfAttribs As DWord End Type /* [v1_enum] */ Const Enum OLEVERBATTRIB OLEVERBATTRIB_NEVERDIRTIES = 1 OLEVERBATTRIB_ONCONTAINERMENU = 2 End Enum Dim IID_IEnumOLEVERB = [&h00000104, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID Interface IEnumOLEVERB Inherits IUnknown /* [local] */ Function Next_( /* [in] */ celt As DWord, /* [length_is][size_is][out] */ rgelt As *OLEVERB, /* [out] */ ByRef celtFetched As DWord) As HRESULT Function Skip( /* [in] */ celt As DWord) As HRESULT Function Reset() As HRESULT Function Clone( /* [out] */ ByRef enumOleVerb As IEnumOLEVERB) As HRESULT End Interface