Title: 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;