dlls/oleaut32/oleaut.c

   1 /*
   2  *      OLEAUT32
   3  *
   4  */
   5 #include <string.h>
   6 #include "winuser.h"
   7 #include "winerror.h"
   8 #include "winversion.h"
   9 #include "oleauto.h"
  10 #include "wine/obj_base.h"
  11 #include "heap.h"
  12 #include "ldt.h"
  13 #include "debugtools.h"
  14
  15 DEFAULT_DEBUG_CHANNEL(ole)
  16
  17 HRESULT WINAPI RegisterActiveObject(
  18         LPUNKNOWN punk,REFCLSID rcid,DWORD dwFlags,LPDWORD pdwRegister
  19 ) {
  20         FIXME("(%p,%s,0x%08lx,%p), stub!\n",punk,debugstr_guid(rcid),dwFlags,pdwRegister);
  21         return E_FAIL;
  22 }
  23
  24 HRESULT WINAPI RevokeActiveObject(DWORD xregister,LPVOID reserved)
  25 {
  26         FIXME("(0x%08lx,%p),stub!\n",xregister,reserved);
  27         return E_FAIL;
  28 }
  29
  30 HRESULT WINAPI GetActiveObject(REFCLSID rcid,LPVOID preserved,LPUNKNOWN *ppunk)
  31 {
  32         FIXME("(%s,%p,%p),stub!\n",debugstr_guid(rcid),preserved,ppunk);
  33         return E_FAIL;
  34 }
  35
  36 /***********************************************************************
  37  *           OaBuildVersion           [OLEAUT32.170]
  38  *
  39  * known OLEAUT32.DLL versions:
  40  * OLE 2.1  NT                          1993-95 10     3023
  41  * OLE 2.1                                      10     3027
  42  * OLE 2.20 W95/NT                      1993-96 20     4112
  43  * OLE 2.20 W95/NT                      1993-96 20     4118
  44  * OLE 2.20 W95/NT                      1993-96 20     4122
  45  * OLE 2.30 W95/NT                      1993-98 30     4265
  46  * OLE 2.40 NT??                        1993-98 40     4267
  47  * OLE 2.40 W98 SE orig. file           1993-98 40     4275
  48  */
  49 UINT WINAPI OaBuildVersion()
  50 {
  51     FIXME("Please report to a.mohr@mailto.de if you get version error messages !\n");
  52     switch(VERSION_GetVersion())
  53     {
  54         case WIN31:
  55                 return MAKELONG(4049, 20); /* from Win32s 1.1e */
  56         case WIN95:
  57                 return MAKELONG(4265, 30);
  58         case WIN98:
  59                 return MAKELONG(4275, 40); /* value of W98 SE; orig. W98 AFAIK has 4265, 30 just as W95 */
  60         case NT351:
  61                 return MAKELONG(4265, 30); /* value borrowed from Win95 */
  62         case NT40:
  63                 return MAKELONG(4122, 20); /* ouch ! Quite old, I guess */
  64         default:
  65                 ERR("Version value not known yet. Please investigate it !\n");
  66                 return 0x0;
  67     }
  68 }