Changeset 4561 for trunk/src/shell32/shelllink.c

Timestamp:

Nov 6, 2000, 11:20:56 AM (25 years ago)

Author:

sandervl

Message:

merged with latest Wine (11-05-2000)

File:

• trunk/src/shell32/shelllink.c (modified) (17 diffs)

trunk/src/shell32/shelllink.c

@@ -1 @@
-/* $Id: shelllink.c,v 1.1 2000-08-30 13:52:55 sandervl Exp $ */
+/* $Id: shelllink.c,v 1.2 2000-11-06 10:20:56 sandervl Exp $ */
 /*
  *
@@ -12 +12 @@
 
 #include <string.h>
+#include <sys/stat.h>
+#include <stdio.h>
+#ifndef __WIN32OS2__
+#include <unistd.h>
+#endif
+#include <errno.h>
+#ifndef __WIN32OS2__
+#include <sys/wait.h>
+#endif
+
 #include "debugtools.h"
 #include "winerror.h"
-
-#include "wine/obj_base.h"
-#include "wine/obj_storage.h"
-#include "wine/obj_shelllink.h"
+#include "winbase.h"
+#include "winnls.h"
+
+#include "shlobj.h"
+#include "wine/winestring.h"
 #include "wine/undocshell.h"
+#ifndef __WIN32OS2__
+#include "bitmaps/wine.xpm"
+#endif
 
 #include "heap.h"
-#include "winnls.h"
 #include "pidl.h"
 #include "shell32_main.h"
 #include "shlguid.h"
+#include "file.h"
+#include "options.h"
 
 DEFAULT_DEBUG_CHANNEL(shell);
@@ -63 +78 @@
 #define LINK_HEADER_SIZE (sizeof(LINK_HEADER)-sizeof(ITEMIDLIST))
 
+typedef struct
+{
+        BYTE bWidth;
+        BYTE bHeight;
+        BYTE bColorCount;
+        BYTE bReserved;
+        WORD wPlanes;
+        WORD wBitCount;
+        DWORD dwBytesInRes;
+        WORD nID;
+} GRPICONDIRENTRY;
+
+typedef struct
+{
+        WORD idReserved;
+        WORD idType;
+        WORD idCount;
+        GRPICONDIRENTRY idEntries[1];
+} GRPICONDIR;
+
+typedef struct
+{
+        BYTE bWidth;
+        BYTE bHeight;
+        BYTE bColorCount;
+        BYTE bReserved;
+        WORD wPlanes;
+        WORD wBitCount;
+        DWORD dwBytesInRes;
+        DWORD dwImageOffset;
+} ICONDIRENTRY;
+
+typedef struct
+{
+        WORD idReserved;
+        WORD idType;
+        WORD idCount;
+} ICONDIR;
+
+
 #include "poppack.h"
+
 
 static ICOM_VTABLE(IShellLinkA)         slvt;
@@ -92 +148 @@
         SYSTEMTIME      time3;
 
+        LPSTR           sIcoPath;
+        INT             iIcoNdx;
+        LPSTR           sArgs;
+        LPSTR           sWorkDir;
+        LPSTR           sDescription;
 } IShellLinkImpl;
 
@@ -179 +240 @@
 }
 
+
+#ifndef __WIN32OS2__
+/* Icon extraction routines
+ *
+ * FIXME: should use PrivateExtractIcons and friends
+ * FIXME: should not use stdio
+ */
+
+static BOOL SaveIconResAsXPM(const BITMAPINFO *pIcon, const char *szXPMFileName)
+{
+    FILE *fXPMFile;
+    int nHeight;
+    int nXORWidthBytes;
+    int nANDWidthBytes;
+    BOOL b8BitColors;
+    int nColors;
+    BYTE *pXOR;
+    BYTE *pAND;
+    BOOL aColorUsed[256] = {0};
+    int nColorsUsed = 0;
+    int i,j;
+
+    if (!((pIcon->bmiHeader.biBitCount == 4) || (pIcon->bmiHeader.biBitCount == 8)))
+        return 0;
+
+    if (!(fXPMFile = fopen(szXPMFileName, "w")))
+        return 0;
+
+    nHeight = pIcon->bmiHeader.biHeight / 2;
+    nXORWidthBytes = 4 * ((pIcon->bmiHeader.biWidth * pIcon->bmiHeader.biBitCount / 32)
+                          + ((pIcon->bmiHeader.biWidth * pIcon->bmiHeader.biBitCount % 32) > 0));
+    nANDWidthBytes = 4 * ((pIcon->bmiHeader.biWidth / 32)
+                          + ((pIcon->bmiHeader.biWidth % 32) > 0));
+    b8BitColors = pIcon->bmiHeader.biBitCount == 8;
+    nColors = pIcon->bmiHeader.biClrUsed ? pIcon->bmiHeader.biClrUsed
+        : 1 << pIcon->bmiHeader.biBitCount;
+    pXOR = (BYTE*) pIcon + sizeof (BITMAPINFOHEADER) + (nColors * sizeof (RGBQUAD));
+    pAND = pXOR + nHeight * nXORWidthBytes;
+
+#define MASK(x,y) (pAND[(x) / 8 + (nHeight - (y) - 1) * nANDWidthBytes] & (1 << (7 - (x) % 8)))
+#define COLOR(x,y) (b8BitColors ? pXOR[(x) + (nHeight - (y) - 1) * nXORWidthBytes] : (x) % 2 ? pXOR[(x) / 2 + (nHeight - (y) - 1) * nXORWidthBytes] & 0xF : (pXOR[(x) / 2 + (nHeight - (y) - 1) * nXORWidthBytes] & 0xF0) >> 4)
+
+    for (i = 0; i < nHeight; i++)
+        for (j = 0; j < pIcon->bmiHeader.biWidth; j++)
+            if (!aColorUsed[COLOR(j,i)] && !MASK(j,i))
+            {
+                aColorUsed[COLOR(j,i)] = TRUE;
+                nColorsUsed++;
+            }
+
+    if (fprintf(fXPMFile, "/* XPM */\nstatic char *icon[] = {\n") <= 0)
+        goto error;
+    if (fprintf(fXPMFile, "\"%d %d %d %d\",\n",
+                (int) pIcon->bmiHeader.biWidth, nHeight, nColorsUsed + 1, 2) <=0)
+        goto error;
+
+    for (i = 0; i < nColors; i++)
+        if (aColorUsed[i])
+            if (fprintf(fXPMFile, "\"%.2X c #%.2X%.2X%.2X\",\n", i, pIcon->bmiColors[i].rgbRed,
+                        pIcon->bmiColors[i].rgbGreen, pIcon->bmiColors[i].rgbBlue) <= 0)
+                goto error;
+    if (fprintf(fXPMFile, "\"   c None\"") <= 0)
+        goto error;
+
+    for (i = 0; i < nHeight; i++)
+    {
+        if (fprintf(fXPMFile, ",\n\"") <= 0)
+            goto error;
+        for (j = 0; j < pIcon->bmiHeader.biWidth; j++)
+        {
+            if MASK(j,i)
+                {
+                    if (fprintf(fXPMFile, "  ") <= 0)
+                        goto error;
+                }
+            else
+                if (fprintf(fXPMFile, "%.2X", COLOR(j,i)) <= 0)
+                    goto error;
+        }
+        if (fprintf(fXPMFile, "\"") <= 0)
+            goto error;
+    }
+    if (fprintf(fXPMFile, "};\n") <= 0)
+        goto error;
+
+#undef MASK
+#undef COLOR
+
+    fclose(fXPMFile);
+    return 1;
+
+ error:
+    fclose(fXPMFile);
+    unlink( szXPMFileName );
+    return 0;
+}
+
+static BOOL CALLBACK EnumResNameProc(HANDLE hModule, const char *lpszType, char *lpszName, LONG lParam)
+{
+    *(HRSRC *) lParam = FindResourceA(hModule, lpszName, RT_GROUP_ICONA);
+    return FALSE;
+}
+
+static int ExtractFromEXEDLL(const char *szFileName, int nIndex, const char *szXPMFileName)
+{
+    HMODULE hModule;
+    HRSRC hResInfo;
+    char *lpName = NULL;
+    HGLOBAL hResData;
+    GRPICONDIR *pIconDir;
+    BITMAPINFO *pIcon;
+    int nMax = 0;
+    int i;
+
+    if (!(hModule = LoadLibraryExA(szFileName, 0, LOAD_LIBRARY_AS_DATAFILE)))
+        goto error1;
+
+    if (nIndex)
+        hResInfo = FindResourceA(hModule, MAKEINTRESOURCEA(nIndex), RT_GROUP_ICONA);
+    else
+        if (EnumResourceNamesA(hModule, RT_GROUP_ICONA, &EnumResNameProc, (LONG) &hResInfo))
+            goto error2;
+
+    if (!hResInfo)
+        goto error2;
+
+    if (!(hResData = LoadResource(hModule, hResInfo)))
+        goto error2;
+    if (!(pIconDir = LockResource(hResData)))
+        goto error3;
+
+    for (i = 0; i < pIconDir->idCount; i++)
+        if ((pIconDir->idEntries[i].bHeight * pIconDir->idEntries[i].bWidth) > nMax)
+        {
+            lpName = MAKEINTRESOURCEA(pIconDir->idEntries[i].nID);
+            nMax = pIconDir->idEntries[i].bHeight * pIconDir->idEntries[i].bWidth;
+        }
+
+    FreeResource(hResData);
+
+    if (!(hResInfo = FindResourceA(hModule, lpName, RT_ICONA)))
+        goto error2;
+    if (!(hResData = LoadResource(hModule, hResInfo)))
+        goto error2;
+    if (!(pIcon = LockResource(hResData)))
+        goto error3;
+
+    if(!SaveIconResAsXPM(pIcon, szXPMFileName))
+        goto error3;
+
+    FreeResource(hResData);
+    FreeLibrary(hModule);
+
+    return 1;
+
+ error3:
+    FreeResource(hResData);
+ error2:
+    FreeLibrary(hModule);
+ error1:
+    return 0;
+}
+
+static int ExtractFromICO(const char *szFileName, const char *szXPMFileName)
+{
+    FILE *fICOFile;
+    ICONDIR iconDir;
+    ICONDIRENTRY *pIconDirEntry;
+    int nMax = 0;
+    int nIndex = 0;
+    void *pIcon;
+    int i;
+
+    if (!(fICOFile = fopen(szFileName, "r")))
+        goto error1;
+
+    if (fread(&iconDir, sizeof (ICONDIR), 1, fICOFile) != 1)
+        goto error2;
+    if ((iconDir.idReserved != 0) || (iconDir.idType != 1))
+        goto error2;
+
+    if ((pIconDirEntry = malloc(iconDir.idCount * sizeof (ICONDIRENTRY))) == NULL)
+        goto error2;
+    if (fread(pIconDirEntry, sizeof (ICONDIRENTRY), iconDir.idCount, fICOFile) != iconDir.idCount)
+        goto error3;
+
+    for (i = 0; i < iconDir.idCount; i++)
+        if ((pIconDirEntry[i].bHeight * pIconDirEntry[i].bWidth) > nMax)
+        {
+            nIndex = i;
+            nMax = pIconDirEntry[i].bHeight * pIconDirEntry[i].bWidth;
+        }
+    if ((pIcon = malloc(pIconDirEntry[nIndex].dwBytesInRes)) == NULL)
+        goto error3;
+    if (fseek(fICOFile, pIconDirEntry[nIndex].dwImageOffset, SEEK_SET))
+        goto error4;
+    if (fread(pIcon, pIconDirEntry[nIndex].dwBytesInRes, 1, fICOFile) != 1)
+        goto error4;
+
+    if(!SaveIconResAsXPM(pIcon, szXPMFileName))
+        goto error4;
+
+    free(pIcon);
+    free(pIconDirEntry);
+    fclose(fICOFile);
+
+    return 1;
+
+ error4:
+    free(pIcon);
+ error3:
+    free(pIconDirEntry);
+ error2:
+    fclose(fICOFile);
+ error1:
+    return 0;
+}
+
+/* get the Unix file name for a given path, allocating the string */
+inline static char *get_unix_file_name( const char *dos )
+{
+    DOS_FULL_NAME path;
+
+    if (!DOSFS_GetFullName( dos, FALSE, &path )) return NULL;
+    return HEAP_strdupA( GetProcessHeap(), 0, path.long_name );
+}
+
+static BOOL create_default_icon( const char *filename )
+{
+    FILE *fXPM;
+    int i;
+
+    if (!(fXPM = fopen(filename, "w"))) return FALSE;
+    fprintf(fXPM, "/* XPM */\nstatic char * icon[] = {");
+    for (i = 0; i < sizeof(wine_xpm)/sizeof(wine_xpm[0]); i++)
+        fprintf( fXPM, "\n\"%s\",", wine_xpm[i]);
+    fprintf( fXPM, "};\n" );
+    fclose( fXPM );
+    return TRUE;
+}
+
+/* extract an icon from an exe or icon file; helper for IPersistFile_fnSave */
+static char *extract_icon( const char *path, int index )
+{
+    char *filename = HEAP_strdupA( GetProcessHeap(), 0, tmpnam(NULL) );
+    if (ExtractFromEXEDLL( path, index, filename )) return filename;
+    if (ExtractFromICO( path, filename )) return filename;
+    if (create_default_icon( filename )) return filename;
+    HeapFree( GetProcessHeap(), 0, filename );
+    return NULL;
+}
+#endif //#ifndef __WIN32OS2__
+
+
 static HRESULT WINAPI IPersistFile_fnSave(IPersistFile* iface, LPCOLESTR pszFileName, BOOL fRemember)
 {
-        _ICOM_THIS_From_IPersistFile(IShellLinkImpl, iface);
-        FIXME("(%p)->(%s)\n",This,debugstr_w(pszFileName));
-        return NOERROR;
-}
+    HRESULT ret = NOERROR;
+    int pid, status;
+    char buffer[MAX_PATH], buff2[MAX_PATH];
+    char *filename, *link_name, *p;
+    char *shell_link_app = NULL;
+    char *icon_name = NULL;
+    char *path_name = NULL;
+    char *work_dir = NULL;
+    BOOL bDesktop;
+
+    _ICOM_THIS_From_IPersistFile(IShellLinkImpl, iface);
+
+    TRACE("(%p)->(%s)\n",This,debugstr_w(pszFileName));
+
+    if (!pszFileName || !This->sPath)
+        return ERROR_UNKNOWN;
+
+    /* check for .exe extension */
+    if (!(p = strrchr( This->sPath, '.' ))) return NOERROR;
+    if (strchr( p, '\\' ) || strchr( p, '/' )) return NOERROR;
+    if (strcasecmp( p, ".exe" )) return NOERROR;
+
+    /* check if ShellLinker configured */
+#ifdef __WIN32OS2__
+    return NOERROR;
+#else
+    PROFILE_GetWineIniString( "wine", "ShellLinker", "", buffer, sizeof(buffer) );
+    if (!*buffer) return NOERROR;
+    shell_link_app = HEAP_strdupA( GetProcessHeap(), 0, buffer );
+
+    if (!WideCharToMultiByte( CP_ACP, 0, pszFileName, -1, buffer, sizeof(buffer), NULL, NULL))
+        return ERROR_UNKNOWN;
+    GetFullPathNameA( buffer, sizeof(buff2), buff2, NULL );
+    filename = HEAP_strdupA( GetProcessHeap(), 0, buff2 );
+
+    if (SHGetSpecialFolderPathA( 0, buffer, CSIDL_STARTUP, FALSE ))
+    {
+        /* ignore startup for now */
+        if (!strncasecmp( filename, buffer, strlen(buffer) )) goto done;
+    }
+    if (SHGetSpecialFolderPathA( 0, buffer, CSIDL_DESKTOPDIRECTORY, FALSE ))
+    {
+        if (!strncasecmp( filename, buffer, strlen(buffer) ))
+        {
+            link_name = filename + strlen(buffer);
+            bDesktop = TRUE;
+            goto found;
+        }
+    }
+    if (SHGetSpecialFolderPathA( 0, buffer, CSIDL_STARTMENU, FALSE ))
+    {
+        if (!strncasecmp( filename, buffer, strlen(buffer) ))
+        {
+            link_name = filename + strlen(buffer);
+            bDesktop = FALSE;
+            goto found;
+        }
+    }
+    goto done;
+
+ found:
+    /* make link name a Unix name */
+    for (p = link_name; *p; p++) if (*p == '\\') *p = '/';
+    /* strip leading slashes */
+    while (*link_name == '/') link_name++;
+    /* remove extension */
+    if ((p = strrchr( link_name, '.' ))) *p = 0;
+
+    /* convert app path name */
+    path_name = get_unix_file_name( This->sPath );
+
+    /* convert app working dir */
+    if (This->sWorkDir) work_dir = get_unix_file_name( This->sWorkDir );
+
+    /* extract the icon */
+    if (!(icon_name = extract_icon( This->sIcoPath ? This->sIcoPath : This->sPath,
+                                    This->iIcoNdx ))) goto done;
+
+    TRACE("linker app='%s' link='%s' mode=%s path='%s' args='%s' icon='%s' workdir='%s' descr='%s'\n",
+        shell_link_app, link_name, bDesktop ? "desktop" : "menu", path_name,
+        This->sArgs ? This->sArgs : "", icon_name, work_dir ? work_dir : "",
+        This->sDescription ? This->sDescription : "" );
+
+    if ((pid = fork()) == -1) goto done;
+    if (!pid)
+    {
+        int pos = 0;
+        char *argv[20];
+        argv[pos++] = shell_link_app;
+        argv[pos++] = "--link";
+        argv[pos++] = link_name;
+        argv[pos++] = "--path";
+        argv[pos++] = path_name;
+        argv[pos++] = bDesktop ? "--desktop" : "--menu";
+        if (This->sArgs)
+        {
+            argv[pos++] = "--args";
+            argv[pos++] = This->sArgs;
+        }
+        if (icon_name)
+        {
+            argv[pos++] = "--icon";
+            argv[pos++] = icon_name;
+        }
+        if (This->sWorkDir)
+        {
+            argv[pos++] = "--workdir";
+            argv[pos++] = This->sWorkDir;
+        }
+        if (This->sDescription)
+        {
+            argv[pos++] = "--descr";
+            argv[pos++] = This->sDescription;
+        }
+        argv[pos] = NULL;
+        execvp( shell_link_app, argv );
+        _exit(1);
+    }
+
+    while (waitpid( pid, &status, 0 ) == -1)
+    {
+        if (errno != EINTR)
+        {
+            ret = ERROR_UNKNOWN;
+            goto done;
+        }
+    }
+    if (status) ret = E_ACCESSDENIED;
+
+ done:
+    if (icon_name) unlink( icon_name );
+    HeapFree( GetProcessHeap(), 0, shell_link_app );
+    HeapFree( GetProcessHeap(), 0, filename );
+    HeapFree( GetProcessHeap(), 0, icon_name );
+    HeapFree( GetProcessHeap(), 0, path_name );
+    HeapFree( GetProcessHeap(), 0, work_dir );
+    return ret;
+#endif //__WIN32OS2__
+}
+
 static HRESULT WINAPI IPersistFile_fnSaveCompleted(IPersistFile* iface, LPCOLESTR pszFileName)
 {
@@ -481 +932 @@
         if (!--(This->ref)) 
         { TRACE("-- destroying IShellLink(%p)\n",This);
+        
+          if (This->sIcoPath)
+            HeapFree(GetProcessHeap(), 0, This->sIcoPath);
+            
+          if (This->sArgs)
+            HeapFree(GetProcessHeap(), 0, This->sArgs);
+
+          if (This->sWorkDir)
+            HeapFree(GetProcessHeap(), 0, This->sWorkDir);
+            
+          if (This->sDescription)
+            HeapFree(GetProcessHeap(), 0, This->sDescription);
 
           if (This->sPath)
@@ -490 +953 @@
           if (This->lpFileStream)
             IStream_Release(This->lpFileStream);
+        
+          This->iIcoNdx = 0;
 
           HeapFree(GetProcessHeap(),0,This);
@@ -542 +1007 @@
         ICOM_THIS(IShellLinkImpl, iface);
         
-        FIXME("(%p)->(desc=%s)\n",This, pszName);
+        TRACE("(%p)->(pName=%s)\n", This, pszName);
+
+        if (This->sDescription)
+            HeapFree(GetProcessHeap(), 0, This->sDescription);
+        if (!(This->sDescription = HEAP_strdupA(GetProcessHeap(), 0, pszName)))
+            return E_OUTOFMEMORY;
+
         return NOERROR;
 }
@@ -557 +1028 @@
         ICOM_THIS(IShellLinkImpl, iface);
         
-        FIXME("(%p)->(dir=%s)\n",This, pszDir);
+        TRACE("(%p)->(dir=%s)\n",This, pszDir);
+
+        if (This->sWorkDir)
+            HeapFree(GetProcessHeap(), 0, This->sWorkDir);
+        if (!(This->sWorkDir = HEAP_strdupA(GetProcessHeap(), 0, pszDir)))
+            return E_OUTOFMEMORY;
+
         return NOERROR;
 }
