shell32 patch 10

[Martin Fuchs]

Changelog:
- implemented SHGetRealIDL()


Index: pidl.c
===================================================================
RCS file: /home/wine/wine/dlls/shell32/pidl.c,v
retrieving revision 1.96
diff -u -p -d -r1.96 pidl.c
--- pidl.c	18 Jan 2004 22:08:46 -0000	1.96
+++ pidl.c	20 Jan 2004 21:32:24 -0000
@@ -688,6 +688,7 @@ LPITEMIDLIST WINAPI ILCombine(LPCITEMIDL
 	/*  TRACE(pidl,"--new pidl=%p\n",pidlNew);*/
 	return pidlNew;
 }
+
 /*************************************************************************
  *  SHGetRealIDL [SHELL32.98]
  *
@@ -695,10 +696,37 @@ LPITEMIDLIST WINAPI ILCombine(LPCITEMIDL
  */
 HRESULT WINAPI SHGetRealIDL(LPSHELLFOLDER lpsf, LPCITEMIDLIST pidlSimple, LPITEMIDLIST *pidlReal)
 {
-	FIXME("sf=%p pidlSimple=%p pidlReal=%p\n", lpsf, pidlSimple, pidlReal);
+	UINT cfShellIDList = RegisterClipboardFormatA(CFSTR_SHELLIDLIST);
 
-	pdump (pidlSimple);
-	return 0;
+	STGMEDIUM medium = {0, {0}, 0};
+	FORMATETC fmt = {cfShellIDList, 0, DVASPECT_CONTENT, -1, TYMED_HGLOBAL};
+
+	IDataObject* pDataObj;
+	HRESULT hr = IShellFolder_GetUIObjectOf(lpsf, 0, 1, &pidlSimple, &IID_IDataObject, 0, (LPVOID*)&pDataObj);
+
+	if (SUCCEEDED(hr)) {
+	    hr = IDataObject_GetData(pDataObj, &fmt, &medium);
+
+	    IDataObject_Release(pDataObj);
+
+	    if (SUCCEEDED(hr)) {
+		/*assert(pida->cidl==1);*/
+		LPIDA pida = (LPIDA)GlobalLock(medium.hGlobal);
+
+		LPCITEMIDLIST pidl_folder = (LPCITEMIDLIST) ((LPBYTE)pida+pida->aoffset[0]);
+		LPCITEMIDLIST pidl_child = (LPCITEMIDLIST) ((LPBYTE)pida+pida->aoffset[1]);
+
+		*pidlReal = ILCombine(pidl_folder, pidl_child);
+
+		if (!*pidlReal)
+			hr = E_OUTOFMEMORY;
+
+		GlobalUnlock(medium.hGlobal);
+		GlobalFree(medium.hGlobal);
+	    }
+	}
+
+	return hr;
 }
 
 /*************************************************************************