Delphi 用API删除目录替换掉默认的TDirectory.Delete
浏览(2641)Delphi
系统自带的那个实在是太慢了....用下面这个替代掉
function DelDirectory(const Source: string): Boolean;
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc :=...