4 * Copyright 1997 Marcus Meissner
5 * Copyright 1998, 1999, 2002 Juergen Schmied
7 * IShellFolder2 and related interfaces
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, write to the Free Software
21 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
26 WINE_DEFAULT_DEBUG_CHANNEL(shell
);
28 static const WCHAR wszDotShellClassInfo
[] = {
29 '.','S','h','e','l','l','C','l','a','s','s','I','n','f','o',0};
31 /***************************************************************************
32 * SHELL32_GetCustomFolderAttribute (internal function)
34 * Gets a value from the folder's desktop.ini file, if one exists.
37 * pidl [I] Folder containing the desktop.ini file.
38 * pwszHeading [I] Heading in .ini file.
39 * pwszAttribute [I] Attribute in .ini file.
40 * pwszValue [O] Buffer to store value into.
41 * cchValue [I] Size in characters including NULL of buffer pointed to
45 * TRUE if returned non-NULL value.
48 static BOOL __inline
SHELL32_GetCustomFolderAttributeFromPath(
49 LPWSTR pwszFolderPath
, LPCWSTR pwszHeading
, LPCWSTR pwszAttribute
,
50 LPWSTR pwszValue
, DWORD cchValue
)
52 static const WCHAR wszDesktopIni
[] =
53 {'d','e','s','k','t','o','p','.','i','n','i',0};
54 static const WCHAR wszDefault
[] = {0};
56 PathAddBackslashW(pwszFolderPath
);
57 PathAppendW(pwszFolderPath
, wszDesktopIni
);
58 return GetPrivateProfileStringW(pwszHeading
, pwszAttribute
, wszDefault
,
59 pwszValue
, cchValue
, pwszFolderPath
);
62 BOOL
SHELL32_GetCustomFolderAttribute(
63 LPCITEMIDLIST pidl
, LPCWSTR pwszHeading
, LPCWSTR pwszAttribute
,
64 LPWSTR pwszValue
, DWORD cchValue
)
66 DWORD dwAttrib
= FILE_ATTRIBUTE_SYSTEM
;
67 WCHAR wszFolderPath
[MAX_PATH
];
69 /* Hack around not having system attribute on non-Windows file systems */
71 dwAttrib
= _ILGetFileAttributes(pidl
, NULL
, 0);
73 if (dwAttrib
& FILE_ATTRIBUTE_SYSTEM
)
75 if (!SHGetPathFromIDListW(pidl
, wszFolderPath
))
78 return SHELL32_GetCustomFolderAttributeFromPath(wszFolderPath
, pwszHeading
,
79 pwszAttribute
, pwszValue
, cchValue
);
84 BOOL
SHELL32_GetCustomFolderAttributes(
85 LPCITEMIDLIST pidl
, LPCWSTR pwszHeading
,
86 LPWSTR pwszValue
, DWORD cchValue
)
88 DWORD dwAttrib
= FILE_ATTRIBUTE_SYSTEM
;
89 WCHAR wszFolderPath
[MAX_PATH
];
91 /* Hack around not having system attribute on non-Windows file systems */
93 dwAttrib
= _ILGetFileAttributes(pidl
, NULL
, 0);
95 if (dwAttrib
& FILE_ATTRIBUTE_SYSTEM
)
97 if (!SHGetPathFromIDListW(pidl
, wszFolderPath
))
100 static const WCHAR wszDesktopIni
[] =
101 {'d','e','s','k','t','o','p','.','i','n','i',0};
103 PathAddBackslashW(wszFolderPath
);
104 PathAppendW(wszFolderPath
, wszDesktopIni
);
105 return GetPrivateProfileSectionW(pwszHeading
, pwszValue
, cchValue
, wszFolderPath
);
111 /***************************************************************************
112 * GetNextElement (internal function)
114 * Gets a part of a string till the first backslash.
117 * pszNext [IN] string to get the element from
118 * pszOut [IN] pointer to buffer which receives string
119 * dwOut [IN] length of pszOut
122 * LPSTR pointer to first, not yet parsed char
125 LPCWSTR
GetNextElementW (LPCWSTR pszNext
, LPWSTR pszOut
, DWORD dwOut
)
127 LPCWSTR pszTail
= pszNext
;
130 TRACE ("(%s %p 0x%08x)\n", debugstr_w (pszNext
), pszOut
, dwOut
);
134 if (!pszNext
|| !*pszNext
)
137 while (*pszTail
&& (*pszTail
!= (WCHAR
) '\\'))
140 dwCopy
= pszTail
- pszNext
+ 1;
141 lstrcpynW (pszOut
, pszNext
, (dwOut
< dwCopy
) ? dwOut
: dwCopy
);
148 TRACE ("--(%s %s 0x%08x %p)\n", debugstr_w (pszNext
), debugstr_w (pszOut
), dwOut
, pszTail
);
152 HRESULT
SHELL32_ParseNextElement (IShellFolder2
* psf
, HWND hwndOwner
, LPBC pbc
,
153 LPITEMIDLIST
* pidlInOut
, LPOLESTR szNext
, DWORD
* pEaten
, DWORD
* pdwAttributes
)
155 HRESULT hr
= E_INVALIDARG
;
156 LPITEMIDLIST pidlIn
= pidlInOut
? *pidlInOut
: NULL
;
157 LPITEMIDLIST pidlOut
= NULL
;
158 LPITEMIDLIST pidlTemp
= NULL
;
159 CComPtr
<IShellFolder
> psfChild
;
161 TRACE ("(%p, %p, %p, %s)\n", psf
, pbc
, pidlIn
, debugstr_w (szNext
));
163 /* get the shellfolder for the child pidl and let it analyse further */
164 hr
= psf
->BindToObject(pidlIn
, pbc
, IID_PPV_ARG(IShellFolder
, &psfChild
));
168 hr
= psfChild
->ParseDisplayName(hwndOwner
, pbc
, szNext
, pEaten
, &pidlOut
, pdwAttributes
);
172 pidlTemp
= ILCombine (pidlIn
, pidlOut
);
187 *pidlInOut
= pidlTemp
;
189 TRACE ("-- pidl=%p ret=0x%08x\n", pidlInOut
? *pidlInOut
: NULL
, hr
);
193 /***********************************************************************
194 * SHELL32_CoCreateInitSF
196 * Creates a shell folder and initializes it with a pidl and a root folder
197 * via IPersistFolder3 or IPersistFolder.
200 * pathRoot can be NULL for Folders being a drive.
201 * In this case the absolute path is built from pidlChild (eg. C:)
203 static HRESULT
SHELL32_CoCreateInitSF (LPCITEMIDLIST pidlRoot
, LPCWSTR pathRoot
,
204 LPCITEMIDLIST pidlChild
, REFCLSID clsid
, LPVOID
* ppvOut
)
207 CComPtr
<IShellFolder
> pShellFolder
;
209 TRACE ("%p %s %p\n", pidlRoot
, debugstr_w(pathRoot
), pidlChild
);
211 hr
= SHCoCreateInstance(NULL
, &clsid
, NULL
, IID_PPV_ARG(IShellFolder
, &pShellFolder
));
214 LPITEMIDLIST pidlAbsolute
= ILCombine (pidlRoot
, pidlChild
);
215 CComPtr
<IPersistFolder
> ppf
;
216 CComPtr
<IPersistFolder3
> ppf3
;
218 if (_ILIsFolder(pidlChild
) &&
219 SUCCEEDED(pShellFolder
->QueryInterface(IID_PPV_ARG(IPersistFolder3
, &ppf3
))))
221 PERSIST_FOLDER_TARGET_INFO ppfti
;
223 ZeroMemory (&ppfti
, sizeof (ppfti
));
225 /* fill the PERSIST_FOLDER_TARGET_INFO */
226 ppfti
.dwAttributes
= -1;
232 lstrcpynW (ppfti
.szTargetParsingName
, pathRoot
, MAX_PATH
- 1);
233 PathAddBackslashW(ppfti
.szTargetParsingName
); /* FIXME: why have drives a backslash here ? */
238 int len
= wcslen(ppfti
.szTargetParsingName
);
240 if (!_ILSimpleGetTextW(pidlChild
, ppfti
.szTargetParsingName
+ len
, MAX_PATH
- len
))
244 ppf3
->InitializeEx(NULL
, pidlAbsolute
, &ppfti
);
246 else if (SUCCEEDED((hr
= pShellFolder
->QueryInterface(IID_PPV_ARG(IPersistFolder
, &ppf
)))))
248 ppf
->Initialize(pidlAbsolute
);
250 ILFree (pidlAbsolute
);
253 *ppvOut
= pShellFolder
.Detach();
255 TRACE ("-- (%p) ret=0x%08x\n", *ppvOut
, hr
);
260 /***********************************************************************
261 * SHELL32_BindToChild [Internal]
263 * Common code for IShellFolder_BindToObject.
266 * pidlRoot [I] The parent shell folder's absolute pidl.
267 * pathRoot [I] Absolute dos path of the parent shell folder.
268 * pidlComplete [I] PIDL of the child. Relative to pidlRoot.
269 * riid [I] GUID of the interface, which ppvOut shall be bound to.
270 * ppvOut [O] A reference to the child's interface (riid).
273 * pidlComplete has to contain at least one non empty SHITEMID.
274 * This function makes special assumptions on the shell namespace, which
275 * means you probably can't use it for your IShellFolder implementation.
277 HRESULT
SHELL32_BindToChild (LPCITEMIDLIST pidlRoot
,
278 LPCWSTR pathRoot
, LPCITEMIDLIST pidlComplete
, REFIID riid
, LPVOID
* ppvOut
)
281 CComPtr
<IShellFolder
> pSF
;
283 LPITEMIDLIST pidlChild
;
285 if (!pidlRoot
|| !ppvOut
|| !pidlComplete
|| !pidlComplete
->mkid
.cb
)
290 pidlChild
= ILCloneFirst (pidlComplete
);
292 if ((clsid
= _ILGetGUIDPointer (pidlChild
))) {
294 hr
= SHELL32_CoCreateInitSF (pidlRoot
, pathRoot
, pidlChild
, *clsid
, (LPVOID
*)&pSF
);
296 /* file system folder */
297 CLSID clsidFolder
= CLSID_ShellFSFolder
;
298 static const WCHAR wszCLSID
[] = {'C','L','S','I','D',0};
299 WCHAR wszCLSIDValue
[CHARS_IN_GUID
], wszFolderPath
[MAX_PATH
], *pwszPathTail
= wszFolderPath
;
301 /* see if folder CLSID should be overridden by desktop.ini file */
303 lstrcpynW(wszFolderPath
, pathRoot
, MAX_PATH
);
304 pwszPathTail
= PathAddBackslashW(wszFolderPath
);
307 _ILSimpleGetTextW(pidlChild
,pwszPathTail
,MAX_PATH
- (int)(pwszPathTail
- wszFolderPath
));
309 if (SHELL32_GetCustomFolderAttributeFromPath (wszFolderPath
,
310 wszDotShellClassInfo
, wszCLSID
, wszCLSIDValue
, CHARS_IN_GUID
))
311 CLSIDFromString (wszCLSIDValue
, &clsidFolder
);
313 hr
= SHELL32_CoCreateInitSF (pidlRoot
, pathRoot
, pidlChild
,
314 clsidFolder
, (LPVOID
*)&pSF
);
318 if (SUCCEEDED (hr
)) {
319 if (_ILIsPidlSimple (pidlComplete
)) {
321 hr
= pSF
->QueryInterface(riid
, ppvOut
);
324 hr
= pSF
->BindToObject(ILGetNext (pidlComplete
), NULL
, riid
, ppvOut
);
328 TRACE ("-- returning (%p) %08x\n", *ppvOut
, hr
);
333 HRESULT
SHELL32_BindToGuidItem(LPCITEMIDLIST pidlRoot
,
334 PCUIDLIST_RELATIVE pidl
,
339 CComPtr
<IPersistFolder
> pFolder
;
342 GUID
*pGUID
= _ILGetGUIDPointer(pidl
);
345 ERR("SHELL32_BindToGuidItem called for non guid item!\n");
349 hr
= SHCoCreateInstance(NULL
, pGUID
, NULL
, IID_PPV_ARG(IPersistFolder
, &pFolder
));
353 hr
= pFolder
->Initialize(ILCombine(pidlRoot
, pidl
));
357 if (_ILIsPidlSimple (pidl
))
359 return pFolder
->QueryInterface(riid
, ppvOut
);
363 CComPtr
<IShellFolder
> psf
;
364 hr
= pFolder
->QueryInterface(IID_PPV_ARG(IShellFolder
, &psf
));
368 return psf
->BindToObject(ILGetNext (pidl
), pbcReserved
, riid
, ppvOut
);
372 /***********************************************************************
373 * SHELL32_GetDisplayNameOfChild
375 * Retrieves the display name of a child object of a shellfolder.
377 * For a pidl eg. [subpidl1][subpidl2][subpidl3]:
378 * - it binds to the child shellfolder [subpidl1]
379 * - asks it for the displayname of [subpidl2][subpidl3]
381 * Is possible the pidl is a simple pidl. In this case it asks the
382 * subfolder for the displayname of an empty pidl. The subfolder
383 * returns the own displayname eg. "::{guid}". This is used for
384 * virtual folders with the registry key WantsFORPARSING set.
386 HRESULT
SHELL32_GetDisplayNameOfChild (IShellFolder2
* psf
,
387 LPCITEMIDLIST pidl
, DWORD dwFlags
, LPWSTR szOut
, DWORD dwOutLen
)
389 LPITEMIDLIST pidlFirst
;
390 HRESULT hr
= E_INVALIDARG
;
392 TRACE ("(%p)->(pidl=%p 0x%08x %p 0x%08x)\n", psf
, pidl
, dwFlags
, szOut
, dwOutLen
);
395 pidlFirst
= ILCloneFirst(pidl
);
398 CComPtr
<IShellFolder
> psfChild
;
400 hr
= psf
->BindToObject(pidlFirst
, NULL
, IID_PPV_ARG(IShellFolder
, &psfChild
));
404 LPITEMIDLIST pidlNext
= ILGetNext (pidl
);
406 hr
= psfChild
->GetDisplayNameOf(pidlNext
, dwFlags
, &strTemp
);
409 if(!StrRetToStrNW (szOut
, dwOutLen
, &strTemp
, pidlNext
))
417 TRACE ("-- ret=0x%08x %s\n", hr
, debugstr_w(szOut
));
422 HRESULT
SHELL32_GetDisplayNameOfGUIDItem(IShellFolder2
* psf
, LPCWSTR pszFolderPath
, PCUITEMID_CHILD pidl
, DWORD dwFlags
, LPSTRRET strRet
)
425 GUID
const *clsid
= _ILGetGUIDPointer (pidl
);
430 LPWSTR pszPath
= (LPWSTR
)CoTaskMemAlloc((MAX_PATH
+ 1) * sizeof(WCHAR
));
432 return E_OUTOFMEMORY
;
434 if (GET_SHGDN_FOR (dwFlags
) == SHGDN_FORPARSING
)
436 int bWantsForParsing
;
439 * We can only get a filesystem path from a shellfolder if the
440 * value WantsFORPARSING in CLSID\\{...}\\shellfolder exists.
442 * Exception: The MyComputer folder doesn't have this key,
443 * but any other filesystem backed folder it needs it.
445 if (IsEqualIID (*clsid
, CLSID_MyComputer
))
447 bWantsForParsing
= TRUE
;
452 if (HCR_RegOpenClassIDKey(*clsid
, &hkeyClass
))
454 LONG res
= SHGetValueW(hkeyClass
, L
"Shellfolder", L
"WantsForParsing", NULL
, NULL
, NULL
);
455 bWantsForParsing
= (res
== ERROR_SUCCESS
);
456 RegCloseKey(hkeyClass
);
460 if ((GET_SHGDN_RELATION (dwFlags
) == SHGDN_NORMAL
) &&
464 * we need the filesystem path to the destination folder.
465 * Only the folder itself can know it
467 hr
= SHELL32_GetDisplayNameOfChild (psf
, pidl
, dwFlags
,
473 wcscpy(pszPath
, pszFolderPath
);
474 PWCHAR pItemName
= &pszPath
[wcslen(pszPath
)];
476 /* parsing name like ::{...} */
479 SHELL32_GUIDToStringW (*clsid
, &pItemName
[2]);
484 /* user friendly name */
485 HCR_GetClassNameW (*clsid
, pszPath
, MAX_PATH
);
490 strRet
->uType
= STRRET_WSTR
;
491 strRet
->pOleStr
= pszPath
;
495 CoTaskMemFree(pszPath
);
501 /***********************************************************************
502 * SHELL32_GetItemAttributes
506 * folder: 0xE0000177 FILESYSTEM | HASSUBFOLDER | FOLDER
507 * file: 0x40000177 FILESYSTEM
508 * drive: 0xf0000144 FILESYSTEM | HASSUBFOLDER | FOLDER | FILESYSANCESTOR
509 * mycomputer: 0xb0000154 HASSUBFOLDER | FOLDER | FILESYSANCESTOR
510 * (seems to be default for shell extensions if no registry entry exists)
513 * folder: 0xF0400177 FILESYSTEM | HASSUBFOLDER | FOLDER | FILESYSANCESTOR | CANMONIKER
514 * file: 0x40400177 FILESYSTEM | CANMONIKER
515 * drive 0xF0400154 FILESYSTEM | HASSUBFOLDER | FOLDER | FILESYSANCESTOR | CANMONIKER | CANRENAME (LABEL)
517 * According to the MSDN documentation this function should not set flags. It claims only to reset flags when necessary.
518 * However it turns out the native shell32.dll _sets_ flags in several cases - so do we.
521 static const DWORD dwSupportedAttr
=
522 SFGAO_CANCOPY
| /*0x00000001 */
523 SFGAO_CANMOVE
| /*0x00000002 */
524 SFGAO_CANLINK
| /*0x00000004 */
525 SFGAO_CANRENAME
| /*0x00000010 */
526 SFGAO_CANDELETE
| /*0x00000020 */
527 SFGAO_HASPROPSHEET
| /*0x00000040 */
528 SFGAO_DROPTARGET
| /*0x00000100 */
529 SFGAO_LINK
| /*0x00010000 */
530 SFGAO_READONLY
| /*0x00040000 */
531 SFGAO_HIDDEN
| /*0x00080000 */
532 SFGAO_FILESYSANCESTOR
| /*0x10000000 */
533 SFGAO_FOLDER
| /*0x20000000 */
534 SFGAO_FILESYSTEM
| /*0x40000000 */
535 SFGAO_HASSUBFOLDER
; /*0x80000000 */
537 HRESULT
SHELL32_GetGuidItemAttributes (IShellFolder
* psf
, LPCITEMIDLIST pidl
, LPDWORD pdwAttributes
)
539 if (!_ILIsSpecialFolder(pidl
))
541 ERR("Got wrong type of pidl!\n");
542 *pdwAttributes
&= SFGAO_CANLINK
;
546 if (*pdwAttributes
& ~dwSupportedAttr
)
548 WARN ("attributes 0x%08x not implemented\n", (*pdwAttributes
& ~dwSupportedAttr
));
549 *pdwAttributes
&= dwSupportedAttr
;
552 /* First try to get them from the registry */
553 if (HCR_GetFolderAttributes(pidl
, pdwAttributes
) && *pdwAttributes
)
559 /* If we can't get it from the registry we have to query the child */
560 CComPtr
<IShellFolder
> psf2
;
561 if (SUCCEEDED(psf
->BindToObject(pidl
, 0, IID_PPV_ARG(IShellFolder
, &psf2
))))
563 return psf2
->GetAttributesOf(0, NULL
, pdwAttributes
);
567 *pdwAttributes
&= SFGAO_CANLINK
;
571 HRESULT
SHELL32_GetFSItemAttributes(IShellFolder
* psf
, LPCITEMIDLIST pidl
, LPDWORD pdwAttributes
)
575 if (!_ILIsFolder(pidl
) && !_ILIsValue(pidl
))
577 ERR("Got wrong type of pidl!\n");
578 *pdwAttributes
&= SFGAO_CANLINK
;
582 if (*pdwAttributes
& ~dwSupportedAttr
)
584 WARN ("attributes 0x%08x not implemented\n", (*pdwAttributes
& ~dwSupportedAttr
));
585 *pdwAttributes
&= dwSupportedAttr
;
588 dwAttributes
= _ILGetFileAttributes(pidl
, NULL
, 0);
590 /* Set common attributes */
591 *pdwAttributes
|= SFGAO_FILESYSTEM
| SFGAO_DROPTARGET
| SFGAO_HASPROPSHEET
| SFGAO_CANDELETE
|
592 SFGAO_CANRENAME
| SFGAO_CANLINK
| SFGAO_CANMOVE
| SFGAO_CANCOPY
;
594 if (dwAttributes
& FILE_ATTRIBUTE_DIRECTORY
)
596 *pdwAttributes
|= (SFGAO_FOLDER
| SFGAO_HASSUBFOLDER
| SFGAO_FILESYSANCESTOR
);
599 *pdwAttributes
&= ~(SFGAO_FOLDER
| SFGAO_HASSUBFOLDER
| SFGAO_FILESYSANCESTOR
);
601 if (dwAttributes
& FILE_ATTRIBUTE_HIDDEN
)
602 *pdwAttributes
|= SFGAO_HIDDEN
;
604 *pdwAttributes
&= ~SFGAO_HIDDEN
;
606 if (dwAttributes
& FILE_ATTRIBUTE_READONLY
)
607 *pdwAttributes
|= SFGAO_READONLY
;
609 *pdwAttributes
&= ~SFGAO_READONLY
;
611 if (SFGAO_LINK
& *pdwAttributes
)
615 if (!_ILGetExtension(pidl
, ext
, MAX_PATH
) || lstrcmpiA(ext
, "lnk"))
616 *pdwAttributes
&= ~SFGAO_LINK
;
619 if (SFGAO_HASSUBFOLDER
& *pdwAttributes
)
621 CComPtr
<IShellFolder
> psf2
;
622 if (SUCCEEDED(psf
->BindToObject(pidl
, 0, IID_PPV_ARG(IShellFolder
, &psf2
))))
624 CComPtr
<IEnumIDList
> pEnumIL
;
625 if (SUCCEEDED(psf2
->EnumObjects(0, SHCONTF_FOLDERS
, &pEnumIL
)))
627 if (pEnumIL
->Skip(1) != S_OK
)
628 *pdwAttributes
&= ~SFGAO_HASSUBFOLDER
;
633 TRACE ("-- 0x%08x\n", *pdwAttributes
);
637 HRESULT
SHELL32_GetItemAttributes (IShellFolder
* psf
, LPCITEMIDLIST pidl
, LPDWORD pdwAttributes
)
639 TRACE ("0x%08x\n", *pdwAttributes
);
641 if (*pdwAttributes
& ~dwSupportedAttr
)
643 WARN ("attributes 0x%08x not implemented\n", (*pdwAttributes
& ~dwSupportedAttr
));
644 *pdwAttributes
&= dwSupportedAttr
;
647 if (_ILIsSpecialFolder(pidl
))
649 return SHELL32_GetGuidItemAttributes(psf
, pidl
, pdwAttributes
);
651 else if(_ILIsFolder(pidl
) || _ILIsValue(pidl
))
653 return SHELL32_GetFSItemAttributes(psf
, pidl
, pdwAttributes
);
657 /* Set common attributes */
658 ERR("We got a pidl that is neither a guid or an FS item!!! Type=0x%x\n",pidl
->mkid
.abID
[0]);
659 *pdwAttributes
&= SFGAO_CANLINK
;
662 TRACE ("-- 0x%08x\n", *pdwAttributes
);
666 /***********************************************************************
669 HRESULT
SHELL32_CompareIDs(IShellFolder
* iface
, LPARAM lParam
, LPCITEMIDLIST pidl1
, LPCITEMIDLIST pidl2
)
673 char szTemp1
[MAX_PATH
];
674 char szTemp2
[MAX_PATH
];
676 LPITEMIDLIST firstpidl
;
677 LPITEMIDLIST nextpidl1
;
678 LPITEMIDLIST nextpidl2
;
679 CComPtr
<IShellFolder
> psf
;
681 /* test for empty pidls */
682 BOOL isEmpty1
= _ILIsDesktop(pidl1
);
683 BOOL isEmpty2
= _ILIsDesktop(pidl2
);
685 if (isEmpty1
&& isEmpty2
)
686 return MAKE_HRESULT(SEVERITY_SUCCESS
, 0, 0);
688 return MAKE_HRESULT(SEVERITY_SUCCESS
, 0, (WORD
) -1);
690 return MAKE_HRESULT(SEVERITY_SUCCESS
, 0, 1);
692 /* test for different types. Sort order is the PT_* constant */
693 type1
= _ILGetDataPointer(pidl1
)->type
;
694 type2
= _ILGetDataPointer(pidl2
)->type
;
696 return MAKE_HRESULT(SEVERITY_SUCCESS
, 0, (WORD
) -1);
697 else if (type1
> type2
)
698 return MAKE_HRESULT(SEVERITY_SUCCESS
, 0, 1);
700 /* test for name of pidl */
701 _ILSimpleGetText(pidl1
, szTemp1
, MAX_PATH
);
702 _ILSimpleGetText(pidl2
, szTemp2
, MAX_PATH
);
703 nReturn
= lstrcmpiA(szTemp1
, szTemp2
);
705 return MAKE_HRESULT(SEVERITY_SUCCESS
, 0, (WORD
) -1);
706 else if (nReturn
> 0)
707 return MAKE_HRESULT(SEVERITY_SUCCESS
, 0, 1);
709 /* test of complex pidls */
710 firstpidl
= ILCloneFirst(pidl1
);
711 nextpidl1
= ILGetNext(pidl1
);
712 nextpidl2
= ILGetNext(pidl2
);
714 /* optimizing: test special cases and bind not deeper */
715 /* the deeper shellfolder would do the same */
716 isEmpty1
= _ILIsDesktop(nextpidl1
);
717 isEmpty2
= _ILIsDesktop(nextpidl2
);
719 if (isEmpty1
&& isEmpty2
)
721 return MAKE_HRESULT(SEVERITY_SUCCESS
, 0, 0);
725 return MAKE_HRESULT(SEVERITY_SUCCESS
, 0, (WORD
) -1);
729 return MAKE_HRESULT(SEVERITY_SUCCESS
, 0, 1);
732 else if (SUCCEEDED(iface
->BindToObject(firstpidl
, NULL
, IID_PPV_ARG(IShellFolder
, &psf
)))) {
733 nReturn
= psf
->CompareIDs(lParam
, nextpidl1
, nextpidl2
);
739 /***********************************************************************
744 HRESULT WINAPI
SHCreateLinks( HWND hWnd
, LPCSTR lpszDir
, IDataObject
* lpDataObject
,
745 UINT uFlags
, LPITEMIDLIST
*lppidlLinks
)
747 FIXME("%p %s %p %08x %p\n", hWnd
, lpszDir
, lpDataObject
, uFlags
, lppidlLinks
);
751 /***********************************************************************
752 * SHOpenFolderAndSelectItems
758 SHOpenFolderAndSelectItems(LPITEMIDLIST pidlFolder
,
760 PCUITEMID_CHILD_ARRAY apidl
,
763 FIXME("SHOpenFolderAndSelectItems() stub\n");