大家好,又见面了,我是你们的朋友全栈君。
Uses Shellapi;
var
FileOp: TSHFileOpStruct;
begin
with FileOp do
begin
Wnd := Handle; //hinstance;
wFunc := FO_DELETE; //FO_COPY,FO_RENAME,FO_MOVE,FO_DELETE
pFrom := Pchar(‘D:\BAK18-03-30 09-55-31’ + #0);
pTo := nil; //目标文件及路径
fFlags := FOF_NOCONFIRMATION + FOF_NOERRORUI + FOF_SILENT;
//标志表明允许恢复,无须确认并不显示出错信息
hNameMappings := nil;
// lpszProgressTitle:=’正在删除废旧文件夹’;
fAnyOperationsAborted := false; //操作选择位
end;
SHFileOperation(FileOp); //执行删除操作
转载于:https://www.cnblogs.com/jspdelphi/p/8716585.html
发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/161012.html原文链接:https://javaforall.cn
【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛
【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...