系统自带的那个实在是太慢了....用下面这个替代掉 function DelDirectory(const Source: string): Boolean; var fo: TSHFILEOPSTRUCT; begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc :=...

详情»