2002-03-10 00:29:33 +01:00
|
|
|
/*
|
|
|
|
* Copyright 1999 Juergen Schmied
|
|
|
|
*
|
|
|
|
* This library is free software; you can redistribute it and/or
|
|
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
|
|
* License as published by the Free Software Foundation; either
|
|
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
|
|
*
|
|
|
|
* This library is distributed in the hope that it will be useful,
|
|
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
|
* Lesser General Public License for more details.
|
|
|
|
*
|
|
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
|
|
* License along with this library; if not, write to the Free Software
|
|
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
2002-07-24 03:56:03 +02:00
|
|
|
*
|
|
|
|
* FIXME:
|
|
|
|
* - many memory leaks
|
2003-06-06 20:09:38 +02:00
|
|
|
* - many flags unimplemented
|
2002-03-10 00:29:33 +01:00
|
|
|
*/
|
|
|
|
|
1999-01-26 11:30:55 +01:00
|
|
|
#include <stdlib.h>
|
|
|
|
#include <string.h>
|
|
|
|
|
2004-10-07 05:06:48 +02:00
|
|
|
#define COBJMACROS
|
2003-01-07 21:36:20 +01:00
|
|
|
#define NONAMELESSUNION
|
|
|
|
#define NONAMELESSSTRUCT
|
2004-10-07 05:06:48 +02:00
|
|
|
|
2002-03-10 00:29:33 +01:00
|
|
|
#include "wine/debug.h"
|
2001-08-16 20:49:56 +02:00
|
|
|
#include "undocshell.h"
|
2000-08-25 23:33:23 +02:00
|
|
|
#include "shlguid.h"
|
1999-01-26 11:30:55 +01:00
|
|
|
#include "pidl.h"
|
|
|
|
#include "shell32_main.h"
|
1999-04-22 12:11:04 +02:00
|
|
|
#include "shellapi.h"
|
2000-08-25 23:33:23 +02:00
|
|
|
#include "shresdef.h"
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2002-03-10 00:29:33 +01:00
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(shell);
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
typedef struct tagbrowse_info
|
|
|
|
{
|
|
|
|
HWND hWnd;
|
|
|
|
HWND hwndTreeView;
|
|
|
|
LPBROWSEINFOW lpBrowseInfo;
|
|
|
|
LPITEMIDLIST pidlRet;
|
|
|
|
} browse_info;
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
typedef struct tagTV_ITEMDATA
|
2005-04-28 20:26:58 +02:00
|
|
|
{
|
|
|
|
LPSHELLFOLDER lpsfParent; /* IShellFolder of the parent */
|
|
|
|
LPITEMIDLIST lpi; /* PIDL relativ to parent */
|
|
|
|
LPITEMIDLIST lpifq; /* Fully qualified PIDL */
|
|
|
|
IEnumIDList* pEnumIL; /* Children iterator */
|
|
|
|
} TV_ITEMDATA, *LPTV_ITEMDATA;
|
|
|
|
|
2003-06-06 20:09:38 +02:00
|
|
|
#define SUPPORTEDFLAGS (BIF_STATUSTEXT | \
|
|
|
|
BIF_BROWSEFORCOMPUTER | \
|
|
|
|
BIF_RETURNFSANCESTORS | \
|
|
|
|
BIF_RETURNONLYFSDIRS | \
|
|
|
|
BIF_BROWSEINCLUDEFILES)
|
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
static void FillTreeView(browse_info*, LPSHELLFOLDER,
|
|
|
|
LPITEMIDLIST, HTREEITEM, IEnumIDList*);
|
|
|
|
static HTREEITEM InsertTreeViewItem( browse_info*, IShellFolder *,
|
|
|
|
LPCITEMIDLIST, LPCITEMIDLIST, IEnumIDList*, HTREEITEM);
|
|
|
|
|
|
|
|
const WCHAR szBrowseFolderInfo[] = {
|
|
|
|
'_','_','W','I','N','E','_',
|
|
|
|
'B','R','S','F','O','L','D','E','R','D','L','G','_',
|
|
|
|
'I','N','F','O',0
|
|
|
|
};
|
|
|
|
|
2003-06-06 20:09:38 +02:00
|
|
|
static inline DWORD BrowseFlagsToSHCONTF(UINT ulFlags)
|
|
|
|
{
|
|
|
|
return SHCONTF_FOLDERS | (ulFlags & BIF_BROWSEINCLUDEFILES ? SHCONTF_NONFOLDERS : 0);
|
|
|
|
}
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
static void browsefolder_callback( LPBROWSEINFOW lpBrowseInfo, HWND hWnd,
|
|
|
|
UINT msg, LPARAM param )
|
|
|
|
{
|
|
|
|
if (!lpBrowseInfo->lpfn)
|
|
|
|
return;
|
2005-06-27 20:46:47 +02:00
|
|
|
lpBrowseInfo->lpfn( hWnd, msg, param, lpBrowseInfo->lParam );
|
2005-05-04 11:48:15 +02:00
|
|
|
}
|
|
|
|
|
2005-03-01 12:45:32 +01:00
|
|
|
/******************************************************************************
|
|
|
|
* InitializeTreeView [Internal]
|
|
|
|
*
|
|
|
|
* Called from WM_INITDIALOG handler.
|
|
|
|
*
|
|
|
|
* PARAMS
|
|
|
|
* hwndParent [I] The BrowseForFolder dialog
|
|
|
|
* root [I] ITEMIDLIST of the root shell folder
|
|
|
|
*/
|
2005-05-04 11:48:15 +02:00
|
|
|
static void InitializeTreeView( browse_info *info )
|
1999-01-26 11:30:55 +01:00
|
|
|
{
|
2005-03-01 12:45:32 +01:00
|
|
|
LPITEMIDLIST pidlParent, pidlChild;
|
|
|
|
HIMAGELIST hImageList;
|
|
|
|
HRESULT hr;
|
|
|
|
IShellFolder *lpsfParent, *lpsfRoot;
|
|
|
|
IEnumIDList * pEnumChildren = NULL;
|
2005-05-04 11:48:15 +02:00
|
|
|
HTREEITEM item;
|
|
|
|
DWORD flags;
|
|
|
|
LPCITEMIDLIST root = info->lpBrowseInfo->pidlRoot;
|
2005-03-01 12:45:32 +01:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
TRACE("%p\n", info );
|
2005-03-01 12:45:32 +01:00
|
|
|
|
|
|
|
Shell_GetImageList(NULL, &hImageList);
|
|
|
|
|
|
|
|
if (hImageList)
|
2005-05-04 11:48:15 +02:00
|
|
|
TreeView_SetImageList( info->hwndTreeView, hImageList, 0 );
|
2005-03-01 12:45:32 +01:00
|
|
|
|
|
|
|
/* We want to call InsertTreeViewItem down the code, in order to insert
|
|
|
|
* the root item of the treeview. Due to InsertTreeViewItem's signature,
|
|
|
|
* we need the following to do this:
|
|
|
|
*
|
|
|
|
* + An ITEMIDLIST corresponding to _the parent_ of root.
|
|
|
|
* + An ITEMIDLIST, which is a relative path from root's parent to root
|
|
|
|
* (containing a single SHITEMID).
|
|
|
|
* + An IShellFolder interface pointer of root's parent folder.
|
|
|
|
*
|
|
|
|
* If root is 'Desktop', then root's parent is also 'Desktop'.
|
|
|
|
*/
|
|
|
|
|
|
|
|
pidlParent = ILClone(root);
|
|
|
|
ILRemoveLastID(pidlParent);
|
|
|
|
pidlChild = ILClone(ILFindLastID(root));
|
|
|
|
|
|
|
|
if (_ILIsDesktop(pidlParent)) {
|
|
|
|
hr = SHGetDesktopFolder(&lpsfParent);
|
|
|
|
} else {
|
|
|
|
IShellFolder *lpsfDesktop;
|
|
|
|
hr = SHGetDesktopFolder(&lpsfDesktop);
|
|
|
|
if (!SUCCEEDED(hr)) {
|
|
|
|
WARN("SHGetDesktopFolder failed! hr = %08lx\n", hr);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
hr = IShellFolder_BindToObject(lpsfDesktop, pidlParent, 0, &IID_IShellFolder, (LPVOID*)&lpsfParent);
|
|
|
|
IShellFolder_Release(lpsfDesktop);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (!SUCCEEDED(hr)) {
|
|
|
|
WARN("Could not bind to parent shell folder! hr = %08lx\n", hr);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (pidlChild && pidlChild->mkid.cb) {
|
|
|
|
hr = IShellFolder_BindToObject(lpsfParent, pidlChild, 0, &IID_IShellFolder, (LPVOID*)&lpsfRoot);
|
|
|
|
} else {
|
|
|
|
lpsfRoot = lpsfParent;
|
|
|
|
hr = IShellFolder_AddRef(lpsfParent);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (!SUCCEEDED(hr)) {
|
|
|
|
WARN("Could not bind to root shell folder! hr = %08lx\n", hr);
|
|
|
|
IShellFolder_Release(lpsfParent);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
flags = BrowseFlagsToSHCONTF( info->lpBrowseInfo->ulFlags );
|
|
|
|
hr = IShellFolder_EnumObjects( lpsfRoot, info->hWnd, flags, &pEnumChildren );
|
2005-03-01 12:45:32 +01:00
|
|
|
if (!SUCCEEDED(hr)) {
|
|
|
|
WARN("Could not get child iterator! hr = %08lx\n", hr);
|
|
|
|
IShellFolder_Release(lpsfParent);
|
|
|
|
IShellFolder_Release(lpsfRoot);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
TreeView_DeleteAllItems( info->hwndTreeView );
|
|
|
|
item = InsertTreeViewItem( info, lpsfParent, pidlChild,
|
|
|
|
pidlParent, pEnumChildren, TVI_ROOT );
|
|
|
|
TreeView_Expand( info->hwndTreeView, item, TVE_EXPAND );
|
2005-03-01 12:45:32 +01:00
|
|
|
|
|
|
|
IShellFolder_Release(lpsfRoot);
|
|
|
|
IShellFolder_Release(lpsfParent);
|
1999-01-26 11:30:55 +01:00
|
|
|
}
|
|
|
|
|
1999-02-26 12:11:13 +01:00
|
|
|
static int GetIcon(LPITEMIDLIST lpi, UINT uFlags)
|
2003-06-06 20:09:38 +02:00
|
|
|
{
|
2005-05-04 11:48:15 +02:00
|
|
|
SHFILEINFOW sfi;
|
|
|
|
SHGetFileInfoW((LPCWSTR)lpi, 0 ,&sfi, sizeof(SHFILEINFOW), uFlags);
|
|
|
|
return sfi.iIcon;
|
1999-01-26 11:30:55 +01:00
|
|
|
}
|
|
|
|
|
2002-12-13 01:30:30 +01:00
|
|
|
static void GetNormalAndSelectedIcons(LPITEMIDLIST lpifq, LPTVITEMW lpTV_ITEM)
|
2003-06-06 20:09:38 +02:00
|
|
|
{
|
2005-05-04 11:48:15 +02:00
|
|
|
LPITEMIDLIST pidlDesktop = NULL;
|
|
|
|
DWORD flags;
|
2003-06-06 20:09:38 +02:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
TRACE("%p %p\n",lpifq, lpTV_ITEM);
|
2003-06-06 20:09:38 +02:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
if (!lpifq)
|
|
|
|
{
|
|
|
|
pidlDesktop = _ILCreateDesktop();
|
|
|
|
lpifq = pidlDesktop;
|
|
|
|
}
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
flags = SHGFI_PIDL | SHGFI_SYSICONINDEX | SHGFI_SMALLICON;
|
|
|
|
lpTV_ITEM->iImage = GetIcon( lpifq, flags );
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
flags = SHGFI_PIDL | SHGFI_SYSICONINDEX | SHGFI_SMALLICON | SHGFI_OPENICON;
|
|
|
|
lpTV_ITEM->iSelectedImage = GetIcon( lpifq, flags );
|
2003-06-06 20:09:38 +02:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
if (pidlDesktop)
|
|
|
|
ILFree( pidlDesktop );
|
1999-01-26 11:30:55 +01:00
|
|
|
}
|
|
|
|
|
2005-03-01 12:45:32 +01:00
|
|
|
/******************************************************************************
|
|
|
|
* GetName [Internal]
|
|
|
|
*
|
|
|
|
* Query a shell folder for the display name of one of it's children
|
|
|
|
*
|
|
|
|
* PARAMS
|
|
|
|
* lpsf [I] IShellFolder interface of the folder to be queried.
|
|
|
|
* lpi [I] ITEMIDLIST of the child, relative to parent
|
|
|
|
* dwFlags [I] as in IShellFolder::GetDisplayNameOf
|
|
|
|
* lpFriendlyName [O] The desired display name in unicode
|
|
|
|
*
|
|
|
|
* RETURNS
|
|
|
|
* Success: TRUE
|
|
|
|
* Failure: FALSE
|
|
|
|
*/
|
2003-09-02 03:01:06 +02:00
|
|
|
static BOOL GetName(LPSHELLFOLDER lpsf, LPCITEMIDLIST lpi, DWORD dwFlags, LPWSTR lpFriendlyName)
|
1999-01-26 11:30:55 +01:00
|
|
|
{
|
1999-02-26 12:11:13 +01:00
|
|
|
BOOL bSuccess=TRUE;
|
1999-01-26 11:30:55 +01:00
|
|
|
STRRET str;
|
|
|
|
|
1999-06-12 17:45:58 +02:00
|
|
|
TRACE("%p %p %lx %p\n", lpsf, lpi, dwFlags, lpFriendlyName);
|
1999-03-14 13:16:21 +01:00
|
|
|
if (SUCCEEDED(IShellFolder_GetDisplayNameOf(lpsf, lpi, dwFlags, &str)))
|
1999-07-28 18:38:45 +02:00
|
|
|
{
|
2002-12-13 01:30:30 +01:00
|
|
|
if (FAILED(StrRetToStrNW(lpFriendlyName, MAX_PATH, &str, lpi)))
|
1999-09-03 14:38:02 +02:00
|
|
|
{
|
|
|
|
bSuccess = FALSE;
|
|
|
|
}
|
1999-01-26 11:30:55 +01:00
|
|
|
}
|
|
|
|
else
|
|
|
|
bSuccess = FALSE;
|
|
|
|
|
2002-12-13 01:30:30 +01:00
|
|
|
TRACE("-- %s\n", debugstr_w(lpFriendlyName));
|
1999-01-26 11:30:55 +01:00
|
|
|
return bSuccess;
|
|
|
|
}
|
|
|
|
|
2005-03-01 12:45:32 +01:00
|
|
|
/******************************************************************************
|
|
|
|
* InsertTreeViewItem [Internal]
|
|
|
|
*
|
|
|
|
* PARAMS
|
2005-05-04 11:48:15 +02:00
|
|
|
* info [I] data for the dialog
|
2005-03-01 12:45:32 +01:00
|
|
|
* lpsf [I] IShellFolder interface of the item's parent shell folder
|
|
|
|
* pidl [I] ITEMIDLIST of the child to insert, relativ to parent
|
|
|
|
* pidlParent [I] ITEMIDLIST of the parent shell folder
|
|
|
|
* pEnumIL [I] Iterator for the children of the item to be inserted
|
|
|
|
* hParent [I] The treeview-item that represents the parent shell folder
|
|
|
|
*
|
|
|
|
* RETURNS
|
|
|
|
* Success: Handle to the created and inserted treeview-item
|
|
|
|
* Failure: NULL
|
|
|
|
*/
|
2005-05-04 11:48:15 +02:00
|
|
|
static HTREEITEM InsertTreeViewItem( browse_info *info, IShellFolder * lpsf,
|
|
|
|
LPCITEMIDLIST pidl, LPCITEMIDLIST pidlParent, IEnumIDList* pEnumIL,
|
|
|
|
HTREEITEM hParent)
|
1999-01-26 11:30:55 +01:00
|
|
|
{
|
2002-12-13 01:30:30 +01:00
|
|
|
TVITEMW tvi;
|
|
|
|
TVINSERTSTRUCTW tvins;
|
|
|
|
WCHAR szBuff[MAX_PATH];
|
2003-06-06 20:09:38 +02:00
|
|
|
LPTV_ITEMDATA lptvid=0;
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2003-06-06 20:09:38 +02:00
|
|
|
tvi.mask = TVIF_TEXT | TVIF_IMAGE | TVIF_SELECTEDIMAGE | TVIF_PARAM;
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2003-06-06 20:09:38 +02:00
|
|
|
tvi.cChildren= pEnumIL ? 1 : 0;
|
|
|
|
tvi.mask |= TVIF_CHILDREN;
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
lptvid = SHAlloc( sizeof(TV_ITEMDATA) );
|
|
|
|
if (!lptvid)
|
2003-06-06 20:09:38 +02:00
|
|
|
return NULL;
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2003-06-06 20:09:38 +02:00
|
|
|
if (!GetName(lpsf, pidl, SHGDN_NORMAL, szBuff))
|
|
|
|
return NULL;
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2003-06-06 20:09:38 +02:00
|
|
|
tvi.pszText = szBuff;
|
|
|
|
tvi.cchTextMax = MAX_PATH;
|
|
|
|
tvi.lParam = (LPARAM)lptvid;
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2003-06-06 20:09:38 +02:00
|
|
|
IShellFolder_AddRef(lpsf);
|
|
|
|
lptvid->lpsfParent = lpsf;
|
|
|
|
lptvid->lpi = ILClone(pidl);
|
|
|
|
lptvid->lpifq = pidlParent ? ILCombine(pidlParent, pidl) : ILClone(pidl);
|
|
|
|
lptvid->pEnumIL = pEnumIL;
|
|
|
|
GetNormalAndSelectedIcons(lptvid->lpifq, &tvi);
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2004-01-07 01:47:35 +01:00
|
|
|
tvins.u.item = tvi;
|
2003-06-06 20:09:38 +02:00
|
|
|
tvins.hInsertAfter = NULL;
|
|
|
|
tvins.hParent = hParent;
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
return (HTREEITEM)TreeView_InsertItemW( info->hwndTreeView, &tvins );
|
2003-06-06 20:09:38 +02:00
|
|
|
}
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-03-01 12:45:32 +01:00
|
|
|
/******************************************************************************
|
|
|
|
* FillTreeView [Internal]
|
|
|
|
*
|
|
|
|
* For each child (given by lpe) of the parent shell folder, which is given by
|
|
|
|
* lpsf and whose PIDL is pidl, insert a treeview-item right under hParent
|
|
|
|
*
|
|
|
|
* PARAMS
|
2005-05-04 11:48:15 +02:00
|
|
|
* info [I] data for the dialog
|
2005-03-01 12:45:32 +01:00
|
|
|
* lpsf [I] IShellFolder interface of the parent shell folder
|
|
|
|
* pidl [I] ITEMIDLIST of the parent shell folder
|
|
|
|
* hParent [I] The treeview item that represents the parent shell folder
|
|
|
|
* lpe [I] An iterator for the children of the parent shell folder
|
|
|
|
*/
|
2005-05-04 11:48:15 +02:00
|
|
|
static void FillTreeView( browse_info *info, IShellFolder * lpsf,
|
|
|
|
LPITEMIDLIST pidl, HTREEITEM hParent, IEnumIDList* lpe)
|
2003-06-06 20:09:38 +02:00
|
|
|
{
|
|
|
|
HTREEITEM hPrev = 0;
|
2003-09-02 03:01:06 +02:00
|
|
|
LPITEMIDLIST pidlTemp = 0;
|
2003-06-06 20:09:38 +02:00
|
|
|
ULONG ulFetched;
|
|
|
|
HRESULT hr;
|
2005-05-04 11:48:15 +02:00
|
|
|
HWND hwnd = GetParent( info->hwndTreeView );
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-03-01 12:45:32 +01:00
|
|
|
TRACE("%p %p %x %p\n",lpsf, pidl, (INT)hParent, lpe);
|
|
|
|
|
|
|
|
/* No IEnumIDList -> No children */
|
|
|
|
if (!lpe) return;
|
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
SetCapture( hwnd );
|
|
|
|
SetCursor( LoadCursorA( 0, (LPSTR)IDC_WAIT ) );
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2003-06-06 20:09:38 +02:00
|
|
|
while (NOERROR == IEnumIDList_Next(lpe,1,&pidlTemp,&ulFetched))
|
|
|
|
{
|
|
|
|
ULONG ulAttrs = SFGAO_HASSUBFOLDER | SFGAO_FOLDER;
|
|
|
|
IEnumIDList* pEnumIL = NULL;
|
|
|
|
IShellFolder* pSFChild = NULL;
|
2003-09-02 03:01:06 +02:00
|
|
|
IShellFolder_GetAttributesOf(lpsf, 1, (LPCITEMIDLIST*)&pidlTemp, &ulAttrs);
|
2003-06-06 20:09:38 +02:00
|
|
|
if (ulAttrs & SFGAO_FOLDER)
|
|
|
|
{
|
|
|
|
hr = IShellFolder_BindToObject(lpsf,pidlTemp,NULL,&IID_IShellFolder,(LPVOID*)&pSFChild);
|
|
|
|
if (SUCCEEDED(hr))
|
2003-07-02 02:37:16 +02:00
|
|
|
{
|
2005-05-04 11:48:15 +02:00
|
|
|
DWORD flags = BrowseFlagsToSHCONTF(info->lpBrowseInfo->ulFlags);
|
|
|
|
hr = IShellFolder_EnumObjects(pSFChild, hwnd, flags, &pEnumIL);
|
2005-04-22 21:07:00 +02:00
|
|
|
if (hr == S_OK)
|
2003-07-02 02:37:16 +02:00
|
|
|
{
|
2005-05-04 11:48:15 +02:00
|
|
|
if ((IEnumIDList_Skip(pEnumIL, 1) != S_OK) ||
|
|
|
|
FAILED(IEnumIDList_Reset(pEnumIL)))
|
2003-07-02 02:37:16 +02:00
|
|
|
{
|
|
|
|
IEnumIDList_Release(pEnumIL);
|
|
|
|
pEnumIL = NULL;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
IShellFolder_Release(pSFChild);
|
|
|
|
}
|
1999-01-26 11:30:55 +01:00
|
|
|
}
|
2003-06-06 20:09:38 +02:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
if (!(hPrev = InsertTreeViewItem(info, lpsf, pidlTemp, pidl, pEnumIL, hParent)))
|
|
|
|
goto done;
|
1999-04-22 18:27:50 +02:00
|
|
|
SHFree(pidlTemp); /* Finally, free the pidl that the shell gave us... */
|
2003-06-06 20:09:38 +02:00
|
|
|
pidlTemp=NULL;
|
1999-01-26 11:30:55 +01:00
|
|
|
}
|
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
done:
|
1999-01-26 11:30:55 +01:00
|
|
|
ReleaseCapture();
|
2003-09-10 05:56:47 +02:00
|
|
|
SetCursor(LoadCursorW(0, (LPWSTR)IDC_ARROW));
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2003-06-06 20:09:38 +02:00
|
|
|
if (pidlTemp)
|
1999-03-14 13:16:21 +01:00
|
|
|
SHFree(pidlTemp);
|
1999-01-26 11:30:55 +01:00
|
|
|
}
|
|
|
|
|
2003-06-06 20:09:38 +02:00
|
|
|
static inline BOOL PIDLIsType(LPCITEMIDLIST pidl, PIDLTYPE type)
|
|
|
|
{
|
|
|
|
LPPIDLDATA data = _ILGetDataPointer(pidl);
|
|
|
|
if (!data)
|
|
|
|
return FALSE;
|
|
|
|
return (data->type == type);
|
|
|
|
}
|
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
static void BrsFolder_CheckValidSelection( browse_info *info, LPTV_ITEMDATA lptvid )
|
2003-06-06 20:09:38 +02:00
|
|
|
{
|
2005-05-04 11:48:15 +02:00
|
|
|
LPBROWSEINFOW lpBrowseInfo = info->lpBrowseInfo;
|
2003-06-06 20:09:38 +02:00
|
|
|
LPCITEMIDLIST pidl = lptvid->lpi;
|
|
|
|
BOOL bEnabled = TRUE;
|
|
|
|
DWORD dwAttributes;
|
2005-04-28 20:26:58 +02:00
|
|
|
HRESULT r;
|
|
|
|
|
2003-06-06 20:09:38 +02:00
|
|
|
if ((lpBrowseInfo->ulFlags & BIF_BROWSEFORCOMPUTER) &&
|
|
|
|
!PIDLIsType(pidl, PT_COMP))
|
|
|
|
bEnabled = FALSE;
|
|
|
|
if (lpBrowseInfo->ulFlags & BIF_RETURNFSANCESTORS)
|
|
|
|
{
|
|
|
|
dwAttributes = SFGAO_FILESYSANCESTOR | SFGAO_FILESYSTEM;
|
2005-04-28 20:26:58 +02:00
|
|
|
r = IShellFolder_GetAttributesOf(lptvid->lpsfParent, 1,
|
|
|
|
(LPCITEMIDLIST*)&lptvid->lpi, &dwAttributes);
|
|
|
|
if (FAILED(r) || !dwAttributes)
|
2003-06-06 20:09:38 +02:00
|
|
|
bEnabled = FALSE;
|
|
|
|
}
|
|
|
|
if (lpBrowseInfo->ulFlags & BIF_RETURNONLYFSDIRS)
|
|
|
|
{
|
|
|
|
dwAttributes = SFGAO_FOLDER | SFGAO_FILESYSTEM;
|
2005-04-28 20:26:58 +02:00
|
|
|
r = IShellFolder_GetAttributesOf(lptvid->lpsfParent, 1,
|
|
|
|
(LPCITEMIDLIST*)&lptvid->lpi, &dwAttributes);
|
|
|
|
if (FAILED(r) || (dwAttributes != (SFGAO_FOLDER | SFGAO_FILESYSTEM)))
|
2003-06-06 20:09:38 +02:00
|
|
|
bEnabled = FALSE;
|
|
|
|
}
|
2005-05-04 11:48:15 +02:00
|
|
|
SendMessageW(info->hWnd, BFFM_ENABLEOK, 0, (LPARAM)bEnabled);
|
2003-06-06 20:09:38 +02:00
|
|
|
}
|
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
static LRESULT BrsFolder_Treeview_Delete( browse_info *info, NMTREEVIEWW *pnmtv )
|
2002-06-01 01:06:46 +02:00
|
|
|
{
|
2005-04-28 20:26:58 +02:00
|
|
|
LPTV_ITEMDATA lptvid = (LPTV_ITEMDATA)pnmtv->itemOld.lParam;
|
2002-06-01 01:06:46 +02:00
|
|
|
|
2005-04-28 20:26:58 +02:00
|
|
|
TRACE("TVN_DELETEITEMA/W %p\n", lptvid);
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-04-28 20:26:58 +02:00
|
|
|
IShellFolder_Release(lptvid->lpsfParent);
|
|
|
|
if (lptvid->pEnumIL)
|
|
|
|
IEnumIDList_Release(lptvid->pEnumIL);
|
|
|
|
SHFree(lptvid->lpi);
|
|
|
|
SHFree(lptvid->lpifq);
|
|
|
|
SHFree(lptvid);
|
|
|
|
return 0;
|
|
|
|
}
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
static LRESULT BrsFolder_Treeview_Expand( browse_info *info, NMTREEVIEWW *pnmtv )
|
2005-04-28 20:26:58 +02:00
|
|
|
{
|
|
|
|
IShellFolder *lpsf2 = NULL;
|
|
|
|
LPTV_ITEMDATA lptvid = (LPTV_ITEMDATA) pnmtv->itemNew.lParam;
|
|
|
|
HRESULT r;
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-04-28 20:26:58 +02:00
|
|
|
TRACE("TVN_ITEMEXPANDINGA/W\n");
|
|
|
|
|
|
|
|
if ((pnmtv->itemNew.state & TVIS_EXPANDEDONCE))
|
|
|
|
return 0;
|
|
|
|
|
2005-06-06 12:04:15 +02:00
|
|
|
if (lptvid->lpi && lptvid->lpi->mkid.cb) {
|
|
|
|
r = IShellFolder_BindToObject( lptvid->lpsfParent, lptvid->lpi, 0,
|
|
|
|
(REFIID)&IID_IShellFolder, (LPVOID *)&lpsf2 );
|
|
|
|
} else {
|
|
|
|
lpsf2 = lptvid->lpsfParent;
|
|
|
|
r = IShellFolder_AddRef(lpsf2);
|
|
|
|
}
|
|
|
|
|
2005-04-28 20:26:58 +02:00
|
|
|
if (SUCCEEDED(r))
|
2005-05-04 11:48:15 +02:00
|
|
|
FillTreeView( info, lpsf2, lptvid->lpifq, pnmtv->itemNew.hItem, lptvid->pEnumIL);
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-04-28 20:26:58 +02:00
|
|
|
/* My Computer is already sorted and trying to do a simple text
|
|
|
|
* sort will only mess things up */
|
|
|
|
if (!_ILIsMyComputer(lptvid->lpi))
|
2005-05-04 11:48:15 +02:00
|
|
|
TreeView_SortChildren(info->hwndTreeView, pnmtv->itemNew.hItem, FALSE);
|
2005-04-28 20:26:58 +02:00
|
|
|
|
|
|
|
return 0;
|
1999-01-26 11:30:55 +01:00
|
|
|
}
|
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
static HRESULT BrsFolder_Treeview_Changed( browse_info *info, NMTREEVIEWW *pnmtv )
|
2005-04-28 20:26:58 +02:00
|
|
|
{
|
|
|
|
LPTV_ITEMDATA lptvid = (LPTV_ITEMDATA) pnmtv->itemNew.lParam;
|
|
|
|
|
|
|
|
lptvid = (LPTV_ITEMDATA) pnmtv->itemNew.lParam;
|
2005-05-04 11:48:15 +02:00
|
|
|
info->pidlRet = lptvid->lpifq;
|
|
|
|
browsefolder_callback( info->lpBrowseInfo, info->hWnd, BFFM_SELCHANGED,
|
|
|
|
(LPARAM)info->pidlRet );
|
|
|
|
BrsFolder_CheckValidSelection( info, lptvid );
|
2005-04-28 20:26:58 +02:00
|
|
|
return 0;
|
|
|
|
}
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
static LRESULT BrsFolder_OnNotify( browse_info *info, UINT CtlID, LPNMHDR lpnmh )
|
2002-08-14 23:03:55 +02:00
|
|
|
{
|
2005-04-28 20:26:58 +02:00
|
|
|
NMTREEVIEWW *pnmtv = (NMTREEVIEWW *)lpnmh;
|
2000-08-25 23:33:23 +02:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
TRACE("%p %x %p msg=%x\n", info, CtlID, lpnmh, pnmtv->hdr.code);
|
2000-08-25 23:33:23 +02:00
|
|
|
|
2005-04-28 20:26:58 +02:00
|
|
|
if (pnmtv->hdr.idFrom != IDD_TREEVIEW)
|
|
|
|
return 0;
|
2000-08-25 23:33:23 +02:00
|
|
|
|
2005-04-28 20:26:58 +02:00
|
|
|
switch (pnmtv->hdr.code)
|
|
|
|
{
|
|
|
|
case TVN_DELETEITEMA:
|
|
|
|
case TVN_DELETEITEMW:
|
2005-05-04 11:48:15 +02:00
|
|
|
return BrsFolder_Treeview_Delete( info, pnmtv );
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-04-28 20:26:58 +02:00
|
|
|
case TVN_ITEMEXPANDINGA:
|
|
|
|
case TVN_ITEMEXPANDINGW:
|
2005-05-04 11:48:15 +02:00
|
|
|
return BrsFolder_Treeview_Expand( info, pnmtv );
|
2002-06-01 01:06:46 +02:00
|
|
|
|
2005-04-28 20:26:58 +02:00
|
|
|
case TVN_SELCHANGEDA:
|
|
|
|
case TVN_SELCHANGEDW:
|
2005-05-04 11:48:15 +02:00
|
|
|
return BrsFolder_Treeview_Changed( info, pnmtv );
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-04-28 20:26:58 +02:00
|
|
|
default:
|
|
|
|
WARN("unhandled (%d)\n", pnmtv->hdr.code);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
static BOOL BrsFolder_OnCreate( HWND hWnd, browse_info *info )
|
2005-04-28 20:26:58 +02:00
|
|
|
{
|
2005-05-04 11:48:15 +02:00
|
|
|
LPBROWSEINFOW lpBrowseInfo = info->lpBrowseInfo;
|
|
|
|
|
|
|
|
info->hWnd = hWnd;
|
|
|
|
SetPropW( hWnd, szBrowseFolderInfo, info );
|
2005-04-28 20:26:58 +02:00
|
|
|
|
|
|
|
if (lpBrowseInfo->ulFlags & ~SUPPORTEDFLAGS)
|
|
|
|
FIXME("flags %x not implemented\n", lpBrowseInfo->ulFlags & ~SUPPORTEDFLAGS);
|
|
|
|
|
|
|
|
if (lpBrowseInfo->lpszTitle)
|
|
|
|
SetWindowTextW( GetDlgItem(hWnd, IDD_TITLE), lpBrowseInfo->lpszTitle );
|
|
|
|
else
|
|
|
|
ShowWindow( GetDlgItem(hWnd, IDD_TITLE), SW_HIDE );
|
|
|
|
|
|
|
|
if (!(lpBrowseInfo->ulFlags & BIF_STATUSTEXT))
|
|
|
|
ShowWindow( GetDlgItem(hWnd, IDD_STATUS), SW_HIDE );
|
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
info->hwndTreeView = GetDlgItem( hWnd, IDD_TREEVIEW );
|
|
|
|
if (info->hwndTreeView)
|
|
|
|
InitializeTreeView( info );
|
|
|
|
else
|
|
|
|
ERR("treeview control missing!\n");
|
2005-04-28 20:26:58 +02:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
browsefolder_callback( info->lpBrowseInfo, hWnd, BFFM_INITIALIZED, 0 );
|
2005-04-28 20:26:58 +02:00
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
static BOOL BrsFolder_OnCommand( browse_info *info, UINT id )
|
2005-04-28 20:26:58 +02:00
|
|
|
{
|
2005-05-04 11:48:15 +02:00
|
|
|
LPBROWSEINFOW lpBrowseInfo = info->lpBrowseInfo;
|
|
|
|
|
2005-04-28 20:26:58 +02:00
|
|
|
switch (id)
|
|
|
|
{
|
|
|
|
case IDOK:
|
2005-05-06 21:33:06 +02:00
|
|
|
info->pidlRet = ILClone(info->pidlRet); /* The original pidl will be free'd. */
|
2005-05-04 11:48:15 +02:00
|
|
|
pdump( info->pidlRet );
|
2005-04-28 20:26:58 +02:00
|
|
|
if (lpBrowseInfo->pszDisplayName)
|
2005-05-04 11:48:15 +02:00
|
|
|
SHGetPathFromIDListW( info->pidlRet, lpBrowseInfo->pszDisplayName );
|
|
|
|
EndDialog( info->hWnd, 1 );
|
2005-04-28 20:26:58 +02:00
|
|
|
return TRUE;
|
|
|
|
|
|
|
|
case IDCANCEL:
|
2005-05-04 11:48:15 +02:00
|
|
|
EndDialog( info->hWnd, 0 );
|
2005-04-28 20:26:58 +02:00
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
/*************************************************************************
|
|
|
|
* BrsFolderDlgProc32 (not an exported API function)
|
|
|
|
*/
|
|
|
|
static INT_PTR CALLBACK BrsFolderDlgProc( HWND hWnd, UINT msg, WPARAM wParam,
|
|
|
|
LPARAM lParam )
|
|
|
|
{
|
2005-05-04 11:48:15 +02:00
|
|
|
browse_info *info;
|
|
|
|
|
2005-04-28 20:26:58 +02:00
|
|
|
TRACE("hwnd=%p msg=%04x 0x%08x 0x%08lx\n", hWnd, msg, wParam, lParam );
|
|
|
|
|
|
|
|
if (msg == WM_INITDIALOG)
|
2005-05-04 11:48:15 +02:00
|
|
|
return BrsFolder_OnCreate( hWnd, (browse_info*) lParam );
|
|
|
|
|
|
|
|
info = (browse_info*) GetPropW( hWnd, szBrowseFolderInfo );
|
2005-04-28 20:26:58 +02:00
|
|
|
|
|
|
|
switch (msg)
|
|
|
|
{
|
|
|
|
case WM_NOTIFY:
|
2005-05-04 11:48:15 +02:00
|
|
|
return BrsFolder_OnNotify( info, (UINT)wParam, (LPNMHDR)lParam);
|
2005-04-28 20:26:58 +02:00
|
|
|
|
|
|
|
case WM_COMMAND:
|
2005-05-04 11:48:15 +02:00
|
|
|
return BrsFolder_OnCommand( info, wParam );
|
2005-04-28 20:26:58 +02:00
|
|
|
|
|
|
|
case BFFM_SETSTATUSTEXTA:
|
|
|
|
TRACE("Set status %s\n", debugstr_a((LPSTR)lParam));
|
|
|
|
SetWindowTextA(GetDlgItem(hWnd, IDD_STATUS), (LPSTR)lParam);
|
|
|
|
break;
|
|
|
|
|
|
|
|
case BFFM_SETSTATUSTEXTW:
|
|
|
|
TRACE("Set status %s\n", debugstr_w((LPWSTR)lParam));
|
|
|
|
SetWindowTextW(GetDlgItem(hWnd, IDD_STATUS), (LPWSTR)lParam);
|
|
|
|
break;
|
|
|
|
|
|
|
|
case BFFM_ENABLEOK:
|
|
|
|
TRACE("Enable %ld\n", lParam);
|
|
|
|
EnableWindow(GetDlgItem(hWnd, 1), (lParam)?TRUE:FALSE);
|
|
|
|
break;
|
|
|
|
|
|
|
|
case BFFM_SETOKTEXT: /* unicode only */
|
|
|
|
TRACE("Set OK text %s\n", debugstr_w((LPWSTR)wParam));
|
|
|
|
SetWindowTextW(GetDlgItem(hWnd, 1), (LPWSTR)wParam);
|
|
|
|
break;
|
|
|
|
|
|
|
|
case BFFM_SETSELECTIONA:
|
|
|
|
if (wParam)
|
|
|
|
FIXME("Set selection %s\n", debugstr_a((LPSTR)lParam));
|
|
|
|
else
|
|
|
|
FIXME("Set selection %p\n", (void*)lParam);
|
|
|
|
break;
|
|
|
|
|
|
|
|
case BFFM_SETSELECTIONW:
|
|
|
|
if (wParam)
|
|
|
|
FIXME("Set selection %s\n", debugstr_w((LPWSTR)lParam));
|
|
|
|
else
|
|
|
|
FIXME("Set selection %p\n", (void*)lParam);
|
|
|
|
break;
|
|
|
|
|
|
|
|
case BFFM_SETEXPANDED: /* unicode only */
|
|
|
|
if (wParam)
|
|
|
|
FIXME("Set expanded %s\n", debugstr_w((LPWSTR)lParam));
|
|
|
|
else
|
|
|
|
FIXME("Set expanded %p\n", (void*)lParam);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
return FALSE;
|
1999-01-26 11:30:55 +01:00
|
|
|
}
|
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
static const WCHAR swBrowseTemplateName[] = {
|
2005-04-28 20:26:58 +02:00
|
|
|
'S','H','B','R','S','F','O','R','F','O','L','D','E','R','_','M','S','G','B','O','X',0};
|
2002-12-13 01:30:30 +01:00
|
|
|
|
1999-01-26 11:30:55 +01:00
|
|
|
/*************************************************************************
|
2001-06-19 20:20:47 +02:00
|
|
|
* SHBrowseForFolderA [SHELL32.@]
|
2001-07-11 20:56:41 +02:00
|
|
|
* SHBrowseForFolder [SHELL32.@]
|
1999-01-26 11:30:55 +01:00
|
|
|
*/
|
1999-02-26 12:11:13 +01:00
|
|
|
LPITEMIDLIST WINAPI SHBrowseForFolderA (LPBROWSEINFOA lpbi)
|
1999-01-26 11:30:55 +01:00
|
|
|
{
|
2005-05-04 11:48:15 +02:00
|
|
|
BROWSEINFOW bi;
|
|
|
|
LPITEMIDLIST lpid;
|
|
|
|
INT len;
|
|
|
|
|
|
|
|
TRACE("%p\n", lpbi);
|
2002-12-13 01:30:30 +01:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
bi.hwndOwner = lpbi->hwndOwner;
|
|
|
|
bi.pidlRoot = lpbi->pidlRoot;
|
|
|
|
if (lpbi->pszDisplayName)
|
|
|
|
{
|
|
|
|
len = MultiByteToWideChar( CP_ACP, 0, lpbi->pszDisplayName, -1, NULL, 0 );
|
|
|
|
bi.pszDisplayName = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
|
|
|
|
MultiByteToWideChar( CP_ACP, 0, lpbi->pszDisplayName, -1, bi.pszDisplayName, len );
|
|
|
|
}
|
|
|
|
else
|
|
|
|
bi.pszDisplayName = NULL;
|
1999-01-26 11:30:55 +01:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
if (lpbi->lpszTitle)
|
|
|
|
{
|
|
|
|
len = MultiByteToWideChar( CP_ACP, 0, lpbi->lpszTitle, -1, NULL, 0 );
|
|
|
|
bi.lpszTitle = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
|
|
|
|
MultiByteToWideChar( CP_ACP, 0, lpbi->lpszTitle, -1, (LPWSTR)bi.lpszTitle, len );
|
|
|
|
}
|
|
|
|
else
|
|
|
|
bi.lpszTitle = NULL;
|
|
|
|
|
|
|
|
bi.ulFlags = lpbi->ulFlags;
|
|
|
|
bi.lpfn = lpbi->lpfn;
|
|
|
|
bi.lParam = lpbi->lParam;
|
|
|
|
bi.iImage = lpbi->iImage;
|
|
|
|
lpid = SHBrowseForFolderW( &bi );
|
|
|
|
if (bi.pszDisplayName)
|
|
|
|
{
|
|
|
|
WideCharToMultiByte( CP_ACP, 0, bi.pszDisplayName, -1,
|
|
|
|
lpbi->pszDisplayName, MAX_PATH, 0, NULL);
|
|
|
|
HeapFree( GetProcessHeap(), 0, bi.pszDisplayName );
|
|
|
|
}
|
|
|
|
HeapFree(GetProcessHeap(), 0, (LPVOID)bi.lpszTitle);
|
|
|
|
lpbi->iImage = bi.iImage;
|
|
|
|
return lpid;
|
1999-01-26 11:30:55 +01:00
|
|
|
}
|
2002-07-19 02:26:02 +02:00
|
|
|
|
2002-12-13 01:30:30 +01:00
|
|
|
|
2002-07-19 02:26:02 +02:00
|
|
|
/*************************************************************************
|
|
|
|
* SHBrowseForFolderW [SHELL32.@]
|
2005-05-04 11:48:15 +02:00
|
|
|
*
|
|
|
|
* NOTES:
|
|
|
|
* crashes when passed a null pointer
|
2002-07-19 02:26:02 +02:00
|
|
|
*/
|
|
|
|
LPITEMIDLIST WINAPI SHBrowseForFolderW (LPBROWSEINFOW lpbi)
|
|
|
|
{
|
2005-05-04 11:48:15 +02:00
|
|
|
browse_info info;
|
|
|
|
DWORD r;
|
|
|
|
|
|
|
|
info.hWnd = 0;
|
|
|
|
info.pidlRet = NULL;
|
|
|
|
info.lpBrowseInfo = lpbi;
|
|
|
|
info.hwndTreeView = NULL;
|
2002-12-13 01:30:30 +01:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
r = DialogBoxParamW( shell32_hInstance, swBrowseTemplateName, lpbi->hwndOwner,
|
|
|
|
BrsFolderDlgProc, (LPARAM)&info );
|
|
|
|
if (!r)
|
|
|
|
return NULL;
|
2002-12-13 01:30:30 +01:00
|
|
|
|
2005-05-04 11:48:15 +02:00
|
|
|
return info.pidlRet;
|
2002-07-19 02:26:02 +02:00
|
|
|
}
|