uses shellapi ... 
 
... 
  public 
    { Public-Deklarationen } 
  end; 
 
var 
  Form1: TForm1; 
  function SHEmptyRecycleBin(Wnd: HWND; pszPath: PAnsiChar; uFlags: UINT): 
    DWORD; stdcall; 
  function SHEmptyRecycleBin; external shell32 name 'SHEmptyRecycleBinA'; 
 
implementation 
 
{$R *.DFM} 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SHEmptyRecycleBin(handle, nil, 5); 
end;