⤷ Empty RecycleBin

Try something like this.

procedure TForm1.Button1Click(Sender: TObject);
type
  TEmptyBin=function(Wnd: hWnd; LpctStr: PChar; DWord: Word): Integer; stdcall;
var
  MyHandle: THandle;
  RecBin: TEmptyBin;
begin
  MyHandle:=LoadLibrary('Shell32.dll');
  @RecBin:=GetProcAddress(MyHandle, 'SHEmptyRecycleBinA');
  RecBin(Application.Handle, '', 0);
  FreeLibrary(MyHandle);
  @RecBin:=nil;
end;
More for developers