intshcut.c File Reference

#include <stdio.h>
#include "ieframe.h"
#include "shlobj.h"
#include "shobjidl.h"
#include "intshcut.h"
#include "shellapi.h"
#include "winreg.h"
#include "shlwapi.h"
#include "shlguid.h"
#include "wine/debug.h"

Include dependency graph for intshcut.c:

Go to the source code of this file.

Classes
struct	InternetShortcut

Macros
#define	NONAMELESSUNION

Functions
	WINE_DEFAULT_DEBUG_CHANNEL (ieframe)
static InternetShortcut *	impl_from_IUniformResourceLocatorA (IUniformResourceLocatorA *iface)
static InternetShortcut *	impl_from_IUniformResourceLocatorW (IUniformResourceLocatorW *iface)
static InternetShortcut *	impl_from_IPersistFile (IPersistFile *iface)
static InternetShortcut *	impl_from_IPropertySetStorage (IPropertySetStorage *iface)
static BOOL	run_winemenubuilder (const WCHAR *args)
static BOOL	StartLinkProcessor (LPCOLESTR szLink)
static HRESULT	Unknown_QueryInterface (InternetShortcut *This, REFIID riid, PVOID *ppvObject)
static ULONG	Unknown_AddRef (InternetShortcut *This)
static ULONG	Unknown_Release (InternetShortcut *This)
static HRESULT WINAPI	UniformResourceLocatorW_QueryInterface (IUniformResourceLocatorW *url, REFIID riid, PVOID *ppvObject)
static ULONG WINAPI	UniformResourceLocatorW_AddRef (IUniformResourceLocatorW *url)
static ULONG WINAPI	UniformResourceLocatorW_Release (IUniformResourceLocatorW *url)
static HRESULT WINAPI	UniformResourceLocatorW_SetUrl (IUniformResourceLocatorW *url, LPCWSTR pcszURL, DWORD dwInFlags)
static HRESULT WINAPI	UniformResourceLocatorW_GetUrl (IUniformResourceLocatorW *url, LPWSTR *ppszURL)
static HRESULT WINAPI	UniformResourceLocatorW_InvokeCommand (IUniformResourceLocatorW *url, PURLINVOKECOMMANDINFOW pCommandInfo)
static HRESULT WINAPI	UniformResourceLocatorA_QueryInterface (IUniformResourceLocatorA *url, REFIID riid, PVOID *ppvObject)
static ULONG WINAPI	UniformResourceLocatorA_AddRef (IUniformResourceLocatorA *url)
static ULONG WINAPI	UniformResourceLocatorA_Release (IUniformResourceLocatorA *url)
static HRESULT WINAPI	UniformResourceLocatorA_SetUrl (IUniformResourceLocatorA *url, LPCSTR pcszURL, DWORD dwInFlags)
static HRESULT WINAPI	UniformResourceLocatorA_GetUrl (IUniformResourceLocatorA *url, LPSTR *ppszURL)
static HRESULT WINAPI	UniformResourceLocatorA_InvokeCommand (IUniformResourceLocatorA *url, PURLINVOKECOMMANDINFOA pCommandInfo)
static HRESULT WINAPI	PersistFile_QueryInterface (IPersistFile *pFile, REFIID riid, PVOID *ppvObject)
static ULONG WINAPI	PersistFile_AddRef (IPersistFile *pFile)
static ULONG WINAPI	PersistFile_Release (IPersistFile *pFile)
static HRESULT WINAPI	PersistFile_GetClassID (IPersistFile *pFile, CLSID *pClassID)
static HRESULT WINAPI	PersistFile_IsDirty (IPersistFile *pFile)
static HRESULT	get_profile_string (LPCWSTR lpAppName, LPCWSTR lpKeyName, LPCWSTR lpFileName, WCHAR **rString)
static HRESULT WINAPI	PersistFile_Load (IPersistFile *pFile, LPCOLESTR pszFileName, DWORD dwMode)
static HRESULT WINAPI	PersistFile_Save (IPersistFile *pFile, LPCOLESTR pszFileName, BOOL fRemember)
static HRESULT WINAPI	PersistFile_SaveCompleted (IPersistFile *pFile, LPCOLESTR pszFileName)
static HRESULT WINAPI	PersistFile_GetCurFile (IPersistFile *pFile, LPOLESTR *ppszFileName)
static HRESULT WINAPI	PropertySetStorage_QueryInterface (IPropertySetStorage *iface, REFIID riid, PVOID *ppvObject)
static ULONG WINAPI	PropertySetStorage_AddRef (IPropertySetStorage *iface)
static ULONG WINAPI	PropertySetStorage_Release (IPropertySetStorage *iface)
static HRESULT WINAPI	PropertySetStorage_Create (IPropertySetStorage *iface, REFFMTID rfmtid, const CLSID *pclsid, DWORD grfFlags, DWORD grfMode, IPropertyStorage **ppprstg)
static HRESULT WINAPI	PropertySetStorage_Open (IPropertySetStorage *iface, REFFMTID rfmtid, DWORD grfMode, IPropertyStorage **ppprstg)
static HRESULT WINAPI	PropertySetStorage_Delete (IPropertySetStorage *iface, REFFMTID rfmtid)
static HRESULT WINAPI	PropertySetStorage_Enum (IPropertySetStorage *iface, IEnumSTATPROPSETSTG **ppenum)
static InternetShortcut *	create_shortcut (void)
HRESULT WINAPI	InternetShortcut_Create (IClassFactory *iface, IUnknown *outer, REFIID riid, void **ppv)
void WINAPI	OpenURL (HWND hWnd, HINSTANCE hInst, LPCSTR lpcstrUrl, int nShowCmd)

