function DeleteFiles(const Source: string): boolean;
var
  fo: TSHFILEOPSTRUCT;
begin
  FillChar(fo, SizeOf(fo), 0);
  with fo do
  begin
    Wnd := 0;
    wFunc := FO_DELETE;
    pFrom := Pchar(source);
    pTo :=nil;
    fFlags:={FOF_SILENT or }FOF_ALLOWUNDO{ or FOF_NOCONFIRMATION};
  end;
  Result := (SHFileOperation(fo) = 0);
end;
这样可以删除文件,但是有的文件删除后显示在回收站里,但有的文件没有显示在回收站里,不知是为什么?该如何处理呢?