* fix for 10535 IProvideClassinfo + -2

git-svn-id: trunk@9612 -

packages/base/winunits/activex.pp

@@ -2724,6 +2724,15 @@ TYPE
   POleMenuGroupWidths = LPOLEMENUGROUPWIDTHS;
 
 
+    IProvideClassInfo = Interface (IUnknown)
+       ['{B196B283-BAB4-101A-B69C-00AA00341D07}']
+         function GetClassInfo(out pptti : ITypeInfo):HResult; StdCall;
+			 end;
+    IProvideClassInfo2 = Interface (IProvideClassInfo)
+       ['{A6BC3AC0-DBAA-11CE-9DE3-00AA004BB851}']
+         function GetGUID(dwguid:DWord;out pguid:TGUID):HResult; StdCall;
+	end;
+
 { ******************************************************************************************************************
                                                           stuff from objbase.h
   ****************************************************************************************************************** }