Variables
static const IUniformResourceLocatorWVtbl	uniformResourceLocatorWVtbl
static const IUniformResourceLocatorAVtbl	uniformResourceLocatorAVtbl
static const IPersistFileVtbl	persistFileVtbl
static const IPropertySetStorageVtbl	propertySetStorageVtbl

Macro Definition Documentation

NONAMELESSUNION

#define NONAMELESSUNION

Definition at line 32 of file intshcut.c.

Function Documentation

create_shortcut()

static InternetShortcut * create_shortcut ( void  )

static

Definition at line 786 of file intshcut.c.

{
    InternetShortcut *newshortcut;
 
    newshortcut = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(InternetShortcut));
    if (newshortcut)
    {
        HRESULT hr;
        IPropertyStorage *dummy;
 
        newshortcut->IUniformResourceLocatorA_iface.lpVtbl = &uniformResourceLocatorAVtbl;
        newshortcut->IUniformResourceLocatorW_iface.lpVtbl = &uniformResourceLocatorWVtbl;
        newshortcut->IPersistFile_iface.lpVtbl = &persistFileVtbl;
        newshortcut->IPropertySetStorage_iface.lpVtbl = &propertySetStorageVtbl;
        newshortcut->refCount = 1;
        hr = StgCreateStorageEx(NULL, STGM_CREATE | STGM_READWRITE | STGM_SHARE_EXCLUSIVE | STGM_DELETEONRELEASE,
                                STGFMT_STORAGE, 0, NULL, NULL, &IID_IPropertySetStorage, (void **) &newshortcut->property_set_storage);
        if (FAILED(hr))
        {
            TRACE("Failed to create the storage object needed for the shortcut.\n");
            heap_free(newshortcut);
            return NULL;
        }
 
        hr = IPropertySetStorage_Create(newshortcut->property_set_storage, &FMTID_Intshcut, NULL, PROPSETFLAG_DEFAULT, STGM_CREATE | STGM_READWRITE | STGM_SHARE_EXCLUSIVE, &dummy);
        if (FAILED(hr))
        {
            TRACE("Failed to create the property object needed for the shortcut.\n");
            IPropertySetStorage_Release(newshortcut->property_set_storage);
            heap_free(newshortcut);
            return NULL;
        }
        IPropertyStorage_Release(dummy);
    }
 
    return newshortcut;
}

Referenced by InternetShortcut_Create(), and OpenURL().

get_profile_string()

static HRESULT get_profile_string ( LPCWSTR  lpAppName, LPCWSTR  lpKeyName, LPCWSTR  lpFileName, WCHAR **  rString  )

static

Definition at line 424 of file intshcut.c.

{
    DWORD r = 0;
    DWORD len = 128;
    WCHAR *buffer;
 
    *rString = NULL;
    buffer = CoTaskMemAlloc(len * sizeof(*buffer));
    if (!buffer)
        return E_OUTOFMEMORY;
 
    r = GetPrivateProfileStringW(lpAppName, lpKeyName, NULL, buffer, len, lpFileName);
    while (r == len-1)
    {
        WCHAR *realloc_buf;
 
        len *= 2;
        realloc_buf = CoTaskMemRealloc(buffer, len * sizeof(*buffer));
        if (realloc_buf == NULL)
        {
            CoTaskMemFree(buffer);
            return E_OUTOFMEMORY;
        }
        buffer = realloc_buf;
 
        r = GetPrivateProfileStringW(lpAppName, lpKeyName, NULL, buffer, len, lpFileName);
    }
 
    *rString = buffer;
    return r ? S_OK : E_FAIL;
}

Referenced by PersistFile_Load().

impl_from_IPersistFile()

static InternetShortcut * impl_from_IPersistFile ( IPersistFile *  iface )

inlinestatic

Definition at line 75 of file intshcut.c.

{
    return CONTAINING_RECORD(iface, InternetShortcut, IPersistFile_iface);
}

Referenced by PersistFile_AddRef(), PersistFile_GetCurFile(), PersistFile_IsDirty(), PersistFile_Load(), PersistFile_QueryInterface(), PersistFile_Release(), and PersistFile_Save().

impl_from_IPropertySetStorage()

static InternetShortcut * impl_from_IPropertySetStorage ( IPropertySetStorage *  iface )

inlinestatic

Definition at line 80 of file intshcut.c.

{
    return CONTAINING_RECORD(iface, InternetShortcut, IPropertySetStorage_iface);
}

Referenced by PropertySetStorage_AddRef(), PropertySetStorage_Create(), PropertySetStorage_Delete(), PropertySetStorage_Open(), PropertySetStorage_QueryInterface(), and PropertySetStorage_Release().

impl_from_IUniformResourceLocatorA()

static InternetShortcut * impl_from_IUniformResourceLocatorA ( IUniformResourceLocatorA *  iface )

inlinestatic

Definition at line 65 of file intshcut.c.

{
    return CONTAINING_RECORD(iface, InternetShortcut, IUniformResourceLocatorA_iface);
}

Referenced by UniformResourceLocatorA_AddRef(), UniformResourceLocatorA_GetUrl(), UniformResourceLocatorA_InvokeCommand(), UniformResourceLocatorA_QueryInterface(), UniformResourceLocatorA_Release(), and UniformResourceLocatorA_SetUrl().

impl_from_IUniformResourceLocatorW()

