在delphi中怎么删除文件

2025-01-04 03:30:35
推荐回答(4个)
回答1:

try
deletefile('文件路径和文件名');
except
showmessage('error');
end;
直接删的话,就用上面这段代码,已经考虑到了如果当文件不存在时的情况.

回答2:

如果是要删除到回收站的话用
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);

回答3:

winexec(pchar(command),sw_show); 用这个命令就可以啦
command 可以是dos命令
例: winexec(pcahr('del 文件名'),sw_show)
这样就达到你要的要求啦

回答4:

啊,晚了一步,两种方法都被说完了。

5555