我想用TFileListBox了,可是不知道怎么用?是不是用错了,我不需要界面,我想在程序中获取一个文件夹下的所有文件,然后遍历处理这些文件
解决方案 »
- delphi怎么伪造IP地址
- 超级郁闷的问题 装了DELPHI2007的进来。100分相送
- 请教关于状态对象与无状态对象
- 初学delphi想知道,对于一个string,如何对其中的每个char进行+3处理?谢谢!在线等待!!!
- 为什么我不能在Data breakpoint输入变量的名字?
- win2000server,怎么得到当前用户的登录密码?
- 在TStringGrid想使用指定的Color来填充Cell,为什么用Canvas.Rectangle或Canvas.FillRect都不行
- Dbgrideh读取数据问题
- 如何获得当前运行的所有进程,并且如何关闭???
- 请问换页符的ASCII码是多少?
- 正在做一个毕业设计的软件,请教几个问题
- 一程序员的的迷茫-关乎代码生涯生死
Search:TSearchRec;
iCount:integer;
FilePath:string;
begin
FilePath:='F:\mp3';
Try
iCount:=FindFirst(FilePath +'*.*',faAnyFile,Search);
while iCount =0 do
begin
if (Search.name<>'.')and(Search.name<>'..') then
begin
if ExtractFileExt(Search.Name)='.mp3' then //查出当前目录下所有*.mp3
Memo1.Lines.Add(Search.Name);
end;
iCount:=FindNext(Search)
end;
finally
FindClose(Search);
end;
end;