static InternetShortcut * impl_from_IUniformResourceLocatorW ( IUniformResourceLocatorW *  iface )

inlinestatic

Definition at line 70 of file intshcut.c.

{
    return CONTAINING_RECORD(iface, InternetShortcut, IUniformResourceLocatorW_iface);
}

Referenced by UniformResourceLocatorW_AddRef(), UniformResourceLocatorW_GetUrl(), UniformResourceLocatorW_InvokeCommand(), UniformResourceLocatorW_QueryInterface(), UniformResourceLocatorW_Release(), and UniformResourceLocatorW_SetUrl().

InternetShortcut_Create()

HRESULT WINAPI InternetShortcut_Create	(	IClassFactory *	iface,
		IUnknown *	outer,
		REFIID	riid,
		void **	ppv
	)

Definition at line 824 of file intshcut.c.

{
    InternetShortcut *This;
    HRESULT hres;
 
    TRACE("(%p, %s, %p)\n", outer, debugstr_guid(riid), ppv);
 
    *ppv = NULL;
 
    if(outer)
        return CLASS_E_NOAGGREGATION;
 
    This = create_shortcut();
    if(!This)
        return E_OUTOFMEMORY;
 
    hres = Unknown_QueryInterface(This, riid, ppv);
    Unknown_Release(This);
    return hres;
}

OpenURL()

void WINAPI OpenURL	(	HWND	hWnd,
		HINSTANCE	hInst,
		LPCSTR	lpcstrUrl,
		int	nShowCmd
	)

Definition at line 849 of file intshcut.c.

{
    InternetShortcut *shortcut;
    WCHAR* urlfilepath = NULL;
    int len;
 
    shortcut = create_shortcut();
 
    if(!shortcut)
        return;
 
    len = MultiByteToWideChar(CP_ACP, 0, lpcstrUrl, -1, NULL, 0);
    urlfilepath = heap_alloc(len * sizeof(WCHAR));
    MultiByteToWideChar(CP_ACP, 0, lpcstrUrl, -1, urlfilepath, len);
 
    if(SUCCEEDED(IPersistFile_Load(&shortcut->IPersistFile_iface, urlfilepath, 0))) {
        URLINVOKECOMMANDINFOW ici;
 
        memset( &ici, 0, sizeof ici );
        ici.dwcbSize = sizeof ici;
        ici.dwFlags = IURL_INVOKECOMMAND_FL_USE_DEFAULT_VERB;
        ici.hwndParent = hWnd;
 
        if(FAILED(UniformResourceLocatorW_InvokeCommand(&shortcut->IUniformResourceLocatorW_iface, (PURLINVOKECOMMANDINFOW) &ici)))
            TRACE("failed to open URL: %s\n", debugstr_a(lpcstrUrl));
    }
 
    heap_free(urlfilepath);
    Unknown_Release(shortcut);
}

PersistFile_AddRef()

static ULONG WINAPI PersistFile_AddRef ( IPersistFile *  pFile )

static

Definition at line 395 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IPersistFile(pFile);
    TRACE("(%p)\n", pFile);
    return Unknown_AddRef(This);
}

PersistFile_GetClassID()

static HRESULT WINAPI PersistFile_GetClassID ( IPersistFile *  pFile, CLSID *  pClassID  )

static

Definition at line 409 of file intshcut.c.

{
    TRACE("(%p, %p)\n", pFile, pClassID);
    *pClassID = CLSID_InternetShortcut;
    return S_OK;
}

PersistFile_GetCurFile()

static HRESULT WINAPI PersistFile_GetCurFile ( IPersistFile *  pFile, LPOLESTR *  ppszFileName  )

static

Definition at line 658 of file intshcut.c.

{
    HRESULT hr = S_OK;
    InternetShortcut *This = impl_from_IPersistFile(pFile);
    TRACE("(%p, %p)\n", pFile, ppszFileName);
    if (This->currentFile == NULL)
        *ppszFileName = NULL;
    else
    {
        *ppszFileName = co_strdupW(This->currentFile);
        if (*ppszFileName == NULL)
            hr = E_OUTOFMEMORY;
    }
    return hr;
}

PersistFile_IsDirty()

static HRESULT WINAPI PersistFile_IsDirty ( IPersistFile *  pFile )

static

Definition at line 416 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IPersistFile(pFile);
    TRACE("(%p)\n", pFile);
    return This->isDirty ? S_OK : S_FALSE;
}

PersistFile_Load()

static HRESULT WINAPI PersistFile_Load ( IPersistFile *  pFile, LPCOLESTR  pszFileName, DWORD  dwMode  )

static

Definition at line 457 of file intshcut.c.

