Sweden-Number/dlls/shell32/shelldispatch.c

728 lines
17 KiB
C

/*
* IShellDispatch implementation
*
* Copyright 2010 Alexander Morozov for Etersoft
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
*/
#include "config.h"
#include "wine/port.h"
#include <stdarg.h>
#define COBJMACROS
#define NONAMELESSUNION
#define NONAMELESSSTRUCT
#include "windef.h"
#include "winbase.h"
#include "winreg.h"
#include "shlwapi.h"
#include "shlobj.h"
#include "shldisp.h"
#include "debughlp.h"
#include "wine/debug.h"
WINE_DEFAULT_DEBUG_CHANNEL(shell);
typedef struct {
IShellDispatch IShellDispatch_iface;
LONG ref;
ITypeInfo *iTypeInfo;
} ShellDispatch;
typedef struct {
Folder3 Folder_iface;
LONG ref;
ITypeInfo *iTypeInfo;
VARIANT dir;
} FolderImpl;
static inline ShellDispatch *impl_from_IShellDispatch(IShellDispatch *iface)
{
return CONTAINING_RECORD(iface, ShellDispatch, IShellDispatch_iface);
}
static inline FolderImpl *impl_from_Folder(Folder3 *iface)
{
return CONTAINING_RECORD(iface, FolderImpl, Folder_iface);
}
static HRESULT load_type_info(REFGUID guid, ITypeInfo **pptinfo)
{
ITypeLib *typelib;
HRESULT ret;
ret = LoadRegTypeLib(&LIBID_Shell32, 1, 0, LOCALE_SYSTEM_DEFAULT, &typelib);
if (FAILED(ret))
{
ERR("LoadRegTypeLib failed: %08x\n", ret);
return ret;
}
ret = ITypeLib_GetTypeInfoOfGuid(typelib, guid, pptinfo);
ITypeLib_Release(typelib);
if (FAILED(ret))
ERR("failed to load ITypeInfo\n");
return ret;
}
static HRESULT WINAPI FolderImpl_QueryInterface(Folder3 *iface, REFIID riid,
LPVOID *ppv)
{
FolderImpl *This = impl_from_Folder(iface);
TRACE("(%p,%p,%p)\n", iface, riid, ppv);
if (!ppv) return E_INVALIDARG;
if (IsEqualIID(&IID_IUnknown, riid) ||
IsEqualIID(&IID_IDispatch, riid) ||
IsEqualIID(&IID_Folder, riid) ||
IsEqualIID(&IID_Folder2, riid) ||
IsEqualIID(&IID_Folder3, riid))
*ppv = This;
else
{
FIXME("not implemented for %s\n", shdebugstr_guid(riid));
*ppv = NULL;
return E_NOINTERFACE;
}
IUnknown_AddRef((IUnknown*)*ppv);
return S_OK;
}
static ULONG WINAPI FolderImpl_AddRef(Folder3 *iface)
{
FolderImpl *This = impl_from_Folder(iface);
ULONG ref = InterlockedIncrement(&This->ref);
TRACE("(%p), new refcount=%i\n", iface, ref);
return ref;
}
static ULONG WINAPI FolderImpl_Release(Folder3 *iface)
{
FolderImpl *This = impl_from_Folder(iface);
ULONG ref = InterlockedDecrement(&This->ref);
TRACE("(%p), new refcount=%i\n", iface, ref);
if (!ref)
{
VariantClear(&This->dir);
ITypeInfo_Release(This->iTypeInfo);
HeapFree(GetProcessHeap(), 0, This);
}
return ref;
}
static HRESULT WINAPI FolderImpl_GetTypeInfoCount(Folder3 *iface, UINT *pctinfo)
{
TRACE("(%p,%p)\n", iface, pctinfo);
*pctinfo = 1;
return S_OK;
}
static HRESULT WINAPI FolderImpl_GetTypeInfo(Folder3 *iface, UINT iTInfo,
LCID lcid, ITypeInfo **ppTInfo)
{
FolderImpl *This = impl_from_Folder(iface);
TRACE("(%p,%u,%d,%p)\n", iface, iTInfo, lcid, ppTInfo);
ITypeInfo_AddRef(This->iTypeInfo);
*ppTInfo = This->iTypeInfo;
return S_OK;
}
static HRESULT WINAPI FolderImpl_GetIDsOfNames(Folder3 *iface, REFIID riid,
LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
{
FolderImpl *This = impl_from_Folder(iface);
TRACE("(%p,%p,%p,%u,%d,%p)\n", iface, riid, rgszNames, cNames, lcid,
rgDispId);
return ITypeInfo_GetIDsOfNames(This->iTypeInfo, rgszNames, cNames,
rgDispId);
}
static HRESULT WINAPI FolderImpl_Invoke(Folder3 *iface, DISPID dispIdMember,
REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
{
FolderImpl *This = impl_from_Folder(iface);
TRACE("(%p,%d,%p,%d,%u,%p,%p,%p,%p)\n", iface, dispIdMember, riid, lcid,
wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
return ITypeInfo_Invoke(This->iTypeInfo, This, dispIdMember, wFlags,
pDispParams, pVarResult, pExcepInfo, puArgErr);
}
static HRESULT WINAPI FolderImpl_get_Title(Folder3 *iface, BSTR *pbs)
{
FolderImpl *This = impl_from_Folder(iface);
WCHAR *p;
int len;
TRACE("(%p,%p)\n", iface, pbs);
*pbs = NULL;
if (V_VT(&This->dir) == VT_I4)
{
FIXME("special folder constants are not supported\n");
return E_NOTIMPL;
}
p = PathFindFileNameW(V_BSTR(&This->dir));
len = lstrlenW(p);
*pbs = SysAllocStringLen(p, p[len - 1] == '\\' ? len - 1 : len);
return *pbs ? S_OK : E_OUTOFMEMORY;
}
static HRESULT WINAPI FolderImpl_get_Application(Folder3 *iface,
IDispatch **ppid)
{
FIXME("(%p,%p)\n", iface, ppid);
*ppid = NULL;
return E_NOTIMPL;
}
static HRESULT WINAPI FolderImpl_get_Parent(Folder3 *iface, IDispatch **ppid)
{
FIXME("(%p,%p)\n", iface, ppid);
*ppid = NULL;
return E_NOTIMPL;
}
static HRESULT WINAPI FolderImpl_get_ParentFolder(Folder3 *iface, Folder **ppsf)
{
FIXME("(%p,%p)\n", iface, ppsf);
*ppsf = NULL;
return E_NOTIMPL;
}
static HRESULT WINAPI FolderImpl_Items(Folder3 *iface, FolderItems **ppid)
{
FIXME("(%p,%p)\n", iface, ppid);
*ppid = NULL;
return E_NOTIMPL;
}
static HRESULT WINAPI FolderImpl_ParseName(Folder3 *iface, BSTR bName,
FolderItem **ppid)
{
FIXME("(%p,%s,%p)\n", iface, debugstr_w(bName), ppid);
*ppid = NULL;
return E_NOTIMPL;
}
static HRESULT WINAPI FolderImpl_NewFolder(Folder3 *iface, BSTR bName,
VARIANT vOptions)
{
FIXME("(%p,%s)\n", iface, debugstr_w(bName));
return E_NOTIMPL;
}
static HRESULT WINAPI FolderImpl_MoveHere(Folder3 *iface, VARIANT vItem,
VARIANT vOptions)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI FolderImpl_CopyHere(Folder3 *iface, VARIANT vItem,
VARIANT vOptions)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI FolderImpl_GetDetailsOf(Folder3 *iface, VARIANT vItem,
int iColumn, BSTR *pbs)
{
FIXME("(%p,%d,%p)\n", iface, iColumn, pbs);
*pbs = NULL;
return E_NOTIMPL;
}
static HRESULT WINAPI FolderImpl_get_Self(Folder3 *iface, FolderItem **ppfi)
{
FIXME("(%p,%p)\n", iface, ppfi);
*ppfi = NULL;
return E_NOTIMPL;
}
static HRESULT WINAPI FolderImpl_get_OfflineStatus(Folder3 *iface, LONG *pul)
{
FIXME("(%p,%p)\n", iface, pul);
return E_NOTIMPL;
}
static HRESULT WINAPI FolderImpl_Synchronize(Folder3 *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI FolderImpl_get_HaveToShowWebViewBarricade(Folder3 *iface,
VARIANT_BOOL *pbHaveToShowWebViewBarricade)
{
FIXME("(%p,%p)\n", iface, pbHaveToShowWebViewBarricade);
return E_NOTIMPL;
}
static HRESULT WINAPI FolderImpl_DismissedWebViewBarricade(Folder3 *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI FolderImpl_get_ShowWebViewBarricade(Folder3 *iface,
VARIANT_BOOL *pbShowWebViewBarricade)
{
FIXME("(%p,%p)\n", iface, pbShowWebViewBarricade);
return E_NOTIMPL;
}
static HRESULT WINAPI FolderImpl_put_ShowWebViewBarricade(Folder3 *iface,
VARIANT_BOOL bShowWebViewBarricade)
{
FIXME("(%p,%d)\n", iface, bShowWebViewBarricade);
return E_NOTIMPL;
}
static const Folder3Vtbl FolderImpl_Vtbl = {
FolderImpl_QueryInterface,
FolderImpl_AddRef,
FolderImpl_Release,
FolderImpl_GetTypeInfoCount,
FolderImpl_GetTypeInfo,
FolderImpl_GetIDsOfNames,
FolderImpl_Invoke,
FolderImpl_get_Title,
FolderImpl_get_Application,
FolderImpl_get_Parent,
FolderImpl_get_ParentFolder,
FolderImpl_Items,
FolderImpl_ParseName,
FolderImpl_NewFolder,
FolderImpl_MoveHere,
FolderImpl_CopyHere,
FolderImpl_GetDetailsOf,
FolderImpl_get_Self,
FolderImpl_get_OfflineStatus,
FolderImpl_Synchronize,
FolderImpl_get_HaveToShowWebViewBarricade,
FolderImpl_DismissedWebViewBarricade,
FolderImpl_get_ShowWebViewBarricade,
FolderImpl_put_ShowWebViewBarricade
};
static HRESULT Folder_Constructor(VARIANT *dir, Folder **ppsdf)
{
FolderImpl *This;
HRESULT ret;
*ppsdf = NULL;
switch (V_VT(dir))
{
case VT_I4:
/* FIXME: add some checks */
break;
case VT_BSTR:
if (PathIsDirectoryW(V_BSTR(dir)) &&
!PathIsRelativeW(V_BSTR(dir)) &&
PathFileExistsW(V_BSTR(dir)))
break;
default:
return S_FALSE;
}
This = HeapAlloc(GetProcessHeap(), 0, sizeof(FolderImpl));
if (!This) return E_OUTOFMEMORY;
This->Folder_iface.lpVtbl = &FolderImpl_Vtbl;
This->ref = 1;
ret = load_type_info(&IID_Folder3, &This->iTypeInfo);
if (FAILED(ret))
{
HeapFree(GetProcessHeap(), 0, This);
return ret;
}
VariantInit(&This->dir);
ret = VariantCopy(&This->dir, dir);
if (FAILED(ret))
{
HeapFree(GetProcessHeap(), 0, This);
return E_OUTOFMEMORY;
}
*ppsdf = (Folder*)This;
return ret;
}
static HRESULT WINAPI ShellDispatch_QueryInterface(IShellDispatch *iface,
REFIID riid, LPVOID *ppv)
{
ShellDispatch *This = impl_from_IShellDispatch(iface);
TRACE("(%p,%p,%p)\n", iface, riid, ppv);
if (!ppv) return E_INVALIDARG;
if (IsEqualIID(&IID_IUnknown, riid) ||
IsEqualIID(&IID_IDispatch, riid) ||
IsEqualIID(&IID_IShellDispatch, riid))
*ppv = This;
else
{
FIXME("not implemented for %s\n", shdebugstr_guid(riid));
*ppv = NULL;
return E_NOINTERFACE;
}
IUnknown_AddRef((IUnknown*)*ppv);
return S_OK;
}
static ULONG WINAPI ShellDispatch_AddRef(IShellDispatch *iface)
{
ShellDispatch *This = impl_from_IShellDispatch(iface);
ULONG ref = InterlockedIncrement(&This->ref);
TRACE("(%p), new refcount=%i\n", iface, ref);
return ref;
}
static ULONG WINAPI ShellDispatch_Release(IShellDispatch *iface)
{
ShellDispatch *This = impl_from_IShellDispatch(iface);
ULONG ref = InterlockedDecrement(&This->ref);
TRACE("(%p), new refcount=%i\n", iface, ref);
if (!ref)
{
ITypeInfo_Release(This->iTypeInfo);
HeapFree(GetProcessHeap(), 0, This);
}
return ref;
}
static HRESULT WINAPI ShellDispatch_GetTypeInfoCount(IShellDispatch *iface,
UINT *pctinfo)
{
TRACE("(%p,%p)\n", iface, pctinfo);
*pctinfo = 1;
return S_OK;
}
static HRESULT WINAPI ShellDispatch_GetTypeInfo(IShellDispatch *iface,
UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
{
ShellDispatch *This = impl_from_IShellDispatch(iface);
TRACE("(%p,%u,%d,%p)\n", iface, iTInfo, lcid, ppTInfo);
ITypeInfo_AddRef(This->iTypeInfo);
*ppTInfo = This->iTypeInfo;
return S_OK;
}
static HRESULT WINAPI ShellDispatch_GetIDsOfNames(IShellDispatch *iface,
REFIID riid, LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
{
ShellDispatch *This = impl_from_IShellDispatch(iface);
TRACE("(%p,%p,%p,%u,%d,%p)\n", iface, riid, rgszNames, cNames, lcid,
rgDispId);
return ITypeInfo_GetIDsOfNames(This->iTypeInfo, rgszNames, cNames, rgDispId);
}
static HRESULT WINAPI ShellDispatch_Invoke(IShellDispatch *iface,
DISPID dispIdMember, REFIID riid, LCID lcid, WORD wFlags,
DISPPARAMS *pDispParams, VARIANT *pVarResult, EXCEPINFO *pExcepInfo,
UINT *puArgErr)
{
ShellDispatch *This = impl_from_IShellDispatch(iface);
TRACE("(%p,%d,%p,%d,%u,%p,%p,%p,%p)\n", iface, dispIdMember, riid, lcid,
wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
return ITypeInfo_Invoke(This->iTypeInfo, This, dispIdMember, wFlags,
pDispParams, pVarResult, pExcepInfo, puArgErr);
}
static HRESULT WINAPI ShellDispatch_get_Application(IShellDispatch *iface,
IDispatch **ppid)
{
FIXME("(%p,%p)\n", iface, ppid);
*ppid = NULL;
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_get_Parent(IShellDispatch *iface,
IDispatch **ppid)
{
FIXME("(%p,%p)\n", iface, ppid);
*ppid = NULL;
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_NameSpace(IShellDispatch *iface,
VARIANT vDir, Folder **ppsdf)
{
TRACE("(%p,%p)\n", iface, ppsdf);
return Folder_Constructor(&vDir, ppsdf);
}
static HRESULT WINAPI ShellDispatch_BrowseForFolder(IShellDispatch *iface,
LONG Hwnd, BSTR Title, LONG Options, VARIANT RootFolder, Folder **ppsdf)
{
FIXME("(%p,%x,%s,%x,%p)\n", iface, Hwnd, debugstr_w(Title), Options, ppsdf);
*ppsdf = NULL;
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_Windows(IShellDispatch *iface,
IDispatch **ppid)
{
FIXME("(%p,%p)\n", iface, ppid);
*ppid = NULL;
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_Open(IShellDispatch *iface, VARIANT vDir)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_Explore(IShellDispatch *iface, VARIANT vDir)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_MinimizeAll(IShellDispatch *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_UndoMinimizeALL(IShellDispatch *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_FileRun(IShellDispatch *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_CascadeWindows(IShellDispatch *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_TileVertically(IShellDispatch *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_TileHorizontally(IShellDispatch *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_ShutdownWindows(IShellDispatch *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_Suspend(IShellDispatch *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_EjectPC(IShellDispatch *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_SetTime(IShellDispatch *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_TrayProperties(IShellDispatch *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_Help(IShellDispatch *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_FindFiles(IShellDispatch *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_FindComputer(IShellDispatch *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_RefreshMenu(IShellDispatch *iface)
{
FIXME("(%p)\n", iface);
return E_NOTIMPL;
}
static HRESULT WINAPI ShellDispatch_ControlPanelItem(IShellDispatch *iface,
BSTR szDir)
{
FIXME("(%p,%s)\n", iface, debugstr_w(szDir));
return E_NOTIMPL;
}
static const IShellDispatchVtbl ShellDispatch_Vtbl = {
ShellDispatch_QueryInterface,
ShellDispatch_AddRef,
ShellDispatch_Release,
ShellDispatch_GetTypeInfoCount,
ShellDispatch_GetTypeInfo,
ShellDispatch_GetIDsOfNames,
ShellDispatch_Invoke,
ShellDispatch_get_Application,
ShellDispatch_get_Parent,
ShellDispatch_NameSpace,
ShellDispatch_BrowseForFolder,
ShellDispatch_Windows,
ShellDispatch_Open,
ShellDispatch_Explore,
ShellDispatch_MinimizeAll,
ShellDispatch_UndoMinimizeALL,
ShellDispatch_FileRun,
ShellDispatch_CascadeWindows,
ShellDispatch_TileVertically,
ShellDispatch_TileHorizontally,
ShellDispatch_ShutdownWindows,
ShellDispatch_Suspend,
ShellDispatch_EjectPC,
ShellDispatch_SetTime,
ShellDispatch_TrayProperties,
ShellDispatch_Help,
ShellDispatch_FindFiles,
ShellDispatch_FindComputer,
ShellDispatch_RefreshMenu,
ShellDispatch_ControlPanelItem
};
HRESULT WINAPI IShellDispatch_Constructor(IUnknown *pUnkOuter, REFIID riid,
LPVOID *ppv)
{
ShellDispatch *This;
HRESULT ret;
TRACE("(%p,%s)\n", pUnkOuter, debugstr_guid(riid));
*ppv = NULL;
if (pUnkOuter) return CLASS_E_NOAGGREGATION;
This = HeapAlloc(GetProcessHeap(), 0, sizeof(ShellDispatch));
if (!This) return E_OUTOFMEMORY;
This->IShellDispatch_iface.lpVtbl = &ShellDispatch_Vtbl;
This->ref = 1;
ret = load_type_info(&IID_IShellDispatch, &This->iTypeInfo);
if (FAILED(ret))
{
HeapFree(GetProcessHeap(), 0, This);
return ret;
}
ret = ShellDispatch_QueryInterface(&This->IShellDispatch_iface, riid, ppv);
ShellDispatch_Release(&This->IShellDispatch_iface);
return ret;
}