procedure DeleteDir(DirPath: string);
begin
DirPath := 'rd "' + DirPath + '" /S /Q';
ShellExecute(Application.Handle, nil, 'cmd.exe', PChar('/c ' + DirPath), nil, SW_HIDE);
end;
Delphi删除文件夹及其内容
最新推荐文章于 2020-08-13 09:24:52 发布
procedure DeleteDir(DirPath: string);
begin
DirPath := 'rd "' + DirPath + '" /S /Q';
ShellExecute(Application.Handle, nil, 'cmd.exe', PChar('/c ' + DirPath), nil, SW_HIDE);
end;