Ignore:
Timestamp:
Sep 15, 2001, 11:26:26 AM (24 years ago)
Author:
sandervl
Message:

restored old version

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/src/shell32/shellole.c

    r6650 r6709  
    1 /* $Id: shellole.c,v 1.3 2001-09-05 13:46:57 bird Exp $ */
    21/*
    3  *  handling of SHELL32.DLL OLE-Objects
     2 *      handling of SHELL32.DLL OLE-Objects
    43 *
    5  *  Copyright 1997  Marcus Meissner
    6  *  Copyright 1998  Juergen Schmied  <juergen.schmied@metronet.de>
     4 *      Copyright 1997  Marcus Meissner
     5 *      Copyright 1998  Juergen Schmied  <juergen.schmied@metronet.de>
    76 *
    87 */
    … …  
    2524DWORD WINAPI SHCLSIDFromStringA (LPSTR clsid, CLSID *id);
    2625extern IShellFolder * IShellFolder_Constructor(
    27     IShellFolder * psf,
    28     LPITEMIDLIST pidl);
     26        IShellFolder * psf,
     27        LPITEMIDLIST pidl);
    2928extern HRESULT IFSFolder_Constructor(
    30     IUnknown * pUnkOuter,
    31     REFIID riid,
    32     LPVOID * ppv);
     29        IUnknown * pUnkOuter,
     30        REFIID riid,
     31        LPVOID * ppv);
    3332
    3433/*************************************************************************
    3534 * SHCoCreateInstance [SHELL32.102]
    36  *
     35 * 
    3736 * NOTES
    3837 *     exported by ordinal
    3938 */
    4039LRESULT WINAPI SHCoCreateInstance(
    41     LPSTR aclsid,
    42     REFCLSID clsid,
    43     IUnknown * unknownouter,
    44     REFIID refiid,
    45     LPVOID *ppv)
    46 {
    47     DWORD   hres;
    48     IID iid;
    49     CLSID * myclsid = (CLSID*)clsid;
    50 
    51     if (!clsid)
    52     {
    53       if (!aclsid) return REGDB_E_CLASSNOTREG;
    54       SHCLSIDFromStringA(aclsid, &iid);
    55       myclsid = &iid;
    56     }
    57 
    58     TRACE("(%p,\n\tCLSID:\t%s, unk:%p\n\tIID:\t%s,%p)\n",
    59         aclsid,debugstr_guid(myclsid),unknownouter,debugstr_guid(refiid),ppv);
    60 
    61     if IsEqualCLSID(myclsid, &CLSID_ShellFSFolder)
    62     {
    63       hres = IFSFolder_Constructor(unknownouter, refiid, ppv);
    64     }
    65     else
    66     {
    67       hres = CoCreateInstance(myclsid, unknownouter, CLSCTX_INPROC_SERVER, refiid, ppv);
    68     }
    69 
    70     if(hres!=S_OK)
    71     {
    72       ERR("failed (0x%08lx) to create \n\tCLSID:\t%s\n\tIID:\t%s\n",
     40        LPSTR aclsid,
     41        REFCLSID clsid,
     42        IUnknown * unknownouter,
     43        REFIID refiid,
     44        LPVOID *ppv)
     45{
     46        DWORD   hres;
     47        IID     iid;
     48        CLSID * myclsid = (CLSID*)clsid;
     49       
     50        if (!clsid)
     51        {
     52          if (!aclsid) return REGDB_E_CLASSNOTREG;
     53          SHCLSIDFromStringA(aclsid, &iid);
     54          myclsid = &iid;
     55        }
     56
     57        TRACE("(%p,\n\tCLSID:\t%s, unk:%p\n\tIID:\t%s,%p)\n",
     58                aclsid,debugstr_guid(myclsid),unknownouter,debugstr_guid(refiid),ppv);
     59
     60        if IsEqualCLSID(myclsid, &CLSID_ShellFSFolder)
     61        {
     62          hres = IFSFolder_Constructor(unknownouter, refiid, ppv);
     63        }
     64        else
     65        {
     66          hres = CoCreateInstance(myclsid, unknownouter, CLSCTX_INPROC_SERVER, refiid, ppv);
     67        }
     68       
     69        if(hres!=S_OK)
     70        {
     71          ERR("failed (0x%08lx) to create \n\tCLSID:\t%s\n\tIID:\t%s\n",
    7372              hres, debugstr_guid(myclsid), debugstr_guid(refiid));
    74       ERR("class not found in registry\n");
    75     }
    76 
    77     TRACE("-- instance: %p\n",*ppv);
    78     return hres;
     73          ERR("class not found in registry\n");
     74        }
     75
     76        TRACE("-- instance: %p\n",*ppv);
     77        return hres;
    7978}
    8079
    … …  
    8382 */
    8483HRESULT WINAPI SHELL32_DllGetClassObject(REFCLSID rclsid, REFIID iid,LPVOID *ppv)
    85 {   HRESULT hres = E_OUTOFMEMORY;
    86     LPCLASSFACTORY lpclf;
    87 
    88     TRACE("\n\tCLSID:\t%s,\n\tIID:\t%s\n",debugstr_guid(rclsid),debugstr_guid(iid));
    89 
    90     *ppv = NULL;
    91 
    92     if(IsEqualCLSID(rclsid, &CLSID_ShellDesktop)||
    93        IsEqualCLSID(rclsid, &CLSID_ShellLink))
    94     {
    95       lpclf = IClassFactory_Constructor( rclsid );
    96 
    97       if(lpclf)
    98       {
    99         hres = IClassFactory_QueryInterface(lpclf,iid, ppv);
    100         IClassFactory_Release(lpclf);
    101       }
    102     }
    103     else
    104     {
    105       WARN("-- CLSID not found\n");
    106       hres = CLASS_E_CLASSNOTAVAILABLE;
    107     }
    108     TRACE("-- pointer to class factory: %p\n",*ppv);
    109     return hres;
    110 }
    111 
    112 /*************************************************************************
    113  * SHCLSIDFromString                [SHELL32.147]
     84{       HRESULT hres = E_OUTOFMEMORY;
     85        LPCLASSFACTORY lpclf;
     86
     87        TRACE("\n\tCLSID:\t%s,\n\tIID:\t%s\n",debugstr_guid(rclsid),debugstr_guid(iid));
     88       
     89        *ppv = NULL;
     90
     91        if(IsEqualCLSID(rclsid, &CLSID_ShellDesktop)||
     92           IsEqualCLSID(rclsid, &CLSID_ShellLink))
     93        {
     94          lpclf = IClassFactory_Constructor( rclsid );
     95
     96          if(lpclf)
     97          {
     98            hres = IClassFactory_QueryInterface(lpclf,iid, ppv);
     99            IClassFactory_Release(lpclf);
     100          }
     101        }
     102        else
     103        {
     104          WARN("-- CLSID not found\n");
     105          hres = CLASS_E_CLASSNOTAVAILABLE;
     106        }
     107        TRACE("-- pointer to class factory: %p\n",*ppv);
     108        return hres;
     109}
     110
     111/*************************************************************************
     112 * SHCLSIDFromString                            [SHELL32.147]
    114113 *
    115114 * NOTES
    … …  
    126125DWORD WINAPI SHCLSIDFromStringW (LPWSTR clsid, CLSID *id)
    127126{
    128     TRACE("(%p(%s) %p)\n", clsid, debugstr_w(clsid), id);
    129     return CLSIDFromString(clsid, id);
     127        TRACE("(%p(%s) %p)\n", clsid, debugstr_w(clsid), id);
     128        return CLSIDFromString(clsid, id);
    130129}
    131130DWORD WINAPI SHCLSIDFromStringAW (LPVOID clsid, CLSID *id)
    132131{
    133     if (SHELL_OsIsUnicode())
    134       return SHCLSIDFromStringW (clsid, id);
    135     return SHCLSIDFromStringA (clsid, id);
    136 }
    137 
    138 /*************************************************************************
    139  *           SHGetMalloc            [SHELL32.220]
     132        if (SHELL_OsIsUnicode())
     133          return SHCLSIDFromStringW (clsid, id);
     134        return SHCLSIDFromStringA (clsid, id);
     135}
     136
     137/*************************************************************************
     138 *                       SHGetMalloc                    [SHELL32.220]
    140139 * returns the interface to shell malloc.
    141140 *
    … …  
    146145 * heap (ProcessHeap).
    147146 */
    148 DWORD WINAPI SHGetMalloc(LPMALLOC *lpmal)
    149 {
    150     TRACE("(%p)\n", lpmal);
    151     return CoGetMalloc(MEMCTX_TASK, lpmal);
    152 }
    153 
    154 /*************************************************************************
    155  * SHGetDesktopFolder           [SHELL32.216]
     147DWORD WINAPI SHGetMalloc(LPMALLOC *lpmal) 
     148{
     149        TRACE("(%p)\n", lpmal);
     150        return CoGetMalloc(MEMCTX_TASK, lpmal);
     151}
     152
     153/*************************************************************************
     154 * SHGetDesktopFolder                   [SHELL32.216]
    156155 */
    157156LPSHELLFOLDER pdesktopfolder=NULL;
    … …  
    159158DWORD WINAPI SHGetDesktopFolder(IShellFolder **psf)
    160159{
    161     HRESULT hres = S_OK;
    162     LPCLASSFACTORY lpclf;
    163     TRACE("%p->(%p)\n",psf,*psf);
    164 
    165     *psf=NULL;
    166 
    167     if (!pdesktopfolder)
    168     {
    169       lpclf = IClassFactory_Constructor(&CLSID_ShellDesktop);
    170       if(lpclf)
    171       {
    172         hres = IClassFactory_CreateInstance(lpclf,NULL,(REFIID)&IID_IShellFolder, (void*)&pdesktopfolder);
    173         IClassFactory_Release(lpclf);
    174       }
    175     }
    176 
    177     if (pdesktopfolder)
    178     {
    179       /* even if we create the folder, add a ref so the application canŽt destroy the folder*/
    180       IShellFolder_AddRef(pdesktopfolder);
    181       *psf = pdesktopfolder;
    182     }
    183 
    184     TRACE("-- %p->(%p)\n",psf, *psf);
    185     return hres;
     160        HRESULT hres = S_OK;
     161        LPCLASSFACTORY lpclf;
     162        TRACE("%p->(%p)\n",psf,*psf);
     163
     164        *psf=NULL;
     165
     166        if (!pdesktopfolder)
     167        {
     168          lpclf = IClassFactory_Constructor(&CLSID_ShellDesktop);
     169          if(lpclf)
     170          {
     171            hres = IClassFactory_CreateInstance(lpclf,NULL,(REFIID)&IID_IShellFolder, (void*)&pdesktopfolder);
     172            IClassFactory_Release(lpclf);
     173          } 
     174        }
     175       
     176        if (pdesktopfolder)
     177        {
     178          /* even if we create the folder, add a ref so the application canŽt destroy the folder*/
     179          IShellFolder_AddRef(pdesktopfolder);
     180          *psf = pdesktopfolder;
     181        }
     182
     183        TRACE("-- %p->(%p)\n",psf, *psf);
     184        return hres;
    186185}
    187186
    … …  
    195194    ICOM_VFIELD(IClassFactory);
    196195    DWORD                       ref;
    197     CLSID           *rclsid;
     196    CLSID                       *rclsid;
    198197} IClassFactoryImpl;
    199198
    … …  
    206205LPCLASSFACTORY IClassFactory_Constructor(REFCLSID rclsid)
    207206{
    208     IClassFactoryImpl* lpclf;
    209 
    210     lpclf= (IClassFactoryImpl*)HeapAlloc(GetProcessHeap(),0,sizeof(IClassFactoryImpl));
    211     lpclf->ref = 1;
    212     ICOM_VTBL(lpclf) = &clfvt;
    213     lpclf->rclsid = (CLSID*)rclsid;
    214 
    215     TRACE("(%p)->()\n",lpclf);
    216     InterlockedIncrement(&shell32_ObjCount);
    217     return (LPCLASSFACTORY)lpclf;
     207        IClassFactoryImpl* lpclf;
     208
     209        lpclf= (IClassFactoryImpl*)HeapAlloc(GetProcessHeap(),0,sizeof(IClassFactoryImpl));
     210        lpclf->ref = 1;
     211        ICOM_VTBL(lpclf) = &clfvt;
     212        lpclf->rclsid = (CLSID*)rclsid;
     213
     214        TRACE("(%p)->()\n",lpclf);
     215        InterlockedIncrement(&shell32_ObjCount);
     216        return (LPCLASSFACTORY)lpclf;
    218217}
    219218/**************************************************************************
    … …  
    223222  LPCLASSFACTORY iface, REFIID riid, LPVOID *ppvObj)
    224223{
    225     ICOM_THIS(IClassFactoryImpl,iface);
    226     TRACE("(%p)->(\n\tIID:\t%s)\n",This,debugstr_guid(riid));
    227 
    228     *ppvObj = NULL;
    229 
    230     if(IsEqualIID(riid, &IID_IUnknown))          /*IUnknown*/
    231     { *ppvObj = This;
    232     }
    233     else if(IsEqualIID(riid, &IID_IClassFactory))  /*IClassFactory*/
    234     { *ppvObj = (IClassFactory*)This;
    235     }
    236 
    237     if(*ppvObj)
    238     { IUnknown_AddRef((LPUNKNOWN)*ppvObj);
    239       TRACE("-- Interface: (%p)->(%p)\n",ppvObj,*ppvObj);
    240       return S_OK;
    241     }
    242     TRACE("-- Interface: %s E_NOINTERFACE\n", debugstr_guid(riid));
    243     return E_NOINTERFACE;
    244 }
     224        ICOM_THIS(IClassFactoryImpl,iface);
     225        TRACE("(%p)->(\n\tIID:\t%s)\n",This,debugstr_guid(riid));
     226
     227        *ppvObj = NULL;
     228
     229        if(IsEqualIID(riid, &IID_IUnknown))          /*IUnknown*/
     230        { *ppvObj = This;
     231        }
     232        else if(IsEqualIID(riid, &IID_IClassFactory))  /*IClassFactory*/
     233        { *ppvObj = (IClassFactory*)This;
     234        }   
     235
     236        if(*ppvObj)
     237        { IUnknown_AddRef((LPUNKNOWN)*ppvObj);         
     238          TRACE("-- Interface: (%p)->(%p)\n",ppvObj,*ppvObj);
     239          return S_OK;
     240        }
     241        TRACE("-- Interface: %s E_NOINTERFACE\n", debugstr_guid(riid));
     242        return E_NOINTERFACE;
     243} 
    245244/******************************************************************************
    246245 * IClassFactory_AddRef
    … …  
    248247static ULONG WINAPI IClassFactory_fnAddRef(LPCLASSFACTORY iface)
    249248{
    250     ICOM_THIS(IClassFactoryImpl,iface);
    251     TRACE("(%p)->(count=%lu)\n",This,This->ref);
    252 
    253     InterlockedIncrement(&shell32_ObjCount);
    254     return InterlockedIncrement(&This->ref);
     249        ICOM_THIS(IClassFactoryImpl,iface);
     250        TRACE("(%p)->(count=%lu)\n",This,This->ref);
     251
     252        InterlockedIncrement(&shell32_ObjCount);
     253        return InterlockedIncrement(&This->ref);
    255254}
    256255/******************************************************************************
    … …  
    259258static ULONG WINAPI IClassFactory_fnRelease(LPCLASSFACTORY iface)
    260259{
    261     ICOM_THIS(IClassFactoryImpl,iface);
    262     TRACE("(%p)->(count=%lu)\n",This,This->ref);
    263 
    264     InterlockedDecrement(&shell32_ObjCount);
    265     if (!InterlockedDecrement(&This->ref))
    266     {
    267       TRACE("-- destroying IClassFactory(%p)\n",This);
    268       HeapFree(GetProcessHeap(),0,This);
    269       return 0;
    270     }
    271     return This->ref;
     260        ICOM_THIS(IClassFactoryImpl,iface);
     261        TRACE("(%p)->(count=%lu)\n",This,This->ref);
     262
     263        InterlockedDecrement(&shell32_ObjCount);
     264        if (!InterlockedDecrement(&This->ref))
     265        {
     266          TRACE("-- destroying IClassFactory(%p)\n",This);
     267          HeapFree(GetProcessHeap(),0,This);
     268          return 0;
     269        }
     270        return This->ref;
    272271}
    273272/******************************************************************************
    … …  
    277276  LPCLASSFACTORY iface, LPUNKNOWN pUnknown, REFIID riid, LPVOID *ppObject)
    278277{
    279     ICOM_THIS(IClassFactoryImpl,iface);
    280     IUnknown *pObj = NULL;
    281     HRESULT hres;
    282 
    283     TRACE("%p->(%p,\n\tIID:\t%s,%p)\n",This,pUnknown,debugstr_guid(riid),ppObject);
    284 
    285     *ppObject = NULL;
    286 
    287     if(pUnknown)
    288     {
    289       return(CLASS_E_NOAGGREGATION);
    290     }
    291 
    292     if (IsEqualCLSID(This->rclsid, &CLSID_ShellDesktop))
    293     {
    294       pObj = (IUnknown *)ISF_Desktop_Constructor();
    295     }
    296     else if (IsEqualCLSID(This->rclsid, &CLSID_ShellLink))
    297     {
    298       pObj = (IUnknown *)IShellLink_Constructor(FALSE);
    299     }
    300     else
    301     {
    302       ERR("unknown IID requested\n\tIID:\t%s\n",debugstr_guid(riid));
    303       return(E_NOINTERFACE);
    304     }
    305 
    306     if (!pObj)
    307     {
    308       return(E_OUTOFMEMORY);
    309     }
    310 
    311     hres = IUnknown_QueryInterface(pObj,riid, ppObject);
    312     IUnknown_Release(pObj);
    313 
    314     TRACE("-- Object created: (%p)->%p\n",This,*ppObject);
    315 
    316     return hres;
     278        ICOM_THIS(IClassFactoryImpl,iface);
     279        IUnknown *pObj = NULL;
     280        HRESULT hres;
     281
     282        TRACE("%p->(%p,\n\tIID:\t%s,%p)\n",This,pUnknown,debugstr_guid(riid),ppObject);
     283
     284        *ppObject = NULL;
     285               
     286        if(pUnknown)
     287        {
     288          return(CLASS_E_NOAGGREGATION);
     289        }
     290
     291        if (IsEqualCLSID(This->rclsid, &CLSID_ShellDesktop))
     292        {
     293          pObj = (IUnknown *)ISF_Desktop_Constructor();
     294        }
     295        else if (IsEqualCLSID(This->rclsid, &CLSID_ShellLink))
     296        {
     297          pObj = (IUnknown *)IShellLink_Constructor(FALSE);
     298        }
     299        else
     300        {
     301          ERR("unknown IID requested\n\tIID:\t%s\n",debugstr_guid(riid));
     302          return(E_NOINTERFACE);
     303        }
     304       
     305        if (!pObj)
     306        {
     307          return(E_OUTOFMEMORY);
     308        }
     309         
     310        hres = IUnknown_QueryInterface(pObj,riid, ppObject);
     311        IUnknown_Release(pObj);
     312
     313        TRACE("-- Object created: (%p)->%p\n",This,*ppObject);
     314
     315        return hres;
    317316}
    318317/******************************************************************************
    … …  
    321320static HRESULT WINAPI IClassFactory_fnLockServer(LPCLASSFACTORY iface, BOOL fLock)
    322321{
    323     ICOM_THIS(IClassFactoryImpl,iface);
    324     TRACE("%p->(0x%x), not implemented\n",This, fLock);
    325     return E_NOTIMPL;
    326 }
    327 
    328 static ICOM_VTABLE(IClassFactory) clfvt =
     322        ICOM_THIS(IClassFactoryImpl,iface);
     323        TRACE("%p->(0x%x), not implemented\n",This, fLock);
     324        return E_NOTIMPL;
     325}
     326
     327static ICOM_VTABLE(IClassFactory) clfvt = 
    329328{
    330329    ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
    … …  
    356355    ICOM_VFIELD(IClassFactory);
    357356    DWORD                       ref;
    358     CLSID           *rclsid;
    359     LPFNCREATEINSTANCE      lpfnCI;
    360     const IID *         riidInst;
    361     ULONG *         pcRefDll; /* pointer to refcounter in external dll (ugrrr...) */
     357    CLSID                       *rclsid;
     358    LPFNCREATEINSTANCE          lpfnCI;
     359    const IID *                 riidInst;
     360    ULONG *                     pcRefDll; /* pointer to refcounter in external dll (ugrrr...) */
    362361} IDefClFImpl;
    363362
    … …  
    370369IClassFactory * IDefClF_fnConstructor(LPFNCREATEINSTANCE lpfnCI, PLONG pcRefDll, REFIID riidInst)
    371370{
    372     IDefClFImpl* lpclf;
    373 
    374     lpclf = (IDefClFImpl*)HeapAlloc(GetProcessHeap(),0,sizeof(IDefClFImpl));
    375     lpclf->ref = 1;
    376     ICOM_VTBL(lpclf) = &dclfvt;
    377     lpclf->lpfnCI = lpfnCI;
    378     lpclf->pcRefDll = pcRefDll;
    379 
    380     if (pcRefDll) InterlockedIncrement(pcRefDll);
    381     lpclf->riidInst = riidInst;
    382 
    383     TRACE("(%p)\n\tIID:\t%s\n",lpclf, debugstr_guid(riidInst));
    384     InterlockedIncrement(&shell32_ObjCount);
    385     return (LPCLASSFACTORY)lpclf;
     371        IDefClFImpl* lpclf;
     372
     373        lpclf = (IDefClFImpl*)HeapAlloc(GetProcessHeap(),0,sizeof(IDefClFImpl));
     374        lpclf->ref = 1;
     375        ICOM_VTBL(lpclf) = &dclfvt;
     376        lpclf->lpfnCI = lpfnCI;
     377        lpclf->pcRefDll = pcRefDll;
     378
     379        if (pcRefDll) InterlockedIncrement(pcRefDll);
     380        lpclf->riidInst = riidInst;
     381
     382        TRACE("(%p)\n\tIID:\t%s\n",lpclf, debugstr_guid(riidInst));
     383        InterlockedIncrement(&shell32_ObjCount);
     384        return (LPCLASSFACTORY)lpclf;
    386385}
    387386/**************************************************************************
    … …  
    391390  LPCLASSFACTORY iface, REFIID riid, LPVOID *ppvObj)
    392391{
    393     ICOM_THIS(IDefClFImpl,iface);
    394 
    395     TRACE("(%p)->(\n\tIID:\t%s)\n",This,debugstr_guid(riid));
    396 
    397     *ppvObj = NULL;
    398 
    399     if(IsEqualIID(riid, &IID_IUnknown))          /*IUnknown*/
    400     { *ppvObj = This;
    401     }
    402     else if(IsEqualIID(riid, &IID_IClassFactory))  /*IClassFactory*/
    403     { *ppvObj = (IClassFactory*)This;
    404     }
    405 
    406     if(*ppvObj)
    407     { IUnknown_AddRef((LPUNKNOWN)*ppvObj);
    408       TRACE("-- Interface: (%p)->(%p)\n",ppvObj,*ppvObj);
    409       return S_OK;
    410     }
    411     TRACE("-- Interface: %s E_NOINTERFACE\n", debugstr_guid(riid));
    412     return E_NOINTERFACE;
    413 }
     392        ICOM_THIS(IDefClFImpl,iface);
     393
     394        TRACE("(%p)->(\n\tIID:\t%s)\n",This,debugstr_guid(riid));
     395
     396        *ppvObj = NULL;
     397
     398        if(IsEqualIID(riid, &IID_IUnknown))          /*IUnknown*/
     399        { *ppvObj = This;
     400        }
     401        else if(IsEqualIID(riid, &IID_IClassFactory))  /*IClassFactory*/
     402        { *ppvObj = (IClassFactory*)This;
     403        }   
     404
     405        if(*ppvObj)
     406        { IUnknown_AddRef((LPUNKNOWN)*ppvObj);         
     407          TRACE("-- Interface: (%p)->(%p)\n",ppvObj,*ppvObj);
     408          return S_OK;
     409        }
     410        TRACE("-- Interface: %s E_NOINTERFACE\n", debugstr_guid(riid));
     411        return E_NOINTERFACE;
     412} 
    414413/******************************************************************************
    415414 * IDefClF_fnAddRef
    … …  
    417416static ULONG WINAPI IDefClF_fnAddRef(LPCLASSFACTORY iface)
    418417{
    419     ICOM_THIS(IDefClFImpl,iface);
    420     TRACE("(%p)->(count=%lu)\n",This,This->ref);
    421 
    422     InterlockedIncrement(&shell32_ObjCount);
    423     return InterlockedIncrement(&This->ref);
     418        ICOM_THIS(IDefClFImpl,iface);
     419        TRACE("(%p)->(count=%lu)\n",This,This->ref);
     420
     421        InterlockedIncrement(&shell32_ObjCount);
     422        return InterlockedIncrement(&This->ref);
    424423}
    425424/******************************************************************************
    … …  
    428427static ULONG WINAPI IDefClF_fnRelease(LPCLASSFACTORY iface)
    429428{
    430     ICOM_THIS(IDefClFImpl,iface);
    431     TRACE("(%p)->(count=%lu)\n",This,This->ref);
    432 
    433     InterlockedDecrement(&shell32_ObjCount);
    434 
    435     if (!InterlockedDecrement(&This->ref))
    436     {
    437       if (This->pcRefDll) InterlockedDecrement(This->pcRefDll);
    438 
    439       TRACE("-- destroying IClassFactory(%p)\n",This);
    440       HeapFree(GetProcessHeap(),0,This);
    441       return 0;
    442     }
    443     return This->ref;
     429        ICOM_THIS(IDefClFImpl,iface);
     430        TRACE("(%p)->(count=%lu)\n",This,This->ref);
     431
     432        InterlockedDecrement(&shell32_ObjCount);
     433
     434        if (!InterlockedDecrement(&This->ref))
     435        {
     436          if (This->pcRefDll) InterlockedDecrement(This->pcRefDll);
     437
     438          TRACE("-- destroying IClassFactory(%p)\n",This);
     439          HeapFree(GetProcessHeap(),0,This);
     440          return 0;
     441        }
     442        return This->ref;
    444443}
    445444/******************************************************************************
    … …  
    449448  LPCLASSFACTORY iface, LPUNKNOWN pUnkOuter, REFIID riid, LPVOID *ppvObject)
    450449{
    451     ICOM_THIS(IDefClFImpl,iface);
    452 
    453     TRACE("%p->(%p,\n\tIID:\t%s,%p)\n",This,pUnkOuter,debugstr_guid(riid),ppvObject);
    454 
    455     *ppvObject = NULL;
    456 
    457     if(pUnkOuter)
    458       return(CLASS_E_NOAGGREGATION);
    459 
    460     if ( This->riidInst==NULL ||
    461          IsEqualCLSID(riid, This->riidInst) ||
    462          IsEqualCLSID(riid, &IID_IUnknown) )
    463     {
    464       return This->lpfnCI(pUnkOuter, riid, ppvObject);
    465     }
    466 
    467     ERR("unknown IID requested\n\tIID:\t%s\n",debugstr_guid(riid));
    468     return E_NOINTERFACE;
     450        ICOM_THIS(IDefClFImpl,iface);
     451
     452        TRACE("%p->(%p,\n\tIID:\t%s,%p)\n",This,pUnkOuter,debugstr_guid(riid),ppvObject);
     453
     454        *ppvObject = NULL;
     455               
     456        if(pUnkOuter)
     457          return(CLASS_E_NOAGGREGATION);
     458
     459        if ( This->riidInst==NULL ||
     460             IsEqualCLSID(riid, This->riidInst) ||
     461             IsEqualCLSID(riid, &IID_IUnknown) )
     462        {
     463          return This->lpfnCI(pUnkOuter, riid, ppvObject);
     464        }
     465
     466        ERR("unknown IID requested\n\tIID:\t%s\n",debugstr_guid(riid));
     467        return E_NOINTERFACE;
    469468}
    470469/******************************************************************************
    … …  
    473472static HRESULT WINAPI IDefClF_fnLockServer(LPCLASSFACTORY iface, BOOL fLock)
    474473{
    475     ICOM_THIS(IDefClFImpl,iface);
    476     TRACE("%p->(0x%x), not implemented\n",This, fLock);
    477     return E_NOTIMPL;
    478 }
    479 
    480 static ICOM_VTABLE(IClassFactory) dclfvt =
     474        ICOM_THIS(IDefClFImpl,iface);
     475        TRACE("%p->(0x%x), not implemented\n",This, fLock);
     476        return E_NOTIMPL;
     477}
     478
     479static ICOM_VTABLE(IClassFactory) dclfvt = 
    481480{
    482481    ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
    … …  
    489488
    490489/******************************************************************************
    491  * SHCreateDefClassObject           [SHELL32.70]
     490 * SHCreateDefClassObject                       [SHELL32.70]
    492491 */
    493492HRESULT WINAPI SHCreateDefClassObject(
    494     REFIID  riid,
    495     LPVOID* ppv,
    496     LPFNCREATEINSTANCE lpfnCI,  /* [in] create instance callback entry */
    497     PLONG   pcRefDll,       /* [in/out] ref count of the dll */
    498     REFIID  riidInst)       /* [in] optional interface to the instance */
    499 {
    500     TRACE("\n\tIID:\t%s %p %p %p \n\tIIDIns:\t%s\n",
     493        REFIID  riid,                           
     494        LPVOID* ppv,   
     495        LPFNCREATEINSTANCE lpfnCI,      /* [in] create instance callback entry */
     496        PLONG   pcRefDll,               /* [in/out] ref count of the dll */
     497        REFIID  riidInst)               /* [in] optional interface to the instance */
     498{
     499        TRACE("\n\tIID:\t%s %p %p %p \n\tIIDIns:\t%s\n",
    501500              debugstr_guid(riid), ppv, lpfnCI, pcRefDll, debugstr_guid(riidInst));
    502501
    503     if ( IsEqualCLSID(riid, &IID_IClassFactory) )
    504     {
    505       IClassFactory * pcf = IDefClF_fnConstructor(lpfnCI, pcRefDll, riidInst);
    506       if (pcf)
    507       {
    508         *ppv = pcf;
    509         return NOERROR;
    510       }
    511       return E_OUTOFMEMORY;
    512     }
    513     return E_NOINTERFACE;
    514 }
    515 
    516 /*************************************************************************
    517  *  DragAcceptFiles     [SHELL32.54]
     502        if ( IsEqualCLSID(riid, &IID_IClassFactory) )
     503        {
     504          IClassFactory * pcf = IDefClF_fnConstructor(lpfnCI, pcRefDll, riidInst);
     505          if (pcf)
     506          {
     507            *ppv = pcf;
     508            return NOERROR;
     509          }
     510          return E_OUTOFMEMORY;
     511        }
     512        return E_NOINTERFACE;
     513}
     514
     515/*************************************************************************
     516 *  DragAcceptFiles             [SHELL32.54]
    518517 */
    519518void WINAPI DragAcceptFiles(HWND hWnd, BOOL b)
    520519{
    521     LONG exstyle;
    522 
    523     if( !IsWindow(hWnd) ) return;
    524     exstyle = GetWindowLongA(hWnd,GWL_EXSTYLE);
    525     if (b)
    526       exstyle |= WS_EX_ACCEPTFILES;
    527     else
    528       exstyle &= ~WS_EX_ACCEPTFILES;
    529     SetWindowLongA(hWnd,GWL_EXSTYLE,exstyle);
    530 }
    531 
    532 /*************************************************************************
    533  * DragFinish       [SHELL32.80]
     520        LONG exstyle;
     521 
     522        if( !IsWindow(hWnd) ) return;
     523        exstyle = GetWindowLongA(hWnd,GWL_EXSTYLE);
     524        if (b)
     525          exstyle |= WS_EX_ACCEPTFILES;
     526        else
     527          exstyle &= ~WS_EX_ACCEPTFILES;
     528        SetWindowLongA(hWnd,GWL_EXSTYLE,exstyle);
     529}
     530
     531/*************************************************************************
     532 * DragFinish           [SHELL32.80]
    534533 */
    535534void WINAPI DragFinish(HDROP h)
    536535{
    537     TRACE("\n");
    538     GlobalFree((HGLOBAL)h);
    539 }
    540 
    541 /*************************************************************************
    542  * DragQueryPoint       [SHELL32.135]
     536        TRACE("\n");
     537        GlobalFree((HGLOBAL)h);
     538}
     539
     540/*************************************************************************
     541 * DragQueryPoint               [SHELL32.135]
    543542 */
    544543BOOL WINAPI DragQueryPoint(HDROP hDrop, POINT *p)
    545544{
    546545        DROPFILES *lpDropFileStruct;
    547     BOOL bRet;
    548 
    549     TRACE("\n");
    550 
    551     lpDropFileStruct = (DROPFILES *) GlobalLock(hDrop);
     546        BOOL bRet;
     547
     548        TRACE("\n");
     549
     550        lpDropFileStruct = (DROPFILES *) GlobalLock(hDrop);
    552551
    553552        *p = lpDropFileStruct->pt;
    554     bRet = lpDropFileStruct->fNC;
    555 
    556     GlobalUnlock(hDrop);
    557     return bRet;
    558 }
    559 
    560 /*************************************************************************
    561  *  DragQueryFileA      [SHELL32.81] [shell32.82]
     553        bRet = lpDropFileStruct->fNC;
     554 
     555        GlobalUnlock(hDrop);
     556        return bRet;
     557}
     558
     559/*************************************************************************
     560 *  DragQueryFileA              [SHELL32.81] [shell32.82]
    562561 */
    563562UINT WINAPI DragQueryFileA(
    564     HDROP hDrop,
    565     UINT lFile,
    566     LPSTR lpszFile,
    567     UINT lLength)
    568 {
    569     LPSTR lpDrop;
    570     UINT i = 0;
    571     DROPFILES *lpDropFileStruct = (DROPFILES *) GlobalLock(hDrop);
    572 
    573     TRACE("(%08x, %x, %p, %u)\n",   hDrop,lFile,lpszFile,lLength);
    574 
    575     if(!lpDropFileStruct) goto end;
    576 
    577     lpDrop = (LPSTR) lpDropFileStruct + lpDropFileStruct->pFiles;
    578 
    579     while (i++ < lFile)
    580     {
    581       while (*lpDrop++); /* skip filename */
    582       if (!*lpDrop)
    583       {
    584         i = (lFile == 0xFFFFFFFF) ? i : 0;
    585         goto end;
    586       }
    587     }
    588 
    589     i = strlen(lpDrop);
    590     i++;
    591     if (!lpszFile ) goto end;   /* needed buffer size */
    592     i = (lLength > i) ? i : lLength;
    593     lstrcpynA (lpszFile,  lpDrop,  i);
     563        HDROP hDrop,
     564        UINT lFile,
     565        LPSTR lpszFile,
     566        UINT lLength)
     567{
     568        LPSTR lpDrop;
     569        UINT i = 0;
     570        DROPFILES *lpDropFileStruct = (DROPFILES *) GlobalLock(hDrop);
     571   
     572        TRACE("(%08x, %x, %p, %u)\n",   hDrop,lFile,lpszFile,lLength);
     573   
     574        if(!lpDropFileStruct) goto end;
     575
     576        lpDrop = (LPSTR) lpDropFileStruct + lpDropFileStruct->pFiles;
     577
     578        while (i++ < lFile)
     579        {
     580          while (*lpDrop++); /* skip filename */
     581          if (!*lpDrop)
     582          {
     583            i = (lFile == 0xFFFFFFFF) ? i : 0;
     584            goto end;
     585          }
     586        }
     587   
     588        i = strlen(lpDrop);
     589        i++;
     590        if (!lpszFile ) goto end;   /* needed buffer size */
     591        i = (lLength > i) ? i : lLength;
     592        lstrcpynA (lpszFile,  lpDrop,  i);
    594593end:
    595     GlobalUnlock(hDrop);
    596     return i;
    597 }
    598 
    599 /*************************************************************************
    600  *  DragQueryFileW      [shell32.133]
     594        GlobalUnlock(hDrop);
     595        return i;
     596}
     597
     598/*************************************************************************
     599 *  DragQueryFileW              [shell32.133]
    601600 */
    602601UINT WINAPI DragQueryFileW(
    603     HDROP hDrop,
    604     UINT lFile,
    605     LPWSTR lpszwFile,
    606     UINT lLength)
    607 {
    608     LPWSTR lpwDrop;
    609     UINT i = 0;
    610     DROPFILES *lpDropFileStruct = (DROPFILES *) GlobalLock(hDrop);
    611 
    612     TRACE("(%08x, %x, %p, %u)\n", hDrop,lFile,lpszwFile,lLength);
    613 
    614     if(!lpDropFileStruct) goto end;
    615 
    616     lpwDrop = (LPWSTR) lpDropFileStruct + lpDropFileStruct->pFiles;
    617 
    618     i = 0;
    619     while (i++ < lFile)
    620     {
    621       while (*lpwDrop++); /* skip filename */
    622       if (!*lpwDrop)
    623       {
    624         i = (lFile == 0xFFFFFFFF) ? i : 0;
    625         goto end;
    626       }
    627     }
    628 
    629     i = strlenW(lpwDrop);
    630     i++;
    631     if ( !lpszwFile) goto end;   /* needed buffer size */
    632 
    633     i = (lLength > i) ? i : lLength;
    634     lstrcpynW (lpszwFile, lpwDrop, i);
     602        HDROP hDrop,
     603        UINT lFile,
     604        LPWSTR lpszwFile,
     605        UINT lLength)
     606{
     607        LPWSTR lpwDrop;
     608        UINT i = 0;
     609        DROPFILES *lpDropFileStruct = (DROPFILES *) GlobalLock(hDrop);
     610   
     611        TRACE("(%08x, %x, %p, %u)\n", hDrop,lFile,lpszwFile,lLength);
     612   
     613        if(!lpDropFileStruct) goto end;
     614
     615        lpwDrop = (LPWSTR) lpDropFileStruct + lpDropFileStruct->pFiles;
     616
     617        i = 0;
     618        while (i++ < lFile)
     619        {
     620          while (*lpwDrop++); /* skip filename */
     621          if (!*lpwDrop)
     622          {
     623            i = (lFile == 0xFFFFFFFF) ? i : 0;
     624            goto end;
     625          }
     626        }
     627   
     628        i = strlenW(lpwDrop);
     629        i++;
     630        if ( !lpszwFile) goto end;   /* needed buffer size */
     631
     632        i = (lLength > i) ? i : lLength;
     633        lstrcpynW (lpszwFile, lpwDrop, i);
    635634end:
    636     GlobalUnlock(hDrop);
    637     return i;
    638 }
     635        GlobalUnlock(hDrop);
     636        return i;
     637}
Note: See TracChangeset for help on using the changeset viewer.