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

大司命

1. .版本 2
   
2. 
   
3. .DLL命令 SHGetDesktopFolder, 整数型, "shell32", "SHGetDesktopFolder"
   
4.     .参数 ppshf, 整数型, 传址
   
5. 
   
6. .DLL命令 SHGetMalloc, 整数型, "shell32", "SHGetMalloc"
   
7.     .参数 ppMalloc, 整数型, 传址
   
8. 
   
9. .DLL命令 SHGetFolderLocation, 整数型, "Shell32.dll", "SHGetFolderLocation"
   
10.     .参数 hwnd, 整数型
    
11.     .参数 csidl, 整数型
    
12.     .参数 hToken, 整数型
    
13.     .参数 dwFlags, 整数型
    
14.     .参数 ppidl, 整数型, 传址
    
15. 
    
16. .DLL命令 lstrlenW, 整数型, "kernel32.dll", "lstrlenW", , 取字节长度　
    
17.     .参数 lpString, 整数型
    

复制代码

1. .版本 2
   
2. 
   
3. .常量 S_FALSE, "1"
   
4. .常量 SHCONTF_FOLDERS, "32"
   
5. .常量 SHCONTF_NONFOLDERS, "64"
   
6. .常量 SHCONTF_INCLUDEHIDDEN, "128"
   
7. .常量 SHGDN_NORMAL, "0"

复制代码

  

变量名	类 型	静态	数组	备 注
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)

.版本 2<br /> .局部变量 pisfRecBin, 整数型<br /> .局部变量 pMalloc, 整数型<br /> .局部变量 pidlBin, 整数型<br /> .局部变量 IID_IShellFolder, 字节集<br /> .局部变量 pisf, 整数型<br /> .局部变量 peidl, 整数型<br /> .局部变量 idlCurrent, 整数型<br /> .局部变量 uFetched, 整数型<br /> .局部变量 pszPath, 文本型<br /> .局部变量 strret, 整数型<br /> .局部变量 pOleStr, 整数型<br /> .局部变量 dwSize, 整数型<br /> .局部变量 szBuf, 字节集<br /> pszPath ＝ 取空白文本 (#MAX_PATH)<br /> SHGetDesktopFolder (pisfRecBin)<br /> SHGetMalloc (pMalloc)<br /> SHGetFolderLocation (#NULL, #CSIDL_BITBUCKET, #NULL, 0, pidlBin)<br /> IID_IShellFolder ＝ { 230, 20, 2, 0, 0, 0, 0, 0, 192, 0, 0, 0, 0, 0, 0, 70 }<br /> COM_调用COM方法 (pisfRecBin, 5, pidlBin, #NULL, 取指针_字节集型 (IID_IShellFolder), 取指针整数_ (pisf), , , , , , )<br /> COM_调用COM方法 (pisf, 4, #NULL, 位或 (#SHCONTF_FOLDERS, #SHCONTF_NONFOLDERS, #SHCONTF_INCLUDEHIDDEN), 取指针整数_ (peidl), , , , , , , )<br /> .判断循环首 (真)<br />     .如果真 (COM_调用COM方法 (peidl, 3, 1, 取指针整数_ (idlCurrent), 取指针整数_ (uFetched), , , , , , , ) ＝ #S_FALSE)<br />         跳出循环 ()<br />     .如果真结束<br />     SHGetPathFromIDListA (idlCurrent, pszPath)<br />     strret ＝ LocalAlloc (#LMEM_ZEROINIT, 264)<br />     COM_调用COM方法 (pisf, 11, idlCurrent, #SHGDN_NORMAL, strret, , , , , , , )<br />     pOleStr ＝ 指针_到整数 (strret ＋ 4)<br />     dwSize ＝ lstrlenW (pOleStr)<br />     szBuf ＝ 指针到字节集 (pOleStr, dwSize × 2 ＋ 2)<br />     LocalFree (strret)<br />     调试输出 (pszPath, 编码_Unicode到Ansi (szBuf))<br /> .判断循环尾 ()<br /> COM_Release (pMalloc)<br /> COM_Release (peidl)<br /> COM_Release (pisf)

拿走拿走~

遍历并显示回收站中的文件.e (887.7 KB, 下载次数: 126)

2021-5-17 20:52 上传

点击文件名下载附件

gaoqing

感谢分享

miaorui

支持开源~！感谢分享

王林伟

膜拜大神

jysoft2022

谢谢分享

729004823

支持开源~！感谢分享

瓶中仙子

感谢楼主。

gaoqing

支持开原谢谢

wshw0058

感谢楼主。

美味萝卜

非常感谢楼主