//在uses下面引用

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

;

 

附件列表