3 * Copyright 1997 Marcus Meissner
4 * Copyright 1998 Juergen Schmied
5 * Copyright 2005 Mike McCormack
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22 * Nearly complete informations about the binary formats
23 * of .lnk files available at http://www.wotsit.org
25 * You can use winedump to examine the contents of a link file:
28 * MSI advertised shortcuts are totally undocumented. They provide an
29 * icon for a program that is not yet installed, and invoke MSI to
30 * install the program when the shortcut is clicked on. They are
31 * created by passing a special string to SetPath, and the information
32 * in that string is parsed an stored.
36 #define NONAMELESSUNION
38 #include "wine/debug.h"
48 #include "undocshell.h"
51 #include "shell32_main.h"
59 WINE_DEFAULT_DEBUG_CHANNEL(shell
);
61 DEFINE_GUID( SHELL32_AdvtShortcutProduct
,
62 0x9db1186f,0x40df,0x11d1,0xaa,0x8c,0x00,0xc0,0x4f,0xb6,0x78,0x63);
63 DEFINE_GUID( SHELL32_AdvtShortcutComponent
,
64 0x9db1186e,0x40df,0x11d1,0xaa,0x8c,0x00,0xc0,0x4f,0xb6,0x78,0x63);
66 /* link file formats */
70 typedef struct _LINK_HEADER
72 DWORD dwSize
; /* 0x00 size of the header - 0x4c */
73 GUID MagicGuid
; /* 0x04 is CLSID_ShellLink */
74 DWORD dwFlags
; /* 0x14 describes elements following */
75 DWORD dwFileAttr
; /* 0x18 attributes of the target file */
76 FILETIME Time1
; /* 0x1c */
77 FILETIME Time2
; /* 0x24 */
78 FILETIME Time3
; /* 0x2c */
79 DWORD dwFileLength
; /* 0x34 File length */
80 DWORD nIcon
; /* 0x38 icon number */
81 DWORD fStartup
; /* 0x3c startup type */
82 DWORD wHotKey
; /* 0x40 hotkey */
83 DWORD Unknown5
; /* 0x44 */
84 DWORD Unknown6
; /* 0x48 */
85 } LINK_HEADER
, * PLINK_HEADER
;
87 #define SHLINK_LOCAL 0
88 #define SHLINK_REMOTE 1
90 typedef struct _LOCATION_INFO
97 DWORD dwNetworkVolTableOfs
;
101 typedef struct _LOCAL_VOLUME_INFO
109 typedef struct volume_info_t
113 WCHAR label
[12]; /* assume 8.3 */
118 static const IShellLinkAVtbl slvt
;
119 static const IShellLinkWVtbl slvtw
;
120 static const IPersistFileVtbl pfvt
;
121 static const IPersistStreamVtbl psvt
;
122 static const IShellLinkDataListVtbl dlvt
;
123 static const IShellExtInitVtbl eivt
;
124 static const IContextMenuVtbl cmvt
;
125 static const IObjectWithSiteVtbl owsvt
;
127 /* IShellLink Implementation */
131 const IShellLinkAVtbl
*lpVtbl
;
132 const IShellLinkWVtbl
*lpvtblw
;
133 const IPersistFileVtbl
*lpvtblPersistFile
;
134 const IPersistStreamVtbl
*lpvtblPersistStream
;
135 const IShellLinkDataListVtbl
*lpvtblShellLinkDataList
;
136 const IShellExtInitVtbl
*lpvtblShellExtInit
;
137 const IContextMenuVtbl
*lpvtblContextMenu
;
138 const IObjectWithSiteVtbl
*lpvtblObjectWithSite
;
142 /* data structures according to the informations in the link */
162 INT iIdOpen
; /* id of the "Open" entry in the context menu */
166 static inline IShellLinkImpl
*impl_from_IShellLinkW( IShellLinkW
*iface
)
168 return (IShellLinkImpl
*)((char*)iface
- FIELD_OFFSET(IShellLinkImpl
, lpvtblw
));
171 static inline IShellLinkImpl
*impl_from_IPersistFile( IPersistFile
*iface
)
173 return (IShellLinkImpl
*)((char*)iface
- FIELD_OFFSET(IShellLinkImpl
, lpvtblPersistFile
));
176 static inline IShellLinkImpl
*impl_from_IPersistStream( IPersistStream
*iface
)
178 return (IShellLinkImpl
*)((char*)iface
- FIELD_OFFSET(IShellLinkImpl
, lpvtblPersistStream
));
181 static inline IShellLinkImpl
*impl_from_IShellLinkDataList( IShellLinkDataList
*iface
)
183 return (IShellLinkImpl
*)((char*)iface
- FIELD_OFFSET(IShellLinkImpl
, lpvtblShellLinkDataList
));
186 static inline IShellLinkImpl
*impl_from_IShellExtInit( IShellExtInit
*iface
)
188 return (IShellLinkImpl
*)((char*)iface
- FIELD_OFFSET(IShellLinkImpl
, lpvtblShellExtInit
));
191 static inline IShellLinkImpl
*impl_from_IContextMenu( IContextMenu
*iface
)
193 return (IShellLinkImpl
*)((char*)iface
- FIELD_OFFSET(IShellLinkImpl
, lpvtblContextMenu
));
196 static inline IShellLinkImpl
*impl_from_IObjectWithSite( IObjectWithSite
*iface
)
198 return (IShellLinkImpl
*)((char*)iface
- FIELD_OFFSET(IShellLinkImpl
, lpvtblObjectWithSite
));
201 static HRESULT
ShellLink_UpdatePath(LPWSTR sPathRel
, LPCWSTR path
, LPCWSTR sWorkDir
, LPWSTR
* psPath
);
203 /* strdup on the process heap */
204 inline static LPWSTR
HEAP_strdupAtoW( HANDLE heap
, DWORD flags
, LPCSTR str
)
206 INT len
= MultiByteToWideChar( CP_ACP
, 0, str
, -1, NULL
, 0 );
207 LPWSTR p
= HeapAlloc( heap
, flags
, len
*sizeof (WCHAR
) );
210 MultiByteToWideChar( CP_ACP
, 0, str
, -1, p
, len
);
214 inline static LPWSTR
strdupW( LPCWSTR src
)
217 if (!src
) return NULL
;
218 dest
= HeapAlloc( GetProcessHeap(), 0, (lstrlenW(src
)+1)*sizeof(WCHAR
) );
224 /**************************************************************************
225 * ShellLink::QueryInterface implementation
227 static HRESULT
ShellLink_QueryInterface( IShellLinkImpl
*This
, REFIID riid
, LPVOID
*ppvObj
)
229 TRACE("(%p)->(\n\tIID:\t%s)\n",This
,debugstr_guid(riid
));
233 if(IsEqualIID(riid
, &IID_IUnknown
) || IsEqualIID(riid
, &IID_IShellLinkA
))
237 else if(IsEqualIID(riid
, &IID_IShellLinkW
))
239 *ppvObj
= &(This
->lpvtblw
);
241 else if(IsEqualIID(riid
, &IID_IPersistFile
))
243 *ppvObj
= &(This
->lpvtblPersistFile
);
245 else if(IsEqualIID(riid
, &IID_IPersistStream
))
247 *ppvObj
= &(This
->lpvtblPersistStream
);
249 else if(IsEqualIID(riid
, &IID_IShellLinkDataList
))
251 *ppvObj
= &(This
->lpvtblShellLinkDataList
);
253 else if(IsEqualIID(riid
, &IID_IShellExtInit
))
255 *ppvObj
= &(This
->lpvtblShellExtInit
);
257 else if(IsEqualIID(riid
, &IID_IContextMenu
))
259 *ppvObj
= &(This
->lpvtblContextMenu
);
261 else if(IsEqualIID(riid
, &IID_IObjectWithSite
))
263 *ppvObj
= &(This
->lpvtblObjectWithSite
);
268 IUnknown_AddRef((IUnknown
*)(*ppvObj
));
269 TRACE("-- Interface: (%p)->(%p)\n",ppvObj
,*ppvObj
);
272 ERR("-- Interface: E_NOINTERFACE\n");
273 return E_NOINTERFACE
;
276 /**************************************************************************
277 * ShellLink::AddRef implementation
279 static ULONG
ShellLink_AddRef( IShellLinkImpl
*This
)
281 ULONG refCount
= InterlockedIncrement(&This
->ref
);
283 TRACE("(%p)->(count=%lu)\n", This
, refCount
- 1);
288 /**************************************************************************
289 * ShellLink::Release implementation
291 static ULONG
ShellLink_Release( IShellLinkImpl
*This
)
293 ULONG refCount
= InterlockedDecrement(&This
->ref
);
295 TRACE("(%p)->(count=%lu)\n", This
, refCount
+ 1);
300 TRACE("-- destroying IShellLink(%p)\n",This
);
302 HeapFree(GetProcessHeap(), 0, This
->sIcoPath
);
303 HeapFree(GetProcessHeap(), 0, This
->sArgs
);
304 HeapFree(GetProcessHeap(), 0, This
->sWorkDir
);
305 HeapFree(GetProcessHeap(), 0, This
->sDescription
);
306 HeapFree(GetProcessHeap(),0,This
->sPath
);
309 IUnknown_Release( This
->site
);
314 LocalFree((HANDLE
)This
);
319 static HRESULT
ShellLink_GetClassID( IShellLinkImpl
*This
, CLSID
*pclsid
)
321 TRACE("%p %p\n", This
, pclsid
);
323 memcpy( pclsid
, &CLSID_ShellLink
, sizeof (CLSID
) );
327 /**************************************************************************
328 * IPersistFile_QueryInterface
330 static HRESULT WINAPI
IPersistFile_fnQueryInterface(
335 IShellLinkImpl
*This
= impl_from_IPersistFile(iface
);
336 return ShellLink_QueryInterface( This
, riid
, ppvObj
);
339 /******************************************************************************
340 * IPersistFile_AddRef
342 static ULONG WINAPI
IPersistFile_fnAddRef(IPersistFile
* iface
)
344 IShellLinkImpl
*This
= impl_from_IPersistFile(iface
);
345 return ShellLink_AddRef( This
);
348 /******************************************************************************
349 * IPersistFile_Release
351 static ULONG WINAPI
IPersistFile_fnRelease(IPersistFile
* iface
)
353 IShellLinkImpl
*This
= impl_from_IPersistFile(iface
);
354 return IShellLinkA_Release((IShellLinkA
*)This
);
357 static HRESULT WINAPI
IPersistFile_fnGetClassID(IPersistFile
* iface
, CLSID
*pClassID
)
359 IShellLinkImpl
*This
= impl_from_IPersistFile(iface
);
360 return ShellLink_GetClassID( This
, pClassID
);
363 static HRESULT WINAPI
IPersistFile_fnIsDirty(IPersistFile
* iface
)
365 IShellLinkImpl
*This
= impl_from_IPersistFile(iface
);
367 TRACE("(%p)\n",This
);
375 static HRESULT WINAPI
IPersistFile_fnLoad(IPersistFile
* iface
, LPCOLESTR pszFileName
, DWORD dwMode
)
377 IShellLinkImpl
*This
= impl_from_IPersistFile(iface
);
378 IPersistStream
*StreamThis
= (IPersistStream
*)&This
->lpvtblPersistStream
;
382 TRACE("(%p, %s, %lx)\n",This
, debugstr_w(pszFileName
), dwMode
);
385 dwMode
= STGM_READ
| STGM_SHARE_DENY_WRITE
;
386 r
= SHCreateStreamOnFileW(pszFileName
, dwMode
, &stm
);
389 r
= IPersistStream_Load(StreamThis
, stm
);
390 ShellLink_UpdatePath(This
->sPathRel
, pszFileName
, This
->sWorkDir
, &This
->sPath
);
391 IStream_Release( stm
);
392 This
->bDirty
= FALSE
;
394 TRACE("-- returning hr %08lx\n", r
);
398 static BOOL
StartLinkProcessor( LPCOLESTR szLink
)
400 static const WCHAR szFormat
[] = {
401 'w','i','n','e','m','e','n','u','b','u','i','l','d','e','r','.','e','x','e',
402 ' ','-','r',' ','"','%','s','"',0 };
406 PROCESS_INFORMATION pi
;
408 len
= sizeof(szFormat
) + lstrlenW( szLink
) * sizeof(WCHAR
);
409 buffer
= HeapAlloc( GetProcessHeap(), 0, len
);
413 wsprintfW( buffer
, szFormat
, szLink
);
415 TRACE("starting %s\n",debugstr_w(buffer
));
417 memset(&si
, 0, sizeof(si
));
419 if (!CreateProcessW( NULL
, buffer
, NULL
, NULL
, FALSE
, 0, NULL
, NULL
, &si
, &pi
)) return FALSE
;
421 /* wait for a while to throttle the creation of linker processes */
422 if( WAIT_OBJECT_0
!= WaitForSingleObject( pi
.hProcess
, 10000 ) )
423 WARN("Timed out waiting for shell linker\n");
425 CloseHandle( pi
.hProcess
);
426 CloseHandle( pi
.hThread
);
431 static HRESULT WINAPI
IPersistFile_fnSave(IPersistFile
* iface
, LPCOLESTR pszFileName
, BOOL fRemember
)
433 IShellLinkImpl
*This
= impl_from_IPersistFile(iface
);
434 IPersistStream
*StreamThis
= (IPersistStream
*)&This
->lpvtblPersistStream
;
438 TRACE("(%p)->(%s)\n",This
,debugstr_w(pszFileName
));
443 r
= SHCreateStreamOnFileW( pszFileName
, STGM_READWRITE
| STGM_CREATE
| STGM_SHARE_EXCLUSIVE
, &stm
);
446 r
= IPersistStream_Save(StreamThis
, stm
, FALSE
);
447 IStream_Release( stm
);
451 StartLinkProcessor( pszFileName
);
453 This
->bDirty
= FALSE
;
457 DeleteFileW( pszFileName
);
458 WARN("Failed to create shortcut %s\n", debugstr_w(pszFileName
) );
465 static HRESULT WINAPI
IPersistFile_fnSaveCompleted(IPersistFile
* iface
, LPCOLESTR pszFileName
)
467 IShellLinkImpl
*This
= impl_from_IPersistFile(iface
);
468 FIXME("(%p)->(%s)\n",This
,debugstr_w(pszFileName
));
472 static HRESULT WINAPI
IPersistFile_fnGetCurFile(IPersistFile
* iface
, LPOLESTR
*ppszFileName
)
474 IShellLinkImpl
*This
= impl_from_IPersistFile(iface
);
475 FIXME("(%p)\n",This
);
479 static const IPersistFileVtbl pfvt
=
481 IPersistFile_fnQueryInterface
,
482 IPersistFile_fnAddRef
,
483 IPersistFile_fnRelease
,
484 IPersistFile_fnGetClassID
,
485 IPersistFile_fnIsDirty
,
488 IPersistFile_fnSaveCompleted
,
489 IPersistFile_fnGetCurFile
492 /************************************************************************
493 * IPersistStream_QueryInterface
495 static HRESULT WINAPI
IPersistStream_fnQueryInterface(
496 IPersistStream
* iface
,
500 IShellLinkImpl
*This
= impl_from_IPersistStream(iface
);
501 return ShellLink_QueryInterface( This
, riid
, ppvObj
);
504 /************************************************************************
505 * IPersistStream_Release
507 static ULONG WINAPI
IPersistStream_fnRelease(
508 IPersistStream
* iface
)
510 IShellLinkImpl
*This
= impl_from_IPersistStream(iface
);
511 return IShellLinkA_Release((IShellLinkA
*)This
);
514 /************************************************************************
515 * IPersistStream_AddRef
517 static ULONG WINAPI
IPersistStream_fnAddRef(
518 IPersistStream
* iface
)
520 IShellLinkImpl
*This
= impl_from_IPersistStream(iface
);
521 return ShellLink_AddRef( This
);
524 /************************************************************************
525 * IPersistStream_GetClassID
528 static HRESULT WINAPI
IPersistStream_fnGetClassID(
529 IPersistStream
* iface
,
532 IShellLinkImpl
*This
= impl_from_IPersistStream(iface
);
533 return ShellLink_GetClassID( This
, pClassID
);
536 /************************************************************************
537 * IPersistStream_IsDirty (IPersistStream)
539 static HRESULT WINAPI
IPersistStream_fnIsDirty(
540 IPersistStream
* iface
)
542 IShellLinkImpl
*This
= impl_from_IPersistStream(iface
);
544 TRACE("(%p)\n", This
);
550 static HRESULT
Stream_LoadString( IStream
* stm
, BOOL unicode
, LPWSTR
*pstr
)
561 r
= IStream_Read(stm
, &len
, sizeof(len
), &count
);
562 if ( FAILED (r
) || ( count
!= sizeof(len
) ) )
566 len
*= sizeof (WCHAR
);
568 TRACE("reading %d\n", len
);
569 temp
= HeapAlloc(GetProcessHeap(), 0, len
+sizeof(WCHAR
));
571 return E_OUTOFMEMORY
;
573 r
= IStream_Read(stm
, temp
, len
, &count
);
574 if( FAILED (r
) || ( count
!= len
) )
576 HeapFree( GetProcessHeap(), 0, temp
);
580 TRACE("read %s\n", debugstr_an(temp
,len
));
582 /* convert to unicode if necessary */
585 count
= MultiByteToWideChar( CP_ACP
, 0, (LPSTR
) temp
, len
, NULL
, 0 );
586 str
= HeapAlloc( GetProcessHeap(), 0, (count
+1)*sizeof (WCHAR
) );
588 MultiByteToWideChar( CP_ACP
, 0, (LPSTR
) temp
, len
, str
, count
);
589 HeapFree( GetProcessHeap(), 0, temp
);
603 static HRESULT
Stream_ReadChunk( IStream
* stm
, LPVOID
*data
)
610 unsigned char data
[1];
615 r
= IStream_Read( stm
, &size
, sizeof(size
), &count
);
616 if( FAILED( r
) || count
!= sizeof(size
) )
619 chunk
= HeapAlloc( GetProcessHeap(), 0, size
);
621 return E_OUTOFMEMORY
;
624 r
= IStream_Read( stm
, chunk
->data
, size
- sizeof(size
), &count
);
625 if( FAILED( r
) || count
!= (size
- sizeof(size
)) )
627 HeapFree( GetProcessHeap(), 0, chunk
);
631 TRACE("Read %ld bytes\n",chunk
->size
);
633 *data
= (LPVOID
) chunk
;
638 static BOOL
Stream_LoadVolume( LOCAL_VOLUME_INFO
*vol
, volume_info
*volume
)
640 const int label_sz
= sizeof volume
->label
/sizeof volume
->label
[0];
644 volume
->serial
= vol
->dwVolSerial
;
645 volume
->type
= vol
->dwType
;
647 if( !vol
->dwVolLabelOfs
)
649 if( vol
->dwSize
<= vol
->dwVolLabelOfs
)
651 len
= vol
->dwSize
- vol
->dwVolLabelOfs
;
654 label
+= vol
->dwVolLabelOfs
;
655 MultiByteToWideChar( CP_ACP
, 0, label
, len
, volume
->label
, label_sz
-1);
660 static LPWSTR
Stream_LoadPath( LPSTR p
, DWORD maxlen
)
665 while( p
[len
] && (len
< maxlen
) )
668 wlen
= MultiByteToWideChar(CP_ACP
, 0, p
, len
, NULL
, 0);
669 path
= HeapAlloc(GetProcessHeap(), 0, (wlen
+1)*sizeof(WCHAR
));
670 MultiByteToWideChar(CP_ACP
, 0, p
, len
, path
, wlen
);
676 static HRESULT
Stream_LoadLocation( IStream
*stm
,
677 volume_info
*volume
, LPWSTR
*path
)
684 r
= Stream_ReadChunk( stm
, (LPVOID
*) &p
);
688 loc
= (LOCATION_INFO
*) p
;
689 if (loc
->dwTotalSize
< sizeof(LOCATION_INFO
))
691 HeapFree( GetProcessHeap(), 0, p
);
695 /* if there's valid local volume information, load it */
696 if( loc
->dwVolTableOfs
&&
697 ((loc
->dwVolTableOfs
+ sizeof(LOCAL_VOLUME_INFO
)) <= loc
->dwTotalSize
) )
699 LOCAL_VOLUME_INFO
*volume_info
;
701 volume_info
= (LOCAL_VOLUME_INFO
*) &p
[loc
->dwVolTableOfs
];
702 Stream_LoadVolume( volume_info
, volume
);
705 /* if there's a local path, load it */
706 n
= loc
->dwLocalPathOfs
;
707 if( n
&& (n
< loc
->dwTotalSize
) )
708 *path
= Stream_LoadPath( &p
[n
], loc
->dwTotalSize
- n
);
710 TRACE("type %ld serial %08lx name %s path %s\n", volume
->type
,
711 volume
->serial
, debugstr_w(volume
->label
), debugstr_w(*path
));
713 HeapFree( GetProcessHeap(), 0, p
);
718 * The format of the advertised shortcut info seems to be:
723 * 0 Length of the block (4 bytes, usually 0x314)
725 * 8 string data in ASCII
726 * 8+0x104 string data in UNICODE
728 * In the original Win32 implementation the buffers are not initialized
729 * to zero, so data trailing the string is random garbage.
731 static HRESULT
Stream_LoadAdvertiseInfo( IStream
* stm
, LPWSTR
*str
)
736 EXP_DARWIN_LINK buffer
;
740 r
= IStream_Read( stm
, &buffer
.dbh
.cbSize
, sizeof (DWORD
), &count
);
744 /* make sure that we read the size of the structure even on error */
745 size
= sizeof buffer
- sizeof (DWORD
);
746 if( buffer
.dbh
.cbSize
!= sizeof buffer
)
748 ERR("Ooops. This structure is not as expected...\n");
752 r
= IStream_Read( stm
, &buffer
.dbh
.dwSignature
, size
, &count
);
759 TRACE("magic %08lx string = %s\n", buffer
.dbh
.dwSignature
, debugstr_w(buffer
.szwDarwinID
));
761 if( (buffer
.dbh
.dwSignature
&0xffff0000) != 0xa0000000 )
763 ERR("Unknown magic number %08lx in advertised shortcut\n", buffer
.dbh
.dwSignature
);
767 *str
= HeapAlloc( GetProcessHeap(), 0,
768 (lstrlenW(buffer
.szwDarwinID
)+1) * sizeof(WCHAR
) );
769 lstrcpyW( *str
, buffer
.szwDarwinID
);
774 /************************************************************************
775 * IPersistStream_Load (IPersistStream)
777 static HRESULT WINAPI
IPersistStream_fnLoad(
778 IPersistStream
* iface
,
787 IShellLinkImpl
*This
= impl_from_IPersistStream(iface
);
789 TRACE("%p %p\n", This
, stm
);
792 return STG_E_INVALIDPOINTER
;
795 r
= IStream_Read(stm
, &hdr
, sizeof(hdr
), &dwBytesRead
);
799 if( dwBytesRead
!= sizeof(hdr
))
801 if( hdr
.dwSize
!= sizeof(hdr
))
803 if( !IsEqualIID(&hdr
.MagicGuid
, &CLSID_ShellLink
) )
806 /* free all the old stuff */
809 memset( &This
->volume
, 0, sizeof This
->volume
);
810 HeapFree(GetProcessHeap(), 0, This
->sPath
);
812 HeapFree(GetProcessHeap(), 0, This
->sDescription
);
813 This
->sDescription
= NULL
;
814 HeapFree(GetProcessHeap(), 0, This
->sPathRel
);
815 This
->sPathRel
= NULL
;
816 HeapFree(GetProcessHeap(), 0, This
->sWorkDir
);
817 This
->sWorkDir
= NULL
;
818 HeapFree(GetProcessHeap(), 0, This
->sArgs
);
820 HeapFree(GetProcessHeap(), 0, This
->sIcoPath
);
821 This
->sIcoPath
= NULL
;
822 HeapFree(GetProcessHeap(), 0, This
->sProduct
);
823 This
->sProduct
= NULL
;
824 HeapFree(GetProcessHeap(), 0, This
->sComponent
);
825 This
->sComponent
= NULL
;
827 This
->wHotKey
= (WORD
)hdr
.wHotKey
;
828 This
->iIcoNdx
= hdr
.nIcon
;
829 FileTimeToSystemTime (&hdr
.Time1
, &This
->time1
);
830 FileTimeToSystemTime (&hdr
.Time2
, &This
->time2
);
831 FileTimeToSystemTime (&hdr
.Time3
, &This
->time3
);
834 WCHAR sTemp
[MAX_PATH
];
835 GetDateFormatW(LOCALE_USER_DEFAULT
,DATE_SHORTDATE
, &This
->time1
,
836 NULL
, sTemp
, sizeof(sTemp
)/sizeof(*sTemp
));
837 TRACE("-- time1: %s\n", debugstr_w(sTemp
) );
838 GetDateFormatW(LOCALE_USER_DEFAULT
,DATE_SHORTDATE
, &This
->time2
,
839 NULL
, sTemp
, sizeof(sTemp
)/sizeof(*sTemp
));
840 TRACE("-- time2: %s\n", debugstr_w(sTemp
) );
841 GetDateFormatW(LOCALE_USER_DEFAULT
,DATE_SHORTDATE
, &This
->time3
,
842 NULL
, sTemp
, sizeof(sTemp
)/sizeof(*sTemp
));
843 TRACE("-- time3: %s\n", debugstr_w(sTemp
) );
846 /* load all the new stuff */
847 if( hdr
.dwFlags
& SLDF_HAS_ID_LIST
)
849 r
= ILLoadFromStream( stm
, &This
->pPidl
);
855 /* load the location information */
856 if( hdr
.dwFlags
& SLDF_HAS_LINK_INFO
)
857 r
= Stream_LoadLocation( stm
, &This
->volume
, &This
->sPath
);
861 unicode
= hdr
.dwFlags
& SLDF_UNICODE
;
862 if( hdr
.dwFlags
& SLDF_HAS_NAME
)
864 r
= Stream_LoadString( stm
, unicode
, &This
->sDescription
);
865 TRACE("Description -> %s\n",debugstr_w(This
->sDescription
));
870 if( hdr
.dwFlags
& SLDF_HAS_RELPATH
)
872 r
= Stream_LoadString( stm
, unicode
, &This
->sPathRel
);
873 TRACE("Relative Path-> %s\n",debugstr_w(This
->sPathRel
));
878 if( hdr
.dwFlags
& SLDF_HAS_WORKINGDIR
)
880 r
= Stream_LoadString( stm
, unicode
, &This
->sWorkDir
);
881 TRACE("Working Dir -> %s\n",debugstr_w(This
->sWorkDir
));
886 if( hdr
.dwFlags
& SLDF_HAS_ARGS
)
888 r
= Stream_LoadString( stm
, unicode
, &This
->sArgs
);
889 TRACE("Working Dir -> %s\n",debugstr_w(This
->sArgs
));
894 if( hdr
.dwFlags
& SLDF_HAS_ICONLOCATION
)
896 r
= Stream_LoadString( stm
, unicode
, &This
->sIcoPath
);
897 TRACE("Icon file -> %s\n",debugstr_w(This
->sIcoPath
));
902 if( hdr
.dwFlags
& SLDF_HAS_LOGO3ID
)
904 r
= Stream_LoadAdvertiseInfo( stm
, &This
->sProduct
);
905 TRACE("Product -> %s\n",debugstr_w(This
->sProduct
));
910 if( hdr
.dwFlags
& SLDF_HAS_DARWINID
)
912 r
= Stream_LoadAdvertiseInfo( stm
, &This
->sComponent
);
913 TRACE("Component -> %s\n",debugstr_w(This
->sComponent
));
918 r
= IStream_Read(stm
, &zero
, sizeof zero
, &dwBytesRead
);
919 if( FAILED( r
) || zero
|| dwBytesRead
!= sizeof zero
)
920 ERR("Last word was not zero\n");
931 /************************************************************************
934 * Helper function for IPersistStream_Save. Writes a unicode string
935 * with terminating nul byte to a stream, preceded by the its length.
937 static HRESULT
Stream_WriteString( IStream
* stm
, LPCWSTR str
)
939 USHORT len
= lstrlenW( str
) + 1;
943 r
= IStream_Write( stm
, &len
, sizeof(len
), &count
);
947 len
*= sizeof(WCHAR
);
949 r
= IStream_Write( stm
, str
, len
, &count
);
956 /************************************************************************
957 * Stream_WriteLocationInfo
959 * Writes the location info to a stream
961 * FIXME: One day we might want to write the network volume information
962 * and the final path.
963 * Figure out how Windows deals with unicode paths here.
965 static HRESULT
Stream_WriteLocationInfo( IStream
* stm
, LPCWSTR path
,
966 volume_info
*volume
)
968 DWORD total_size
, path_size
, volume_info_size
, label_size
, final_path_size
;
969 LOCAL_VOLUME_INFO
*vol
;
971 LPSTR szLabel
, szPath
, szFinalPath
;
974 TRACE("%p %s %p\n", stm
, debugstr_w(path
), volume
);
976 /* figure out the size of everything */
977 label_size
= WideCharToMultiByte( CP_ACP
, 0, volume
->label
, -1,
978 NULL
, 0, NULL
, NULL
);
979 path_size
= WideCharToMultiByte( CP_ACP
, 0, path
, -1,
980 NULL
, 0, NULL
, NULL
);
981 volume_info_size
= sizeof *vol
+ label_size
;
983 total_size
= sizeof *loc
+ volume_info_size
+ path_size
+ final_path_size
;
985 /* create pointers to everything */
986 loc
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, total_size
);
987 vol
= (LOCAL_VOLUME_INFO
*) &loc
[1];
988 szLabel
= (LPSTR
) &vol
[1];
989 szPath
= &szLabel
[label_size
];
990 szFinalPath
= &szPath
[path_size
];
992 /* fill in the location information header */
993 loc
->dwTotalSize
= total_size
;
994 loc
->dwHeaderSize
= sizeof (*loc
);
996 loc
->dwVolTableOfs
= sizeof (*loc
);
997 loc
->dwLocalPathOfs
= sizeof (*loc
) + volume_info_size
;
998 loc
->dwNetworkVolTableOfs
= 0;
999 loc
->dwFinalPathOfs
= sizeof (*loc
) + volume_info_size
+ path_size
;
1001 /* fill in the volume information */
1002 vol
->dwSize
= volume_info_size
;
1003 vol
->dwType
= volume
->type
;
1004 vol
->dwVolSerial
= volume
->serial
;
1005 vol
->dwVolLabelOfs
= sizeof (*vol
);
1007 /* copy in the strings */
1008 WideCharToMultiByte( CP_ACP
, 0, volume
->label
, -1,
1009 szLabel
, label_size
, NULL
, NULL
);
1010 WideCharToMultiByte( CP_ACP
, 0, path
, -1,
1011 szPath
, path_size
, NULL
, NULL
);
1014 return IStream_Write( stm
, loc
, total_size
, &count
);
1017 static HRESULT
Stream_WriteAdvertiseInfo( IStream
* stm
, LPCWSTR string
, DWORD magic
)
1020 EXP_DARWIN_LINK buffer
;
1024 memset( &buffer
, 0, sizeof buffer
);
1025 buffer
.dbh
.cbSize
= sizeof buffer
;
1026 buffer
.dbh
.dwSignature
= magic
;
1027 lstrcpynW( buffer
.szwDarwinID
, string
, MAX_PATH
);
1028 WideCharToMultiByte(CP_ACP
, 0, string
, -1, buffer
.szDarwinID
, MAX_PATH
, NULL
, NULL
);
1030 return IStream_Write( stm
, &buffer
, buffer
.dbh
.cbSize
, &count
);
1033 /************************************************************************
1034 * IPersistStream_Save (IPersistStream)
1036 * FIXME: makes assumptions about byte order
1038 static HRESULT WINAPI
IPersistStream_fnSave(
1039 IPersistStream
* iface
,
1043 static const WCHAR wOpen
[] = {'o','p','e','n',0};
1046 WCHAR exePath
[MAX_PATH
];
1051 IShellLinkImpl
*This
= impl_from_IPersistStream(iface
);
1053 TRACE("%p %p %x\n", This
, stm
, fClearDirty
);
1059 SHELL_FindExecutable(NULL
, This
->sPath
, wOpen
, exePath
, MAX_PATH
,
1060 NULL
, NULL
, NULL
, NULL
);
1062 * windows can create lnk files to executables that do not exist yet
1063 * so if the executable does not exist the just trust the path they
1066 if (!*exePath
) lstrcpyW(exePath
,This
->sPath
);
1069 memset(&header
, 0, sizeof(header
));
1070 header
.dwSize
= sizeof(header
);
1071 header
.fStartup
= This
->iShowCmd
;
1072 memcpy(&header
.MagicGuid
, &CLSID_ShellLink
, sizeof(header
.MagicGuid
) );
1074 header
.wHotKey
= This
->wHotKey
;
1075 header
.nIcon
= This
->iIcoNdx
;
1076 header
.dwFlags
= SLDF_UNICODE
; /* strings are in unicode */
1078 header
.dwFlags
|= SLDF_HAS_ID_LIST
;
1080 header
.dwFlags
|= SLDF_HAS_LINK_INFO
;
1081 if( This
->sDescription
)
1082 header
.dwFlags
|= SLDF_HAS_NAME
;
1083 if( This
->sWorkDir
)
1084 header
.dwFlags
|= SLDF_HAS_WORKINGDIR
;
1086 header
.dwFlags
|= SLDF_HAS_ARGS
;
1087 if( This
->sIcoPath
)
1088 header
.dwFlags
|= SLDF_HAS_ICONLOCATION
;
1089 if( This
->sProduct
)
1090 header
.dwFlags
|= SLDF_HAS_LOGO3ID
;
1091 if( This
->sComponent
)
1092 header
.dwFlags
|= SLDF_HAS_DARWINID
;
1094 SystemTimeToFileTime ( &This
->time1
, &header
.Time1
);
1095 SystemTimeToFileTime ( &This
->time2
, &header
.Time2
);
1096 SystemTimeToFileTime ( &This
->time3
, &header
.Time3
);
1098 /* write the Shortcut header */
1099 r
= IStream_Write( stm
, &header
, sizeof(header
), &count
);
1102 ERR("Write failed at %d\n",__LINE__
);
1106 TRACE("Writing pidl \n");
1108 /* write the PIDL to the shortcut */
1111 r
= ILSaveToStream( stm
, This
->pPidl
);
1114 ERR("Failed to write PIDL at %d\n",__LINE__
);
1120 Stream_WriteLocationInfo( stm
, exePath
, &This
->volume
);
1122 if( This
->sDescription
)
1123 r
= Stream_WriteString( stm
, This
->sDescription
);
1125 if( This
->sPathRel
)
1126 r
= Stream_WriteString( stm
, This
->sPathRel
);
1128 if( This
->sWorkDir
)
1129 r
= Stream_WriteString( stm
, This
->sWorkDir
);
1132 r
= Stream_WriteString( stm
, This
->sArgs
);
1134 if( This
->sIcoPath
)
1135 r
= Stream_WriteString( stm
, This
->sIcoPath
);
1137 if( This
->sProduct
)
1138 r
= Stream_WriteAdvertiseInfo( stm
, This
->sProduct
, EXP_SZ_ICON_SIG
);
1140 if( This
->sComponent
)
1141 r
= Stream_WriteAdvertiseInfo( stm
, This
->sComponent
, EXP_DARWIN_ID_SIG
);
1143 /* the last field is a single zero dword */
1145 r
= IStream_Write( stm
, &zero
, sizeof zero
, &count
);
1150 /************************************************************************
1151 * IPersistStream_GetSizeMax (IPersistStream)
1153 static HRESULT WINAPI
IPersistStream_fnGetSizeMax(
1154 IPersistStream
* iface
,
1155 ULARGE_INTEGER
* pcbSize
)
1157 IShellLinkImpl
*This
= impl_from_IPersistStream(iface
);
1159 TRACE("(%p)\n", This
);
1164 static const IPersistStreamVtbl psvt
=
1166 IPersistStream_fnQueryInterface
,
1167 IPersistStream_fnAddRef
,
1168 IPersistStream_fnRelease
,
1169 IPersistStream_fnGetClassID
,
1170 IPersistStream_fnIsDirty
,
1171 IPersistStream_fnLoad
,
1172 IPersistStream_fnSave
,
1173 IPersistStream_fnGetSizeMax
1176 /**************************************************************************
1177 * IShellLink_Constructor
1179 HRESULT WINAPI
IShellLink_Constructor( IUnknown
*pUnkOuter
,
1180 REFIID riid
, LPVOID
*ppv
)
1182 IShellLinkImpl
* sl
;
1185 TRACE("unkOut=%p riid=%s\n",pUnkOuter
, debugstr_guid(riid
));
1190 return CLASS_E_NOAGGREGATION
;
1191 sl
= LocalAlloc(LMEM_ZEROINIT
,sizeof(IShellLinkImpl
));
1193 return E_OUTOFMEMORY
;
1197 sl
->lpvtblw
= &slvtw
;
1198 sl
->lpvtblPersistFile
= &pfvt
;
1199 sl
->lpvtblPersistStream
= &psvt
;
1200 sl
->lpvtblShellLinkDataList
= &dlvt
;
1201 sl
->lpvtblShellExtInit
= &eivt
;
1202 sl
->lpvtblContextMenu
= &cmvt
;
1203 sl
->lpvtblObjectWithSite
= &owsvt
;
1204 sl
->iShowCmd
= SW_SHOWNORMAL
;
1209 TRACE("(%p)->()\n",sl
);
1211 r
= ShellLink_QueryInterface( sl
, riid
, ppv
);
1212 ShellLink_Release( sl
);
1217 static BOOL
SHELL_ExistsFileW(LPCWSTR path
)
1219 if (INVALID_FILE_ATTRIBUTES
== GetFileAttributesW(path
))
1224 /**************************************************************************
1225 * ShellLink_UpdatePath
1226 * update absolute path in sPath using relative path in sPathRel
1228 static HRESULT
ShellLink_UpdatePath(LPWSTR sPathRel
, LPCWSTR path
, LPCWSTR sWorkDir
, LPWSTR
* psPath
)
1230 if (!path
|| !psPath
)
1231 return E_INVALIDARG
;
1233 if (!*psPath
&& sPathRel
) {
1234 WCHAR buffer
[2*MAX_PATH
], abs_path
[2*MAX_PATH
];
1235 LPWSTR final
= NULL
;
1237 /* first try if [directory of link file] + [relative path] finds an existing file */
1239 GetFullPathNameW( path
, MAX_PATH
*2, buffer
, &final
);
1242 lstrcpyW(final
, sPathRel
);
1246 if (SHELL_ExistsFileW(buffer
)) {
1247 if (!GetFullPathNameW(buffer
, MAX_PATH
, abs_path
, &final
))
1248 lstrcpyW(abs_path
, buffer
);
1250 /* try if [working directory] + [relative path] finds an existing file */
1252 lstrcpyW(buffer
, sWorkDir
);
1253 lstrcpyW(PathAddBackslashW(buffer
), sPathRel
);
1255 if (SHELL_ExistsFileW(buffer
))
1256 if (!GetFullPathNameW(buffer
, MAX_PATH
, abs_path
, &final
))
1257 lstrcpyW(abs_path
, buffer
);
1261 /* FIXME: This is even not enough - not all shell links can be resolved using this algorithm. */
1263 lstrcpyW(abs_path
, sPathRel
);
1265 *psPath
= HeapAlloc(GetProcessHeap(), 0, (lstrlenW(abs_path
)+1)*sizeof(WCHAR
));
1267 return E_OUTOFMEMORY
;
1269 lstrcpyW(*psPath
, abs_path
);
1275 /**************************************************************************
1276 * IShellLink_ConstructFromFile
1278 HRESULT WINAPI
IShellLink_ConstructFromFile( IUnknown
* pUnkOuter
, REFIID riid
,
1279 LPCITEMIDLIST pidl
, LPVOID
* ppv
)
1283 HRESULT hr
= IShellLink_Constructor(NULL
, riid
, (LPVOID
*)&psl
);
1285 if (SUCCEEDED(hr
)) {
1290 hr
= IShellLinkW_QueryInterface(psl
, &IID_IPersistFile
, (LPVOID
*)&ppf
);
1292 if (SUCCEEDED(hr
)) {
1293 WCHAR path
[MAX_PATH
];
1295 if (SHGetPathFromIDListW(pidl
, path
))
1296 hr
= IPersistFile_Load(ppf
, path
, 0);
1301 *ppv
= (IUnknown
*) psl
;
1303 IPersistFile_Release(ppf
);
1307 IShellLinkW_Release(psl
);
1313 /**************************************************************************
1314 * IShellLinkA_QueryInterface
1316 static HRESULT WINAPI
IShellLinkA_fnQueryInterface( IShellLinkA
* iface
, REFIID riid
, LPVOID
*ppvObj
)
1318 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1319 return ShellLink_QueryInterface( This
, riid
, ppvObj
);
1322 /******************************************************************************
1323 * IShellLinkA_AddRef
1325 static ULONG WINAPI
IShellLinkA_fnAddRef(IShellLinkA
* iface
)
1327 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1328 return ShellLink_AddRef( This
);
1331 /******************************************************************************
1332 * IShellLinkA_Release
1334 static ULONG WINAPI
IShellLinkA_fnRelease(IShellLinkA
* iface
)
1336 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1337 return ShellLink_Release( This
);
1340 static HRESULT WINAPI
IShellLinkA_fnGetPath(IShellLinkA
* iface
, LPSTR pszFile
,
1341 INT cchMaxPath
, WIN32_FIND_DATAA
*pfd
, DWORD fFlags
)
1343 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1345 TRACE("(%p)->(pfile=%p len=%u find_data=%p flags=%lu)(%s)\n",
1346 This
, pszFile
, cchMaxPath
, pfd
, fFlags
, debugstr_w(This
->sPath
));
1348 if (This
->sComponent
|| This
->sProduct
)
1354 WideCharToMultiByte( CP_ACP
, 0, This
->sPath
, -1,
1355 pszFile
, cchMaxPath
, NULL
, NULL
);
1357 if (pfd
) FIXME("(%p): WIN32_FIND_DATA is not yet filled.\n", This
);
1362 static HRESULT WINAPI
IShellLinkA_fnGetIDList(IShellLinkA
* iface
, LPITEMIDLIST
* ppidl
)
1364 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1366 TRACE("(%p)->(ppidl=%p)\n",This
, ppidl
);
1368 return IShellLinkW_GetIDList((IShellLinkW
*)&(This
->lpvtblw
), ppidl
);
1371 static HRESULT WINAPI
IShellLinkA_fnSetIDList(IShellLinkA
* iface
, LPCITEMIDLIST pidl
)
1373 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1375 TRACE("(%p)->(pidl=%p)\n",This
, pidl
);
1378 ILFree(This
->pPidl
);
1379 This
->pPidl
= ILClone (pidl
);
1380 This
->bDirty
= TRUE
;
1385 static HRESULT WINAPI
IShellLinkA_fnGetDescription(IShellLinkA
* iface
, LPSTR pszName
,INT cchMaxName
)
1387 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1389 TRACE("(%p)->(%p len=%u)\n",This
, pszName
, cchMaxName
);
1393 if( This
->sDescription
)
1394 WideCharToMultiByte( CP_ACP
, 0, This
->sDescription
, -1,
1395 pszName
, cchMaxName
, NULL
, NULL
);
1400 static HRESULT WINAPI
IShellLinkA_fnSetDescription(IShellLinkA
* iface
, LPCSTR pszName
)
1402 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1404 TRACE("(%p)->(pName=%s)\n", This
, pszName
);
1406 HeapFree(GetProcessHeap(), 0, This
->sDescription
);
1407 This
->sDescription
= HEAP_strdupAtoW( GetProcessHeap(), 0, pszName
);
1408 if ( !This
->sDescription
)
1409 return E_OUTOFMEMORY
;
1411 This
->bDirty
= TRUE
;
1416 static HRESULT WINAPI
IShellLinkA_fnGetWorkingDirectory(IShellLinkA
* iface
, LPSTR pszDir
,INT cchMaxPath
)
1418 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1420 TRACE("(%p)->(%p len=%u)\n", This
, pszDir
, cchMaxPath
);
1424 if( This
->sWorkDir
)
1425 WideCharToMultiByte( CP_ACP
, 0, This
->sWorkDir
, -1,
1426 pszDir
, cchMaxPath
, NULL
, NULL
);
1431 static HRESULT WINAPI
IShellLinkA_fnSetWorkingDirectory(IShellLinkA
* iface
, LPCSTR pszDir
)
1433 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1435 TRACE("(%p)->(dir=%s)\n",This
, pszDir
);
1437 HeapFree(GetProcessHeap(), 0, This
->sWorkDir
);
1438 This
->sWorkDir
= HEAP_strdupAtoW( GetProcessHeap(), 0, pszDir
);
1439 if ( !This
->sWorkDir
)
1440 return E_OUTOFMEMORY
;
1442 This
->bDirty
= TRUE
;
1447 static HRESULT WINAPI
IShellLinkA_fnGetArguments(IShellLinkA
* iface
, LPSTR pszArgs
,INT cchMaxPath
)
1449 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1451 TRACE("(%p)->(%p len=%u)\n", This
, pszArgs
, cchMaxPath
);
1456 WideCharToMultiByte( CP_ACP
, 0, This
->sArgs
, -1,
1457 pszArgs
, cchMaxPath
, NULL
, NULL
);
1462 static HRESULT WINAPI
IShellLinkA_fnSetArguments(IShellLinkA
* iface
, LPCSTR pszArgs
)
1464 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1466 TRACE("(%p)->(args=%s)\n",This
, pszArgs
);
1468 HeapFree(GetProcessHeap(), 0, This
->sArgs
);
1469 This
->sArgs
= HEAP_strdupAtoW( GetProcessHeap(), 0, pszArgs
);
1471 return E_OUTOFMEMORY
;
1473 This
->bDirty
= TRUE
;
1478 static HRESULT WINAPI
IShellLinkA_fnGetHotkey(IShellLinkA
* iface
, WORD
*pwHotkey
)
1480 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1482 TRACE("(%p)->(%p)(0x%08x)\n",This
, pwHotkey
, This
->wHotKey
);
1484 *pwHotkey
= This
->wHotKey
;
1489 static HRESULT WINAPI
IShellLinkA_fnSetHotkey(IShellLinkA
* iface
, WORD wHotkey
)
1491 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1493 TRACE("(%p)->(hotkey=%x)\n",This
, wHotkey
);
1495 This
->wHotKey
= wHotkey
;
1496 This
->bDirty
= TRUE
;
1501 static HRESULT WINAPI
IShellLinkA_fnGetShowCmd(IShellLinkA
* iface
, INT
*piShowCmd
)
1503 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1505 TRACE("(%p)->(%p)\n",This
, piShowCmd
);
1506 *piShowCmd
= This
->iShowCmd
;
1510 static HRESULT WINAPI
IShellLinkA_fnSetShowCmd(IShellLinkA
* iface
, INT iShowCmd
)
1512 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1514 TRACE("(%p) %d\n",This
, iShowCmd
);
1516 This
->iShowCmd
= iShowCmd
;
1517 This
->bDirty
= TRUE
;
1522 static HRESULT
SHELL_PidlGeticonLocationA(IShellFolder
* psf
, LPITEMIDLIST pidl
, LPSTR pszIconPath
, int cchIconPath
, int* piIcon
)
1524 LPCITEMIDLIST pidlLast
;
1526 HRESULT hr
= SHBindToParent(pidl
, &IID_IShellFolder
, (LPVOID
*)&psf
, &pidlLast
);
1528 if (SUCCEEDED(hr
)) {
1531 hr
= IShellFolder_GetUIObjectOf(psf
, 0, 1, (LPCITEMIDLIST
*)&pidlLast
, &IID_IExtractIconA
, NULL
, (LPVOID
*)&pei
);
1533 if (SUCCEEDED(hr
)) {
1534 hr
= IExtractIconA_GetIconLocation(pei
, 0, pszIconPath
, MAX_PATH
, piIcon
, NULL
);
1536 IExtractIconA_Release(pei
);
1539 IShellFolder_Release(psf
);
1545 static HRESULT WINAPI
IShellLinkA_fnGetIconLocation(IShellLinkA
* iface
, LPSTR pszIconPath
,INT cchIconPath
,INT
*piIcon
)
1547 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1549 TRACE("(%p)->(%p len=%u iicon=%p)\n", This
, pszIconPath
, cchIconPath
, piIcon
);
1552 *piIcon
= This
->iIcoNdx
;
1556 WideCharToMultiByte(CP_ACP
, 0, This
->sIcoPath
, -1, pszIconPath
, cchIconPath
, NULL
, NULL
);
1560 if (This
->pPidl
|| This
->sPath
)
1564 HRESULT hr
= SHGetDesktopFolder(&pdsk
);
1568 /* first look for an icon using the PIDL (if present) */
1570 hr
= SHELL_PidlGeticonLocationA(pdsk
, This
->pPidl
, pszIconPath
, cchIconPath
, piIcon
);
1574 /* if we couldn't find an icon yet, look for it using the file system path */
1575 if (FAILED(hr
) && This
->sPath
)
1579 hr
= IShellFolder_ParseDisplayName(pdsk
, 0, NULL
, This
->sPath
, NULL
, &pidl
, NULL
);
1581 if (SUCCEEDED(hr
)) {
1582 hr
= SHELL_PidlGeticonLocationA(pdsk
, pidl
, pszIconPath
, cchIconPath
, piIcon
);
1588 IShellFolder_Release(pdsk
);
1596 static HRESULT WINAPI
IShellLinkA_fnSetIconLocation(IShellLinkA
* iface
, LPCSTR pszIconPath
,INT iIcon
)
1598 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1600 TRACE("(%p)->(path=%s iicon=%u)\n",This
, pszIconPath
, iIcon
);
1602 HeapFree(GetProcessHeap(), 0, This
->sIcoPath
);
1603 This
->sIcoPath
= HEAP_strdupAtoW(GetProcessHeap(), 0, pszIconPath
);
1604 if ( !This
->sIcoPath
)
1605 return E_OUTOFMEMORY
;
1607 This
->iIcoNdx
= iIcon
;
1608 This
->bDirty
= TRUE
;
1613 static HRESULT WINAPI
IShellLinkA_fnSetRelativePath(IShellLinkA
* iface
, LPCSTR pszPathRel
, DWORD dwReserved
)
1615 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1617 TRACE("(%p)->(path=%s %lx)\n",This
, pszPathRel
, dwReserved
);
1619 HeapFree(GetProcessHeap(), 0, This
->sPathRel
);
1620 This
->sPathRel
= HEAP_strdupAtoW(GetProcessHeap(), 0, pszPathRel
);
1621 This
->bDirty
= TRUE
;
1623 return ShellLink_UpdatePath(This
->sPathRel
, This
->sPath
, This
->sWorkDir
, &This
->sPath
);
1626 static HRESULT WINAPI
IShellLinkA_fnResolve(IShellLinkA
* iface
, HWND hwnd
, DWORD fFlags
)
1628 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1630 TRACE("(%p)->(hwnd=%p flags=%lx)\n",This
, hwnd
, fFlags
);
1632 return IShellLinkW_Resolve( (IShellLinkW
*)&(This
->lpvtblw
), hwnd
, fFlags
);
1635 static HRESULT WINAPI
IShellLinkA_fnSetPath(IShellLinkA
* iface
, LPCSTR pszFile
)
1639 IShellLinkImpl
*This
= (IShellLinkImpl
*)iface
;
1641 TRACE("(%p)->(path=%s)\n",This
, pszFile
);
1643 str
= HEAP_strdupAtoW(GetProcessHeap(), 0, pszFile
);
1645 return E_OUTOFMEMORY
;
1647 r
= IShellLinkW_SetPath((IShellLinkW
*)&(This
->lpvtblw
), str
);
1648 HeapFree( GetProcessHeap(), 0, str
);
1653 /**************************************************************************
1654 * IShellLink Implementation
1657 static const IShellLinkAVtbl slvt
=
1659 IShellLinkA_fnQueryInterface
,
1660 IShellLinkA_fnAddRef
,
1661 IShellLinkA_fnRelease
,
1662 IShellLinkA_fnGetPath
,
1663 IShellLinkA_fnGetIDList
,
1664 IShellLinkA_fnSetIDList
,
1665 IShellLinkA_fnGetDescription
,
1666 IShellLinkA_fnSetDescription
,
1667 IShellLinkA_fnGetWorkingDirectory
,
1668 IShellLinkA_fnSetWorkingDirectory
,
1669 IShellLinkA_fnGetArguments
,
1670 IShellLinkA_fnSetArguments
,
1671 IShellLinkA_fnGetHotkey
,
1672 IShellLinkA_fnSetHotkey
,
1673 IShellLinkA_fnGetShowCmd
,
1674 IShellLinkA_fnSetShowCmd
,
1675 IShellLinkA_fnGetIconLocation
,
1676 IShellLinkA_fnSetIconLocation
,
1677 IShellLinkA_fnSetRelativePath
,
1678 IShellLinkA_fnResolve
,
1679 IShellLinkA_fnSetPath
1683 /**************************************************************************
1684 * IShellLinkW_fnQueryInterface
1686 static HRESULT WINAPI
IShellLinkW_fnQueryInterface(
1687 IShellLinkW
* iface
, REFIID riid
, LPVOID
*ppvObj
)
1689 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1690 return ShellLink_QueryInterface( This
, riid
, ppvObj
);
1693 /******************************************************************************
1694 * IShellLinkW_fnAddRef
1696 static ULONG WINAPI
IShellLinkW_fnAddRef(IShellLinkW
* iface
)
1698 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1699 return ShellLink_AddRef( This
);
1702 /******************************************************************************
1703 * IShellLinkW_fnRelease
1705 static ULONG WINAPI
IShellLinkW_fnRelease(IShellLinkW
* iface
)
1707 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1708 return ShellLink_Release( This
);
1711 static HRESULT WINAPI
IShellLinkW_fnGetPath(IShellLinkW
* iface
, LPWSTR pszFile
,INT cchMaxPath
, WIN32_FIND_DATAW
*pfd
, DWORD fFlags
)
1713 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1715 TRACE("(%p)->(pfile=%p len=%u find_data=%p flags=%lu)(%s)\n",
1716 This
, pszFile
, cchMaxPath
, pfd
, fFlags
, debugstr_w(This
->sPath
));
1718 if (This
->sComponent
|| This
->sProduct
)
1724 lstrcpynW( pszFile
, This
->sPath
, cchMaxPath
);
1726 if (pfd
) FIXME("(%p): WIN32_FIND_DATA is not yet filled.\n", This
);
1731 static HRESULT WINAPI
IShellLinkW_fnGetIDList(IShellLinkW
* iface
, LPITEMIDLIST
* ppidl
)
1733 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1735 TRACE("(%p)->(ppidl=%p)\n",This
, ppidl
);
1739 *ppidl
= ILClone(This
->pPidl
);
1743 static HRESULT WINAPI
IShellLinkW_fnSetIDList(IShellLinkW
* iface
, LPCITEMIDLIST pidl
)
1745 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1747 TRACE("(%p)->(pidl=%p)\n",This
, pidl
);
1750 ILFree( This
->pPidl
);
1751 This
->pPidl
= ILClone( pidl
);
1755 This
->bDirty
= TRUE
;
1760 static HRESULT WINAPI
IShellLinkW_fnGetDescription(IShellLinkW
* iface
, LPWSTR pszName
,INT cchMaxName
)
1762 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1764 TRACE("(%p)->(%p len=%u)\n",This
, pszName
, cchMaxName
);
1767 if( This
->sDescription
)
1768 lstrcpynW( pszName
, This
->sDescription
, cchMaxName
);
1773 static HRESULT WINAPI
IShellLinkW_fnSetDescription(IShellLinkW
* iface
, LPCWSTR pszName
)
1775 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1777 TRACE("(%p)->(desc=%s)\n",This
, debugstr_w(pszName
));
1779 HeapFree(GetProcessHeap(), 0, This
->sDescription
);
1780 This
->sDescription
= HeapAlloc( GetProcessHeap(), 0,
1781 (lstrlenW( pszName
)+1)*sizeof(WCHAR
) );
1782 if ( !This
->sDescription
)
1783 return E_OUTOFMEMORY
;
1785 lstrcpyW( This
->sDescription
, pszName
);
1786 This
->bDirty
= TRUE
;
1791 static HRESULT WINAPI
IShellLinkW_fnGetWorkingDirectory(IShellLinkW
* iface
, LPWSTR pszDir
,INT cchMaxPath
)
1793 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1795 TRACE("(%p)->(%p len %u)\n", This
, pszDir
, cchMaxPath
);
1799 if( This
->sWorkDir
)
1800 lstrcpynW( pszDir
, This
->sWorkDir
, cchMaxPath
);
1805 static HRESULT WINAPI
IShellLinkW_fnSetWorkingDirectory(IShellLinkW
* iface
, LPCWSTR pszDir
)
1807 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1809 TRACE("(%p)->(dir=%s)\n",This
, debugstr_w(pszDir
));
1811 HeapFree(GetProcessHeap(), 0, This
->sWorkDir
);
1812 This
->sWorkDir
= HeapAlloc( GetProcessHeap(), 0,
1813 (lstrlenW( pszDir
)+1)*sizeof (WCHAR
) );
1814 if ( !This
->sWorkDir
)
1815 return E_OUTOFMEMORY
;
1816 lstrcpyW( This
->sWorkDir
, pszDir
);
1817 This
->bDirty
= TRUE
;
1822 static HRESULT WINAPI
IShellLinkW_fnGetArguments(IShellLinkW
* iface
, LPWSTR pszArgs
,INT cchMaxPath
)
1824 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1826 TRACE("(%p)->(%p len=%u)\n", This
, pszArgs
, cchMaxPath
);
1831 lstrcpynW( pszArgs
, This
->sArgs
, cchMaxPath
);
1836 static HRESULT WINAPI
IShellLinkW_fnSetArguments(IShellLinkW
* iface
, LPCWSTR pszArgs
)
1838 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1840 TRACE("(%p)->(args=%s)\n",This
, debugstr_w(pszArgs
));
1842 HeapFree(GetProcessHeap(), 0, This
->sArgs
);
1843 This
->sArgs
= HeapAlloc( GetProcessHeap(), 0,
1844 (lstrlenW( pszArgs
)+1)*sizeof (WCHAR
) );
1846 return E_OUTOFMEMORY
;
1847 lstrcpyW( This
->sArgs
, pszArgs
);
1848 This
->bDirty
= TRUE
;
1853 static HRESULT WINAPI
IShellLinkW_fnGetHotkey(IShellLinkW
* iface
, WORD
*pwHotkey
)
1855 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1857 TRACE("(%p)->(%p)\n",This
, pwHotkey
);
1859 *pwHotkey
=This
->wHotKey
;
1864 static HRESULT WINAPI
IShellLinkW_fnSetHotkey(IShellLinkW
* iface
, WORD wHotkey
)
1866 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1868 TRACE("(%p)->(hotkey=%x)\n",This
, wHotkey
);
1870 This
->wHotKey
= wHotkey
;
1871 This
->bDirty
= TRUE
;
1876 static HRESULT WINAPI
IShellLinkW_fnGetShowCmd(IShellLinkW
* iface
, INT
*piShowCmd
)
1878 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1880 TRACE("(%p)->(%p)\n",This
, piShowCmd
);
1882 *piShowCmd
= This
->iShowCmd
;
1887 static HRESULT WINAPI
IShellLinkW_fnSetShowCmd(IShellLinkW
* iface
, INT iShowCmd
)
1889 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1891 This
->iShowCmd
= iShowCmd
;
1892 This
->bDirty
= TRUE
;
1897 static HRESULT
SHELL_PidlGeticonLocationW(IShellFolder
* psf
, LPITEMIDLIST pidl
, LPWSTR pszIconPath
, int cchIconPath
, int* piIcon
)
1899 LPCITEMIDLIST pidlLast
;
1901 HRESULT hr
= SHBindToParent(pidl
, &IID_IShellFolder
, (LPVOID
*)&psf
, &pidlLast
);
1903 if (SUCCEEDED(hr
)) {
1906 hr
= IShellFolder_GetUIObjectOf(psf
, 0, 1, (LPCITEMIDLIST
*)&pidlLast
, &IID_IExtractIconW
, NULL
, (LPVOID
*)&pei
);
1908 if (SUCCEEDED(hr
)) {
1909 hr
= IExtractIconW_GetIconLocation(pei
, 0, pszIconPath
, MAX_PATH
, piIcon
, NULL
);
1911 IExtractIconW_Release(pei
);
1914 IShellFolder_Release(psf
);
1920 static HRESULT WINAPI
IShellLinkW_fnGetIconLocation(IShellLinkW
* iface
, LPWSTR pszIconPath
,INT cchIconPath
,INT
*piIcon
)
1922 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1924 TRACE("(%p)->(%p len=%u iicon=%p)\n", This
, pszIconPath
, cchIconPath
, piIcon
);
1927 *piIcon
= This
->iIcoNdx
;
1931 lstrcpynW(pszIconPath
, This
->sIcoPath
, cchIconPath
);
1935 if (This
->pPidl
|| This
->sPath
)
1939 HRESULT hr
= SHGetDesktopFolder(&pdsk
);
1943 /* first look for an icon using the PIDL (if present) */
1945 hr
= SHELL_PidlGeticonLocationW(pdsk
, This
->pPidl
, pszIconPath
, cchIconPath
, piIcon
);
1949 /* if we couldn't find an icon yet, look for it using the file system path */
1950 if (FAILED(hr
) && This
->sPath
)
1954 hr
= IShellFolder_ParseDisplayName(pdsk
, 0, NULL
, This
->sPath
, NULL
, &pidl
, NULL
);
1958 hr
= SHELL_PidlGeticonLocationW(pdsk
, pidl
, pszIconPath
, cchIconPath
, piIcon
);
1964 IShellFolder_Release(pdsk
);
1971 static HRESULT WINAPI
IShellLinkW_fnSetIconLocation(IShellLinkW
* iface
, LPCWSTR pszIconPath
,INT iIcon
)
1973 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1975 TRACE("(%p)->(path=%s iicon=%u)\n",This
, debugstr_w(pszIconPath
), iIcon
);
1977 HeapFree(GetProcessHeap(), 0, This
->sIcoPath
);
1978 This
->sIcoPath
= HeapAlloc( GetProcessHeap(), 0,
1979 (lstrlenW( pszIconPath
)+1)*sizeof (WCHAR
) );
1980 if ( !This
->sIcoPath
)
1981 return E_OUTOFMEMORY
;
1982 lstrcpyW( This
->sIcoPath
, pszIconPath
);
1984 This
->iIcoNdx
= iIcon
;
1985 This
->bDirty
= TRUE
;
1990 static HRESULT WINAPI
IShellLinkW_fnSetRelativePath(IShellLinkW
* iface
, LPCWSTR pszPathRel
, DWORD dwReserved
)
1992 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
1994 TRACE("(%p)->(path=%s %lx)\n",This
, debugstr_w(pszPathRel
), dwReserved
);
1996 HeapFree(GetProcessHeap(), 0, This
->sPathRel
);
1997 This
->sPathRel
= HeapAlloc( GetProcessHeap(), 0,
1998 (lstrlenW( pszPathRel
)+1) * sizeof (WCHAR
) );
1999 if ( !This
->sPathRel
)
2000 return E_OUTOFMEMORY
;
2001 lstrcpyW( This
->sPathRel
, pszPathRel
);
2002 This
->bDirty
= TRUE
;
2004 return ShellLink_UpdatePath(This
->sPathRel
, This
->sPath
, This
->sWorkDir
, &This
->sPath
);
2007 static HRESULT WINAPI
IShellLinkW_fnResolve(IShellLinkW
* iface
, HWND hwnd
, DWORD fFlags
)
2012 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
2014 TRACE("(%p)->(hwnd=%p flags=%lx)\n",This
, hwnd
, fFlags
);
2016 /*FIXME: use IResolveShellLink interface */
2018 if (!This
->sPath
&& This
->pPidl
) {
2019 WCHAR buffer
[MAX_PATH
];
2021 bSuccess
= SHGetPathFromIDListW(This
->pPidl
, buffer
);
2023 if (bSuccess
&& *buffer
) {
2024 This
->sPath
= HeapAlloc(GetProcessHeap(), 0, (lstrlenW(buffer
)+1)*sizeof(WCHAR
));
2026 return E_OUTOFMEMORY
;
2028 lstrcpyW(This
->sPath
, buffer
);
2030 This
->bDirty
= TRUE
;
2032 hr
= S_OK
; /* don't report an error occurred while just caching information */
2035 if (!This
->sIcoPath
&& This
->sPath
) {
2036 This
->sIcoPath
= HeapAlloc(GetProcessHeap(), 0, (lstrlenW(This
->sPath
)+1)*sizeof(WCHAR
));
2037 if (!This
->sIcoPath
)
2038 return E_OUTOFMEMORY
;
2040 lstrcpyW(This
->sIcoPath
, This
->sPath
);
2043 This
->bDirty
= TRUE
;
2049 static LPWSTR
ShellLink_GetAdvertisedArg(LPCWSTR str
)
2058 p
= strchrW( str
, ':' );
2062 ret
= HeapAlloc( GetProcessHeap(), 0, sizeof(WCHAR
)*(len
+1));
2065 memcpy( ret
, str
, sizeof(WCHAR
)*len
);
2070 static HRESULT
ShellLink_SetAdvertiseInfo(IShellLinkImpl
*This
, LPCWSTR str
)
2072 LPCWSTR szComponent
= NULL
, szProduct
= NULL
, p
;
2080 /* each segment must start with two colons */
2081 if( str
[0] != ':' || str
[1] != ':' )
2084 /* the last segment is just two colons */
2089 /* there must be a colon straight after a guid */
2090 p
= strchrW( str
, ':' );
2097 /* get the guid, and check it's validly formatted */
2098 memcpy( szGuid
, str
, sizeof(WCHAR
)*len
);
2100 r
= CLSIDFromString( szGuid
, &guid
);
2105 /* match it up to a guid that we care about */
2106 if( IsEqualGUID( &guid
, &SHELL32_AdvtShortcutComponent
) && !szComponent
)
2108 else if( IsEqualGUID( &guid
, &SHELL32_AdvtShortcutProduct
) && !szProduct
)
2113 /* skip to the next field */
2114 str
= strchrW( str
, ':' );
2119 /* we have to have a component for an advertised shortcut */
2123 This
->sComponent
= ShellLink_GetAdvertisedArg( szComponent
);
2124 This
->sProduct
= ShellLink_GetAdvertisedArg( szProduct
);
2126 TRACE("Component = %s\n", debugstr_w(This
->sComponent
));
2127 TRACE("Product = %s\n", debugstr_w(This
->sProduct
));
2132 static BOOL
ShellLink_GetVolumeInfo(LPWSTR path
, volume_info
*volume
)
2134 const int label_sz
= sizeof volume
->label
/sizeof volume
->label
[0];
2135 WCHAR drive
[4] = { path
[0], ':', '\\', 0 };
2138 volume
->type
= GetDriveTypeW(drive
);
2139 r
= GetVolumeInformationW(drive
, volume
->label
, label_sz
,
2140 &volume
->serial
, NULL
, NULL
, NULL
, 0);
2141 TRACE("r = %d type %ld serial %08lx name %s\n", r
,
2142 volume
->type
, volume
->serial
, debugstr_w(volume
->label
));
2146 static HRESULT WINAPI
IShellLinkW_fnSetPath(IShellLinkW
* iface
, LPCWSTR pszFile
)
2148 IShellLinkImpl
*This
= impl_from_IShellLinkW(iface
);
2149 WCHAR buffer
[MAX_PATH
];
2153 TRACE("(%p)->(path=%s)\n",This
, debugstr_w(pszFile
));
2155 HeapFree(GetProcessHeap(), 0, This
->sPath
);
2158 HeapFree(GetProcessHeap(), 0, This
->sComponent
);
2159 This
->sComponent
= NULL
;
2162 ILFree(This
->pPidl
);
2165 if (S_OK
!= ShellLink_SetAdvertiseInfo( This
, pszFile
))
2167 if (*pszFile
== '\0')
2169 else if (!GetFullPathNameW(pszFile
, MAX_PATH
, buffer
, &fname
))
2171 else if(!PathFileExistsW(buffer
))
2174 This
->pPidl
= SHSimpleIDListFromPathW(pszFile
);
2175 ShellLink_GetVolumeInfo(buffer
, &This
->volume
);
2177 This
->sPath
= HeapAlloc( GetProcessHeap(), 0,
2178 (lstrlenW( buffer
)+1) * sizeof (WCHAR
) );
2180 return E_OUTOFMEMORY
;
2182 lstrcpyW(This
->sPath
, buffer
);
2184 This
->bDirty
= TRUE
;
2189 /**************************************************************************
2190 * IShellLinkW Implementation
2193 static const IShellLinkWVtbl slvtw
=
2195 IShellLinkW_fnQueryInterface
,
2196 IShellLinkW_fnAddRef
,
2197 IShellLinkW_fnRelease
,
2198 IShellLinkW_fnGetPath
,
2199 IShellLinkW_fnGetIDList
,
2200 IShellLinkW_fnSetIDList
,
2201 IShellLinkW_fnGetDescription
,
2202 IShellLinkW_fnSetDescription
,
2203 IShellLinkW_fnGetWorkingDirectory
,
2204 IShellLinkW_fnSetWorkingDirectory
,
2205 IShellLinkW_fnGetArguments
,
2206 IShellLinkW_fnSetArguments
,
2207 IShellLinkW_fnGetHotkey
,
2208 IShellLinkW_fnSetHotkey
,
2209 IShellLinkW_fnGetShowCmd
,
2210 IShellLinkW_fnSetShowCmd
,
2211 IShellLinkW_fnGetIconLocation
,
2212 IShellLinkW_fnSetIconLocation
,
2213 IShellLinkW_fnSetRelativePath
,
2214 IShellLinkW_fnResolve
,
2215 IShellLinkW_fnSetPath
2218 static HRESULT WINAPI
2219 ShellLink_DataList_QueryInterface( IShellLinkDataList
* iface
, REFIID riid
, void** ppvObject
)
2221 IShellLinkImpl
*This
= impl_from_IShellLinkDataList(iface
);
2222 return IShellLinkA_QueryInterface((IShellLinkA
*)This
, riid
, ppvObject
);
2226 ShellLink_DataList_AddRef( IShellLinkDataList
* iface
)
2228 IShellLinkImpl
*This
= impl_from_IShellLinkDataList(iface
);
2229 return IShellLinkA_AddRef((IShellLinkA
*)This
);
2233 ShellLink_DataList_Release( IShellLinkDataList
* iface
)
2235 IShellLinkImpl
*This
= impl_from_IShellLinkDataList(iface
);
2236 return ShellLink_Release( This
);
2239 static HRESULT WINAPI
2240 ShellLink_AddDataBlock( IShellLinkDataList
* iface
, void* pDataBlock
)
2246 static HRESULT WINAPI
2247 ShellLink_CopyDataBlock( IShellLinkDataList
* iface
, DWORD dwSig
, void** ppDataBlock
)
2253 static HRESULT WINAPI
2254 ShellLink_RemoveDataBlock( IShellLinkDataList
* iface
, DWORD dwSig
)
2260 static HRESULT WINAPI
2261 ShellLink_GetFlags( IShellLinkDataList
* iface
, DWORD
* pdwFlags
)
2267 static HRESULT WINAPI
2268 ShellLink_SetFlags( IShellLinkDataList
* iface
, DWORD dwFlags
)
2274 static const IShellLinkDataListVtbl dlvt
=
2276 ShellLink_DataList_QueryInterface
,
2277 ShellLink_DataList_AddRef
,
2278 ShellLink_DataList_Release
,
2279 ShellLink_AddDataBlock
,
2280 ShellLink_CopyDataBlock
,
2281 ShellLink_RemoveDataBlock
,
2286 static HRESULT WINAPI
2287 ShellLink_ExtInit_QueryInterface( IShellExtInit
* iface
, REFIID riid
, void** ppvObject
)
2289 IShellLinkImpl
*This
= impl_from_IShellExtInit(iface
);
2290 return IShellLinkA_QueryInterface((IShellLinkA
*)This
, riid
, ppvObject
);
2294 ShellLink_ExtInit_AddRef( IShellExtInit
* iface
)
2296 IShellLinkImpl
*This
= impl_from_IShellExtInit(iface
);
2297 return IShellLinkA_AddRef((IShellLinkA
*)This
);
2301 ShellLink_ExtInit_Release( IShellExtInit
* iface
)
2303 IShellLinkImpl
*This
= impl_from_IShellExtInit(iface
);
2304 return ShellLink_Release( This
);
2307 /**************************************************************************
2308 * ShellLink implementation of IShellExtInit::Initialize()
2310 * Loads the shelllink from the dataobject the shell is pointing to.
2312 static HRESULT WINAPI
2313 ShellLink_ExtInit_Initialize( IShellExtInit
* iface
, LPCITEMIDLIST pidlFolder
,
2314 IDataObject
*pdtobj
, HKEY hkeyProgID
)
2316 IShellLinkImpl
*This
= impl_from_IShellExtInit(iface
);
2322 TRACE("%p %p %p %p\n", This
, pidlFolder
, pdtobj
, hkeyProgID
);
2327 format
.cfFormat
= CF_HDROP
;
2329 format
.dwAspect
= DVASPECT_CONTENT
;
2331 format
.tymed
= TYMED_HGLOBAL
;
2333 if( FAILED( IDataObject_GetData( pdtobj
, &format
, &stgm
) ) )
2336 count
= DragQueryFileW( stgm
.u
.hGlobal
, -1, NULL
, 0 );
2341 count
= DragQueryFileW( stgm
.u
.hGlobal
, 0, NULL
, 0 );
2343 path
= HeapAlloc( GetProcessHeap(), 0, count
*sizeof(WCHAR
) );
2346 IPersistFile
*pf
= (IPersistFile
*) &This
->lpvtblPersistFile
;
2348 count
= DragQueryFileW( stgm
.u
.hGlobal
, 0, path
, count
);
2349 r
= IPersistFile_Load( pf
, path
, 0 );
2350 HeapFree( GetProcessHeap(), 0, path
);
2353 ReleaseStgMedium( &stgm
);
2358 static const IShellExtInitVtbl eivt
=
2360 ShellLink_ExtInit_QueryInterface
,
2361 ShellLink_ExtInit_AddRef
,
2362 ShellLink_ExtInit_Release
,
2363 ShellLink_ExtInit_Initialize
2366 static HRESULT WINAPI
2367 ShellLink_ContextMenu_QueryInterface( IContextMenu
* iface
, REFIID riid
, void** ppvObject
)
2369 IShellLinkImpl
*This
= impl_from_IContextMenu(iface
);
2370 return IShellLinkA_QueryInterface((IShellLinkA
*)This
, riid
, ppvObject
);
2374 ShellLink_ContextMenu_AddRef( IContextMenu
* iface
)
2376 IShellLinkImpl
*This
= impl_from_IContextMenu(iface
);
2377 return IShellLinkA_AddRef((IShellLinkA
*)This
);
2381 ShellLink_ContextMenu_Release( IContextMenu
* iface
)
2383 IShellLinkImpl
*This
= impl_from_IContextMenu(iface
);
2384 return ShellLink_Release( This
);
2387 static HRESULT WINAPI
2388 ShellLink_QueryContextMenu( IContextMenu
* iface
, HMENU hmenu
, UINT indexMenu
,
2389 UINT idCmdFirst
, UINT idCmdLast
, UINT uFlags
)
2391 IShellLinkImpl
*This
= impl_from_IContextMenu(iface
);
2392 static const WCHAR szOpen
[] = { 'O','p','e','n',0 };
2396 TRACE("%p %p %u %u %u %u\n", This
,
2397 hmenu
, indexMenu
, idCmdFirst
, idCmdLast
, uFlags
);
2400 return E_INVALIDARG
;
2402 memset( &mii
, 0, sizeof mii
);
2403 mii
.cbSize
= sizeof mii
;
2404 mii
.fMask
= MIIM_TYPE
| MIIM_ID
| MIIM_STATE
;
2405 mii
.dwTypeData
= (LPWSTR
)szOpen
;
2406 mii
.cch
= strlenW( mii
.dwTypeData
);
2407 mii
.wID
= idCmdFirst
+ id
++;
2408 mii
.fState
= MFS_DEFAULT
| MFS_ENABLED
;
2409 mii
.fType
= MFT_STRING
;
2410 if (!InsertMenuItemW( hmenu
, indexMenu
, TRUE
, &mii
))
2414 return MAKE_HRESULT( SEVERITY_SUCCESS
, 0, id
);
2418 shelllink_get_msi_component_path( LPWSTR component
)
2423 r
= CommandLineFromMsiDescriptor( component
, NULL
, &sz
);
2424 if (r
!= ERROR_SUCCESS
)
2428 path
= HeapAlloc( GetProcessHeap(), 0, sz
*sizeof(WCHAR
) );
2429 r
= CommandLineFromMsiDescriptor( component
, path
, &sz
);
2430 if (r
!= ERROR_SUCCESS
)
2432 HeapFree( GetProcessHeap(), 0, path
);
2436 TRACE("returning %s\n", debugstr_w( path
) );
2441 static HRESULT WINAPI
2442 ShellLink_InvokeCommand( IContextMenu
* iface
, LPCMINVOKECOMMANDINFO lpici
)
2444 IShellLinkImpl
*This
= impl_from_IContextMenu(iface
);
2445 static const WCHAR szOpen
[] = { 'O','p','e','n',0 };
2446 SHELLEXECUTEINFOW sei
;
2447 HWND hwnd
= NULL
; /* FIXME: get using interface set from IObjectWithSite */
2452 TRACE("%p %p\n", This
, lpici
);
2454 if ( lpici
->cbSize
< sizeof (CMINVOKECOMMANDINFO
) )
2455 return E_INVALIDARG
;
2457 if ( lpici
->lpVerb
!= MAKEINTRESOURCEA(This
->iIdOpen
) )
2459 ERR("Unknown id %d != %d\n", (INT
)lpici
->lpVerb
, This
->iIdOpen
);
2460 return E_INVALIDARG
;
2463 r
= IShellLinkW_Resolve( (IShellLinkW
*)&(This
->lpvtblw
), hwnd
, 0 );
2467 if ( This
->sComponent
)
2469 path
= shelllink_get_msi_component_path( This
->sComponent
);
2474 path
= strdupW( This
->sPath
);
2476 if ( lpici
->cbSize
== sizeof (CMINVOKECOMMANDINFOEX
) &&
2477 ( lpici
->fMask
& CMIC_MASK_UNICODE
) )
2479 LPCMINVOKECOMMANDINFOEX iciex
= (LPCMINVOKECOMMANDINFOEX
) lpici
;
2483 len
+= lstrlenW( This
->sArgs
);
2484 if ( iciex
->lpParametersW
)
2485 len
+= lstrlenW( iciex
->lpParametersW
);
2487 args
= HeapAlloc( GetProcessHeap(), 0, len
*sizeof(WCHAR
) );
2490 lstrcatW( args
, This
->sArgs
);
2491 if ( iciex
->lpParametersW
)
2493 static const WCHAR space
[] = { ' ', 0 };
2494 lstrcatW( args
, space
);
2495 lstrcatW( args
, iciex
->lpParametersW
);
2499 memset( &sei
, 0, sizeof sei
);
2500 sei
.cbSize
= sizeof sei
;
2501 sei
.fMask
= SEE_MASK_UNICODE
| SEE_MASK_NOCLOSEPROCESS
;
2503 sei
.nShow
= This
->iShowCmd
;
2504 sei
.lpIDList
= This
->pPidl
;
2505 sei
.lpDirectory
= This
->sWorkDir
;
2506 sei
.lpParameters
= args
;
2507 sei
.lpVerb
= szOpen
;
2509 if( ShellExecuteExW( &sei
) )
2513 WaitForSingleObject( sei
.hProcess
, 10000 );
2514 CloseHandle( sei
.hProcess
);
2521 HeapFree( GetProcessHeap(), 0, args
);
2522 HeapFree( GetProcessHeap(), 0, path
);
2527 static HRESULT WINAPI
2528 ShellLink_GetCommandString( IContextMenu
* iface
, UINT_PTR idCmd
, UINT uType
,
2529 UINT
* pwReserved
, LPSTR pszName
, UINT cchMax
)
2531 IShellLinkImpl
*This
= impl_from_IContextMenu(iface
);
2533 FIXME("%p %u %u %p %p %u\n", This
,
2534 idCmd
, uType
, pwReserved
, pszName
, cchMax
);
2539 static const IContextMenuVtbl cmvt
=
2541 ShellLink_ContextMenu_QueryInterface
,
2542 ShellLink_ContextMenu_AddRef
,
2543 ShellLink_ContextMenu_Release
,
2544 ShellLink_QueryContextMenu
,
2545 ShellLink_InvokeCommand
,
2546 ShellLink_GetCommandString
2549 static HRESULT WINAPI
2550 ShellLink_ObjectWithSite_QueryInterface( IObjectWithSite
* iface
, REFIID riid
, void** ppvObject
)
2552 IShellLinkImpl
*This
= impl_from_IObjectWithSite(iface
);
2553 return ShellLink_QueryInterface( This
, riid
, ppvObject
);
2557 ShellLink_ObjectWithSite_AddRef( IObjectWithSite
* iface
)
2559 IShellLinkImpl
*This
= impl_from_IObjectWithSite(iface
);
2560 return ShellLink_AddRef( This
);
2564 ShellLink_ObjectWithSite_Release( IObjectWithSite
* iface
)
2566 IShellLinkImpl
*This
= impl_from_IObjectWithSite(iface
);
2567 return ShellLink_Release( This
);
2570 static HRESULT WINAPI
2571 ShellLink_GetSite( IObjectWithSite
*iface
, REFIID iid
, void ** ppvSite
)
2573 IShellLinkImpl
*This
= impl_from_IObjectWithSite(iface
);
2575 TRACE("%p %s %p\n", This
, debugstr_guid( iid
), ppvSite
);
2579 return IUnknown_QueryInterface( This
->site
, iid
, ppvSite
);
2582 static HRESULT WINAPI
2583 ShellLink_SetSite( IObjectWithSite
*iface
, IUnknown
*punk
)
2585 IShellLinkImpl
*This
= impl_from_IObjectWithSite(iface
);
2587 TRACE("%p %p\n", iface
, punk
);
2590 IUnknown_AddRef( punk
);
2596 static const IObjectWithSiteVtbl owsvt
=
2598 ShellLink_ObjectWithSite_QueryInterface
,
2599 ShellLink_ObjectWithSite_AddRef
,
2600 ShellLink_ObjectWithSite_Release
,