摘要： function TForm1.DeleteDirectory(NowPath: string): Boolean; // 删除整个目录var search: TSearchRec; ret: integer; key: string;begin if NowPath[Length(NowPath)] '\' then NowPath := NowPath + '\'; key := NowPath + '*.*'; ret := findFirst(key, faanyfile, search); while ret = 0 do begin 阅读全文