@@ -572 +1049 @@
         ICOM_THIS(IShellLinkImpl, iface);
         
-        FIXME("(%p)->(args=%s)\n",This, pszArgs);
+        TRACE("(%p)->(args=%s)\n",This, pszArgs);
+
+        if (This->sArgs)
+            HeapFree(GetProcessHeap(), 0, This->sArgs);
+        if (!(This->sArgs = HEAP_strdupA(GetProcessHeap(), 0, pszArgs)))
+            return E_OUTOFMEMORY;
 
         return NOERROR;
@@ -624 +1106 @@
         ICOM_THIS(IShellLinkImpl, iface);
         
-        FIXME("(%p)->(path=%s iicon=%u)\n",This, pszIconPath, iIcon);
+        TRACE("(%p)->(path=%s iicon=%u)\n",This, pszIconPath, iIcon);
+        
+        if (This->sIcoPath)
+            HeapFree(GetProcessHeap(), 0, This->sIcoPath);
+        if (!(This->sIcoPath = HEAP_strdupA(GetProcessHeap(), 0, pszIconPath)))
+            return E_OUTOFMEMORY;       
+        This->iIcoNdx = iIcon;
+        
         return NOERROR;
 }
@@ -645 +1134 @@
         ICOM_THIS(IShellLinkImpl, iface);
         
