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;
这样可以删除文件,但是有的文件删除后显示在回收站里,但有的文件没有显示在回收站里,不知是为什么?该如何处理呢?
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;
这样可以删除文件,但是有的文件删除后显示在回收站里,但有的文件没有显示在回收站里,不知是为什么?该如何处理呢?
删除目录的话,目录下的文件是不显示的再有就是回收站有点问题,但不影响文件恢复的,使用恢复全部一样可以回来的