直接删除就是上面说得, 如果要删除到回收站的话用 SHFileOperation(lPSHFILEOPSTRUCT lpFileOp)这个api函数,这是我从程序截得一段代码 FileName:string; fos:TSHFileOpStruct; .... FillChar(fos,SizeOf(fos),0); with fos do begin Wnd:=0; wFunc:=FO_DELETE; pFrom:=PChar(FileName); fFlags:=FOF_ALLOWUNDO or FOF_NOCONFIRMATION; end; ShFileOperation(fos);
deletefile('文件路径和文件名');
except
showmessage('error');
end;
deletefile('..');
如果要删除到回收站的话用
SHFileOperation(lPSHFILEOPSTRUCT lpFileOp)这个api函数,这是我从程序截得一段代码
FileName:string;
fos:TSHFileOpStruct;
....
FillChar(fos,SizeOf(fos),0);
with fos do
begin
Wnd:=0;
wFunc:=FO_DELETE;
pFrom:=PChar(FileName);
fFlags:=FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
end;
ShFileOperation(fos);