EmptyRecycle() 清空回收站

 

//在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 ;

 

通过 为知笔记 发布

附件列表