[TRUCOS DELPHI] Vaciar la Papelera de Reciclaje.
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;
Saludos!