不用delphi的控件,怎样得到指定目录下特定扩展名的所有文件名?
解决方案 »
- Delphi单程序运行的问题请教
- 报错内容: [fatal error] variants.pas[1025] :program or unit 'variants' recursively uses itself
- 问了两次都没有结果,再次增加到600分。关于jpg文件上加文字
- 向大家推荐一个DELPHI论坛
- 画板
- 在Delphi中能够调到VB编写的DLL文件吗。如何调用??
- 轻轻松松那分!!!急,在线等...
- 如何设置QReport预览时显示的页面为横向的?
- 求jpg图片的过渡效果!!(不要bmp的!!谢谢)
- 请懂COM编程的朋友赐教!
- SOS!求源码!!有谁有准确而内容正确的进销存源代码!急!在线等待
- 如何获得我点击的菜单项的items[X] X是第几???
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;