* Fix definition of REFIID

git-svn-id: trunk@36770 -

packages/winunits-base/src/activex.pp

@@ -4588,8 +4588,8 @@ type
 {$endif wince}
 
   type
-    REFIID = TIID;
-    TREFIID = TIID;
+    REFIID = ^TIID;
+    TREFIID = ^TIID;
 
 {$ifndef wince}
   function SetErrorInfo(dwReserved:ULONG;errinfo:IErrorInfo):HResult;stdcall; external 'ole32.dll' name 'SetErrorInfo';

packages/winunits-base/src/comserv.pp

@@ -135,12 +135,12 @@ begin
   WriteLn('DllGetClassObject called: ', GUIDToString(rclsid), ' ', GUIDToString(riid));
 {$endif}
 
-  factory := ComClassManager.GetFactoryFromClassID(rclsid);
+  factory := ComClassManager.GetFactoryFromClassID(rclsid^);
   if factory = nil then
     Result := CLASS_E_CLASSNOTAVAILABLE
   else
   begin
-    if factory.GetInterface(riid,ppv) then
+    if factory.GetInterface(riid^,ppv) then
       Result := S_OK
     else
       Result := CLASS_E_CLASSNOTAVAILABLE;