ole32: fix reg key closing

[Huw D M Davies]

        Huw Davies <huw at codeweavers.com>
        Don't close reg key if the open failed.
-- 
Huw Davies
huw at codeweavers.com
Index: dlls/ole32/compobj.c
===================================================================
RCS file: /home/wine/wine/dlls/ole32/compobj.c,v
retrieving revision 1.147
diff -u -p -r1.147 compobj.c
--- dlls/ole32/compobj.c	21 Mar 2005 11:26:04 -0000	1.147
+++ dlls/ole32/compobj.c	29 Mar 2005 11:15:26 -0000
@@ -1030,9 +1030,9 @@ HRESULT WINAPI ProgIDFromCLSID(REFCLSID 
       }
     }
     HeapFree(GetProcessHeap(), 0, buf2);
+    RegCloseKey(xhkey);
   }
 
-  RegCloseKey(xhkey);
   return ret;
 }