用Api function TJ5000.DelFlashFN: boolean; var sr: TSearchRec; FileAttrs: Integer; begin result := false; FileAttrs := faArchive; //faAnyFile; if FindFirst('.\Dsk\*.*', FileAttrs, sr) = 0 then begin repeat DeleteFile('.\Dsk\' + sr.Name); //修改這句成你找到文件後要作的操作 until FindNext(sr) <> 0; FindClose(sr); end; result := true; end;
function TJ5000.DelFlashFN: boolean;
var
sr: TSearchRec;
FileAttrs: Integer;
begin
result := false;
FileAttrs := faArchive; //faAnyFile; if FindFirst('.\Dsk\*.*', FileAttrs, sr) = 0 then
begin
repeat
DeleteFile('.\Dsk\' + sr.Name); //修改這句成你找到文件後要作的操作
until FindNext(sr) <> 0;
FindClose(sr);
end;
result := true;
end;