-        FIXME("(%p)->(path=%s)\n",This, pszFile);
+        TRACE("(%p)->(path=%s)\n",This, pszFile);
+
+        if (This->sPath)
+            HeapFree(GetProcessHeap(), 0, This->sPath);
+        if (!(This->sPath = HEAP_strdupA(GetProcessHeap(), 0, pszFile)))
+            return E_OUTOFMEMORY;
+        
         return NOERROR;
 }
@@ -754 +1249 @@
         _ICOM_THIS_From_IShellLinkW(IShellLinkImpl, iface);
         
-        FIXME("(%p)->(desc=%s)\n",This, debugstr_w(pszName));
+        TRACE("(%p)->(desc=%s)\n",This, debugstr_w(pszName));
+
+        if (This->sDescription)
+            HeapFree(GetProcessHeap(), 0, This->sDescription);
+        if (!(This->sDescription = HEAP_strdupWtoA(GetProcessHeap(), 0, pszName)))
+            return E_OUTOFMEMORY;
+                
         return NOERROR;
 }
@@ -771 +1272 @@
         _ICOM_THIS_From_IShellLinkW(IShellLinkImpl, iface);
         
-        FIXME("(%p)->(dir=%s)\n",This, debugstr_w(pszDir));
+        TRACE("(%p)->(dir=%s)\n",This, debugstr_w(pszDir));
+
+        if (This->sWorkDir)
+            HeapFree(GetProcessHeap(), 0, This->sWorkDir);
+        if (!(This->sWorkDir = HEAP_strdupWtoA(GetProcessHeap(), 0, pszDir)))
+            return E_OUTOFMEMORY;
+
         return NOERROR;
 }
