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

.版本 2
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 pisfRecBin, 整数型
.局部变量 pMalloc, 整数型
.局部变量 pidlBin, 整数型
.局部变量 IID_IShellFolder, 字节集
.局部变量 pisf, 整数型
.局部变量 peidl, 整数型
.局部变量 idlCurrent, 整数型
.局部变量 uFetched, 整数型
.局部变量 pszPath, 文本型
.局部变量 strret, 整数型
.局部变量 pOleStr, 整数型
.局部变量 dwSize, 整数型
.局部变量 szBuf, 字节集

pszPath ＝ 取空白文本 (#MAX_PATH)
SHGetDesktopFolder (pisfRecBin)
SHGetMalloc (pMalloc)
SHGetFolderLocation (#NULL, #CSIDL_BITBUCKET, #NULL, 0, pidlBin)
IID_IShellFolder ＝ { 230, 20, 2, 0, 0, 0, 0, 0, 192, 0, 0, 0, 0, 0, 0, 70 }
COM_调用COM方法 (pisfRecBin, 5, pidlBin, #NULL, 取指针_字节集型 (IID_IShellFolder), 取指针整数_ (pisf), , , , , , )
COM_调用COM方法 (pisf, 4, #NULL, 位或 (#SHCONTF_FOLDERS, #SHCONTF_NONFOLDERS, #SHCONTF_INCLUDEHIDDEN), 取指针整数_ (peidl), , , , , , , )
.判断循环首 (真)
    .如果真 (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))
.判断循环尾 ()
COM_Release (pMalloc)
COM_Release (peidl)
COM_Release (pisf)
返回 (0)  ' 可以根据您的需要返回任意数值

@大司命