Source Code



Empty Recylce Bin

  • anonymous
  • Dec 19' 13
  • Delphi
  • 231
  • 122
  • United States

 

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;

  • Tags : delphi, recycle, empty
comments powered by Disqus

Related Code

Get MAC Address of Network Card

Kill Active Program

Resizable forms and size grip

Simple Like Function

Suspend the PC

Get current url

Using WinZip as a backup tool

Upper the first letter of each word

Rotate Font

Access the controls of a TRadioGroup



Category

Tag Linked