New functions ILGlobalClone/ILGlobalFree.

This commit is contained in:
Juergen Schmied 1998-12-01 11:04:14 +00:00 committed by Alexandre Julliard
parent f59b215a73
commit a784a9d7eb
2 changed files with 41 additions and 5 deletions

View File

@ -135,6 +135,28 @@ LPITEMIDLIST WINAPI ILCloneFirst(LPCITEMIDLIST pidl)
return newpidl;
}
/*************************************************************************
* ILGlobalClone [SHELL32.97]
*
*/
LPITEMIDLIST WINAPI ILGlobalClone(LPCITEMIDLIST pidl)
{ DWORD len;
LPITEMIDLIST newpidl;
if (!pidl)
return NULL;
len = ILGetSize(pidl);
newpidl = (LPITEMIDLIST)pCOMCTL32_Alloc(len);
if (newpidl)
memcpy(newpidl,pidl,len);
TRACE(pidl,"pidl=%p newpidl=%p\n",pidl, newpidl);
pdump(pidl);
return newpidl;
}
/*************************************************************************
* ILIsEqual [SHELL32.21]
*
@ -394,12 +416,26 @@ LPITEMIDLIST WINAPI ILAppend(LPITEMIDLIST pidl,LPCITEMIDLIST item,BOOL32 bEnd)
* allocated by SHMalloc allocator
* exported by ordinal
*/
DWORD WINAPI ILFree(LPVOID pidl)
DWORD WINAPI ILFree(LPITEMIDLIST pidl)
{ TRACE(pidl,"(pidl=0x%08lx)\n",(DWORD)pidl);
if (!pidl)
return 0;
return FALSE;
return SHFree(pidl);
}
/*************************************************************************
* ILGlobalFree [SHELL32.156]
*
*/
DWORD WINAPI ILGlobalFree( LPITEMIDLIST pidl)
{ TRACE(pidl,"%p\n",pidl);
if (!pidl)
return FALSE;
return pCOMCTL32_Free (pidl);
}
/*************************************************************************
* ILCreateFromPath [SHELL32.157]
*

View File

@ -25,7 +25,7 @@ init Shell32LibMain
17 stdcall ILRemoveLastID(ptr) ILRemoveLastID
18 stdcall ILClone(ptr) ILClone
19 stdcall ILCloneFirst (ptr) ILCloneFirst
20 stub ILGlobalClone@4
20 stdcall ILGlobalClone (ptr) ILGlobalClone
21 stdcall ILIsEqual (ptr ptr) ILIsEqual
22 stdcall Control_RunDLL(long long long long) Control_RunDLL # exported by name
23 stdcall ILIsParent (long long long) ILIsParent
@ -161,7 +161,7 @@ init Shell32LibMain
153 stdcall ILGetNext(ptr) ILGetNext
154 stdcall ILAppend (long long long) ILAppend
155 stdcall ILFree (ptr) ILFree
156 stub ILGlobalFree
156 stdcall ILGlobalFree (ptr) ILGlobalFree
157 stdcall ILCreateFromPath (ptr) ILCreateFromPath
158 stdcall PathGetExtension(str long long) PathGetExtension32AW
159 stub PathIsDirectory