{
    static const WCHAR str_header[] = {'I','n','t','e','r','n','e','t','S','h','o','r','t','c','u','t',0};
    static const WCHAR str_URL[] = {'U','R','L',0};
    static const WCHAR str_iconfile[] = {'i','c','o','n','f','i','l','e',0};
    static const WCHAR str_iconindex[] = {'i','c','o','n','i','n','d','e','x',0};
    InternetShortcut *This = impl_from_IPersistFile(pFile);
    WCHAR *filename = NULL;
    WCHAR *url;
    HRESULT hr;
    IPropertyStorage *pPropStg;
    WCHAR *iconfile;
    WCHAR *iconindexstring;
 
    TRACE("(%p, %s, 0x%x)\n", pFile, debugstr_w(pszFileName), dwMode);
 
    if (dwMode != 0)
        FIXME("ignoring unimplemented mode 0x%x\n", dwMode);
 
    filename = co_strdupW(pszFileName);
    if (!filename)
        return E_OUTOFMEMORY;
 
    if (FAILED(hr = get_profile_string(str_header, str_URL, pszFileName, &url)))
    {
        CoTaskMemFree(filename);
        return hr;
    }
 
    hr = IPropertySetStorage_Open(This->property_set_storage, &FMTID_Intshcut,
                STGM_READWRITE | STGM_SHARE_EXCLUSIVE, &pPropStg);
    if (FAILED(hr))
    {
        CoTaskMemFree(filename);
        CoTaskMemFree(url);
        return hr;
    }
 
    CoTaskMemFree(This->currentFile);
    This->currentFile = filename;
    CoTaskMemFree(This->url);
    This->url = url;
    This->isDirty = FALSE;
 
    /* Now we're going to read in the iconfile and iconindex.
       If we don't find them, that's not a failure case -- it's possible
       that they just aren't in there. */
 
    if (get_profile_string(str_header, str_iconfile, pszFileName, &iconfile) == S_OK)
    {
        PROPSPEC ps;
        PROPVARIANT pv;
        ps.ulKind = PRSPEC_PROPID;
        ps.u.propid = PID_IS_ICONFILE;
        pv.vt = VT_LPWSTR;
        pv.u.pwszVal = iconfile;
        hr = IPropertyStorage_WriteMultiple(pPropStg, 1, &ps, &pv, 0);
        if (FAILED(hr))
            TRACE("Failed to store the iconfile to our property storage.  hr = 0x%x\n", hr);
    }
    CoTaskMemFree(iconfile);
 
    if (get_profile_string(str_header, str_iconindex, pszFileName, &iconindexstring) == S_OK)
    {
        int iconindex;
        PROPSPEC ps;
        PROPVARIANT pv;
        iconindex = wcstol(iconindexstring, NULL, 10);
        ps.ulKind = PRSPEC_PROPID;
        ps.u.propid = PID_IS_ICONINDEX;
        pv.vt = VT_I4;
        pv.u.iVal = iconindex;
        hr = IPropertyStorage_WriteMultiple(pPropStg, 1, &ps, &pv, 0);
        if (FAILED(hr))
           TRACE("Failed to store the iconindex to our property storage.  hr = 0x%x\n", hr);
    }
    CoTaskMemFree(iconindexstring);
 
    IPropertyStorage_Release(pPropStg);
    return hr;
}

PersistFile_QueryInterface()

static HRESULT WINAPI PersistFile_QueryInterface ( IPersistFile *  pFile, REFIID  riid, PVOID *  ppvObject  )

static

Definition at line 388 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IPersistFile(pFile);
    TRACE("(%p, %s, %p)\n", pFile, debugstr_guid(riid), ppvObject);
    return Unknown_QueryInterface(This, riid, ppvObject);
}

PersistFile_Release()

static ULONG WINAPI PersistFile_Release ( IPersistFile *  pFile )

static

Definition at line 402 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IPersistFile(pFile);
    TRACE("(%p)\n", pFile);
    return Unknown_Release(This);
}

PersistFile_Save()

static HRESULT WINAPI PersistFile_Save ( IPersistFile *  pFile, LPCOLESTR  pszFileName, BOOL  fRemember  )

static

Definition at line 539 of file intshcut.c.

