Очистить корзину

Советы » Другое » Очистить корзину

procedure EmptyRecycleBin;
 const

   SHERB_NOCONFIRMATION = $00000001;
   SHERB_NOPROGRESSUI = $00000002;
   SHERB_NOSOUND = $00000004;
 type

   TSHEmptyRecycleBin = function
(Wnd: HWND;
                                 pszRootPath: PChar;
                                 dwFlags: DWORD): HRESULT;  stdcall
;
 var

   SHEmptyRecycleBin: TSHEmptyRecycleBin;
   LibHandle: THandle;
 begin
  { EmptyRecycleBin }
   LibHandle := LoadLibrary(PChar('Shell32.dll'));
   if
 LibHandle <> 0 then
 @SHEmptyRecycleBin :=
       GetProcAddress(LibHandle, 'SHEmptyRecycleBinA')
   else

   begin

     MessageDlg('Failed to load Shell32.dll.', mtError, [mbOK], 0);
     Exit;
   end
;

   if
 @SHEmptyRecycleBin <> nil
 then

     SHEmptyRecycleBin(Application.Handle,
                       nil
,
                       SHERB_NOCONFIRMATION or
 SHERB_NOPROGRESSUI or
 SHERB_NOSOUND);
   FreeLibrary(LibHandle); @SHEmptyRecycleBin := nil
;
 end
;



 procedure
 TForm1.Button1Click(Sender: TObject);
 begin

   EmptyRecycleBin;
 end
;


 { 
 Minimum operating systems: Windows XP/2000, Windows NT 4.0 with Internet Explorer 4.0, 
                            Windows 98, Windows 95 with Internet Explorer 4.0 
 (shell32.dll version 4.71 or later) 
}

Как сделать калькулятор в Delphi?

Как Delphi реализует многоплатформенную разработку?

Очистить корзину

Другое по теме:

Категории

Статьи

Советы