如何取得＂回收站＂信息并操作＂回收站＂？(50)

1、如何取得回收站里的所有文件列表？包括文件大小、删除日期？2、如何用程序实现回收站中某文件的“还原”、“删除”操作？

Delphi 深度探索（第二版）（含光盘） 里面有例子

没这本书

constSHERB_NOCONFIRMATION = $00000001 ;SHERB_NOPROGRESSUI = $00000002 ;SHERB_NOSOUND = $00000004 ;typeTSHEmptyRecycleBin=function(Wnd:HWND;LPCTSTRChar;DWORD:Word):Integer;stdcall;

procedure TForm1.Button1Click(Sender: TObject);var　SHEmptyRecycleBin:TSHEmptyRecycleBin;　LibHandle:THandle;begin　LibHandle := LoadLibrary(PChar(’Shell32.dll’)) ;　if LibHandle <> 0 then　begin　　@SHEmptyRecycleBin := GetProcAddress(LibHandle, ’SHEmptyRecycleBinA’);　end　else　begin　　MessageDlg(’Failed to load Shell32.dll.’, mtError, [mbOK], 0);　　Exit ;　end ;　if @SHEmptyRecycleBin <> nil then　begin　　SHEmptyRecycleBin(Application.Handle,’’,SHERB_NOCONFIRMATION orSHERB_NOPROGRESSUI or SHERB_NOSOUND) ;　end;　FreeLibrary(LibHandle);　@SHEmptyRecycleBin := nil ;end; 程序代码如下：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;type　TForm1 = class(TForm)　Button1: TButton;　procedure Button1Click(Sender: TObject);private　{ Private declarations }public　{ Public declarations }end;var　Form1: TForm1;　implementationconst　SHERB_NOCONFIRMATION = $00000001 ;　SHERB_NOPROGRESSUI = $00000002 ;　SHERB_NOSOUND = $00000004 ;type　TSHEmptyRecycleBin=function(Wnd:HWND;LPCTSTRChar;DWORD:Word):Integer;stdcall;　{$R *.dfm}　procedure TForm1.Button1Click(Sender: TObject);var　SHEmptyRecycleBin:TSHEmptyRecycleBin;　LibHandle:THandle;begin　LibHandle := LoadLibrary(PChar(’Shell32.dll’)) ;　if LibHandle <> 0 then　begin　　@SHEmptyRecycleBin := GetProcAddress(LibHandle, ’SHEmptyRecycleBinA’);　end　else　begin　　MessageDlg(’Failed to load Shell32.dll.’, mtError, [mbOK], 0);　　Exit ;　end ;　if @SHEmptyRecycleBin <> nil then　begin　　SHEmptyRecycleBin(Application.Handle,’’,SHERB_NOCONFIRMATION or SHERB_NOPROGRESSUI or SHERB_NOSOUND) ;　end;　FreeLibrary(LibHandle);　@SHEmptyRecycleBin := nil ;　end;end.

谢谢，上面的例子是清空，怎么取得文件的信息．

http://www.delphifans.com/softview/softview_127.html深入delphi核心编程附书源码深入delphi核心编程附书源码Delphi下深入windows核心编程===========================第1章　DLL及数据共享第2章　钩子原理第3章　系统内核第4章　低层操作第5章　磁盘读写第6章　回收站和IE第7章　高级应用第8章　PE结构分析第9章　内存管理第10章　屏幕取词

1、如何取得回收站里的所有文件列表？包括文件大小、删除日期？2、如何用程序实现回收站中某文件的“还原”、“删除”操作？

大半年了，我还是搞不清这个问题？！

多人接受答案了。