{
    HRESULT hr = S_OK;
    INT len;
    CHAR *url;
    InternetShortcut *This = impl_from_IPersistFile(pFile);
 
    TRACE("(%p, %s, %d)\n", pFile, debugstr_w(pszFileName), fRemember);
 
    if (pszFileName != NULL && fRemember)
    {
        LPOLESTR oldFile = This->currentFile;
        This->currentFile = co_strdupW(pszFileName);
        if (This->currentFile == NULL)
        {
            This->currentFile = oldFile;
            return E_OUTOFMEMORY;
        }
        CoTaskMemFree(oldFile);
    }
    if (This->url == NULL)
        return E_FAIL;
 
    /* Windows seems to always write:
     *   ASCII "[InternetShortcut]" headers
     *   ASCII names in "name=value" pairs
     *   An ASCII (probably UTF8?) value in "URL=..."
     */
    len = WideCharToMultiByte(CP_UTF8, 0, This->url, -1, NULL, 0, 0, 0);
    url = heap_alloc(len);
    if (url != NULL)
    {
        HANDLE file;
        WideCharToMultiByte(CP_UTF8, 0, This->url, -1, url, len, 0, 0);
        file = CreateFileW(pszFileName, GENERIC_WRITE, FILE_SHARE_READ, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
        if (file != INVALID_HANDLE_VALUE)
        {
            static const char str_header[] = "[InternetShortcut]";
            static const char str_URL[] = "URL=";
            static const char str_ICONFILE[] = "ICONFILE=";
            static const char str_eol[] = "\r\n";
            DWORD bytesWritten;
            char *iconfile;
            IPropertyStorage *pPropStgRead;
            PROPSPEC ps[2];
            PROPVARIANT pvread[2];
            ps[0].ulKind = PRSPEC_PROPID;
            ps[0].u.propid = PID_IS_ICONFILE;
            ps[1].ulKind = PRSPEC_PROPID;
            ps[1].u.propid = PID_IS_ICONINDEX;
 
            WriteFile(file, str_header, ARRAY_SIZE(str_header) - 1, &bytesWritten, NULL);
            WriteFile(file, str_eol, ARRAY_SIZE(str_eol) - 1, &bytesWritten, NULL);
            WriteFile(file, str_URL, ARRAY_SIZE(str_URL) - 1, &bytesWritten, NULL);
            WriteFile(file, url, lstrlenA(url), &bytesWritten, NULL);
            WriteFile(file, str_eol, ARRAY_SIZE(str_eol) - 1, &bytesWritten, NULL);
 
            hr = IPropertySetStorage_Open(This->property_set_storage, &FMTID_Intshcut, STGM_READ|STGM_SHARE_EXCLUSIVE, &pPropStgRead);
            if (SUCCEEDED(hr))
            {
                hr = IPropertyStorage_ReadMultiple(pPropStgRead, 2, ps, pvread);
                if (hr == S_FALSE)
                {
                    /* None of the properties are present, that's ok */
                    hr = S_OK;
                    IPropertyStorage_Release(pPropStgRead);
                }
                else if (SUCCEEDED(hr))
                {
                    char indexString[50];
                    len = WideCharToMultiByte(CP_UTF8, 0, pvread[0].u.pwszVal, -1, NULL, 0, 0, 0);
                    iconfile = heap_alloc(len);
                    if (iconfile != NULL)
                    {
                        WideCharToMultiByte(CP_UTF8, 0, pvread[0].u.pwszVal, -1, iconfile, len, 0, 0);
                        WriteFile(file, str_ICONFILE, lstrlenA(str_ICONFILE), &bytesWritten, NULL);
                        WriteFile(file, iconfile, lstrlenA(iconfile), &bytesWritten, NULL);
                        WriteFile(file, str_eol, lstrlenA(str_eol), &bytesWritten, NULL);
                    }
 
                    sprintf(indexString, "ICONINDEX=%d", pvread[1].u.iVal);
                    WriteFile(file, indexString, lstrlenA(indexString), &bytesWritten, NULL);
                    WriteFile(file, str_eol, lstrlenA(str_eol), &bytesWritten, NULL);
 
                    IPropertyStorage_Release(pPropStgRead);
                    PropVariantClear(&pvread[0]);
                    PropVariantClear(&pvread[1]);
                }
                else
                {
                    TRACE("Unable to read properties.\n");
                }
            }
            else
            {
               TRACE("Unable to get the IPropertyStorage.\n");
            }
 
            CloseHandle(file);
            if (pszFileName == NULL || fRemember)
                This->isDirty = FALSE;
            StartLinkProcessor(pszFileName);
        }
        else
            hr = E_FAIL;
        heap_free(url);
    }
    else
        hr = E_OUTOFMEMORY;
 
    return hr;
}

PersistFile_SaveCompleted()

static HRESULT WINAPI PersistFile_SaveCompleted ( IPersistFile *  pFile, LPCOLESTR  pszFileName  )

static

Definition at line 652 of file intshcut.c.

{
    FIXME("(%p, %p): stub\n", pFile, pszFileName);
    return E_NOTIMPL;
}

PropertySetStorage_AddRef()

static ULONG WINAPI PropertySetStorage_AddRef ( IPropertySetStorage *  iface )

static

Definition at line 681 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IPropertySetStorage(iface);
    TRACE("(%p)\n", iface);
    return Unknown_AddRef(This);
}

PropertySetStorage_Create()

static HRESULT WINAPI PropertySetStorage_Create ( IPropertySetStorage *  iface, REFFMTID  rfmtid, const CLSID *  pclsid, DWORD  grfFlags, DWORD  grfMode, IPropertyStorage **  ppprstg  )

static

Definition at line 695 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IPropertySetStorage(iface);
    TRACE("(%s, %p, 0x%x, 0x%x, %p)\n", debugstr_guid(rfmtid), pclsid, grfFlags, grfMode, ppprstg);
 
    return IPropertySetStorage_Create(This->property_set_storage,
                                      rfmtid,
                                      pclsid,
                                      grfFlags,
                                      grfMode,
                                      ppprstg);
}

PropertySetStorage_Delete()

static HRESULT WINAPI PropertySetStorage_Delete ( IPropertySetStorage *  iface, REFFMTID  rfmtid  )

static

Definition at line 730 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IPropertySetStorage(iface);
    TRACE("(%s)\n", debugstr_guid(rfmtid));
 
 
    return IPropertySetStorage_Delete(This->property_set_storage,
                                      rfmtid);
}

PropertySetStorage_Enum()

static HRESULT WINAPI PropertySetStorage_Enum ( IPropertySetStorage *  iface, IEnumSTATPROPSETSTG **  ppenum  )

static

Definition at line 740 of file intshcut.c.

{
    FIXME("(%p): stub\n", ppenum);
    return E_NOTIMPL;
}

PropertySetStorage_Open()

static HRESULT WINAPI PropertySetStorage_Open ( IPropertySetStorage *  iface, REFFMTID  rfmtid, DWORD  grfMode, IPropertyStorage **  ppprstg  )

static

Definition at line 714 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IPropertySetStorage(iface);
    TRACE("(%s, 0x%x, %p)\n", debugstr_guid(rfmtid), grfMode, ppprstg);
 
    /* Note:  The |STGM_SHARE_EXCLUSIVE is to cope with a bug in the implementation.  Should be fixed in ole32. */
    return IPropertySetStorage_Open(This->property_set_storage,
                                    rfmtid,
                                    grfMode|STGM_SHARE_EXCLUSIVE,
                                    ppprstg);
}

PropertySetStorage_QueryInterface()

static HRESULT WINAPI PropertySetStorage_QueryInterface ( IPropertySetStorage *  iface, REFIID  riid, PVOID *  ppvObject  )

