【delphi开源代码栏目提醒】：本文主要为网学会员提供frm_Empty.pas，希望对需要frm_Empty.pas网友有所帮助，学习一下!

    unit frm_Empty;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, XPMan, ComCtrls, ShellCtrls;
    
    const
      SHERB_NOCONFIRMATION=$00000001;
      SHERB_NOPROGRESSUI=$00000002;
      SHERB_NOSOUND=$00000004;
    
    type
      TFrmEmpty = class(TForm)
        BtnEmpty: TButton;
        BtnClose: TButton;
        GroupBox1: TGroupBox;
        ShellListView1: TShellListView;
        procedure BtnEmptyClick(Sender: TObject);
        procedure BtnCloseClick(Sender: TObject);
      private
        function EmptyRecycle:boolean;
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmEmpty: TFrmEmpty;
    
    implementation
    
    {$R *.dfm}
    
    function SHEmptyRecycleBinA(Wnd:HWND;str:PChar;WRD:DWORD):Integer;stdcall; external 'SHell32.dll';
    
    function TFrmEmpty.EmptyRecycle:boolean;
    begin
      result:=true;
      try
        SHEmptyRecycleBinA(Application.Handle,'',  SHERB_NOCONFIRMATION+SHERB_NOPROGRESSUI+SHERB_NOSOUND);
      except
        result:=false;
      end;
    end;
    
    procedure TFrmEmpty.BtnEmptyClick(Sender: TObject);
    begin
      if Application.MessageBox('您确定要清空回收站吗？','提示',MB_ICONQUESTION+MB_YESNO) = ID_YES then
      begin
        EmptyRecycle;
      end;
    end;
    
    procedure TFrmEmpty.BtnCloseClick(Sender: TObject);
    begin
      Close;
    end;
    
    end.