遍历并显示回收站中的文件

.如果真 (COM_调用COM方法 (peidl, 3, 1, 取指针整数_ (idlCurrent), 取指针整数_ (uFetched), , , , , , , ) ＝ #S_FALSE)
跳出循环 ()
.如果真结束
SHGetPathFromIDListA (idlCurrent, pszPath)
strret ＝ LocalAlloc (#LMEM_ZEROINIT, 264)
COM_调用COM方法 (pisf, 11, idlCurrent, #SHGDN_NORMAL, strret, , , , , , , )
pOleStr ＝ 指针_到整数 (strret ＋ 4)
dwSize ＝ lstrlenW (pOleStr)
szBuf ＝ 指针到字节集 (pOleStr, dwSize × 2 ＋ 2)
LocalFree (strret)
调试输出 (pszPath, 编码_Unicode到Ansi (szBuf))
遍历并显示回收站中的文件开源。