function SHEmptyRecycleBinA(Wnd:HWND;str:PChar;WRD:DWORD):Integer;stdcall; external 'SHell32.dll';

 

//调用 EmptyRecycle();

function EmptyRecycle():boolean; 
begin 
  Result:=true; 
  try 
    if Application.MessageBox('确定要清空回收站吗？','提示',MB_YESNO) = ID_YES then 
       SHEmptyRecycleBinA(Application.Handle,'', $7); 
  except 
    Result:=false; 
  end; 
end;