删除文件或文件夹

procedure DeleteFiles(Handle:THandle;Source:string);

var

FO:TShFileOpStruct;

begin

FillChar(FO,Sizeof(FO),#0);

FO.wnd:=handle;

FO.wFunc :=FO_Delete;

FO.flags:=FOF_NOCONFINFORMATION;

FO.pFrom :=PChar(Source);

SHFileOperation(FO);

end;

end;