4 * Copyright 1998 Juergen Schmied
7 * a pidl == NULL means desktop and is legal
15 #include "debugtools.h"
20 #include "winversion.h"
21 #include "shell32_main.h"
25 #include "wine/undocshell.h"
27 DECLARE_DEBUG_CHANNEL(pidl
)
28 DECLARE_DEBUG_CHANNEL(shell
)
30 void pdump (LPCITEMIDLIST pidl
)
34 char szName
[MAX_PATH
];
37 LPITEMIDLIST pidltemp
= pidl
;
41 /* silence the sub-functions */
42 bIsShellDebug
= TRACE_ON(shell
);
43 __SET_DEBUGGING(__DBCL_TRACE
, dbch_shell
, FALSE
);
44 __SET_DEBUGGING(__DBCL_TRACE
, dbch_pidl
, FALSE
);
48 MESSAGE ("-------- pidl=NULL (Desktop)\n");
52 MESSAGE ("-------- pidl=%p\n", pidl
);
53 if (pidltemp
->mkid
.cb
)
57 type
= _ILGetDataPointer(pidltemp
)->type
;
58 szData
= _ILGetTextPointer(type
, _ILGetDataPointer(pidltemp
));
59 szShortName
= _ILGetSTextPointer(type
, _ILGetDataPointer(pidltemp
));
60 _ILSimpleGetText(pidltemp
, szName
, MAX_PATH
);
62 MESSAGE ("-- pidl=%p size=%u type=%lx name=%s (%s,%s)\n",
63 pidltemp
, pidltemp
->mkid
.cb
,type
,szName
,debugstr_a(szData
), debugstr_a(szShortName
));
65 pidltemp
= ILGetNext(pidltemp
);
67 } while (pidltemp
->mkid
.cb
);
71 MESSAGE ("empty pidl (Desktop)\n");
75 __SET_DEBUGGING(__DBCL_TRACE
, dbch_shell
, bIsShellDebug
);
76 __SET_DEBUGGING(__DBCL_TRACE
, dbch_pidl
, TRUE
);
79 #define BYTES_PRINTED 32
80 BOOL
pcheck (LPCITEMIDLIST pidl
)
81 { DWORD type
, ret
=TRUE
;
84 LPITEMIDLIST pidltemp
= pidl
;
86 bIsPidlDebug
= TRACE_ON(shell
);
87 __SET_DEBUGGING(__DBCL_TRACE
, dbch_pidl
, FALSE
);
89 if (pidltemp
&& pidltemp
->mkid
.cb
)
91 { type
= _ILGetDataPointer(pidltemp
)->type
;
111 char szTemp
[BYTES_PRINTED
*4 + 1];
115 memset(szTemp
, ' ', BYTES_PRINTED
*4 + 1);
116 for ( i
= 0; (i
<pidltemp
->mkid
.cb
) && (i
<BYTES_PRINTED
); i
++)
118 c
= ((unsigned char *)pidltemp
)[i
];
120 szTemp
[i
*3+0] = ((c
>>4)>9)? (c
>>4)+55 : (c
>>4)+48;
121 szTemp
[i
*3+1] = ((0x0F&c
)>9)? (0x0F&c
)+55 : (0x0F&c
)+48;
123 szTemp
[i
+BYTES_PRINTED
*3] = (c
>=0x20 && c
<=0x80) ? c
: '.';
125 szTemp
[BYTES_PRINTED
*4] = 0x00;
126 ERR_(pidl
)("unknown IDLIST type size=%u type=%lx\n%s\n",pidltemp
->mkid
.cb
,type
, szTemp
);
130 pidltemp
= ILGetNext(pidltemp
);
131 } while (pidltemp
->mkid
.cb
);
133 __SET_DEBUGGING(__DBCL_TRACE
, dbch_pidl
, bIsPidlDebug
);
137 /*************************************************************************
138 * ILGetDisplayName [SHELL32.15]
140 BOOL WINAPI
ILGetDisplayName(LPCITEMIDLIST pidl
,LPSTR path
)
142 TRACE_(shell
)("pidl=%p %p semi-stub\n",pidl
,path
);
143 return SHGetPathFromIDListA(pidl
, path
);
145 /*************************************************************************
146 * ILFindLastID [SHELL32.16]
149 * observed: pidl=Desktop return=pidl
151 LPITEMIDLIST WINAPI
ILFindLastID(LPITEMIDLIST pidl
)
152 { LPITEMIDLIST pidlLast
= pidl
;
154 TRACE_(pidl
)("(pidl=%p)\n",pidl
);
156 while (pidl
->mkid
.cb
)
159 pidl
= ILGetNext(pidl
);
163 /*************************************************************************
164 * ILRemoveLastID [SHELL32.17]
167 * when pidl=Desktop return=FALSE
169 BOOL WINAPI
ILRemoveLastID(LPCITEMIDLIST pidl
)
171 TRACE_(shell
)("pidl=%p\n",pidl
);
173 if (!pidl
|| !pidl
->mkid
.cb
)
175 ILFindLastID(pidl
)->mkid
.cb
= 0;
179 /*************************************************************************
180 * ILClone [SHELL32.18]
185 LPITEMIDLIST WINAPI
ILClone (LPCITEMIDLIST pidl
)
187 LPITEMIDLIST newpidl
;
192 len
= ILGetSize(pidl
);
193 newpidl
= (LPITEMIDLIST
)SHAlloc(len
);
195 memcpy(newpidl
,pidl
,len
);
197 TRACE_(pidl
)("pidl=%p newpidl=%p\n",pidl
, newpidl
);
202 /*************************************************************************
203 * ILCloneFirst [SHELL32.19]
206 * duplicates the first idlist of a complex pidl
208 LPITEMIDLIST WINAPI
ILCloneFirst(LPCITEMIDLIST pidl
)
210 LPITEMIDLIST pidlNew
= NULL
;
212 TRACE_(pidl
)("pidl=%p \n",pidl
);
218 pidlNew
= (LPITEMIDLIST
) SHAlloc (len
+2);
221 memcpy(pidlNew
,pidl
,len
+2); /* 2 -> mind a desktop pidl */
224 ILGetNext(pidlNew
)->mkid
.cb
= 0x00;
227 TRACE_(pidl
)("-- newpidl=%p\n",pidlNew
);
231 /*************************************************************************
235 * the first two bytes are the len, the pidl is following then
237 HRESULT WINAPI
ILLoadFromStream (IStream
* pStream
, LPITEMIDLIST
* ppPidl
)
240 HRESULT ret
= E_FAIL
;
243 TRACE_(shell
)("%p %p\n", pStream
, ppPidl
);
250 IStream_AddRef (pStream
);
252 if (SUCCEEDED(IStream_Read(pStream
, (LPVOID
)&wLen
, 2, &dwBytesRead
)))
253 { *ppPidl
= SHAlloc (wLen
);
254 if (SUCCEEDED(IStream_Read(pStream
, *ppPidl
, wLen
, &dwBytesRead
)))
263 /* we are not jet fully compatible */
264 if (!pcheck(*ppPidl
))
270 IStream_Release (pStream
);
274 /*************************************************************************
275 * SHILCreateFromPath [SHELL32.28]
278 * wraper for IShellFolder::ParseDisplayName()
280 HRESULT WINAPI
SHILCreateFromPathA (LPCSTR path
, LPITEMIDLIST
* ppidl
, DWORD
* attributes
)
282 WCHAR lpszDisplayName
[MAX_PATH
];
284 HRESULT ret
= E_FAIL
;
286 TRACE_(shell
)("%s %p 0x%08lx\n",path
,ppidl
,attributes
?*attributes
:0);
288 LocalToWideChar(lpszDisplayName
, path
, MAX_PATH
);
290 if (SUCCEEDED (SHGetDesktopFolder(&sf
)))
292 ret
= IShellFolder_ParseDisplayName(sf
,0, NULL
,lpszDisplayName
,&pchEaten
,ppidl
,attributes
);
293 IShellFolder_Release(sf
);
297 HRESULT WINAPI
SHILCreateFromPathW (LPCWSTR path
, LPITEMIDLIST
* ppidl
, DWORD
* attributes
)
300 HRESULT ret
= E_FAIL
;
302 TRACE_(shell
)("%s %p 0x%08lx\n",debugstr_w(path
),ppidl
,attributes
?*attributes
:0);
304 if (SUCCEEDED (SHGetDesktopFolder(&sf
)))
306 ret
= IShellFolder_ParseDisplayName(sf
,0, NULL
, (LPWSTR
) path
, &pchEaten
, ppidl
, attributes
);
307 IShellFolder_Release(sf
);
311 HRESULT WINAPI
SHILCreateFromPathAW (LPCVOID path
, LPITEMIDLIST
* ppidl
, DWORD
* attributes
)
313 if ( VERSION_OsIsUnicode())
314 return SHILCreateFromPathW (path
, ppidl
, attributes
);
315 return SHILCreateFromPathA (path
, ppidl
, attributes
);
318 /*************************************************************************
319 * SHCloneSpecialIDList [SHELL32.89]
323 * nFolder [in] CSIDL_xxxxx ??
328 * exported by ordinal
330 LPITEMIDLIST WINAPI
SHCloneSpecialIDList(HWND hwndOwner
,DWORD nFolder
,DWORD x3
)
331 { LPITEMIDLIST ppidl
;
332 WARN_(shell
)("(hwnd=0x%x,csidl=0x%lx,0x%lx):semi-stub.\n",
333 hwndOwner
,nFolder
,x3
);
335 SHGetSpecialFolderLocation(hwndOwner
, nFolder
, &ppidl
);
340 /*************************************************************************
341 * ILGlobalClone [SHELL32.97]
344 LPITEMIDLIST WINAPI
ILGlobalClone(LPCITEMIDLIST pidl
)
346 LPITEMIDLIST newpidl
;
351 len
= ILGetSize(pidl
);
352 newpidl
= (LPITEMIDLIST
)pCOMCTL32_Alloc(len
);
354 memcpy(newpidl
,pidl
,len
);
356 TRACE_(pidl
)("pidl=%p newpidl=%p\n",pidl
, newpidl
);
362 /*************************************************************************
363 * ILIsEqual [SHELL32.21]
366 BOOL WINAPI
ILIsEqual(LPCITEMIDLIST pidl1
, LPCITEMIDLIST pidl2
)
368 char szData1
[MAX_PATH
];
369 char szData2
[MAX_PATH
];
371 LPITEMIDLIST pidltemp1
= pidl1
;
372 LPITEMIDLIST pidltemp2
= pidl2
;
374 TRACE_(pidl
)("pidl1=%p pidl2=%p\n",pidl1
, pidl2
);
376 /* explorer reads from registry directly (StreamMRU),
377 so we can only check here */
378 if ((!pcheck (pidl1
)) || (!pcheck (pidl2
))) return FALSE
;
383 if ( (!pidl1
) || (!pidl2
) ) return FALSE
;
385 while (pidltemp1
->mkid
.cb
&& pidltemp2
->mkid
.cb
)
387 _ILSimpleGetText(pidltemp1
, szData1
, MAX_PATH
);
388 _ILSimpleGetText(pidltemp2
, szData2
, MAX_PATH
);
390 if (strcasecmp ( szData1
, szData2
)!=0 )
393 pidltemp1
= ILGetNext(pidltemp1
);
394 pidltemp2
= ILGetNext(pidltemp2
);
397 if (!pidltemp1
->mkid
.cb
&& !pidltemp2
->mkid
.cb
)
404 /*************************************************************************
405 * ILIsParent [SHELL32.23]
407 * parent=a/b child=a/b/c -> true, c is in folder a/b
408 * child=a/b/c/d -> false if bImmediate is true, d is not in folder a/b
409 * child=a/b/c/d -> true if bImmediate is false, d is in a subfolder of a/b
411 BOOL WINAPI
ILIsParent( LPCITEMIDLIST pidlParent
, LPCITEMIDLIST pidlChild
, BOOL bImmediate
)
413 char szData1
[MAX_PATH
];
414 char szData2
[MAX_PATH
];
416 LPITEMIDLIST pParent
= pidlParent
;
417 LPITEMIDLIST pChild
= pidlChild
;
419 TRACE_(pidl
)("%p %p %x\n", pidlParent
, pidlChild
, bImmediate
);
421 while (pParent
->mkid
.cb
&& pChild
->mkid
.cb
)
423 _ILSimpleGetText(pParent
, szData1
, MAX_PATH
);
424 _ILSimpleGetText(pChild
, szData2
, MAX_PATH
);
426 if (strcasecmp ( szData1
, szData2
)!=0 )
429 pParent
= ILGetNext(pParent
);
430 pChild
= ILGetNext(pChild
);
433 if ( pParent
->mkid
.cb
|| ! pChild
->mkid
.cb
) /* child shorter or has equal length to parent */
436 if ( ILGetNext(pChild
)->mkid
.cb
&& bImmediate
) /* not immediate descent */
442 /*************************************************************************
443 * ILFindChild [SHELL32.24]
446 * Compares elements from pidl1 and pidl2.
448 * pidl1 is desktop pidl2
449 * pidl1 shorter pidl2 pointer to first different element of pidl2
450 * if there was at least one equal element
451 * pidl2 shorter pidl1 0
452 * pidl2 equal pidl1 pointer to last 0x00-element of pidl2
454 LPITEMIDLIST WINAPI
ILFindChild(LPCITEMIDLIST pidl1
,LPCITEMIDLIST pidl2
)
456 char szData1
[MAX_PATH
];
457 char szData2
[MAX_PATH
];
459 LPITEMIDLIST pidltemp1
= pidl1
;
460 LPITEMIDLIST pidltemp2
= pidl2
;
461 LPITEMIDLIST ret
=NULL
;
463 TRACE_(pidl
)("pidl1=%p pidl2=%p\n",pidl1
, pidl2
);
465 /* explorer reads from registry directly (StreamMRU),
466 so we can only check here */
467 if ((!pcheck (pidl1
)) || (!pcheck (pidl2
)))
473 if ( _ILIsDesktop(pidl1
) )
479 while (pidltemp1
->mkid
.cb
&& pidltemp2
->mkid
.cb
)
481 _ILSimpleGetText(pidltemp1
, szData1
, MAX_PATH
);
482 _ILSimpleGetText(pidltemp2
, szData2
, MAX_PATH
);
484 if (strcasecmp(szData1
,szData2
))
487 pidltemp1
= ILGetNext(pidltemp1
);
488 pidltemp2
= ILGetNext(pidltemp2
);
492 if (pidltemp1
->mkid
.cb
)
494 ret
= NULL
; /* elements of pidl1 left*/
497 TRACE_(shell
)("--- %p\n", ret
);
498 return ret
; /* pidl 1 is shorter */
501 /*************************************************************************
502 * ILCombine [SHELL32.25]
505 * Concatenates two complex idlists.
506 * The pidl is the first one, pidlsub the next one
507 * Does not destroy the passed in idlists!
509 LPITEMIDLIST WINAPI
ILCombine(LPCITEMIDLIST pidl1
,LPCITEMIDLIST pidl2
)
512 LPITEMIDLIST pidlNew
;
514 TRACE_(pidl
)("pidl=%p pidl=%p\n",pidl1
,pidl2
);
516 if(!pidl1
&& !pidl2
) return NULL
;
523 pidlNew
= ILClone(pidl2
);
529 pidlNew
= ILClone(pidl1
);
533 len1
= ILGetSize(pidl1
)-2;
534 len2
= ILGetSize(pidl2
);
535 pidlNew
= SHAlloc(len1
+len2
);
539 memcpy(pidlNew
,pidl1
,len1
);
540 memcpy(((BYTE
*)pidlNew
)+len1
,pidl2
,len2
);
543 /* TRACE(pidl,"--new pidl=%p\n",pidlNew);*/
546 /*************************************************************************
547 * SHGetRealIDL [SHELL32.98]
551 LPITEMIDLIST WINAPI
SHGetRealIDL(LPSHELLFOLDER lpsf
, LPITEMIDLIST pidl
, DWORD z
)
553 FIXME_(pidl
)("sf=%p pidl=%p 0x%04lx\n",lpsf
,pidl
,z
);
559 /*************************************************************************
560 * SHLogILFromFSIL [SHELL32.95]
563 * pild = CSIDL_DESKTOP ret = 0
564 * pild = CSIDL_DRIVES ret = 0
566 LPITEMIDLIST WINAPI
SHLogILFromFSIL(LPITEMIDLIST pidl
)
568 FIXME_(pidl
)("(pidl=%p)\n",pidl
);
575 /*************************************************************************
576 * ILGetSize [SHELL32.152]
577 * gets the byte size of an idlist including zero terminator (pidl)
586 * exported by ordinal
588 DWORD WINAPI
ILGetSize(LPITEMIDLIST pidl
)
590 LPSHITEMID si
= &(pidl
->mkid
);
596 si
= (LPSHITEMID
)(((LPBYTE
)si
)+si
->cb
);
600 TRACE_(pidl
)("pidl=%p size=%lu\n",pidl
, len
);
604 /*************************************************************************
605 * ILGetNext [SHELL32.153]
606 * gets the next simple pidl of a complex pidl
608 * observed return values:
611 * simple pidl -> pointer to 0x0000 element
614 LPITEMIDLIST WINAPI
ILGetNext(LPITEMIDLIST pidl
)
618 TRACE_(pidl
)("(pidl=%p)\n",pidl
);
625 pidl
= (LPITEMIDLIST
) (((LPBYTE
)pidl
)+len
);
631 /*************************************************************************
632 * ILAppend [SHELL32.154]
635 * Adds the single item to the idlist indicated by pidl.
636 * if bEnd is 0, adds the item to the front of the list,
637 * otherwise adds the item to the end. (???)
638 * Destroys the passed in idlist! (???)
640 LPITEMIDLIST WINAPI
ILAppend(LPITEMIDLIST pidl
,LPCITEMIDLIST item
,BOOL bEnd
)
644 WARN_(pidl
)("(pidl=%p,pidl=%p,%08u)semi-stub\n",pidl
,item
,bEnd
);
649 if (_ILIsDesktop(pidl
))
651 idlRet
= ILClone(item
);
659 idlRet
=ILCombine(pidl
,item
);
663 idlRet
=ILCombine(item
,pidl
);
669 /*************************************************************************
670 * ILFree [SHELL32.155]
673 * free_check_ptr - frees memory (if not NULL)
674 * allocated by SHMalloc allocator
675 * exported by ordinal
677 DWORD WINAPI
ILFree(LPITEMIDLIST pidl
)
678 { TRACE_(pidl
)("(pidl=0x%08lx)\n",(DWORD
)pidl
);
685 /*************************************************************************
686 * ILGlobalFree [SHELL32.156]
689 DWORD WINAPI
ILGlobalFree( LPITEMIDLIST pidl
)
691 TRACE_(pidl
)("%p\n",pidl
);
696 return pCOMCTL32_Free (pidl
);
698 /*************************************************************************
699 * ILCreateFromPath [SHELL32.157]
702 LPITEMIDLIST WINAPI
ILCreateFromPathA (LPCSTR path
)
704 LPITEMIDLIST pidlnew
;
705 DWORD attributes
= 0;
707 TRACE_(shell
)("%s\n",path
);
709 if (SUCCEEDED (SHILCreateFromPathA (path
, &pidlnew
, &attributes
)))
713 LPITEMIDLIST WINAPI
ILCreateFromPathW (LPCWSTR path
)
715 LPITEMIDLIST pidlnew
;
716 DWORD attributes
= 0;
718 TRACE_(shell
)("%s\n",debugstr_w(path
));
720 if (SUCCEEDED (SHILCreateFromPathW (path
, &pidlnew
, &attributes
)))
724 LPITEMIDLIST WINAPI
ILCreateFromPathAW (LPCVOID path
)
726 if ( VERSION_OsIsUnicode())
727 return ILCreateFromPathW (path
);
728 return ILCreateFromPathA (path
);
730 /*************************************************************************
731 * SHSimpleIDListFromPath [SHELL32.162]
733 LPITEMIDLIST WINAPI
SHSimpleIDListFromPathA (LPSTR lpszPath
)
735 LPITEMIDLIST pidl
=NULL
;
737 WIN32_FIND_DATAA stffile
;
739 TRACE_(pidl
)("path=%s\n", lpszPath
);
741 if (!lpszPath
) return NULL
;
743 hFile
= FindFirstFileA(lpszPath
, &stffile
);
745 if ( hFile
!= INVALID_HANDLE_VALUE
)
747 if (stffile
.dwFileAttributes
& FILE_ATTRIBUTE_DIRECTORY
)
749 pidl
= _ILCreateFolder (&stffile
);
753 pidl
= _ILCreateValue (&stffile
);
759 LPITEMIDLIST WINAPI
SHSimpleIDListFromPathW (LPWSTR lpszPath
)
761 char lpszTemp
[MAX_PATH
];
762 TRACE_(pidl
)("path=L%s\n",debugstr_w(lpszPath
));
764 WideCharToLocal(lpszTemp
, lpszPath
, MAX_PATH
);
766 return SHSimpleIDListFromPathA (lpszTemp
);
769 LPITEMIDLIST WINAPI
SHSimpleIDListFromPathAW (LPVOID lpszPath
)
771 if ( VERSION_OsIsUnicode())
772 return SHSimpleIDListFromPathW (lpszPath
);
773 return SHSimpleIDListFromPathA (lpszPath
);
776 /*************************************************************************
777 * SHGetSpecialFolderLocation [SHELL32.223]
779 * gets the folder locations from the registry and creates a pidl
780 * creates missing reg keys and directorys
784 * nFolder [I] CSIDL_xxxxx
785 * ppidl [O] PIDL of a special folder
788 HRESULT WINAPI
SHGetSpecialFolderLocation(
791 LPITEMIDLIST
* ppidl
)
794 HRESULT hr
= E_INVALIDARG
;
796 TRACE_(shell
)("(%04x,0x%x,%p)\n", hwndOwner
,nFolder
,ppidl
);
805 *ppidl
= _ILCreateDesktop();
810 *ppidl
= _ILCreateMyComputer();
815 *ppidl
= _ILCreateNetwork ();
820 *ppidl
= _ILCreateControl ();
825 *ppidl
= _ILCreatePrinter ();
829 case CSIDL_BITBUCKET
:
830 *ppidl
= _ILCreateBitBucket ();
835 if (SHGetSpecialFolderPathA(hwndOwner
, szPath
, nFolder
, TRUE
))
838 TRACE_(shell
)("Value=%s\n",szPath
);
839 hr
= SHILCreateFromPathA(szPath
, ppidl
, &attributes
);
844 TRACE_(shell
)("-- (new pidl %p)\n",*ppidl
);
848 /*************************************************************************
849 * SHGetDataFromIDListA [SHELL32.247]
852 HRESULT WINAPI
SHGetDataFromIDListA(LPSHELLFOLDER psf
, LPCITEMIDLIST pidl
, int nFormat
, LPVOID dest
, int len
)
854 TRACE_(shell
)("sf=%p pidl=%p 0x%04x %p 0x%04x stub\n",psf
,pidl
,nFormat
,dest
,len
);
856 if (! psf
|| !dest
) return E_INVALIDARG
;
860 case SHGDFIL_FINDDATA
:
862 WIN32_FIND_DATAA
* pfd
= dest
;
863 CHAR pszPath
[MAX_PATH
];
866 if ( len
< sizeof (WIN32_FIND_DATAA
)) {
867 ERR_(shell
)("%d does not find sizeof(finddata)\n",len
);
871 SHGetPathFromIDListA(pidl
, pszPath
);
873 if ((handle
= FindFirstFileA ( pszPath
, pfd
)))
878 case SHGDFIL_NETRESOURCE
:
879 case SHGDFIL_DESCRIPTIONID
:
880 FIXME_(shell
)("SHGDFIL %i stub\n", nFormat
);
884 ERR_(shell
)("Unknown SHGDFIL %i, please report\n", nFormat
);
889 /*************************************************************************
890 * SHGetDataFromIDListW [SHELL32.247]
893 HRESULT WINAPI
SHGetDataFromIDListW(LPSHELLFOLDER psf
, LPCITEMIDLIST pidl
, int nFormat
, LPVOID dest
, int len
)
895 if (! psf
|| !dest
) return E_INVALIDARG
;
899 case SHGDFIL_FINDDATA
:
901 WIN32_FIND_DATAW
* pfd
= dest
;
902 WCHAR pszPath
[MAX_PATH
];
905 if ( len
< sizeof (WIN32_FIND_DATAW
)) {
906 ERR_(shell
)("%d does not find sizeof(finddata)\n",len
);
909 SHGetPathFromIDListW(pidl
, pszPath
);
910 if ((handle
= FindFirstFileW ( pszPath
, pfd
)))
914 default: /* fallthrough */
917 FIXME_(shell
)("(sf=%p pidl=%p nFormat=0x%04x %p 0x%04x), unhandled.\n",psf
,pidl
,nFormat
,dest
,len
);
918 return SHGetDataFromIDListA( psf
, pidl
, nFormat
, dest
, len
);
921 /*************************************************************************
922 * SHGetPathFromIDListA [SHELL32.261][NT 4.0: SHELL32.220]
929 * path from a passed PIDL.
933 * desktop pidl gives path to desktopdirectory back
934 * special pidls returning FALSE
937 * fnGetDisplayNameOf can return different types of OLEString
939 BOOL WINAPI
SHGetPathFromIDListA (LPCITEMIDLIST pidl
,LPSTR pszPath
)
941 LPSHELLFOLDER shellfolder
;
943 TRACE_(shell
)("(pidl=%p,%p)\n",pidl
,pszPath
);
945 if (!pidl
) return FALSE
;
949 if(_ILIsDesktop(pidl
))
951 SHGetSpecialFolderPathA(0, pszPath
, CSIDL_DESKTOPDIRECTORY
, FALSE
);
955 if (SHGetDesktopFolder(&shellfolder
)==S_OK
)
957 IShellFolder_GetDisplayNameOf(shellfolder
,pidl
,SHGDN_FORPARSING
,&str
);
958 StrRetToStrNA (pszPath
, MAX_PATH
, &str
, pidl
);
959 IShellFolder_Release(shellfolder
);
962 TRACE_(shell
)("-- (%s)\n",pszPath
);
966 /*************************************************************************
967 * SHGetPathFromIDListW [SHELL32.262]
969 BOOL WINAPI
SHGetPathFromIDListW (LPCITEMIDLIST pidl
,LPWSTR pszPath
)
970 { char sTemp
[MAX_PATH
];
972 TRACE_(shell
)("(pidl=%p)\n", pidl
);
974 SHGetPathFromIDListA (pidl
, sTemp
);
975 lstrcpyAtoW(pszPath
, sTemp
);
977 TRACE_(shell
)("-- (%s)\n",debugstr_w(pszPath
));
982 /*************************************************************************
983 * SHBindToParent [shell version 5.0]
985 HRESULT WINAPI
SHBindToParent(LPCITEMIDLIST pidl
, REFIID riid
, LPVOID
*ppv
, LPCITEMIDLIST
*ppidlLast
)
988 LPITEMIDLIST pidlChild
, pidlParent
;
991 TRACE_(shell
)("pidl=%p\n", pidl
);
995 if (ppidlLast
) *ppidlLast
= NULL
;
997 if (_ILIsPidlSimple(pidl
))
999 /* we are on desktop level */
1001 *ppidlLast
= ILClone(pidl
);
1002 hr
= SHGetDesktopFolder((IShellFolder
**)ppv
);
1006 pidlChild
= ILClone(ILFindLastID(pidl
));
1007 pidlParent
= ILClone(pidl
);
1008 ILRemoveLastID(pidlParent
);
1010 hr
= SHGetDesktopFolder(&psf
);
1013 hr
= IShellFolder_BindToObject(psf
, pidlParent
, NULL
, riid
, ppv
);
1015 if (SUCCEEDED(hr
) && ppidlLast
)
1016 *ppidlLast
= pidlChild
;
1020 SHFree (pidlParent
);
1024 TRACE_(shell
)("-- psf=%p pidl=%p ret=0x%08lx\n", *ppv
, (ppidlLast
)?*ppidlLast
:NULL
, hr
);
1028 /*************************************************************************
1029 * SHGetPathFromIDListAW [SHELL32.221][NT 4.0: SHELL32.219]
1031 BOOL WINAPI
SHGetPathFromIDListAW(LPCITEMIDLIST pidl
,LPVOID pszPath
)
1033 TRACE_(shell
)("(pidl=%p,%p)\n",pidl
,pszPath
);
1035 if (VERSION_OsIsUnicode())
1036 return SHGetPathFromIDListW(pidl
,pszPath
);
1037 return SHGetPathFromIDListA(pidl
,pszPath
);
1040 /**************************************************************************
1042 * internal functions
1044 * ### 1. section creating pidls ###
1046 *************************************************************************
1047 * _ILCreateDesktop()
1048 * _ILCreateIExplore()
1049 * _ILCreateMyComputer()
1054 LPITEMIDLIST
_ILCreateDesktop()
1055 { TRACE_(pidl
)("()\n");
1056 return _ILCreate(PT_DESKTOP
, NULL
, 0);
1059 LPITEMIDLIST
_ILCreateMyComputer()
1060 { TRACE_(pidl
)("()\n");
1061 return _ILCreate(PT_MYCOMP
, &IID_MyComputer
, sizeof(GUID
));
1064 LPITEMIDLIST
_ILCreateIExplore()
1065 { TRACE_(pidl
)("()\n");
1066 return _ILCreate(PT_MYCOMP
, &IID_IExplore
, sizeof(GUID
));
1069 LPITEMIDLIST
_ILCreateControl()
1070 { TRACE_(pidl
)("()\n");
1071 return _ILCreate(PT_SPECIAL
, &IID_Control
, sizeof(GUID
));
1074 LPITEMIDLIST
_ILCreatePrinter()
1075 { TRACE_(pidl
)("()\n");
1076 return _ILCreate(PT_SPECIAL
, &IID_Printer
, sizeof(GUID
));
1079 LPITEMIDLIST
_ILCreateNetwork()
1080 { TRACE_(pidl
)("()\n");
1081 return _ILCreate(PT_MYCOMP
, &IID_Network
, sizeof(GUID
));
1084 LPITEMIDLIST
_ILCreateBitBucket()
1085 { TRACE_(pidl
)("()\n");
1086 return _ILCreate(PT_MYCOMP
, &IID_BitBucket
, sizeof(GUID
));
1089 LPITEMIDLIST
_ILCreateDrive( LPCSTR lpszNew
)
1091 lstrcpynA (sTemp
,lpszNew
,4);
1094 TRACE_(pidl
)("(%s)\n",sTemp
);
1095 return _ILCreate(PT_DRIVE
,(LPVOID
)&sTemp
[0],4);
1098 LPITEMIDLIST
_ILCreateFolder( WIN32_FIND_DATAA
* stffile
)
1100 char buff
[MAX_PATH
+ 14 +1]; /* see WIN32_FIND_DATA */
1101 char * pbuff
= buff
;
1105 TRACE_(pidl
)("(%s, %s)\n",stffile
->cAlternateFileName
, stffile
->cFileName
);
1107 /* prepare buffer with both names */
1108 len
= strlen (stffile
->cFileName
) + 1;
1109 memcpy (pbuff
, stffile
->cFileName
, len
);
1112 if (stffile
->cAlternateFileName
)
1114 len1
= strlen (stffile
->cAlternateFileName
)+1;
1115 memcpy (pbuff
, stffile
->cAlternateFileName
, len1
);
1123 pidl
= _ILCreate(PT_FOLDER
, (LPVOID
)buff
, len
+ len1
);
1125 /* set attributes */
1129 pData
= _ILGetDataPointer(pidl
);
1130 FileTimeToDosDateTime(&(stffile
->ftLastWriteTime
),&pData
->u
.folder
.uFileDate
,&pData
->u
.folder
.uFileTime
);
1131 pData
->u
.folder
.dwFileSize
= stffile
->nFileSizeLow
;
1132 pData
->u
.folder
.uFileAttribs
=stffile
->dwFileAttributes
;
1138 LPITEMIDLIST
_ILCreateValue(WIN32_FIND_DATAA
* stffile
)
1140 char buff
[MAX_PATH
+ 14 +1]; /* see WIN32_FIND_DATA */
1141 char * pbuff
= buff
;
1145 TRACE_(pidl
)("(%s, %s)\n",stffile
->cAlternateFileName
, stffile
->cFileName
);
1147 /* prepare buffer with both names */
1148 len
= strlen (stffile
->cFileName
) + 1;
1149 memcpy (pbuff
, stffile
->cFileName
, len
);
1152 if (stffile
->cAlternateFileName
)
1154 len1
= strlen (stffile
->cAlternateFileName
)+1;
1155 memcpy (pbuff
, stffile
->cAlternateFileName
, len1
);
1163 pidl
= _ILCreate(PT_VALUE
, (LPVOID
)buff
, len
+ len1
);
1165 /* set attributes */
1169 pData
= _ILGetDataPointer(pidl
);
1170 FileTimeToDosDateTime(&(stffile
->ftLastWriteTime
),&pData
->u
.folder
.uFileDate
,&pData
->u
.folder
.uFileTime
);
1171 pData
->u
.folder
.dwFileSize
= stffile
->nFileSizeLow
;
1172 pData
->u
.folder
.uFileAttribs
=stffile
->dwFileAttributes
;
1178 LPITEMIDLIST
_ILCreateSpecial(LPCSTR szGUID
)
1181 CLSIDFromString16(szGUID
,&iid
);
1182 return _ILCreate(PT_MYCOMP
, &iid
, sizeof(IID
));
1185 /**************************************************************************
1187 * Creates a new PIDL
1188 * type = PT_DESKTOP | PT_DRIVE | PT_FOLDER | PT_VALUE
1190 * uInSize = size of data (raw)
1193 LPITEMIDLIST
_ILCreate(PIDLTYPE type
, LPCVOID pIn
, UINT16 uInSize
)
1194 { LPITEMIDLIST pidlOut
= NULL
, pidlTemp
= NULL
;
1199 TRACE_(pidl
)("(0x%02x %p %i)\n",type
,pIn
,uInSize
);
1204 pidlOut
= SHAlloc(uSize
+ 2);
1205 pidlOut
->mkid
.cb
= uSize
;
1206 TRACE_(pidl
)("- create Desktop\n");
1210 uSize
= 2 + 2 + sizeof(GUID
);
1211 pidlOut
= SHAlloc(uSize
+ 2);
1212 ZeroMemory(pidlOut
, uSize
+ 2);
1213 pidlOut
->mkid
.cb
= uSize
;
1214 pData
=_ILGetDataPointer(pidlOut
);
1216 memcpy(&(pData
->u
.mycomp
.guid
), pIn
, uInSize
);
1217 TRACE_(pidl
)("- create GUID-pidl\n");
1222 pidlOut
= SHAlloc(uSize
+ 2);
1223 ZeroMemory(pidlOut
, uSize
+ 2);
1224 pidlOut
->mkid
.cb
= uSize
;
1225 pData
=_ILGetDataPointer(pidlOut
);
1227 pszDest
= _ILGetTextPointer(type
, pData
);
1228 memcpy(pszDest
, pIn
, uInSize
);
1229 TRACE_(pidl
)("- create Drive: %s\n",debugstr_a(pszDest
));
1234 uSize
= 2 + 12 + uInSize
;
1235 pidlOut
= SHAlloc(uSize
+ 2);
1236 ZeroMemory(pidlOut
, uSize
+ 2);
1237 pidlOut
->mkid
.cb
= uSize
;
1238 pData
=_ILGetDataPointer(pidlOut
);
1240 pszDest
= _ILGetTextPointer(type
, pData
);
1241 memcpy(pszDest
, pIn
, uInSize
);
1242 TRACE_(pidl
)("- create Value: %s\n",debugstr_a(pszDest
));
1246 pidlTemp
= ILGetNext(pidlOut
);
1248 pidlTemp
->mkid
.cb
= 0x00;
1250 TRACE_(pidl
)("-- (pidl=%p, size=%u)\n", pidlOut
, uSize
);
1254 /**************************************************************************
1257 * Gets the text for the drive eg. 'c:\'
1262 DWORD
_ILGetDrive(LPCITEMIDLIST pidl
,LPSTR pOut
, UINT16 uSize
)
1263 { TRACE_(pidl
)("(%p,%p,%u)\n",pidl
,pOut
,uSize
);
1265 if(_ILIsMyComputer(pidl
))
1266 pidl
= ILGetNext(pidl
);
1268 if (pidl
&& _ILIsDrive(pidl
))
1269 return _ILSimpleGetText(pidl
, pOut
, uSize
);
1274 /**************************************************************************
1276 * ### 2. section testing pidls ###
1278 **************************************************************************
1281 * _ILIsSpecialFolder()
1287 BOOL
_ILIsDesktop(LPCITEMIDLIST pidl
)
1288 { TRACE_(pidl
)("(%p)\n",pidl
);
1289 return ( !pidl
|| (pidl
&& pidl
->mkid
.cb
== 0x00) );
1292 BOOL
_ILIsMyComputer(LPCITEMIDLIST pidl
)
1294 REFIID iid
= _ILGetGUIDPointer(pidl
);
1296 TRACE_(pidl
)("(%p)\n",pidl
);
1299 return IsEqualIID(iid
, &IID_MyComputer
);
1303 BOOL
_ILIsSpecialFolder (LPCITEMIDLIST pidl
)
1305 LPPIDLDATA lpPData
= _ILGetDataPointer(pidl
);
1306 TRACE_(pidl
)("(%p)\n",pidl
);
1307 return (pidl
&& ( (lpPData
&& (PT_MYCOMP
== lpPData
->type
|| PT_SPECIAL
== lpPData
->type
)) ||
1308 (pidl
&& pidl
->mkid
.cb
== 0x00)
1312 BOOL
_ILIsDrive(LPCITEMIDLIST pidl
)
1313 { LPPIDLDATA lpPData
= _ILGetDataPointer(pidl
);
1314 TRACE_(pidl
)("(%p)\n",pidl
);
1315 return (pidl
&& lpPData
&& (PT_DRIVE
== lpPData
->type
||
1316 PT_DRIVE1
== lpPData
->type
||
1317 PT_DRIVE2
== lpPData
->type
||
1318 PT_DRIVE3
== lpPData
->type
));
1321 BOOL
_ILIsFolder(LPCITEMIDLIST pidl
)
1322 { LPPIDLDATA lpPData
= _ILGetDataPointer(pidl
);
1323 TRACE_(pidl
)("(%p)\n",pidl
);
1324 return (pidl
&& lpPData
&& (PT_FOLDER
== lpPData
->type
|| PT_FOLDER1
== lpPData
->type
));
1327 BOOL
_ILIsValue(LPCITEMIDLIST pidl
)
1328 { LPPIDLDATA lpPData
= _ILGetDataPointer(pidl
);
1329 TRACE_(pidl
)("(%p)\n",pidl
);
1330 return (pidl
&& lpPData
&& PT_VALUE
== lpPData
->type
);
1333 /**************************************************************************
1336 BOOL
_ILIsPidlSimple ( LPCITEMIDLIST pidl
)
1340 if(! _ILIsDesktop(pidl
)) /* pidl=NULL or mkid.cb=0 */
1342 WORD len
= pidl
->mkid
.cb
;
1343 LPCITEMIDLIST pidlnext
= (LPCITEMIDLIST
) (((LPBYTE
)pidl
) + len
);
1344 if (pidlnext
->mkid
.cb
)
1348 TRACE_(pidl
)("%s\n", ret
? "Yes" : "No");
1352 /**************************************************************************
1354 * ### 3. section getting values from pidls ###
1357 /**************************************************************************
1360 * gets the text for the first item in the pidl (eg. simple pidl)
1362 * returns the lenght of the string
1364 DWORD
_ILSimpleGetText (LPCITEMIDLIST pidl
, LPSTR szOut
, UINT uOutSize
)
1370 char szTemp
[MAX_PATH
];
1372 TRACE_(pidl
)("(%p %p %x)\n",pidl
,szOut
,uOutSize
);
1374 if (!pidl
) return 0;
1379 pData
= _ILGetDataPointer(pidl
);
1384 if (HCR_GetClassName(&CLSID_ShellDesktop
, szTemp
, MAX_PATH
))
1387 lstrcpynA(szOut
, szTemp
, uOutSize
);
1389 dwReturn
= strlen (szTemp
);
1392 else if (( szSrc
= _ILGetTextPointer(pData
->type
, pData
) ))
1396 lstrcpynA(szOut
, szSrc
, MAX_PATH
);
1398 dwReturn
= strlen(szSrc
);
1400 else if (( riid
= _ILGetGUIDPointer(pidl
) ))
1402 /* special folder */
1403 if ( HCR_GetClassName(riid
, szTemp
, MAX_PATH
) )
1406 lstrcpynA(szOut
, szTemp
, uOutSize
);
1408 dwReturn
= strlen (szTemp
);
1413 ERR_(pidl
)("-- no text\n");
1416 TRACE_(pidl
)("-- (%p=%s 0x%08lx)\n",szOut
,(char*)szOut
,dwReturn
);
1420 /**************************************************************************
1422 * ### 4. getting pointers to parts of pidls ###
1424 **************************************************************************
1425 * _ILGetDataPointer()
1427 LPPIDLDATA
_ILGetDataPointer(LPITEMIDLIST pidl
)
1429 if(pidl
&& pidl
->mkid
.cb
!= 0x00)
1430 return (LPPIDLDATA
) &(pidl
->mkid
.abID
);
1434 /**************************************************************************
1435 * _ILGetTextPointer()
1436 * gets a pointer to the long filename string stored in the pidl
1438 LPSTR
_ILGetTextPointer(PIDLTYPE type
, LPPIDLDATA pidldata
)
1439 {/* TRACE(pidl,"(type=%x data=%p)\n", type, pidldata);*/
1455 return (LPSTR
)&(pidldata
->u
.drive
.szDriveName
);
1461 return (LPSTR
)&(pidldata
->u
.file
.szNames
);
1467 return (LPSTR
)&(pidldata
->u
.network
.szNames
);
1472 /**************************************************************************
1473 * _ILGetSTextPointer()
1474 * gets a pointer to the short filename string stored in the pidl
1476 LPSTR
_ILGetSTextPointer(PIDLTYPE type
, LPPIDLDATA pidldata
)
1477 {/* TRACE(pidl,"(type=%x data=%p)\n", type, pidldata);*/
1487 return (LPSTR
)(pidldata
->u
.file
.szNames
+ strlen (pidldata
->u
.file
.szNames
) + 1);
1490 return (LPSTR
)(pidldata
->u
.network
.szNames
+ strlen (pidldata
->u
.network
.szNames
) + 1);
1495 /**************************************************************************
1496 * _ILGetGUIDPointer()
1498 * returns reference to guid stored in some pidls
1500 REFIID
_ILGetGUIDPointer(LPCITEMIDLIST pidl
)
1502 LPPIDLDATA pdata
=_ILGetDataPointer(pidl
);
1506 switch (pdata
->type
)
1510 return (REFIID
) &(pdata
->u
.mycomp
.guid
);
1516 /*************************************************************************
1517 * _ILGetFileDateTime
1519 * Given the ItemIdList, get the FileTime
1522 * pidl [I] The ItemIDList
1523 * pFt [I] the resulted FILETIME of the file
1526 * True if Successful
1531 BOOL
_ILGetFileDateTime(LPCITEMIDLIST pidl
, FILETIME
*pFt
)
1533 LPPIDLDATA pdata
=_ILGetDataPointer(pidl
);
1535 switch (pdata
->type
)
1538 DosDateTimeToFileTime(pdata
->u
.folder
.uFileDate
, pdata
->u
.folder
.uFileTime
, pFt
);
1541 DosDateTimeToFileTime(pdata
->u
.file
.uFileDate
, pdata
->u
.file
.uFileTime
, pFt
);
1549 BOOL
_ILGetFileDate (LPCITEMIDLIST pidl
, LPSTR pOut
, UINT uOutSize
)
1554 if (! _ILGetFileDateTime( pidl
, &ft
)) return FALSE
;
1556 FileTimeToSystemTime (&ft
, &time
);
1557 return GetDateFormatA(LOCALE_USER_DEFAULT
,DATE_SHORTDATE
,&time
, NULL
, pOut
, uOutSize
);
1560 /*************************************************************************
1563 * Given the ItemIdList, get the FileSize
1566 * pidl [I] The ItemIDList
1567 * pOut [I] The buffer to save the result
1568 * uOutsize [I] The size of the buffer
1574 * pOut can be null when no string is needed
1577 DWORD
_ILGetFileSize (LPCITEMIDLIST pidl
, LPSTR pOut
, UINT uOutSize
)
1579 LPPIDLDATA pdata
=_ILGetDataPointer(pidl
);
1582 switch (pdata
->type
)
1584 dwSize
= pdata
->u
.file
.dwFileSize
;
1585 if (pOut
) StrFormatByteSizeA(dwSize
, pOut
, uOutSize
);
1591 BOOL
_ILGetExtension (LPCITEMIDLIST pidl
, LPSTR pOut
, UINT uOutSize
)
1593 char szTemp
[MAX_PATH
];
1594 const char * pPoint
;
1595 LPITEMIDLIST pidlTemp
=pidl
;
1597 TRACE_(pidl
)("pidl=%p\n",pidl
);
1599 if (!pidl
) return FALSE
;
1601 pidlTemp
= ILFindLastID(pidl
);
1603 if (!_ILIsValue(pidlTemp
)) return FALSE
;
1604 if (!_ILSimpleGetText(pidlTemp
, szTemp
, MAX_PATH
)) return FALSE
;
1606 pPoint
= PathFindExtensionA(szTemp
);
1608 if (! *pPoint
) return FALSE
;
1611 lstrcpynA(pOut
, pPoint
, uOutSize
);
1612 TRACE_(pidl
)("%s\n",pOut
);
1617 /*************************************************************************
1620 * Given the ItemIdList, get the file type description
1623 * pidl [I] The ItemIDList (simple)
1624 * pOut [I] The buffer to save the result
1625 * uOutsize [I] The size of the buffer
1631 * This function copies as much as possible into the buffer.
1633 void _ILGetFileType(LPCITEMIDLIST pidl
, LPSTR pOut
, UINT uOutSize
)
1635 if(_ILIsValue(pidl
))
1642 if (_ILGetExtension (pidl
, sTemp
, 64))
1644 if (!( HCR_MapTypeToValue(sTemp
, sTemp
, 64, TRUE
)
1645 && HCR_MapTypeToValue(sTemp
, pOut
, uOutSize
, FALSE
)))
1647 lstrcpynA (pOut
, sTemp
, uOutSize
- 6);
1648 strcat (pOut
, "-file");
1654 lstrcpynA(pOut
, "Folder", uOutSize
);
1658 /*************************************************************************
1659 * _ILGetAttributeStr
1661 * Given the ItemIdList, get the Attrib string format
1664 * pidl [I] The ItemIDList
1665 * pOut [I] The buffer to save the result
1666 * uOutsize [I] The size of the Buffer
1669 * True if successful
1674 BOOL
_ILGetAttributeStr(LPCITEMIDLIST pidl
, LPSTR pOut
, UINT uOutSize
)
1676 LPPIDLDATA pData
=_ILGetDataPointer(pidl
);
1680 /* Need At Least 6 characters to represent the Attrib String */
1688 wAttrib
= pData
->u
.folder
.uFileAttribs
;
1691 wAttrib
= pData
->u
.file
.uFileAttribs
;
1697 if(wAttrib
& FILE_ATTRIBUTE_READONLY
)
1701 if(wAttrib
& FILE_ATTRIBUTE_HIDDEN
)
1705 if(wAttrib
& FILE_ATTRIBUTE_SYSTEM
)
1709 if(wAttrib
& FILE_ATTRIBUTE_ARCHIVE
)
1713 if(wAttrib
& FILE_ATTRIBUTE_COMPRESSED
)