سایت تخصصی برنامه نویسی دلفی

                 uses    

,shellapi

Procedure EmptyRecycleBin;
Const
SHERB_NCONFIRMATION = $0000001 ;
SHERB_NOPROGRESSUI = $0000002 ;
SHERB_NOSOUND = $0000004 ;
Type
TSHEmptyRecycleBin = function (Wnd : HWND;
pszRootPath : PChar;
dwFlags : DWORD) : HRESULT; stdcall;
Var
SHEmtyRecycleBin : TSHEmptyRecycleBin;
LibHandel : THandle;
Begin { EmptyRecycleBin }
LibHandel := LoadLibrary(PChar('Shell32.dll'));
if LibHandel> 0 then
SHEmtyRecycleBin :=GetProcAddress(LibHandel, 'SHEmptyRecycleBinA')
else
begin
MessageDlg('Failed to load Shell32.dll.',mtError, [mbOK], 0);
Exit;
End;
SHEmtyRecycleBin(Application.Handle, nil,
SHERB_NCONFIRMATION  or SHERB_NOPROGRESSUI or
SHERB_NOSOUND);
FreeLibrary(LibHandel);
End; { EmptyRecycleBin }

مثال بایک Button:

procedure TForm1.Button1Click(Sender: TObject);

Var

   MsgText, MsgCaption : String;

   MsgType, UserResp : integer;

begin

   MsgCaption := 'تایید خالی کردن سطل آشغال';

   MsgText :='آیامایل به خالی کردن سطل آشغال هستید؟ ';

   MsgType := MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON1 + MB_APPLMODAL;

   UserResp := MessageBox( Handle, PChar(MsgText), PChar(MsgCaption), MsgType);

   Case UserResp of

      IDYES :

          begin

                EmptyRecycleBin;  {کد اصلی برای خالی کردن سطل آشغال }

   end;

      IDNO :

          begin

          end;

   end;

   end;

موفق وسربلند باشید .

 *********************************************************************