static

Definition at line 674 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IPropertySetStorage(iface);
    TRACE("(%p)\n", iface);
    return Unknown_QueryInterface(This, riid, ppvObject);
}

PropertySetStorage_Release()

static ULONG WINAPI PropertySetStorage_Release ( IPropertySetStorage *  iface )

static

Definition at line 688 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IPropertySetStorage(iface);
    TRACE("(%p)\n", iface);
    return Unknown_Release(This);
}

run_winemenubuilder()

static BOOL run_winemenubuilder ( const WCHAR *  args )

static

Definition at line 85 of file intshcut.c.

{
    static const WCHAR menubuilder[] = {'\\','w','i','n','e','m','e','n','u','b','u','i','l','d','e','r','.','e','x','e',0};
    LONG len;
    LPWSTR buffer;
    STARTUPINFOW si;
    PROCESS_INFORMATION pi;
    BOOL ret;
    WCHAR app[MAX_PATH];
    void *redir;
 
    GetSystemDirectoryW( app, MAX_PATH - ARRAY_SIZE( menubuilder ));
    lstrcatW( app, menubuilder );
 
    len = (lstrlenW( app ) + lstrlenW( args ) + 1) * sizeof(WCHAR);
    buffer = heap_alloc( len );
    if( !buffer )
        return FALSE;
 
    lstrcpyW( buffer, app );
    lstrcatW( buffer, args );
 
    TRACE("starting %s\n",debugstr_w(buffer));
 
    memset(&si, 0, sizeof(si));
    si.cb = sizeof(si);
 
    Wow64DisableWow64FsRedirection( &redir );
    ret = CreateProcessW( app, buffer, NULL, NULL, FALSE, DETACHED_PROCESS, NULL, NULL, &si, &pi );
    Wow64RevertWow64FsRedirection( redir );
 
    heap_free( buffer );
 
    if (ret)
    {
        CloseHandle( pi.hProcess );
        CloseHandle( pi.hThread );
    }
 
    return ret;
}

Referenced by StartLinkProcessor().

StartLinkProcessor()

static BOOL StartLinkProcessor ( LPCOLESTR  szLink )

static

Definition at line 127 of file intshcut.c.

{
    static const WCHAR szFormat[] = { ' ','-','w',' ','-','u',' ','"','%','s','"',0 };
    LONG len;
    LPWSTR buffer;
    BOOL ret;
 
    len = sizeof(szFormat) + lstrlenW( szLink ) * sizeof(WCHAR);
    buffer = heap_alloc( len );
    if( !buffer )
        return FALSE;
 
    swprintf( buffer, szFormat, szLink );
    ret = run_winemenubuilder( buffer );
    heap_free( buffer );
    return ret;
}

Referenced by PersistFile_Save().

UniformResourceLocatorA_AddRef()

static ULONG WINAPI UniformResourceLocatorA_AddRef ( IUniformResourceLocatorA *  url )

static

Definition at line 312 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IUniformResourceLocatorA(url);
    TRACE("(%p)\n", url);
    return Unknown_AddRef(This);
}

UniformResourceLocatorA_GetUrl()

static HRESULT WINAPI UniformResourceLocatorA_GetUrl ( IUniformResourceLocatorA *  url, LPSTR *  ppszURL  )

static

Definition at line 345 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IUniformResourceLocatorA(url);
 
    TRACE("(%p, %p)\n", url, ppszURL);
 
    if (!This->url) {
        *ppszURL = NULL;
        return S_FALSE;
 
    }
 
    *ppszURL = co_strdupWtoA(This->url);
    if (!*ppszURL)
        return E_OUTOFMEMORY;
 
    return S_OK;
}

UniformResourceLocatorA_InvokeCommand()

static HRESULT WINAPI UniformResourceLocatorA_InvokeCommand ( IUniformResourceLocatorA *  url, PURLINVOKECOMMANDINFOA  pCommandInfo  )

static

Definition at line 364 of file intshcut.c.

{
    URLINVOKECOMMANDINFOW wideCommandInfo;
    int len;
    WCHAR *wideVerb;
    HRESULT res;
    InternetShortcut *This = impl_from_IUniformResourceLocatorA(url);
 
    wideCommandInfo.dwcbSize = sizeof wideCommandInfo;
    wideCommandInfo.dwFlags = pCommandInfo->dwFlags;
    wideCommandInfo.hwndParent = pCommandInfo->hwndParent;
 
    len = MultiByteToWideChar(CP_ACP, 0, pCommandInfo->pcszVerb, -1, NULL, 0);
    wideVerb = heap_alloc(len * sizeof(WCHAR));
    MultiByteToWideChar(CP_ACP, 0, pCommandInfo->pcszVerb, -1, wideVerb, len);
 
    wideCommandInfo.pcszVerb = wideVerb;
 
    res = UniformResourceLocatorW_InvokeCommand(&This->IUniformResourceLocatorW_iface, &wideCommandInfo);
    heap_free(wideVerb);
 
    return res;
}

UniformResourceLocatorA_QueryInterface()

static HRESULT WINAPI UniformResourceLocatorA_QueryInterface ( IUniformResourceLocatorA *  url, REFIID  riid, PVOID *  ppvObject  )

static

Definition at line 305 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IUniformResourceLocatorA(url);
    TRACE("(%p, %s, %p)\n", url, debugstr_guid(riid), ppvObject);
    return Unknown_QueryInterface(This, riid, ppvObject);
}

UniformResourceLocatorA_Release()

