try
deletefile('文件路径和文件名');
except
showmessage('error');
end;
直接删的话,就用上面这段代码,已经考虑到了如果当文件不存在时的情况.
如果是要删除到回收站的话用
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);
winexec(pchar(command),sw_show); 用这个命令就可以啦
command 可以是dos命令
例: winexec(pcahr('del 文件名'),sw_show)
这样就达到你要的要求啦
啊,晚了一步,两种方法都被说完了。
5555