文件删除函数?
DeleteFile(ExtractFileDir(Application.Exename)+ '\Files\070409.txt ');
对单个文件删除可以实现,但我想删除类似 有文件名 0704 的文件,怎么实现呢?
[解决办法]
一种方法就是用我在上面说的FindFirst + FindNext 找一个删一个，另外，我给你找了一个函数，试了可以用：
function DeleteFileEx(const AFileSrc: string): boolean;
var
fo : TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(AFileSrc);
fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
end;
Result := (SHFileOperation(fo) = 0);
end;
函数出自：http://www.80diy.com/home/20011030/10/347282.html