static ULONG WINAPI UniformResourceLocatorA_Release ( IUniformResourceLocatorA *  url )

static

Definition at line 319 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IUniformResourceLocatorA(url);
    TRACE("(%p)\n", url);
    return Unknown_Release(This);
}

UniformResourceLocatorA_SetUrl()

static HRESULT WINAPI UniformResourceLocatorA_SetUrl ( IUniformResourceLocatorA *  url, LPCSTR  pcszURL, DWORD  dwInFlags  )

static

Definition at line 326 of file intshcut.c.

{
    WCHAR *newURL = NULL;
    InternetShortcut *This = impl_from_IUniformResourceLocatorA(url);
    TRACE("(%p, %s, 0x%x)\n", url, debugstr_a(pcszURL), dwInFlags);
    if (dwInFlags != 0)
        FIXME("ignoring unsupported flags 0x%x\n", dwInFlags);
    if (pcszURL != NULL)
    {
        newURL = co_strdupAtoW(pcszURL);
        if (newURL == NULL)
            return E_OUTOFMEMORY;
    }
    CoTaskMemFree(This->url);
    This->url = newURL;
    This->isDirty = TRUE;
    return S_OK;
}

UniformResourceLocatorW_AddRef()

static ULONG WINAPI UniformResourceLocatorW_AddRef ( IUniformResourceLocatorW *  url )

static

Definition at line 209 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IUniformResourceLocatorW(url);
    TRACE("(%p)\n", url);
    return Unknown_AddRef(This);
}

UniformResourceLocatorW_GetUrl()

static HRESULT WINAPI UniformResourceLocatorW_GetUrl ( IUniformResourceLocatorW *  url, LPWSTR *  ppszURL  )

static

Definition at line 242 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IUniformResourceLocatorW(url);
 
    TRACE("(%p, %p)\n", url, ppszURL);
 
    if (!This->url) {
        *ppszURL = NULL;
        return S_FALSE;
    }
 
    *ppszURL = co_strdupW(This->url);
    if (!*ppszURL)
        return E_OUTOFMEMORY;
 
    return S_OK;
}

UniformResourceLocatorW_InvokeCommand()

static HRESULT WINAPI UniformResourceLocatorW_InvokeCommand ( IUniformResourceLocatorW *  url, PURLINVOKECOMMANDINFOW  pCommandInfo  )

static

Definition at line 260 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IUniformResourceLocatorW(url);
    WCHAR app[64];
    HKEY hkey;
    static const WCHAR wszURLProtocol[] = {'U','R','L',' ','P','r','o','t','o','c','o','l',0};
    SHELLEXECUTEINFOW sei;
    DWORD res, type;
    HRESULT hres;
 
    TRACE("%p %p\n", This, pCommandInfo );
 
    if (pCommandInfo->dwcbSize < sizeof (URLINVOKECOMMANDINFOW))
        return E_INVALIDARG;
 
    if (pCommandInfo->dwFlags != IURL_INVOKECOMMAND_FL_USE_DEFAULT_VERB)
    {
        FIXME("(%p, %p): non-default verbs not implemented\n", url, pCommandInfo);
        return E_NOTIMPL;
    }
 
    hres = CoInternetParseUrl(This->url, PARSE_SCHEMA, 0, app, ARRAY_SIZE(app), NULL, 0);
    if(FAILED(hres))
        return E_FAIL;
 
    res = RegOpenKeyW(HKEY_CLASSES_ROOT, app, &hkey);
    if(res != ERROR_SUCCESS)
        return E_FAIL;
 
    res = RegQueryValueExW(hkey, wszURLProtocol, NULL, &type, NULL, NULL);
    RegCloseKey(hkey);
    if(res != ERROR_SUCCESS || type != REG_SZ)
        return E_FAIL;
 
    memset(&sei, 0, sizeof(sei));
    sei.cbSize = sizeof(sei);
    sei.lpFile = This->url;
    sei.nShow = SW_SHOW;
 
    if( ShellExecuteExW(&sei) )
        return S_OK;
    else
        return E_FAIL;
}

Referenced by OpenURL(), and UniformResourceLocatorA_InvokeCommand().

UniformResourceLocatorW_QueryInterface()

static HRESULT WINAPI UniformResourceLocatorW_QueryInterface ( IUniformResourceLocatorW *  url, REFIID  riid, PVOID *  ppvObject  )

static

Definition at line 202 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IUniformResourceLocatorW(url);
    TRACE("(%p, %s, %p)\n", url, debugstr_guid(riid), ppvObject);
    return Unknown_QueryInterface(This, riid, ppvObject);
}

UniformResourceLocatorW_Release()

static ULONG WINAPI UniformResourceLocatorW_Release ( IUniformResourceLocatorW *  url )

static

Definition at line 216 of file intshcut.c.

{
    InternetShortcut *This = impl_from_IUniformResourceLocatorW(url);
    TRACE("(%p)\n", url);
    return Unknown_Release(This);
}

UniformResourceLocatorW_SetUrl()

static HRESULT WINAPI UniformResourceLocatorW_SetUrl ( IUniformResourceLocatorW *  url, LPCWSTR  pcszURL, DWORD  dwInFlags  )

static

Definition at line 223 of file intshcut.c.

