unit LibItemIDList; interface uses Windows, ActiveX, Classes, NewShlObj, SysUtils, ShlObj2, LibString; type PPItemIDList = ^PItemIDList; var FF_IMalloc : IMalloc; FF_IShellFolder_Desktop : IShellFolder; function PIDL_GetIMalloc : IMalloc; function PIDL_GetSize(PIDL: PItemIDList): DWORD; function PIDL_Clone(PIDL: PItemIDList): PItemIDList; procedure PIDL_Free(PIDL: PItemIDList); function PIDL_Get..