如何清空回收站

Procedure EmptyRecycleBin ;
源代码网推荐 Const
源代码网推荐 SHERB_NOCONFIRMATION = $00000001 ;
源代码网推荐 SHERB_NOPROGRESSUI = $00000002 ;
源代码网推荐 SHERB_NOSOUND = $00000004 ;
源代码网推荐 Type
源代码网推荐 TSHEmptyRecycleBin = function (Wnd : HWND;
源代码网推荐 pszRootPath : PChar;
源代码网推荐 dwFlags : DWORD
源代码网推荐 ) : HRESULT; stdcall ;
源代码网推荐 Var
源代码网推荐 SHEmptyRecycleBin : TSHEmptyRecycleBin;
源代码网推荐 LibHandle : THandle;
源代码网推荐 Begin { EmptyRecycleBin }
源代码网推荐 LibHandle := LoadLibrary(PChar("Shell32.dll")) ;
源代码网推荐 if LibHandle <> 0 then
源代码网推荐 @SHEmptyRecycleBin := GetProcAddress(LibHandle, "SHEmptyRecycleBinA")
源代码网推荐 else
源代码网推荐 begin
源代码网推荐 MessageDlg("Failed to load Shell32.dll.", mtError, [mbOK], 0);
源代码网推荐 Exit;
源代码网推荐 end;
源代码网推荐
源代码网推荐
源代码网推荐 if @SHEmptyRecycleBin <> nil then
源代码网推荐 SHEmptyRecycleBin(Application.Handle,
源代码网推荐 nil,
源代码网推荐 SHERB_NOCONFIRMATION or SHERB_NOPROGRESSUI or SHERB_NOSOUND);
源代码网推荐 FreeLibrary(LibHandle);
源代码网推荐 @SHEmptyRecycleBin := nil ;
源代码网推荐 end; { EmptyRecycleBin } 软件开发网 www.mscto.com