@@ -788 +1295 @@
         _ICOM_THIS_From_IShellLinkW(IShellLinkImpl, iface);
         
-        FIXME("(%p)->(args=%s)\n",This, debugstr_w(pszArgs));
+        TRACE("(%p)->(args=%s)\n",This, debugstr_w(pszArgs));
+        
+        if (This->sArgs)
+            HeapFree(GetProcessHeap(), 0, This->sArgs);
+        if (!(This->sArgs = HEAP_strdupWtoA(GetProcessHeap(), 0, pszArgs)))
+            return E_OUTOFMEMORY;
+        
         return NOERROR;
 }
@@ -840 +1353 @@
         _ICOM_THIS_From_IShellLinkW(IShellLinkImpl, iface);
         
-        FIXME("(%p)->(path=%s iicon=%u)\n",This, debugstr_w(pszIconPath), iIcon);
+        TRACE("(%p)->(path=%s iicon=%u)\n",This, debugstr_w(pszIconPath), iIcon);
+
+        if (This->sIcoPath)
+            HeapFree(GetProcessHeap(), 0, This->sIcoPath);
+        if (!(This->sIcoPath = HEAP_strdupWtoA(GetProcessHeap(), 0, pszIconPath)))
+            return E_OUTOFMEMORY;       
+        This->iIcoNdx = iIcon;
+
         return NOERROR;
 }
@@ -864 +1384 @@
         _ICOM_THIS_From_IShellLinkW(IShellLinkImpl, iface);
         
-        FIXME("(%p)->(path=%s)\n",This, debugstr_w(pszFile));
+        TRACE("(%p)->(path=%s)\n",This, debugstr_w(pszFile));
+        
+        if (This->sPath)
+            HeapFree(GetProcessHeap(), 0, This->sPath);
+        if (!(This->sPath = HEAP_strdupWtoA(GetProcessHeap(), 0, pszFile)))
+            return E_OUTOFMEMORY;       
+        
         return NOERROR;
 }