FAQ - Удаляет файл в корзину

USES SHELLAPI;

FUNCTION DELETEFILEWITHUNDO( SFILENAME : STRING ) : BOOLEAN;
VAR FOS : TSHFILEOPSTRUCT;
BEGIN
 SFILENAME:= SFILENAME+#0;
  FILLCHAR( FOS, SIZEOF( FOS ), 0 );
  WITH FOS DO BEGIN
    WFUNC  := FO_DELETE;
    PFROM  := PCHAR( SFILENAME );
    FFLAGS := FOF_ALLOWUNDO OR FOF_NOCONFIRMATION OR FOF_SILENT;
  END;
  RESULT := ( 0 = SHFILEOPERATION( FOS ) );
END;