{
    WCHAR *newURL = NULL;
    InternetShortcut *This = impl_from_IUniformResourceLocatorW(url);
    TRACE("(%p, %s, 0x%x)\n", url, debugstr_w(pcszURL), dwInFlags);
    if (dwInFlags != 0)
        FIXME("ignoring unsupported flags 0x%x\n", dwInFlags);
    if (pcszURL != NULL)
    {
        newURL = co_strdupW(pcszURL);
        if (newURL == NULL)
            return E_OUTOFMEMORY;
    }
    CoTaskMemFree(This->url);
    This->url = newURL;
    This->isDirty = TRUE;
    return S_OK;
}

Unknown_AddRef()

static ULONG Unknown_AddRef ( InternetShortcut *  This )

static

Definition at line 180 of file intshcut.c.

{
    TRACE("(%p)\n", This);
    return InterlockedIncrement(&This->refCount);
}

Referenced by PersistFile_AddRef(), PropertySetStorage_AddRef(), UniformResourceLocatorA_AddRef(), and UniformResourceLocatorW_AddRef().

Unknown_QueryInterface()

static HRESULT Unknown_QueryInterface ( InternetShortcut *  This, REFIID  riid, PVOID *  ppvObject  )

static

Definition at line 147 of file intshcut.c.

{
    TRACE("(%p, %s, %p)\n", This, debugstr_guid(riid), ppvObject);
    *ppvObject = NULL;
    if (IsEqualGUID(&IID_IUnknown, riid))
        *ppvObject = &This->IUniformResourceLocatorA_iface;
    else if (IsEqualGUID(&IID_IUniformResourceLocatorA, riid))
        *ppvObject = &This->IUniformResourceLocatorA_iface;
    else if (IsEqualGUID(&IID_IUniformResourceLocatorW, riid))
        *ppvObject = &This->IUniformResourceLocatorW_iface;
    else if (IsEqualGUID(&IID_IPersistFile, riid))
        *ppvObject = &This->IPersistFile_iface;
    else if (IsEqualGUID(&IID_IPropertySetStorage, riid))
        *ppvObject = &This->IPropertySetStorage_iface;
    else if (IsEqualGUID(&IID_IShellLinkA, riid))
    {
        FIXME("The IShellLinkA interface is not yet supported by InternetShortcut\n");
        return E_NOINTERFACE;
    }
    else if (IsEqualGUID(&IID_IShellLinkW, riid))
    {
        FIXME("The IShellLinkW interface is not yet supported by InternetShortcut\n");
        return E_NOINTERFACE;
    }
    else
    {
        FIXME("Interface with GUID %s not yet implemented by InternetShortcut\n", debugstr_guid(riid));
        return E_NOINTERFACE;
    }
    IUnknown_AddRef((IUnknown*)*ppvObject);
    return S_OK;
}

Referenced by InternetShortcut_Create(), PersistFile_QueryInterface(), PropertySetStorage_QueryInterface(), UniformResourceLocatorA_QueryInterface(), and UniformResourceLocatorW_QueryInterface().

Unknown_Release()

static ULONG Unknown_Release ( InternetShortcut *  This )

static

Definition at line 186 of file intshcut.c.

{
    ULONG count;
    TRACE("(%p)\n", This);
    count = InterlockedDecrement(&This->refCount);
    if (count == 0)
    {
        CoTaskMemFree(This->url);
        CoTaskMemFree(This->currentFile);
        IPropertySetStorage_Release(This->property_set_storage);
        heap_free(This);
        unlock_module();
    }
    return count;
}

Referenced by InternetShortcut_Create(), OpenURL(), PersistFile_Release(), PropertySetStorage_Release(), UniformResourceLocatorA_Release(), and UniformResourceLocatorW_Release().

WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL

(

ieframe

)

Variable Documentation

persistFileVtbl

const IPersistFileVtbl persistFileVtbl

static

Initial value:

= {
    PersistFile_QueryInterface,
    PersistFile_AddRef,
    PersistFile_Release,
    PersistFile_GetClassID,
    PersistFile_IsDirty,
    PersistFile_Load,
    PersistFile_Save,
    PersistFile_SaveCompleted,
    PersistFile_GetCurFile
}

Definition at line 764 of file intshcut.c.

Referenced by create_shortcut().

propertySetStorageVtbl

const IPropertySetStorageVtbl propertySetStorageVtbl

static

Initial value:

= {
    PropertySetStorage_QueryInterface,
    PropertySetStorage_AddRef,
    PropertySetStorage_Release,
    PropertySetStorage_Create,
    PropertySetStorage_Open,
    PropertySetStorage_Delete,
    PropertySetStorage_Enum
}

Definition at line 776 of file intshcut.c.

Referenced by create_shortcut().

uniformResourceLocatorAVtbl

const IUniformResourceLocatorAVtbl uniformResourceLocatorAVtbl

static

Initial value:

= {
    UniformResourceLocatorA_QueryInterface,
    UniformResourceLocatorA_AddRef,
    UniformResourceLocatorA_Release,
    UniformResourceLocatorA_SetUrl,
    UniformResourceLocatorA_GetUrl,
    UniformResourceLocatorA_InvokeCommand
}

Definition at line 755 of file intshcut.c.

Referenced by create_shortcut().

uniformResourceLocatorWVtbl

const IUniformResourceLocatorWVtbl uniformResourceLocatorWVtbl

static

Initial value:

= {
    UniformResourceLocatorW_QueryInterface,
    UniformResourceLocatorW_AddRef,
    UniformResourceLocatorW_Release,
    UniformResourceLocatorW_SetUrl,
    UniformResourceLocatorW_GetUrl,
    UniformResourceLocatorW_InvokeCommand
}

Definition at line 746 of file intshcut.c.

Referenced by create_shortcut().